INDEX SX_CAIXA Str(Banco,3)+Dtos(Data)

VARIAVEL z_banco = 0
VARIAVEL z_de = ctod( "01."+SubStr(Dtoc(S_Datual),4) )
VARIAVEL z_ate = s_datual
VARIAVEL z_cp_divisao = 0
VARIAVEL z_grupo = 0
VARIAVEL z_cp_cod_for = 0
VARIAVEL Z_SALDO = 0

T10,10,20,70,"Parametros" 

T2,2,Caixa/Banco........:,6,z_banco,999
T3,2,Data Inicial.......:,8,z_de,99.99.99 
T4,2,Data Final.........:,8,z_ate,99.99.99
 
T6,2,Divisao de Despesas:,2,z_cp_divisao,999 
T7,2,Grupo Contabil.....:,2,z_grupo,9
T8,2,Fornecedor.........:,2,z_cp_cod_for,9999

COMANDO ANTES Z_STRCaixa   = if(z_banco>0,Str(z_banco,3),"GERAL")
COMANDO ANTES Z_STRFILTROS = if(z_cp_divisao>0,"* Apenas da Div.de Despesa:"+Str(z_cp_divisao,3),"")
COMANDO ANTES Z_STRFILTROS = Z_STRFILTROS+if(z_grupo>0,"* Apenas do Grupo Contabil:"+Str(z_grupo,1),"")
COMANDO ANTES Z_STRFILTROS = Z_STRFILTROS+if(z_cp_cod_for>0,"* Apenas do Fornecedor:"+Str(z_cp_cod_for,4),"")

COMANDO ANTES Z_SALDO      = sx_caixa("SALDO_INICIAL",z_banco,z_de)

FILTRO data>=z_de.and.data<=z_ate
FILTRO z_banco=0.or.z_banco=banco
FILTRO z_cp_divisao=0.or.cp_divisao=z_cp_divisao
FILTRO z_grupo=0.or.z_grupo=grupo
FILTRO z_cp_cod_for=0.or.z_cp_cod_for=cp_cod_for

COMANDO DURANTE Z_DATA = DATA

SUBLIST Z_DATA = DATA

COMANDO DURANTE z_deb   = if(tipo="S", spac(9)+"-", transform(valor,"@E 999,999.99") )
COMANDO DURANTE z_cred  = if(tipo="S", transform(valor,"@E 999,999.99"), spac(9)+"-" )
COMANDO DURANTE Z_SALDO = Z_SALDO + valor * if(tipo="S",1,-1)

C[sistema]                 Emitido em [s_datual] as [time]     Pag [pag 999]
CLancamentos do Caixa Financeiro [z_strcaixa],  de [z_de] a [z_ate]
C[Z_STRFILTROS]
C======================================================================================================================= 
CCxa Dp Gc Data             Descricao                  Debito         Credito        Saldo
C======================================================================================================================= 
C ***** Saldo Inicial                  [Z_SALDO @E 999,999,999.99]

D[banco 999] [cp_divisao 999] [grupo 9] [data] [desc]      [Z_deb] [Z_cred] [Z_SALDO @E 999,999,999.99]

ULTPAG ***** Saldo Final                    [Z_SALDO @E 999,999,999.99]

FIM SUBLIST

ULTPAG ***** Saldo Final                    [Z_SALDO @E 999,999,999.99]

