VARIAVEL LST_TP = 58
VARIAVEL Z_MOVE = ""
VARIAVEL Z_FAT = ""
VARIAVEL z_lista = "S"

VARIAVEL Z_VALTOT = 0
VARIAVEL Z_TOTPRD = 0
VARIAVEL z_tUNIDS = 0
VARIAVEL Z_TOTUNI = 0

VARIAVEL Z_DE = DATE()
VARIAVEL Z_ATE = DATE()
VARIAVEL Z_VALDSC = 0
VARAIVEL Z_VALFAT = 0
VARIAVEL Z_TOTDSC = 0
VARIAVEL Z_TOTFAT = 0
VARIAVEL Z_TOT_ES = 0
VARIAVEL Z_TOT_CH = 0
VARIAVEL Z_TOT_CT = 0
VARIAVEL Z_TOT_CV = 0
VARIAVEL Z_TOT_CA = 0
*
T10,10,18,60,Parametros
T2,2,Totais vendidos,
T3,2,Lista as Vendas:,1,z_lista,x
T4,2,Data Inicial...:,8,z_DE,99.99.99
T5,2,Data FINAL.....:,8,z_ATE,99.99.99

COMANDO ANTES DbGoBottom()
COMANDO DEPOIS Z_MOVE = SE_MOV
COMANDO DEPOIS Z_FAT = SF_FAT

ARQUIVO (Z_FAT)
OUTROARQ (z_MOVE) z_MOVE+".p" fnumped
OUTROARQ SCCPFOR
OUTROARQ SCCRCLI
OUTROARQ SE_PROD SEIP_C PCOD

COMANDO DURANTE Z_PED = FNUMPED
COMANDO DURANTE Z_DATAEMI = FDATAEMI
COMANDO DURANTE Z_FHORA = FHORA
COMANDO DURANTE SCCRCLI->( DBGOTO( Z_FAT->FCLI ))
COMANDO DURANTE Z_VALDSC = FDESCONTO
COMANDO DURANTE Z_VALFAT = FVAL
COMANDO DURANTE Z_TOTDSC = Z_TOTDSC + FDESCONTO
COMANDO DURANTE Z_TOTFAT = Z_TOTFAT + FVAL
COMANDO DURANTE Z_TOT_ES = Z_TOT_ES + FVALES
COMANDO DURANTE Z_TOT_CH = Z_TOT_CH + FVALCH
COMANDO DURANTE Z_TOT_CT = Z_TOT_CT + FVALCT
COMANDO DURANTE Z_TOT_CV = Z_TOT_CV + FVALCV
COMANDO DURANTE Z_TOT_CA = Z_TOT_CA + FVALCA

FILTRO FDATAEMI>=Z_DE.AND.FDATAEMI<=Z_ATE.and.fcli>0

C
C[EMPRESA]                Relatorio Emitido em [date()] as [time()]   Pag [pag 999]
c[Repl("=",80)]
CRELACAO DAS VENDAS DO PERIODO DE [Z_DE] ATE [Z_ATE].
filtroimp z_lista="S"
D[Repl("-",80)]
filtroimp z_lista="S"
DPedido: [strzero(FNUMPED,8)] Emissao: [FDATAEMI] [SCCRCLI->CR_NOME @S30]

SUBLIST Z_MOVE

COMANDO ANTES DbSeek(Z_PED)
REPITA ENQUANTO FNUMPED=Z_PED
FILTRO MDATA>=Z_DE.AND.MDATA<=Z_ATE.AND.MFGES="S".and.mtipoven$"123456Z".and.fnumped<>0.and.mfnum>=0

COMANDO ANTES Z_TOTPRD = 0
COMANDO ANTES Z_TOTUNI = 0

COMANDO DURANTE Z_PCOD = PCOD
COMANDO DURANTE SE_PROD->(DbSeek(z_pcod))
COMANDO DURANTE Z_TOTPRD = Z_TOTPRD + Mvalor
COMANDO DURANTE Z_TOTUNI = Z_TOTUNI + MQUANT
COMANDO DURANTE z_valtot = z_valtot + Mvalor
COMANDO DURANTE z_tUNIDS = z_tUNIDS + MQUANT

filtroimp z_lista="S"
D[SE_PROD->PCOD]-[se_prod->pdesc @S40] [SE_PROD->PUNIDADE] [mquant @e 999,999] [mvalor/mquant @e 99,999.99] [mvalor @e 99,999.99]
filtroimp z_lista="S"
ULTPAG[REPL(".",80)]
filtroimp z_lista="S"
ULTPAG [sccrcli->cr_nome] [Z_TOTUNI @e 999,999] [Z_TOTPRD @E 99,999.99]
filtroimp z_lista="S"
ULTPAG                                Descontos.........:                   [z_valdsc @E 99,999.99]
filtroimp z_lista="S"
filtroimp z_lista="S"
ULTPAG                                TOTAL DA VENDA....:                   [Z_VALFAT @E 99,999.99]
filtroimp z_lista="S"
ULTPAG
FIM SUBLIST
ULTPAG[REPL("-",80)]
filtroimp z_lista="S"
ULTPAGRESUMO DAS VENDAS
ULTPAG                         Valor Total dos Produtos.: [z_tUNIDS @E 999,999]           [z_valtot @E 99,999.99]
ULTPAG                         Valor Total dos Descontos:                   [z_TOTdsc @E 99,999.99]
ULTPAG[REPL(".",80)]
ULTPAG                Valor Total das Vendas em DINHEIRO:                   [Z_TOT_ES @E 99,999.99]
ULTPAG                Valor Total das Vendas em CHEQUE..:                   [Z_TOT_CH @E 99,999.99]
ULTPAG                Valor Total das Vendas em CARTAO..:                   [Z_TOT_CT @E 99,999.99]
ULTPAG                Valor Total das Vendas em CONVENIO:                   [Z_TOT_CV @E 99,999.99]
ULTPAG                Valor Total das Vendas em CARNE...:                   [Z_TOT_CA @E 99,999.99]
ULTPAG                                                                      ---------
ULTPAG                         VALOR TOTAL DAS VENDAS...:                   [Z_TOTFAT @E 99,999.99]
ULTPAG
