Moreti
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 23/10/2007 19:43 hs
Os valores dos custos estão remontando com o seu exemplo, e as variáveis estão acumulando! Ghost_jlp, esta retornando assim: Logo tenho que somar os custos e depois somar o resultado dos custos com o valor de compra! cod descricao valor Valor do custo complemento data_movimento 123 teste 6,80 1,80 furo 12/10/2007 123 teste 6,80 2,30 montar 12/10/2007 123 teste 6,80 1,20 embalar 13/10/2007 Obrigado |
|
TÓPICO EDITADO
|
|
|
|
|
|
Álvaro
|
GUARULHOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/10/2007 07:28 hs
Dim Codigo,CustoTotal,ValorCompra
rs.move f i rst
codigo=rs!Cod
CustoTotal=0
ValorCompra
DO while no RS.EOF
IF codigo=RS!COD THEN
PRINTER.PRINT tab(0);RS!COD;
PRINTER.PRINT tab(10);RS!DESCRICAO;
PRINTER.PRINT tab(20);RS!VALOR;
PRINTER.PRINT tab(30);RS!VALOR_CUSTO;
PRINTER.PRINT tab(40);RS!COMPLEMENTO;
PRINTER.PRINT tab(50);RS!DATA
ValorCompra=rs!Valor
CustoTotal=CustoTotal+rs!Valor_Custo
rs.movene x t
else
PRINTER.PRINT TAB(30);STRING(20,"-")
PRINTER.PRINT TAB(30);FORMAT(CUSTOTOTAL + VALORCOMPRA,"###,###,##0.00")
CUSTOTOTAL=0
CODIGO=RS!COD
VALORCOMPRA=RS!VALOR
ENDIF
LOOP
Aproveitei o que o Ghost tinha feito e fiz uma alteração no que entendi que você queria e acho que ficaria assim a sua impressão
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
|
|
Postada em 26/10/2007 21:18 hs
|
|
|
|
|
