OUTROARQ CP_DIVIS

VARIAVEL z_vdv1 = {}
VARIAVEL z_vdv2 = {}
VARIAVEL z_vdv3 = {}
VARIAVEL z_vdv4 = {}
VARIAVEL z_vdv5 = {}
VARIAVEL Z_ndivis = Cp_Divis->( Recc() ) + 1
VARIAVEL Z_TOTCST = 0

COMANDO ANTES z_vdv1 = Array( Z_NDIVIS )
COMANDO ANTES z_vdv2 = Array( Z_NDIVIS )
COMANDO ANTES z_vdv3 = Array( Z_NDIVIS )
COMANDO ANTES z_vdv4 = Array( Z_NDIVIS )
COMANDO ANTES z_vdv5 = Array( Z_NDIVIS )
COMANDO ANTES Z_NIL = AFILL( z_vdv1 , 0 )
COMANDO ANTES Z_NIL = AFILL( z_vdv2 , 0 )
COMANDO ANTES Z_NIL = AFILL( z_vdv3 , 0 )
COMANDO ANTES Z_NIL = AFILL( z_vdv4 , 0 )
COMANDO ANTES Z_NIL = AFILL( z_vdv5 , 0 )

COMANDO DURANTE CP_DIVIS->( DbGoto( sccpped->cp_divisao ) )
COMANDO DURANTE Z_ddesc = CP_DIVIS->Desc
COMANDO DURANTE z_coddiv = IF(Cp_Divisao>0.and.Cp_Divisao<Z_ndivis, Cp_Divisao, Z_ndivis)
COMANDO DURANTE z_vdv1[z_coddiv] = z_vdv1[z_coddiv] + Cp_Valor
COMANDO DURANTE z_vdv2[z_coddiv] = z_vdv2[z_coddiv] + Cp_Val_Lqd
COMANDO DURANTE z_vdv3[z_coddiv] = z_vdv3[z_coddiv] + if(day(cp_dt_lqd)=0,Cp_Valor-cp_val_lqd,0)
COMANDO DURANTE z_vdv4[z_coddiv] = z_vdv4[z_coddiv] + if(day(cp_dt_lqd)>0.and.Cp_Valor>cp_val_lqd,Cp_Valor-cp_val_lqd,0)
COMANDO DURANTE z_vdv5[z_coddiv] = z_vdv5[z_coddiv] + if(day(cp_dt_lqd)>0.and.Cp_Valor<cp_val_lqd,Cp_Valor-cp_val_lqd,0)
COMANDO DURANTE Z_TotCst = Z_TotCst + Cp_Valor

ARQUIVO CP_DIVIS
VARIAVEL Z_TG1 = 0
VARIAVEL Z_TG2 = 0
VARIAVEL Z_TG3 = 0
VARIAVEL Z_TG4 = 0
VARIAVEL Z_TG5 = 0
FILTRO z_vdv1[ recn() ] > 0
COMANDO DURANTE Z_Td1 = z_vdv1[ recn() ]
COMANDO DURANTE Z_Td2 = z_vdv2[ recn() ]
COMANDO DURANTE Z_Td3 = z_vdv3[ recn() ]
COMANDO DURANTE Z_Td4 = z_vdv4[ recn() ]
COMANDO DURANTE Z_Td5 = z_vdv5[ recn() ]
COMANDO DURANTE Z_TG1 = Z_TG1 + Z_TD1
COMANDO DURANTE Z_TG2 = Z_TG2 + Z_TD2
COMANDO DURANTE Z_TG3 = Z_TG3 + Z_TD3
COMANDO DURANTE Z_TG4 = Z_TG4 + Z_TD4
COMANDO DURANTE Z_TG5 = Z_TG5 + Z_TD5
*
C
CTotais por Divisoes
C[repl("-",80)]
CDivisao                        Emissoes      %    Pagas Abertas  aMenos  a_Mais
C[repl("-",80)]
D[recn() 99].[DESC @s25] [z_td1 @E 999,999.99] [z_td1/z_totcst*100 @E 999.99]% [z_td2 @E 999,999] [z_td3 @E 999,999] [z_td4 @E 999,999] [z_td5 @E 999,999]
ULTPAG
ULTPAG *** Totais Gerais:          [z_totcst @E 999,999.99] 100.00% [z_tG2 @E 999,999] [z_tG3 @E 999,999] [z_tG4 @E 999,999] [z_tG5 @E 999,999]

