INDEX SI_RESUL CT_CODIGO
VARIAVEL W_VALMES = ""

COMANDO DURANTE DbGoBottom()

COMANDO DEPOIS W_VALMES = "CT_VAL01"
COMANDO DEPOIS Z_CPV01 = FR("FATF009")
COMANDO DEPOIS Z_ICM01 = FR("FATF004")
COMANDO DEPOIS Z_CPC01 = FR("FATF001") - Z_ICM01
COMANDO DEPOIS Z_DIF01 = Z_CPV01-Z_CPC01
COMANDO DEPOIS Z_MRG01 = if(Z_CPV01>0,Z_DIF01/z_cpv01*100,0)
COMANDO DEPOIS Z_VND01 = FR("VV_031")
COMANDO DEPOIS Z_DCV01 = z_Cpv01-z_vnd01

COMANDO DEPOIS W_VALMES = "CT_VAL02"
COMANDO DEPOIS Z_CPV02 = FR("FATF009")
COMANDO DEPOIS Z_ICM02 = FR("FATF004")
COMANDO DEPOIS Z_CPC02 = FR("FATF001") - Z_ICM02
COMANDO DEPOIS Z_DIF02 = Z_CPV02-Z_CPC02
COMANDO DEPOIS Z_MRG02 = if(Z_CPV02>0,Z_DIF02/z_cpv02*100,0)
COMANDO DEPOIS Z_VND02 = FR("VV_031")
COMANDO DEPOIS Z_DCV02 = z_Cpv02-z_vnd02

COMANDO DEPOIS W_VALMES = "CT_VAL03"
COMANDO DEPOIS Z_CPV03 = FR("FATF009")
COMANDO DEPOIS Z_ICM03 = FR("FATF004")
COMANDO DEPOIS Z_CPC03 = FR("FATF001") - Z_ICM03
COMANDO DEPOIS Z_DIF03 = Z_CPV03-Z_CPC03
COMANDO DEPOIS Z_MRG03 = if(Z_CPV03>0,Z_DIF03/z_cpv03*100,0)
COMANDO DEPOIS Z_VND03 = FR("VV_031")
COMANDO DEPOIS Z_DCV03 = z_Cpv03-z_vnd03

COMANDO DEPOIS W_VALMES = "CT_VAL04"
COMANDO DEPOIS Z_CPV04 = FR("FATF009")
COMANDO DEPOIS Z_ICM04 = FR("FATF004")
COMANDO DEPOIS Z_CPC04 = FR("FATF001") - Z_ICM04
COMANDO DEPOIS Z_DIF04 = Z_CPV04-Z_CPC04
COMANDO DEPOIS Z_MRG04 = if(Z_CPV04>0,Z_DIF04/z_cpv04*100,0)
COMANDO DEPOIS Z_VND04 = FR("VV_031")
COMANDO DEPOIS Z_DCV04 = z_Cpv04-z_vnd04

COMANDO DEPOIS W_VALMES = "CT_VAL05"
COMANDO DEPOIS Z_CPV05 = FR("FATF009")
COMANDO DEPOIS Z_ICM05 = FR("FATF004")
COMANDO DEPOIS Z_CPC05 = FR("FATF001") - Z_ICM05
COMANDO DEPOIS Z_DIF05 = Z_CPV05-Z_CPC05
COMANDO DEPOIS Z_MRG05 = if(Z_CPV05>0,Z_DIF05/z_cpv05*100,0)
COMANDO DEPOIS Z_VND05 = FR("VV_031")
COMANDO DEPOIS Z_DCV05 = z_Cpv05-z_vnd05

COMANDO DEPOIS W_VALMES = "CT_VAL06"
COMANDO DEPOIS Z_CPV06 = FR("FATF009")
COMANDO DEPOIS Z_ICM06 = FR("FATF004")
COMANDO DEPOIS Z_CPC06 = FR("FATF001") - Z_ICM06
COMANDO DEPOIS Z_DIF06 = Z_CPV06-Z_CPC06
COMANDO DEPOIS Z_MRG06 = if(Z_CPV06>0,Z_DIF06/z_cpv06*100,0)
COMANDO DEPOIS Z_VND06 = FR("VV_031")
COMANDO DEPOIS Z_DCV06 = z_Cpv06-z_vnd06

COMANDO DEPOIS W_VALMES = "CT_VAL07"
COMANDO DEPOIS Z_CPV07 = FR("FATF009")
COMANDO DEPOIS Z_ICM07 = FR("FATF004")
COMANDO DEPOIS Z_CPC07 = FR("FATF001") - Z_ICM07
COMANDO DEPOIS Z_DIF07 = Z_CPV07-Z_CPC07
COMANDO DEPOIS Z_MRG07 = if(Z_CPV07>0,Z_DIF07/z_cpv07*100,0)
COMANDO DEPOIS Z_VND07 = FR("VV_031")
COMANDO DEPOIS Z_DCV07 = z_Cpv07-z_vnd07

COMANDO DEPOIS W_VALMES = "CT_VAL08"
COMANDO DEPOIS Z_CPV08 = FR("FATF009")
COMANDO DEPOIS Z_ICM08 = FR("FATF004")
COMANDO DEPOIS Z_CPC08 = FR("FATF001") - Z_ICM08
COMANDO DEPOIS Z_DIF08 = Z_CPV08-Z_CPC08
COMANDO DEPOIS Z_MRG08 = if(Z_CPV08>0,Z_DIF08/z_cpv08*100,0)
COMANDO DEPOIS Z_VND08 = FR("VV_031")
COMANDO DEPOIS Z_DCV08 = z_Cpv08-z_vnd08

COMANDO DEPOIS W_VALMES = "CT_VAL09"
COMANDO DEPOIS Z_CPV09 = FR("FATF009")
COMANDO DEPOIS Z_ICM09 = FR("FATF004")
COMANDO DEPOIS Z_CPC09 = FR("FATF001") - Z_ICM09
COMANDO DEPOIS Z_DIF09 = Z_CPV09-Z_CPC09
COMANDO DEPOIS Z_MRG09 = if(Z_CPV09>0,Z_DIF09/z_cpv09*100,0)
COMANDO DEPOIS Z_VND09 = FR("VV_031")
COMANDO DEPOIS Z_DCV09 = z_Cpv09-z_vnd09

COMANDO DEPOIS W_VALMES = "CT_VAL10"
COMANDO DEPOIS Z_CPV10 = FR("FATF009")
COMANDO DEPOIS Z_ICM10 = FR("FATF004")
COMANDO DEPOIS Z_CPC10 = FR("FATF001") - Z_ICM10
COMANDO DEPOIS Z_DIF10 = Z_CPV10-Z_CPC10
COMANDO DEPOIS Z_MRG10 = if(Z_CPV10>0,Z_DIF10/z_cpv10*100,0)
COMANDO DEPOIS Z_VND10 = FR("VV_031")
COMANDO DEPOIS Z_DCV10 = z_Cpv10-z_vnd10

COMANDO DEPOIS W_VALMES = "CT_VAL11"
COMANDO DEPOIS Z_CPV11 = FR("FATF009")
COMANDO DEPOIS Z_ICM11 = FR("FATF004")
COMANDO DEPOIS Z_CPC11 = FR("FATF001") - Z_ICM11
COMANDO DEPOIS Z_DIF11 = Z_CPV11-Z_CPC11
COMANDO DEPOIS Z_MRG11 = if(Z_CPV11>0,Z_DIF11/z_cpv11*100,0)
COMANDO DEPOIS Z_VND11 = FR("VV_031")
COMANDO DEPOIS Z_DCV11 = z_Cpv11-z_vnd11

COMANDO DEPOIS W_VALMES = "CT_VAL12"
COMANDO DEPOIS Z_CPV12 = FR("FATF009")
COMANDO DEPOIS Z_ICM12 = FR("FATF004")
COMANDO DEPOIS Z_CPC12 = FR("FATF001") - Z_ICM12
COMANDO DEPOIS Z_DIF12 = Z_CPV12-Z_CPC12
COMANDO DEPOIS Z_MRG12 = if(Z_CPV12>0,Z_DIF12/z_cpv12*100,0)
COMANDO DEPOIS Z_VND12 = FR("VV_031")
COMANDO DEPOIS Z_DCV12 = z_Cpv12-z_vnd12

COMANDO DEPOIS z_prt01 = Z_ICM01/z_cpv01 * 100
COMANDO DEPOIS z_prt02 = Z_ICM02/z_cpv02 * 100
COMANDO DEPOIS z_prt03 = Z_ICM03/z_cpv03 * 100
COMANDO DEPOIS z_prt04 = Z_ICM04/z_cpv04 * 100
COMANDO DEPOIS z_prt05 = Z_ICM05/z_cpv05 * 100
COMANDO DEPOIS z_prt06 = Z_ICM06/z_cpv06 * 100
COMANDO DEPOIS z_prt07 = Z_ICM07/z_cpv07 * 100
COMANDO DEPOIS z_prt08 = Z_ICM08/z_cpv08 * 100
COMANDO DEPOIS z_prt09 = Z_ICM09/z_cpv09 * 100
COMANDO DEPOIS z_prt10 = Z_ICM10/z_cpv10 * 100
COMANDO DEPOIS z_prt11 = Z_ICM11/z_cpv11 * 100
COMANDO DEPOIS z_prt12 = Z_ICM12/z_cpv12 * 100

COMANDO DEPOIS Z_CPC = Z_CPC01+Z_CPC02+Z_CPC03+Z_CPC04+Z_CPC05+Z_CPC06+Z_CPC07+Z_CPC08+Z_CPC09+Z_CPC10+Z_CPC11+Z_CPC12
COMANDO DEPOIS Z_ICM = Z_ICM01+Z_ICM02+Z_ICM03+Z_ICM04+Z_ICM05+Z_ICM06+Z_ICM07+Z_ICM08+Z_ICM09+Z_ICM10+Z_ICM11+Z_ICM12
COMANDO DEPOIS Z_CPV = Z_CPV01+Z_CPV02+Z_CPV03+Z_CPV04+Z_CPV05+Z_CPV06+Z_CPV07+Z_CPV08+Z_CPV09+Z_CPV10+Z_CPV11+Z_CPV12
COMANDO DEPOIS Z_VND = Z_VND01+Z_VND02+Z_VND03+Z_VND04+Z_VND05+Z_VND06+Z_VND07+Z_VND08+Z_VND09+Z_VND10+Z_VND11+Z_VND12
COMANDO DEPOIS Z_DIF = Z_CPV-Z_CPC
COMANDO DEPOIS Z_MRG = if(Z_CPV>0,Z_DIF/z_cpv*100,0)
COMANDO DEPOIS Z_DCV = z_Cpv-z_vnd
COMANDO DEPOIS z_prt = Z_ICM/z_cpv * 100

*                  9999,999  9999,999 99.99% 9999,999  9999,999 999.99  9999,999  9999,999
ULTPAG             Entradas   Icm_Ret   %    Entradas    Margem   %     Total_de  Sobra_ou
ULTPAG             Pr_Custo  na_Fonte        Pr_Venda  Cust_Vnd           Vendas     Falta
ULTPAG
ULTPAG Janeiro   [z_Cpc01 @e 9999,999]  [z_ICM01 @e 9999,999]  [z_prt01 99.99]% [z_Cpv01 @E 9999,999]  [z_dif01 @E 9999,999]  [z_Mrg01 @E 999.99]%  [z_vnd01 @E 9999,999]  [abs(z_dcv01) @E 9999,999][If(z_dcv01>0,"+","-")]
ULTPAG Fevereiro [z_Cpc02 @e 9999,999]  [z_ICM02 @e 9999,999]  [z_prt02 99.99]% [z_Cpv02 @E 9999,999]  [z_dif02 @E 9999,999]  [z_Mrg02 @E 999.99]%  [z_vnd02 @E 9999,999]  [abs(z_dcv02) @E 9999,999][If(z_dcv02>0,"+","-")]
ULTPAG Marco     [z_Cpc03 @e 9999,999]  [z_ICM03 @e 9999,999]  [z_prt03 99.99]% [z_Cpv03 @E 9999,999]  [z_dif03 @E 9999,999]  [z_Mrg03 @E 999.99]%  [z_vnd03 @E 9999,999]  [abs(z_dcv03) @E 9999,999][If(z_dcv03>0,"+","-")]
ULTPAG Abril     [z_Cpc04 @e 9999,999]  [z_ICM04 @e 9999,999]  [z_prt04 99.99]% [z_Cpv04 @E 9999,999]  [z_dif04 @E 9999,999]  [z_Mrg04 @E 999.99]%  [z_vnd04 @E 9999,999]  [abs(z_dcv04) @E 9999,999][If(z_dcv04>0,"+","-")]
ULTPAG Maio      [z_Cpc05 @e 9999,999]  [z_ICM05 @e 9999,999]  [z_prt05 99.99]% [z_Cpv05 @E 9999,999]  [z_dif05 @E 9999,999]  [z_Mrg05 @E 999.99]%  [z_vnd05 @E 9999,999]  [abs(z_dcv05) @E 9999,999][If(z_dcv05>0,"+","-")]
ULTPAG Junho     [z_Cpc06 @e 9999,999]  [z_ICM06 @e 9999,999]  [z_prt06 99.99]% [z_Cpv06 @E 9999,999]  [z_dif06 @E 9999,999]  [z_Mrg06 @E 999.99]%  [z_vnd06 @E 9999,999]  [abs(z_dcv06) @E 9999,999][If(z_dcv06>0,"+","-")]
ULTPAG Julho     [z_Cpc07 @e 9999,999]  [z_ICM07 @e 9999,999]  [z_prt07 99.99]% [z_Cpv07 @E 9999,999]  [z_dif07 @E 9999,999]  [z_Mrg07 @E 999.99]%  [z_vnd07 @E 9999,999]  [abs(z_dcv07) @E 9999,999][If(z_dcv07>0,"+","-")]
ULTPAG Agosto    [z_Cpc08 @e 9999,999]  [z_ICM08 @e 9999,999]  [z_prt08 99.99]% [z_Cpv08 @E 9999,999]  [z_dif08 @E 9999,999]  [z_Mrg08 @E 999.99]%  [z_vnd08 @E 9999,999]  [abs(z_dcv08) @E 9999,999][If(z_dcv08>0,"+","-")]
ULTPAG Setembro  [z_Cpc09 @e 9999,999]  [z_ICM09 @e 9999,999]  [z_prt09 99.99]% [z_Cpv09 @E 9999,999]  [z_dif09 @E 9999,999]  [z_Mrg09 @E 999.99]%  [z_vnd09 @E 9999,999]  [abs(z_dcv09) @E 9999,999][If(z_dcv09>0,"+","-")]
ULTPAG Outubro   [z_Cpc10 @e 9999,999]  [z_ICM10 @e 9999,999]  [z_prt10 99.99]% [z_Cpv10 @E 9999,999]  [z_dif10 @E 9999,999]  [z_Mrg10 @E 999.99]%  [z_vnd10 @E 9999,999]  [abs(z_dcv10) @E 9999,999][If(z_dcv10>0,"+","-")]
ULTPAG Novembro  [z_Cpc11 @e 9999,999]  [z_ICM11 @e 9999,999]  [z_prt11 99.99]% [z_Cpv11 @E 9999,999]  [z_dif11 @E 9999,999]  [z_Mrg11 @E 999.99]%  [z_vnd11 @E 9999,999]  [abs(z_dcv11) @E 9999,999][If(z_dcv11>0,"+","-")]
ULTPAG Dezembro  [z_Cpc12 @e 9999,999]  [z_ICM12 @e 9999,999]  [z_prt12 99.99]% [z_Cpv12 @E 9999,999]  [z_dif12 @E 9999,999]  [z_Mrg12 @E 999.99]%  [z_vnd12 @E 9999,999]  [abs(z_dcv12) @E 9999,999][If(z_dcv12>0,"+","-")]
ULTPAG
ULTPAG Totais    [z_Cpc @e 9999,999]  [z_ICM @e 9999,999]  [z_prt 99.99]% [z_Cpv @E 9999,999]  [z_dif @E 9999,999]  [z_Mrg @E 999.99]%  [z_vnd @E 9999,999]  [z_dcv @E 9999,999][If(z_dcv>0,"+","-")]
