OUTROARQ SCCRCLI
OUTROARQ SF_VEND
VARIAVEL LST_TP = 9999
VARIAVEL TOTEMIS2 = 0
VARIAVEL Z_CLI = 0
VARIAVEL Z_DE = DATE()
VARIAVEL Z_ATE =  DATE()
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

VARIAVEL TOT_VENDED = 0
VARIAVEL Z_TOTAL  = 0
VARIAVEL RESUMO = "N"
VARIAVEL Z_CAL_DINH = 0
VARIAVEL Z_CAL_CHEQ = 0
VARIAVEL Z_CAL_CART = 0
VARIAVEL Z_CAL_CONV = 0
VARIAVEL Z_CAL_CARN = 0
VARIAVEL Z_CAL_TOTL = 0
VARIAVEL Z_qt_es = 0
VARIAVEL Z_qt_ch = 0
VARIAVEL Z_qt_ct = 0
VARIAVEL Z_qt_cv = 0
VARIAVEL Z_qt_ca = 0
VARIAVEL Z_qt_bc = 0
VARIAVEL z_tot_qt = 0
VARIAVEL r_ES = 0
VARIAVEL r_CH = 0
VARIAVEL r_CT = 0
VARIAVEL r_BC = 0
VARIAVEL TOT_INFOR = 0
T10,10,18,60,Parametros
T3,2,Data DO CAIXA..:,8,z_de,99.99.99

FILTRO CR_DT_EMIS=Z_DE

COMANDO DURANTE SCCRCLI->( DBGOTO(SCCRDUP->CR_COD_CLI ))
COMANDO DURANTE SF_VEND->( DBGOTO(VAL(SCCRDUP->CR_ZONA ) ))

COMANDO DURANTE z_TOT_ES = z_TOT_ES + iif(cr_tip_dup="ES".and.CR_RECEBED="01", cr_valOR,0)
COMANDO DURANTE z_TOT_CH = z_TOT_CH + iif(cr_tip_dup="CH".and.CR_RECEBED="01", cr_valOR,0)
COMANDO DURANTE z_TOT_CT = z_TOT_CT + iif(cr_tip_dup="CT".and.CR_RECEBED="01", cr_valOR,0)
COMANDO DURANTE z_TOT_CV = z_TOT_CV + iif(cr_tip_dup="CV".and.CR_RECEBED="01", cr_valOR,0)
COMANDO DURANTE z_TOT_CA = z_TOT_CA + iif(cr_tip_dup="CA".and.CR_RECEBED="01", cr_valOR,0)

COMANDO DURANTE z_qt_es = z_qt_es +  if(left(cr_num_ped,4)="CXES", cr_val_lqd,0)

COMANDO DURANTE r_es = r_es + if(CR_RECEBED="RA".AND.CR_TIP_DUP="ES", cr_val_lqd,0)
COMANDO DURANTE r_ch = r_ch + if(CR_RECEBED="RA".AND.CR_TIP_DUP="CH", cr_val_lqd,0)
COMANDO DURANTE r_ct = r_ct + if(CR_RECEBED="RA".AND.CR_TIP_DUP="CT", cr_val_lqd,0)
COMANDO DURANTE r_bc = r_bc + if(CR_RECEBED="RA".AND.CR_TIP_DUP="BC", cr_val_lqd,0)

COMANDO DURANTE z_qt_ch = z_qt_ch +  if(left(cr_num_ped,4)="CXCH", cr_val_lqd,0)
COMANDO DURANTE z_qt_ct = z_qt_ct +  if(left(cr_num_ped,4)="CXCT", cr_val_lqd,0)
COMANDO DURANTE z_qt_bc = z_qt_bc +  if(left(cr_num_ped,4)="CXBC", cr_val_lqd,0)
COMANDO DURANTE z_qt_cv = z_qt_cv +  if(left(cr_num_ped,4)="CXCV", cr_val_lqd,0)
COMANDO DURANTE z_qt_ca = z_qt_ca +  if(left(cr_num_ped,4)="CXCA", cr_val_lqd,0)

COMANDO DURANTE z_tot_qt = z_qt_es+z_qt_ch+z_qt_ct+z_qt_bc+R_ES+R_CH+R_CT

COMANDO DURANTE Z_TOTAL  = Z_TOTAL + if(cr_recebed="01".AND.left(cr_num_ped,2)<>"CX",CR_VALOR,0)

ARQUIVO SCCPPED
VARIAVEL LST_TP = 9999
VARIAVEL Z_pg_es = 0
VARIAVEL Z_pg_ch = 0
VARIAVEL Z_pg_ct = 0
VARIAVEL Z_pg_cv = 0
VARIAVEL Z_pg_ca = 0
VARIAVEL Z_pg_bc = 0
VARIAVEL z_tot_pg = 0

FILTRO Cp_DT_lqd=Z_DE

COMANDO DURANTE Z_pg_es = Z_pg_es + if(left(cp_num_ped,2)="CX".and.cp_tip_dup="ES", cp_val_lqd,0)
COMANDO DURANTE Z_pg_ch = Z_pg_ch + if(left(cp_num_ped,2)="CX".and.cp_tip_dup="CH", cp_val_lqd,0)
COMANDO DURANTE Z_pg_ct = Z_pg_ct + if(left(cp_num_ped,2)="CX".and.cp_tip_dup="CT", cp_val_lqd,0)
COMANDO DURANTE Z_pg_bc = Z_pg_bc + if(left(cp_num_ped,2)="CX".and.cp_tip_dup="BC", cp_val_lqd,0)
COMANDO DURANTE z_tot_pg = Z_pg_es+Z_pg_ch+Z_pg_ct+Z_pg_bc

ARQUIVO SI_CAIXA
VARIAVEL Z_NUMCXA = RECC() 
VARIAVEL Z_ABRI = ""
VARIAVEL Z_FECH = ""
VARIAVEL Z_FUNDOCX = 0

FILTRO DATAFECH=Z_DE
COMANDO DURANTE Z_ABRI = USU_OPEN
COMANDO DURANTE Z_FECH = USU_FECH
COMANDO DURANTE Z_DTABR = DATAOPEN
COMANDO DURANTE Z_HRABR = HORAOPEN
COMANDO DURANTE Z_DTFEC = DATAFECH
COMANDO DURANTE Z_HRFEC = HORAFECH
COMANDO DURANTE Z_SITUA = SITUACAO
COMANDO DURANTE Z_FUNDOCX = FDINH
COMANDO DURANTE z_VTRANSF = VTRANSF
COMANDO DURANTE z_VCANC   = VCANC
COMANDO DURANTE z_VDEV    = VDEV
COMANDO DURANTE z_VALT    = VALT
COMANDO DURANTE Z_VCRDINH    = VCRDINH
COMANDO DURANTE Z_VCRCHEQ    = VCRCHEQ
COMANDO DURANTE Z_VCRCART    = VCRCART
COMANDO DURANTE Z_vcrbanc    = vcrbanc
COMANDO DURANTE Z_vrec_caixa = vrec_caixa
COMANDO DURANTE z_VCpDINH    = VCpDINH
COMANDO DURANTE z_VCpCHEQ    = VCpCHEQ
COMANDO DURANTE z_VCpCART    = VCpCART
COMANDO DURANTE z_VCpCARN    = VCpCARN
COMANDO DURANTE z_vpag_caixa = vpag_caixa
COMANDO DURANTE z_VIDINH = VIDINH
COMANDO DURANTE z_VICHEQ = VICHEQ
COMANDO DURANTE z_VICART = VICART
COMANDO DURANTE z_VICONV = VICONV
COMANDO DURANTE z_VICarn = VICarn


ULTPAG
ULTPAG[&M_NORMAL]
ULTPAG
ULTPAGPosicao do Caixa Numero:[z_numcxa 9999] emitida em [s_datual] as [time()] 
ULTPAG[REPL("-",80)]
ULTPAGAbertura: [Z_ABRI]                       | Fechamento: [Z_FECH] | Situacao:
ULTPAGData....: [Z_DTABR]                       | Data......: [Z_DTFEC] | [&M_ENFAT][UPPE(Z_SITUA)][&M_NAOENFAT]
ULTPAGHora....: [Z_HRABR]                       | Hora......: [Z_HRFEC] |
ULTPAG[REPL("=",80)]
ULTPAG [&M_ENFAT]RESUMO DAS VENDAS[&M_NAOENFAT]                       |                                     |
ULTPAG Venda Total em Dinheiro.:[Z_TOT_ES @E 99,999,999.99]  |                                     |
ULTPAG Venta Total em Cheques..:[Z_TOT_CH @E 99,999,999.99]  |                                     |
ULTPAG Venda Total em Cartoes..:[Z_TOT_CT @E 99,999,999.99]  |                                     |
ULTPAG Venda Total em Convenios:[Z_TOT_CV @E 99,999,999.99]  |                                     |
ULTPAG Venda Total em Carne....:[Z_TOT_CA @E 99,999,999.99]  |                                     |
ULTPAG             [&M_ENFAT] VENDA TOTAL:[z_total @E 99,999,999.99][&M_NAOENFAT]  |                                     |
ULTPAG-----------------------------------------|                                     |
ULTPAG        Transferencias...: [z_VTRANSF @E 999,999.99]    |                                     |
ULTPAG                                         |                                     |
ULTPAG        Receb. nas Trocas: [z_VDEV @E 999,999.99]    |                                     |
ULTPAG        Cupons Alterados.: [z_VALT @E 999,999.99]    |                                     |
ULTPAG-----------------------------------------|                                     |
ULTPAG        Quit.em Dinheiro.: [Z_qt_es+R_ES @E 999,999.99]    |                                     |
ULTPAG        Quit.em Cheques..: [Z_qt_ch+R_CH @E 999,999.99]    |                                     |
ULTPAG        Quit.em Cartoes..: [Z_qt_ct+R_CT @E 999,999.99]    |                                     |
ULTPAG        Quit.Via Dep.Banc: [Z_qt_bc+R_BC @E 999,999.99]    |-------------------------------------|
ULTPAG       TOTAL RECEBIMENTOS: [&M_ENFAT][Z_qt_es+Z_qt_ct+Z_qt_ch+Z_qt_bc+R_ES+R_CH+R_CT+R_BC @E 999,999.99][&M_NAOENFAT]    |                                     |
ULTPAG        Quit.Via CA......: [Z_qt_ca @E 999,999.99]    |                                     |
ULTPAG        Quit.Via CV......: [Z_qt_cv @E 999,999.99]    |                                     |
ULTPAG                                         |                                     |
ULTPAG        Pgtos em Dinheiro: [Z_pg_es @E 999,999.99]    |                                     |
ULTPAG        Pgtos em Cheques.: [Z_pg_ch @E 999,999.99]    |                                     |
ULTPAG        Pgtos em Cartoes.: [Z_pg_ct @E 999,999.99]    |                                     |
ULTPAG       TOTAL PAGAMENTOS..: [&M_ENFAT][z_tot_pg @E 999,999.99][&M_NAOENFAT]    |                                     |

COMANDO DURANTE Z_CAL_DINH = Z_FUNDOCX+Z_TOT_ES+Z_qt_es+R_ES-Z_pg_es
COMANDO DURANTE Z_CAL_CHEQ = Z_TOT_CH+Z_qt_ch+R_CH-Z_pg_ch
COMANDO DURANTE Z_CAL_CART = Z_TOT_CT+Z_qt_ct+R_CT-Z_pg_ct
COMANDO DURANTE Z_CAL_CONV = Z_TOT_CV
COMANDO DURANTE Z_CAL_CARN = Z_TOT_CA
COMANDO DURANTE Z_CAL_TOTL = Z_FUNDOCX+z_total+z_tot_qt-z_tot_pg-Z_qt_bc
COMANDO DURANTE TOT_INFOR  = z_VIDINH+z_VICHEQ+z_VICART+z_VICONV+z_VICARN

ULTPAG[REPL("-",80)]
ULTPAG FormaPag Fundo Cxa     Venda  Quit/Rec  Sangrias  Tot.Calc  Tot.Inf.  Dif.Cxa.
ULTPAG=========|=========|=========|=========|=========|=========|=========|=========
ULTPAG Dinheiro|[&M_ENFAT][Z_FUNDOCX 999999.99]|[Z_TOT_ES 999999.99]|[Z_qt_es+R_ES 999999.99]|[Z_pg_es 999999.99]|[Z_CAL_DINH 999999.99]|[z_VIDINH 999999.99]|[z_VIDINH-Z_CAL_DINH 999999.99][&M_NAOENFAT]|
ULTPAG Cheque  |[&M_ENFAT]         |[Z_TOT_CH 999999.99]|[Z_qt_ch+R_CH 999999.99]|[Z_pg_ch 999999.99]|[Z_CAL_CHEQ 999999.99]|[z_VICHEQ 999999.99]|[z_VICHEQ-Z_CAL_CHEQ 999999.99][&M_NAOENFAT]|
ULTPAG Cartao  |[&M_ENFAT]         |[Z_TOT_CT 999999.99]|[Z_qt_ct+R_CT 999999.99]|[Z_pg_ct 999999.99]|[Z_CAL_CART 999999.99]|[z_VICART 999999.99]|[z_VICART-Z_CAL_CART 999999.99][&M_NAOENFAT]|
ULTPAG Convenio|[&M_ENFAT]         |[Z_TOT_CV 999999.99]|         |         |[Z_CAL_CONV 999999.99]|[z_VICONV 999999.99]|[z_VICONV-Z_CAL_CONV 999999.99][&M_NAOENFAT]|
ULTPAG Carne   |[&M_ENFAT]         |[Z_TOT_CA 999999.99]|         |         |[Z_CAL_CARN 999999.99]|[z_VICARN 999999.99]|[z_VICARN-Z_CAL_CARN 999999.99][&M_NAOENFAT]|
ULTPAG=========|=========|=========|=========|=========|=========|=========|=========
ULTPAG  Totais |[&M_ENFAT][Z_FUNDOCX 999999.99]|[z_total 999999.99]|[z_tot_qt 999999.99]|[z_tot_pg 999999.99]|[Z_CAL_TOTL 999999.99]|[TOT_INFOR 999999.99]|[TOT_INFOR-Z_CAL_TOTL 999999.99][&M_NAOENFAT]|
ULTPAG[REPL("+",80)]
ULTPAG
ULTPAG[&M_ENFAT]Relacao dos Pedidos Cancelados de [Z_DE][&M_NAOENFAT]
ULTPAG[REPL("-",80)]
ULTPAGOperacao     DtVenda  DtCancel  Pedido Cliente                            Valor
ULTPAG[REPL("-",80)]

VARIAVEL Z_FAT = SF_FAT
ARQUIVO (Z_FAT) z_fat+".p" fnumped
OUTROARQ SCCRCLI
VARIAVEL TOT_CAN = 0
VARIAVEL LST_TP = 999
FILTRO Dele().And.(fg_lib="A".and.fg_fat="A".Or.Fg_Lib="C").and.(FdataAlter=Z_DE.Or.(Day(FdataAlter)=0.And.Fdataemi=Z_DE))
VARIAVEL Z_NIL = SET(11,"OFF")
COMANDO ANTES Z_NIL = DBGOTOP()
COMANDO DURANTE Z_CLI = FCLI
COMANDO DURANTE Z_NIL = SCCRCLI->( DBGOTO(Z_cLI) )
COMANDO DURANTE Z_OPER = IF(FG_LIB="A","Alteracao   ","Cancelamento")
COMANDO ANTES Z_SPCS = "            "
COMANDO DURANTE TOT_CAN = TOT_CAN + IF(Z_OPER="Cancelamento",FVAL,0)
COMANDO DEPOIS Z_NIL = SET(11,"ON")

COMANDO DURANTE Z_NOMECLI = SCCRCLI->CR_NOME
COMANDO DURANTE Z_TROCO = IF(FVALPAGO>FVAL,FVALPAGO-FVAL,0)
COMANDO DURANTE Z_PED   = ABS(fnumped)
COMANDO DURANTE Z_RECNO = RECNO()
COMANDO DURANTE Z_NIL   = DBSEEK(Z_PED)
COMANDO DURANTE Z1 = FNUMPED
COMANDO DURANTE Z2 = FCLI
COMANDO DURANTE Z_NIL = SCCRCLI->( DbGoto(Z2) )
COMANDO DURANTE Z3 = SCCRCLI->CR_NOME
COMANDO DURANTE Z4 = FVENDEDOR
COMANDO DURANTE Z5 = FVAL
COMANDO DURANTE Z6 = FTIPOVEN
COMANDO DURANTE Z7 = FDATAALTER
COMANDO DURANTE Z8 = FHORAALTER
COMANDO DURANTE Z9 = FDESCONTO
COMANDO DURANTE Z10 = IF(FVALPAGO>FVAL,FVALPAGO-FVAL,0)
COMANDO DURANTE Z_NIL = DBGOTO( Z_RECNO )

FILTROIMP Z_OPER="Cancelamento"
D[Z_OPER] [fdataemi] [Z7] [FNUMPED 9999999] [STRZERO(FCLI,5)]-[Z_NOMECLI @S23] [FVAL @E 999,999.99]
ULTPAG[REPL("-",80)]
ULTPAG                                      TOTAL DOS PEDIDOS CANCELADOS.: [&M_ENFAT][TOT_CAN @E 999,999.99][&M_NAOENFAT]
ULTPAG
ULTPAG
