RELATORIO

[Netavin]

Bom dia amigos!
Por favor, podem me auxiliar nesta rotina de impressão?
O relatório como está, imprimi item por item, informando o nome do produto e seu respectivo valor e informa o subtotal ao término do produto.
Gostaria que fosse suprimido as informações individuais e informasse apenas o Subtotal de cada produto. Não estou conseguindo.
.
.
.
Do While !eof()
If L = 0
? PADC(made,70)
? " Plaquetas baixadas em "+ dtoc(d_bx)
? " Relatório em "+ dtoc(date()) + " …s "+Left(time(),5)
? " P g.: " + Alltrim(Strzero(PG,3))
? " ------------------------------------------"
? " Placa Roma M3 Essência"
? " ------------------------------------------"
L:=7
Endif

If esse=space(16) .or. dtbx # d_bx
Skip
Endif

If Alltrim(vari) # Alltrim(esse)
? " Subtotal : "+Transform(vsubtotal, "@e 999.999")
?
vtotal:=vtotal+vsubtotal
vsubtotal:=000000.00
vari:=esse
Endif

If Alltrim(vari) = Alltrim(esse)
? Space(7),PLAC,Space(1),Roma,Space(1),Transform(TTM3, "@e 9.999"),Space(1),esse
vsubtotal:=vsubtotal+ttm3
Endif

Dbskip()
L++
Num++

If Eof()
? " Subtotal : " + Transform(vsubtotal, "@e 999.999")
vtotal:=vtotal+vsubtotal
vari:=esse
Endif

If L >= 48
L = 0
Pg++
Eject
Endif

Enddo

? " ------------------------------------------"
? " Total .......:"+ Transform(vtotal,"@e 999.999")+ " M3 / " + Alltrim(Str(Num))+" toras."
? " ------------------------------------------"
? "[COMPRIMIDO]"
? Space(12)+lori
? "[NORMAL]"

RUN USB c:\Temp\Ser_dat.txt

Set Device to Screen
Set Print off
Set Console on
Set Printer to

Erase "T_serra.dbf"
Erase "c:\Temp\Ser_dat.txt"

DbCloseAll()
Return

... agradecimentos antecipados.

Abraço a todos!
Netavin.

[gvc]

If Alltrim(vari) = Alltrim(esse)
if <imprime_itens>
? Space(7),PLAC,Space(1),Roma,Space(1),Transform(TTM3, "@e 9.999"),Space(1),esse
end
vsubtotal += ttm3
end

Coloque uma variável para determinar se vc que ou não imprimir os itens.
Vc tb pode tirar essa linha: ? Space(7),PLAC,Space(1),Roma,Space(1),Transform(TTM3, "@e 9.999"),Space(1),esse

Vc tb pode colocar, para facilitar:
<var> := <var> + <valor>
<var> += <valor>

Espero ter ajudado. Boa Sorte.

[Netavin]

Bom dia a todos!

Obrigado pela dica gvc. Não foi a solução completa. Mas serviu para que eu raciocinasse mais a respeito e resolver a questão.

Grato!

Netavin

[gvc]

Desculpe. Eu só queria apontar um solução possível.
Assim vc pode colocar uma opção para o usuário selecionar se que só o resumo (subtotais e totais) ou completo (itens tb).
É claro que se ajudou a pensar e achar a solução, ótimo. Vc esta de parabéns.
Boa sorte.

[Netavin]

Boa tarde !
Saudações gvc!!
Meu amigo, te desculpar tá brincando heim!!!
Sou todo "agradecimentos" a você e toda essa galera que não mede esforços para dirimir minhas dúvidas.

:{

[]´s

Netavin