OUTROARQ SCCRCLI 
OUTROARQ SF_VEND 
VARIAVEL LST_TP = 58 
VARIAVEL Z_DE = S_DATUAL 
VARIAVEL Z_ATE = S_DATUAL 
VARIAVEL TOT_EMIS = 0 
VARIAVEL TOT_DINH = 0 
VARIAVEL TOT_CART = 0 
VARIAVEL TOT_CHEQ = 0 
VARIAVEL TOT_CONV = 0 
VARIAVEL LISTA = "N" 
VARIAVEL LISTA_REC = "S" 
 
T08,10,20,70,Parametros 
T2,2,Periodo  de......:,8,z_de,99.99.99 
T3,13,        ate...:,8,z_ate,99.99.99 
T4,2,Lista Vendas.....:,1,lista,x 
T5,2,Lista Recebimento:,1,lista_rec,x 
 
FILTRO cr_dt_emis>=Z_DE.AND.cr_dt_emis<=Z_ATE.and.CR_RECEBED="01" 
 
COMANDO DURANTE SCCRCLI->( DBGOTO( SCCRDUP->CR_COD_CLI )) 
COMANDO DURANTE SF_VEND->( DBGOTO(val(SCCRDUP->CR_ZONA ))) 
COMANDO DURANTE TOT_DINH = TOT_DINH + IIF(CR_TIP_DUP="ES", CR_VALOR,0) 
COMANDO DURANTE TOT_CHEQ = TOT_CHEQ + IIF(CR_TIP_DUP="CH", CR_VALOR,0) 
COMANDO DURANTE TOT_CART = TOT_CART + IIF(CR_TIP_DUP="CT", CR_VALOR,0) 
COMANDO DURANTE TOT_CONV = TOT_CONV + IIF(CR_TIP_DUP="CV", CR_VALOR,0) 
COMANDO DURANTE TOT_EMIS = TOT_EMIS + CR_VALOR 
 
C 
C[EMPRESA]     Data do Relatorio.: [date()] 
CVendas do PERIODO DE [Z_DE] ATE [Z_ATE]          Pag [pag 99999] 
C[REPL("-",80)] 
FILTROIMP LISTA="S" 
CTp N§Cupom    Dt.Emis  Cliente                             Valor Vendedor 
FILTROIMP LISTA="S" 
C[REPL("-",80)] 
FILTROIMP CR_COD_CLI>0.AND.LISTA="S" 
D[cr_tip_dup] [cr_num_ped] [cr_dt_emis] [SCCRCLI->CR_NOME @S30] [cr_valor @e 999,999.99] [LOWER(sf_VEND->nome) @s8] 
FILTROIMP CR_COD_CLI=0.AND.LISTA="S" 
D[cr_tip_dup] [cr_num_ped] [cr_dt_emis] Venda Direta                   [cr_valor @e 999,999.99] [LOWER(sf_VEND->nome) @s8] 
FILTROIMP LISTA="S" 
ULTPAG[REPL("-",80)] 
ULTPAG                 Total das Vendas em Dinheiro...: [TOT_DINH @E 999,999,999.99] 
ULTPAG                 Total das Vendas em Cheque.....: [TOT_CHEQ @E 999,999,999.99] 
ULTPAG                 Total das Vendas em Cartao.....: [TOT_CART @E 999,999,999.99] 
ULTPAG                 Total das Vendas em Convenio...: [TOT_CONV @E 999,999,999.99] 
ULTPAG                                                  ---------------- 
ULTPAG                         TOTAL DAS VENDAS.......: [TOT_emis @E 999,999,999.99] 
ULTPAG 
ULTPAGRECEBIMENTO DE CONTA 
ULTPAG[REPL("-",80)] 
FILTROIMP LISTA_REC="S" 
ULTPAGTp N§Cupom   Dt.Lqd    Cliente                       Val.Orig   Val.Liq  Obs    Usuario 
FILTROIMP LISTA_REC="S" 
ULTPAG[REPL("-",80)] 
 
ARQUIVO SCCRLQD 
OUTROARQ SCCRCLI 
VARIAVEL LST_TP = 58 
VARIAVEL TOT_ORIG = 0 
VARIAVEL TOT_LIQ = 0 
 
FILTRO CR_DT_LQD>=Z_DE.AND.CR_DT_LQD<=Z_ATE 
 
COMANDO DURANTE SCCRCLI->( DBGOTO( SCCRLQD->CR_COD_CLI )) 
COMANDO DURANTE TOT_LIQ = TOT_LIQ + CR_VAL_LQD 
COMANDO DURANTE TOT_ORIG = TOT_ORIG + CR_VALOR 
 
FILTROIMP LISTA_REC="S" 
D[CR_NUM_PED] [CR_DT_LQD] [SCCRCLI->CR_NOME @S25] [CR_VALOR @E 999,999.99] [CR_VAL_LQD @E 999,999.99] [CR_OBS @S5] [CR_USUARIO] 
FILTROIMP LISTA_REC="S" 
ULTPAG[REPL("-",80)] 
ULTPAG                    TOTAL GERAL ORIGINAL....: [TOT_ORIG @E 999,999,999.99] 
ULTPAG                    TOTAL DAS LIQUIDACOES...: [TOT_LIQ @E 999,999,999.99] 
ULTPAG 
ULTPAG 
ULTPAG => R E S U M O 
ULTPAG[REPL("*",80)] 
ULTPAG            Total das Vendas em Dinheiro...: [TOT_DINH @E 999,999,999.99] 
ULTPAG            Total das Vendas em Cheque.....: [TOT_CHEQ @E 999,999,999.99] 
ULTPAG            Total das Vendas em Cartao.....: [TOT_CART @E 999,999,999.99] 
ULTPAG            Total dos Recebimentos de Conta: [TOT_LIQ @E 999,999,999.99] 
ULTPAG                                             ---------------- 
ULTPAG           TOTAL (Dinh/Cheq/Cart/Rec.Cont.): [TOT_DINH+TOT_CHEQ+TOT_CART+TOT_LIQ @E 999,999,999.99] 
ULTPAG 
 
 