ALIAS SI_CAIXA

VARIAVEL Z_NUMCXA = RECC()
VARIAVEL Z_REGPAG = 0
VARIAVEL Z_REGREC = 0
VARIAVEL Z_REGFAT = 0
VARIAVEL Z_FAT = ""
VARIAVEL Z_FATP = ""
VARIAVEL Z_DtInic = Date()
VARIAVEL Z_DtFim  = Date()
variavel zStrCxas = ""
VARIAVEL z_concilia = If(type("z_concilia")<>"U",z_concilia,"N")

T10,10,16,60,Totalizacao de Caixas Por Periodo
T2,2,Data Inicial:,8,Z_DtInic,99.99.9999
T3,2,Data Final..:,8,Z_DtFim,99.99.9999

* comando antes #TEXTO_FONTE
* DbGoBottom()
* while .not.bof().and.dataopen>=Z_DtInic
*    DbSkip(-1)
* end
* #FIM_TEXTO_FONTE
comando antes dbGoTop()

filtro dataopen>=Z_DtInic .and. dataopen<=Z_DtFim

comando durante Z_NUMCXA = Recno()
comando durante zStrCxas = zStrCxas + Str(Z_NUMCXA,6)+"/"

comando durante Z_DATACXA  = DATAOPEN
comando durante Z_REGPAG = REG_PAG
comando durante Z_REGREC = REG_REC
comando durante Z_REGFAT = REG_FAT

comando durante z_concilia = If(day(dataconf)>0.and.VcnDINH+VcnCHEQ+VcnCART+VcnCONV+vcnCARN>0,"S",z_concilia)
comando durante z_cdinh=fdinh+VDINH+VPMDINH +vcrdinh-vpag_caixa 
comando durante z_ccheq=fcheq+VCHEQ+VPMCHEQ +vcrcheq 
comando durante z_ccart=fcart+VCART+VPMCART +vcrcart
comando durante z_cconv=fconv+VCONV+VPMCONV +vcrconv
comando durante z_ccarn=fcarn+VCARN+VPMCarn +vcrcarn

comando durante ZD_DINH = VIDINH-(FDINH+VDINH+VPMDINH +vcrdinh-vpag_caixa)
comando durante ZD_CHEQ = VICHEQ-(FCHEQ+VCHEQ+VPMCHEQ +vcrcheq)
comando durante ZD_CART = VICART-(FCART+VCART+VPMCART +vcrcart) 
comando durante ZD_CONV = VICONV-(FCONV+VCONV+VPMCONV +vcrconv) 
comando durante ZD_CARN = VICARN-(FCARN+VCARN+VPMCARN +vcrcarn) 
comando durante Zvpag_caixa = if(vpag_caixa=VcpDINH+VcpCHEQ+VcpCART+VcpCONV+VcpCARN,0,vpag_caixa)
 
comando durante zstrdinh= str(fdinh,9,2)+"|"+str(VDINH+VPMDINH,9,2)+"|"+str(VcrDINH,9,2)+"|"+str(0-(VcpDINH+zvpag_caixa),9,2)+"|"+str(z_cdinh,9,2)+"|"+str(ViDINH,9,2)+"|"+str(ZD_DINH,9,2)
comando durante zstrcheq= str(fcheq,9,2)+"|"+str(VCHEQ+VPMCHEQ,9,2)+"|"+str(VcrCHEQ,9,2)+"|"+str(0-VcpCHEQ,9,2)+"|"+str(z_ccheq,9,2)+"|"+str(ViCHEQ,9,2)+"|"+str(ZD_CHEQ,9,2)
comando durante zstrcart= str(fcart,9,2)+"|"+str(VCART+VPMCART,9,2)+"|"+str(VcrCART,9,2)+"|"+str(0-VcpCART,9,2)+"|"+str(z_ccart,9,2)+"|"+str(ViCART,9,2)+"|"+str(ZD_CART,9,2)
comando durante zstrconv= str(fconv,9,2)+"|"+str(VCONV+VPMCONV,9,2)+"|"+str(VcrCONV,9,2)+"|"+str(0-VcpCONV,9,2)+"|"+str(z_cconv,9,2)+"|"+str(ViCONV,9,2)+"|"+str(ZD_CONV,9,2)
comando durante zstrcarn= str(fcarn,9,2)+"|"+str(VCARN+VPMCarn,9,2)+"|"+str(VcrCARN,9,2)+"|"+str(0-VcpCARN,9,2)+"|"+str(z_ccarn,9,2)+"|"+str(ViCARN,9,2)+"|"+str(ZD_CARN,9,2)

comando durante zfstrdinh = if(z_concilia="S", str(VcncDINH,9,2)+"|"+str(VcnDINH,9,2)+"|"+str(VcnDINH-VcncDINH,9,2) ,"")
comando durante zfstrcheq = if(z_concilia="S", str(VcncCHEQ,9,2)+"|"+str(VcnCHEQ,9,2)+"|"+str(VcnCHEQ-VcncCHEQ,9,2) ,"")
comando durante zfstrcart = if(z_concilia="S", str(VcncCART,9,2)+"|"+str(VcnCART,9,2)+"|"+str(VcnCART-VcncCART,9,2) ,"")
comando durante zfstrconv = if(z_concilia="S", str(VcncCONV,9,2)+"|"+str(VcnCONV,9,2)+"|"+str(VcnCONV-VcncCONV,9,2) ,"")
comando durante zfstrcarn = if(z_concilia="S", str(VcncCarn,9,2)+"|"+str(VcnCarn,9,2)+"|"+str(VcnCARN-VcncCarn,9,2) ,"")

comando durante zstrtot =         str(fdinh+fcheq+fcart+fconv+fcarn,9,2)+"|"+str(VDINH+VCHEQ+VCART+VCONV+vmist,9,2)+"|"
comando durante zstrtot = zstrtot+str(vrec_caixa,9,2)+"|"+str(0-vpag_caixa,9,2)+"|"
comando durante zstrtot = zstrtot+str(z_cdinh+z_ccheq+z_ccart+z_cconv+z_ccarn,9,2)+"|"+str(ViDINH+ViCHEQ+ViCART+ViCONV+ViCARN,9,2)+"|"
comando durante zstrtot = zstrtot+str(ZD_DINH+ZD_CHEQ+ZD_CART+ZD_CONV+ZD_CARN,9,2)

comando durante ZtotVcnc = VcncDINH+VcncCHEQ+VcncCART+VcncCONV+VcncCarn
comando durante ZtotVcn  = VcnDINH+VcnCHEQ+VcnCART+VcnCONV+vcnCARN
comando durante zfstrtot = if(z_concilia="S", "|"+str(ZtotVcnc,9,2)+"|"+str(ZtotVcn,9,2)+"|"+str(ZtotVcnc-ZtotVcn,9,2) ,"")

C[EMPRESA] [if(z_concilia="S",chr(15),"")] 
C[SISTEMA]
CTotalizacao dos Caixas de [Z_DtInic] a [Z_DtFim] emitida em [s_datual] as [time()]
C[repl("-",79)]
C

VARIAVEL zcab0=if(z_concilia="S"," RECALCULO REINFORMAD DifFINAL","")
VARIAVEL zcab1=if(z_concilia="S","|=========|=========|=========","")


DPeriodo:[DATAOPEN]/[horaopen 99:99]hs a [DATAFECH]/[HORAFECH 99:99]hs [USU_OPEN] [SITUACAO] Cx[si_caixa 99] NFech:[Z_NUMCXA 999999]
DFormaPag Fundo Cxa     Venda  Quit/Rec  Sangrias  Tot.Calc  Tot.Inf.  Dif.Cxa.[zcab0]  
D========|=========|=========|=========|=========|=========|=========|=========[zcab1]
DDinheiro|[zstrdinh]|[zfstrdinh]
DCheques |[zstrcheq]|[zfstrcheq]
DCartoes |[zstrcart]|[zfstrcart]
DConvenio|[zstrconv]|[zfstrconv]
DCarnes  |[zstrcarn]|[zfstrcarn]
D========|=========|=========|=========|=========|=========|=========|=========[zcab1]
DTot.Fech|[zstrtot][zfstrtot]
D[repl("*",79)]
D

variavel zTotVda = 0
comando durante zTotVda = zTotVda + VDINH+VCHEQ+VCART+VCONV+vmist
variavel zTotTransf = 0
comando durante zTotTransf = zTotTransf + VTRANSF
variavel zTotCanc = 0
comando durante zTotCanc = zTotCanc + VCANC
variavel zTotDev = 0
comando durante zTotDev = zTotDev + VDEV
variavel zTotAlter = 0
comando durante zTotAlter = zTotAlter + VALT
variavel zTotPag = 0
comando durante zTotPag = zTotPag + vpag_caixa
variavel zTotRec = 0
comando durante zTotRec = zTotRec + vrec_caixa
variavel zTotnven6 = 0
comando durante zTotnven6 = zTotnven6 + nven6
variavel zTotncanc = 0
comando durante zTotncanc = zTotncanc + ncanc
variavel zTotndev = 0
comando durante zTotndev = zTotndev + ndev
variavel zTotnalt = 0
comando durante zTotnalt = zTotnalt + nalt
variavel zTotnpag_caixa = 0
comando durante zTotnpag_caixa = zTotnpag_caixa + npag_caixa
variavel zTotnrec_caixa = 0
comando durante zTotnrec_caixa = zTotnrec_caixa + nrec_caixa

variavel zTfundos = 0
comando durante zTfundos = zTfundos + fdinh+fcheq+fcart+fconv+fcarn
variavel zTcalcs  = 0
comando durante zTcalcs = zTcalcs + z_cdinh+z_ccheq+z_ccart+z_cconv+z_ccarn
variavel zTInfs = 0
comando durante zTInfs = zTInfs + ViDINH+ViCHEQ+ViCART+ViCONV+ViCARN
variavel zTdifs = 0
comando durante zTdifs = zTdifs + ZD_DINH+ZD_CHEQ+ZD_CART+ZD_CONV+ZD_CARN

variavel zttVcnc = 0
comando durante zttVcnc = zttVcnc + ZtotVcnc
variavel ZttVcn = 0
comando durante ZttVcn = ZttVcn + ZtotVcn

comando depois zstrtot = str(zTfundos,9,2)+"|"+str(zTotVda,9,2)+"|"+str(zTotRec,9,2)+"|"+str(0-zTotPag,9,2)+"|"+str(zTcalcs,9,2)+"|"+str(zTInfs,9,2)+"|"+str(zTdifs,9,2)
comando durante zfstrtot = if(z_concilia="S", "|"+str(ZttVcnc,9,2)+"|"+str(ZttVcn,9,2)+"|"+str(ZttVcnc-ZttVcn,9,2) ,"")
ULTPAGTt GERAL|[zstrtot][zfstrtot]
ULTPAG[repl("*",79)]
ULTPAG 
ULTPAG Sumarizacao dos Totais do Caixa de [Z_DtInic] a [Z_DtFim]:
ULTPAG 
ULTPAG Venda Total do Periodo: [zTotVda @e 9999,999.99]

variavel ztVDINH = 0
comando durante ztVDINH = ztVDINH + VDINH + VPMDINH
variavel ztVCHEQ = 0
comando durante ztVCHEQ = ztVCHEQ + VCHEQ + VPMCHEQ
variavel ztVCART = 0
comando durante ztVCART = ztVCART + VCART + VPMCART
variavel ztVCONV = 0
comando durante ztVCONV = ztVCONV + VCONV + VPMCONV

ULTPAG 
ULTPAG      Venda em Dinheiro: [ztVDINH @e 9999,999.99]
ULTPAG      Venda em Cheques.: [ztVCHEQ @e 9999,999.99]
ULTPAG      Venda em Cartao..: [ztVCART @e 9999,999.99]
ULTPAG      Venda em Convenio: [ztVCONV @e 9999,999.99]
ULTPAG 
ULTPAG Transferencias........:[zTotTransf 9999999.99] ([zTotnven6 9999] Cupons)
ULTPAG Cancelamentos.........:[zTotCanc 9999999.99] ([zTotncanc 9999] Cupons)  
ULTPAG Diferencas de Trocas..:[zTotDev 9999999.99] ([zTotndev 9999] Cupons)    
ULTPAG Vendas Alteradas......:[zTotAlter 9999999.99] ([zTotnalt 9999] Cupons)  
ULTPAG
ULTPAG Sangrias/Pagamentos Avulsos......:[zTotPag 9999999.99]  ([zTotnpag_caixa 9999] lancamentos)
ULTPAG Suprimentos/Quitacoes/Rec.Avulsos:[zTotRec 9999999.99]  ([zTotnrec_caixa 9999] lancamentos)
