VARIAVEL Z_ZONA = 0
VARIAVEL Z_FORN = 0
VARIAVEL Z_DE = CTOD("01."+RIGHT(DTOC(S_DATUAL),5))
VARIAVEL Z_ATE = S_DATUAL
VARIAVEL Z_PROD = 0
VARIAVEL Z_MFGES = "E"

T10,20,17,70,Parametros
T2,2,Vendedor......:,2,z_zona,99
T3,2,Data Inicial..:,8,z_de,99.99.99
T4,2,Data Final....:,8,z_ate,99.99.99
T5,2,Tipo de Lancam:,1,z_mfges,!
T6,2,Fornecedor....:,3,z_forn,999

FILTRO MFGES="E"
FILTRO VAL(MVENDEDOR)=Z_ZONA .AND. MDATA>=Z_DE .AND. MDATA<=Z_ATE
FILTRO Z_FORN = MCODFORC

OUTROARQ SCCPFOR
COMANDO ANTES DBGOTO( Z_FORN )

* OUTROARQ SF_VEND
* OUTROARQ SCCRCLI
OUTROARQ SE_PROD SEIP_C PCOD

VARIAVEL Z_TUNID = 0
VARIAVEL Z_FAT = 0

* COMANDO ANTES SF_VEND->( DBGOTO( Z_ZONA ) )
COMANDO DURANTE Z_PROD = PCOD
COMANDO DURANTE SE_PROD->( DBSEEK( Z_PROD ))

* COMANDO DURANTE Z_CLI = MCODFORC
* COMANDO DURANTE SCCRCLI->( DBGOTO( Z_CLI ) )
COMANDO DURANTE Z_TUNID = Z_TUNID + MQUANT
COMANDO DURANTE Z_FAT = Z_FAT + MVALOR

C[EMPRESA]
C[SISTEMA]
CCompras ao Fornecedor [z_Forn 999]-[sccpfor->cp_fantasi], De [z_de]  Ate [z_ate]
C[repl("-",80)]
CCliente                                Pedido  Emissao     Valor  Quant  
C[repl("=",80)]
*zz.zzzz xxxxxyyyyyxxxxxyyyyyxxxxxyyyyy 999999 dd.mm.aa 99,999.99 99,999.99
D[sccrcli->cr_zona 99].[sccrcli->(recno()) 9999] [sccrcli->cr_nome @s30] [fnumped 999999] [mdata] [mvalor @E 99,999.99] [mquant @E 99,999]
ULTPAG[REPL("=",80)]
ULTPAG *** Valor Total Vendido ..........: [z_fat @E 999,999,999.99]
ULTPAG *** Numero de Unidades Vendidas ..: [z_tunid @E 999,999,999]