* Voce esta na area do SP_MOVF
* 
VARIAVEL Z_DESCONTO = 0
T10,10,16,70,Parametros
T3,10,Desconto ao pe da nota:,5,z_desconto,99.99

INDEX           temp pdesc
OUTROARQ        se_prod seip_c pcod
COMANDO DURANTE se_prod->( DbSeek(sp_movf->pcod) )
VARIAVEL        z_up = 0
VARIAVEL        z_un = 0
VARIAVEL        z_valped = 0
COMANDO DURANTE z_up = z_up + unid_fech
COMANDO DURANTE z_un = z_un + mquant
COMANDO DURANTE z_valped = z_valped + unid_fech*pvluven3
C [Empresa]                                          Data [Date()]
C [Sistema]                                           
C Impressao do Pedido [w_pedido XXXXXXXX]                        Pag [Pag 9999]
C ---------------------------------------------------------------------------
C  Cod  Descricao               Quant     Prc Unit   Vlr Total
C ---------------------------------------------------------------------------
* 99999 xxxxxyyyyyxxxxxyyyyyxxxx 9999 XXXX xxxxxyyyyyxxxxx xxxxxyyyyyxxxxx
D[pcod 99999]  [pdesc @s30] [unid_fech 9999]   [pvluven3 @e 99,999.99]   [unid_fech*pvluven3 @e 99,999.99]    
ULTPAG ---------------------------------------------------------------------------
ULTPAG *** Totais do Pedido:          [z_up @E 9999]              [z_valped @E 999,999.99] 
ULTPAG ---------------------------------------------------------------------------
COMANDO DEPOIS Z_VALDESC = Z_VALPED*Z_DESCONTO/100
ULTPAG * Desconto de [z_valdesc @E 99,999.99] ([z_desconto 99.99]%) => Valor Liquido [z_valped-z_valdesc @E 99,999.99]

