Destrinchar pagto


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Destrinchar pagto

Moreti

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 13/05/2009 19:59 hs

Amigos, tenho uma planilha que recebo do banco, essa planilha eu copio e colo no access,criando um banco.
Nessa planilha ela vem com os seguintes campos:

cliente    QTDParcelas    ValorTotal       TotalParcelas
10001           04               1000,00           250,00
10002           06               2000,00           333,33

Muito bem eu quero pegar cliente por cliente e destrinchar a quantidade de parcelas (QTDParcelas) gravando elas em um outro banco aasim:

cliente    QTDParcelas    ValorTotal       TotalParcelas
10001         01                 1000,00            250,00
10001         02                 1000,00            250,00
10001         03                 1000,00            250,00
10001         04                 1000,00            250,00

Alguém pode me ajudar ?

Obrigado

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 13/05/2009 20:06 hs

Moreti, você está fazendo isto no access ou no Visual Basic?

se for no visual basic 6, está usando DAO ou ADO?

Moreti

SÃO PAULO
SP - BRASIL

Postada em 13/05/2009 20:12 hs

Visual Basic ADO

Obrigado

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 13/05/2009 20:38 hs

Então destrinche na própria SQL

SQL = "SELECT SUM(ValorTotal/QTDParcelas) As TotalPacelas FROM Tabela"
RS.Execute(SQL)

depois crie um laço coma quantidade de parcelas + ou - assim

For F = 1 To RS! QTDParcelas
RS2.Execute("INSERT INTO novatabela (cliente, QTDParcelas, ValorTotal, TotalParcelas) VALUES (" & codcli & "," & Format(F,"00") & "," & RS!ValorTotal & "," & RS!TotalParcelas & ")")
Next F

veja se consegue adaptar

Página(s): 1/1