* LIGACAO=se_prod->( DbSeek(sp_movf->pcod) )
INDEX SEIP_N PDESC
VARIAVEL LST_TP = 58
VARIAVEL TOTUNI =0
VARIAVEL PRTOT  =0
VARIAVEL est1 = 0
VARIAVEL PRFAB = 0
VARIAVEL TOT = 0
FILTRO deleted()
COMANDO DURANTE TOTUNI = TOTUNI+1
COMANDO DURANTE PRFAB = PVLUVENDA - ( ROUND(PVLUVENDA * ( PDESCVAR /100),2) )
COMANDO DURANTE PRTOT  = PEATX * PRFAB
COMANDO DURANTE TOT = TOT + PRTOT
C [Empresa]                                                           Data [Date()]
C [Sistema]                                         Hora [Time()]
C Relacao Geral de Produtos                                       Pag [Pag 9999]
C -------------------------------------------------------------------------
C  Cod   Descricao                 Estoque         Vl. Unit.     Vl. Total
C -------------------------------------------------------------------------
* 99999 xxxxxyyyyyxxxxxyyyyyxxxx   9999     9,999.99    99,999.99
D [pcod 99999]  [pdesc @s30]     [PEATX 9999]         [PRFAB @E 99,999.99]     [PRTOT @E 99,999.99]
ULTPAG [repl("-",75)]
ULTPAG TOTAL DE PRODUTOS:[TOTUNI @E 999,999]                                      [TOT @E 99,999.99]
ULTPAG [repl("-",75)]
