* Voce esta na area do SP_MOVF 
* 
INDEX           temp pdesc 
// OUTROARQ se_prod seip_c pcod 
VARIAVEL z_valped = 0 
VARIAVEL LST_TP = 58 
VARIAVEL TOTFF = 0 
VARIAVEL TOT01 = 0 
VARIAVEL TOTII = 0 
VARIAVEL Z_FGDIF = "N" 
VARIAVEL CAT = "" 
VARIAVEL z_undped = 0 
VARIAVEL z_undrec = 0 
VARIAVEL z_prdped = 0 
VARIAVEL z_prdrec = 0 
VARIAVEL z_valped  = 0 
VARIAVEL z_valrec  = 0 
 
T12,9,16,77,Parametros 
T2,2,Listo Apenas as Divergencias Entre o Pedido e Recepcao ?,1,Z_fgDif,! 
COMANDO DURANTE se_prod->( DbSeek(sp_movf->pcod) ) 
COMANDO DURANTE z_undped = z_undped + unid_fech 
COMANDO DURANTE z_undrec = z_undrec + mqatend 
COMANDO DURANTE z_prdped = z_prdped + if(unid_fech>0,1,0) 
COMANDO DURANTE z_prdrec = z_prdrec + if(mqatend>0,1,0) 
COMANDO DURANTE z_valped = z_valped + if(unid_fech>0,MVALOR3,0) 
COMANDO DURANTE z_valrec = z_valrec + if(mqatend>0,MVALOR3,0) 
 
COMANDO DURANTE CAT = ALLTRIM(SE_PROD->PCATEGORIA) 
COMANDO DURANTE TOTFF = TOTFF + IIF(CAT = "FF" .OR. CAT = "F01", MVALOR, 0) 
COMANDO DURANTE TOT01 = TOT01 + IIF(CAT = "01" .OR. CAT = "T01", MVALOR, 0) 
COMANDO DURANTE TOTII = TOTII + IIF(CAT = "II" .OR. CAT = "I01", MVALOR, 0) 
C [Empresa]                                  Data [Date()] 
C [Sistema]                                            Hora [Time()] 
C Critica da Recepcao do pedido [w_pedido XXXXXXXX]                 Pag [Pag 9999] 
C ----------------------------------------------------------------------------------------- 
C Cod   Descricao           Recebidas Pedidas  Frc Cf    ValUnit Valtotal 
C ----------------------------------------------------------------------------------------- 
* 99999 xxxxxyyyyyxxxxxyyyyyxxxx 9999 999 999 xxx  99999.99 99999.99  99999999 
 
FILTROIMP z_fgdif="N".or.mqatend<>unid_fech 
D [pcod 99999] [pdesc @s30] [mqatend @e 9999] [unid_fech @e 9999] [pitens 999] [SE_PROD->PCATEGORIA XXX] [PVLUVENDA @E 99999.99] [mVALOR @E 99999.99] 
 
ULTPAG ----------------------------------------------------------------------------------------- 
ULTPAG Valor Pedido.: [z_valped @e 999,999.99]        Valor Recebido.: [z_valrec @e 999,999.99]   Dif:[z_valrec-z_valped @e 999,999.99] 
ULTPAG Prods Pedidos: [z_prdped @e 999,999]           Prods Recebidos: [z_prdrec @e 999,999]      Dif:[z_prdrec-z_prdped @e 999,999] 
ULTPAG Unids Pedidas: [z_undped @e 999,999]           Unids Recebidas: [z_undrec @e 999,999]      Dif:[z_undrec-z_undped @e 999,999] 
ULTPAG 
ULTPAG ICMS NORMAL: [TOT01 @E 999,999.99]  SUBSTITUICAO [TOTFF @E999,999.99]  ISENTOS[TOTII @E999,999.99] 
ULTPAG ----------------------------------------------------------------------------------------- 
 
 