INCLUDE SI_RESUL.LST

COMANDO DEPOIS Z_01_RECEITA_BRUTA = Fr("VV_031")
COMANDO DEPOIS Z_IMP_SIMPLES = Z_01_RECEITA_BRUTA * 5.4 / 100
COMANDO DEPOIS Z_ICM_ANTECIPADO = Z_01_RECEITA_BRUTA * 5.1 / 100
COMANDO DEPOIS Z_TXCARTOES = Fr("VV_003") * 6/100
COMANDO DEPOIS Z_TXCHEQUES = Fr("VV_002") * 4/100
COMANDO DEPOIS Z_IMPOSTOS_TAXAS = Z_IMP_SIMPLES + Z_ICM_ANTECIPADO + Z_TXCARTOES + Z_TXCHEQUES
COMANDO DEPOIS Z_COMIS_CONV = Fr("VV_005") * 10/100
COMANDO DEPOIS Z_COMIS_BO = FR("GP_B017") * 15/100
COMANDO DEPOIS Z_COMISSOES_E_DESCONTOS = fr("VV_006")+fr("VV_007")+fr("VV_008")+fr("VV_010")+fr("VV_009")+Z_COMIS_CONV+Z_COMIS_BO
COMANDO DEPOIS Z_DEVOLUCOES_CLI = 0
COMANDO DEPOIS Z_COMPRA_PROD_ENTREGAS = fr("DD014002")
COMANDO DEPOIS Z_02_ENCARGOS_SOBRE_VENDAS = Z_IMPOSTOS_TAXAS+Z_COMISSOES_E_DESCONTOS+Z_DEVOLUCOES_CLI+Z_COMPRA_PROD_ENTREGAS
COMANDO DEPOIS Z_03_RECEITA_LIQUIDA = Z_01_RECEITA_BRUTA - Z_02_ENCARGOS_SOBRE_VENDAS
COMANDO DEPOIS Z_04_CMV = z_01_receita_bruta*.67
REM FR("VGE_025")
COMANDO DEPOIS Z_05_LUCRO_BRUTO = Z_03_RECEITA_LIQUIDA - Z_04_CMV

COMANDO DEPOIS Z_FOLHA_ENCARGOS = fr("DD003002")+fr("DD004002")+fr("DD005002")+fr("DD006002")+fr("DD007002")
COMANDO DEPOIS Z_OUTRAS_DESPESAS = fr("DD020002")+fr("DD021002")+fr("DD022002")+fr("DD023002")+fr("DDXXXXXX")+fr("DD025002")+fr("DD026002")+fr("DD027002")+fr("DD028002")
COMANDO DEPOIS Z_06_DESPESAS_OPERACIONAIS = Z_FOLHA_ENCARGOS + Z_OUTRAS_DESPESAS
COMANDO DEPOIS Z_08_LUCRO_PREJUIZO = Z_05_LUCRO_BRUTO - Z_06_despesas_operacionais
COMANDO DEPOIS z_07_Outras_Receitas = fr("CP_001")
COMANDO DEPOIS Z_09_Aquisicao_Equipamentos = fr("DD030002")
COMANDO DEPOIS Z_10_Resultado_Liquido = Z_08_LUCRO_PREJUIZO + z_07_Outras_Receitas - Z_09_Aquisicao_Equipamentos

COMANDO DEPOIS Z_PERC01 = IF( Z_01_RECEITA_BRUTA>0, 1/Z_01_RECEITA_BRUTA*100, 0)
COMANDO DEPOIS Z_P1 = Z_02_ENCARGOS_SOBRE_VENDAS*Z_PERC01
COMANDO DEPOIS Z_P2 = Z_IMPOSTOS_TAXAS*Z_PERC01
COMANDO DEPOIS Z_P3 = Z_COMISSOES_E_DESCONTOS*Z_PERC01
COMANDO DEPOIS Z_P4 = Z_COMPRA_PROD_ENTREGAS*Z_PERC01
COMANDO DEPOIS Z_P5 = Z_DEVOLUCOES_CLI*Z_PERC01
COMANDO DEPOIS Z_P6 = Z_03_RECEITA_LIQUIDA*Z_PERC01
COMANDO DEPOIS Z_P7 = Z_04_CMV*Z_PERC01
COMANDO DEPOIS Z_P8 = Z_05_LUCRO_BRUTO*Z_PERC01
COMANDO DEPOIS Z_P9 = Z_06_despesas_operacionais*Z_PERC01
*COMANDO DEPOIS Z_P10 = fr("06.01")  * Z_PERC01
*COMANDO DEPOIS Z_P11 = fr("06.02")  * Z_PERC01
*COMANDO DEPOIS Z_P12 = fr("07")     * Z_PERC01
*COMANDO DEPOIS Z_P13 = fr("08")     * Z_PERC01
*COMANDO DEPOIS Z_P14 = fr("10")     * Z_PERC01


ULTPAG
ULTPAG  Resultado do Exercicio do mes [z_m1]
ULTPAG
ULTPAG  01 Receita Operacional Bruta                          [Z_01_RECEITA_BRUTA @e 999,999]
ULTPAG
ULTPAG        Vendas em Dinheiro                   [Fr("VV_001") @e 999,999]
ULTPAG        Vendas em Cheques                    [Fr("VV_002") @e 999,999]
ULTPAG        Vendas em Cartao                     [Fr("VV_003") @e 999,999]
ULTPAG        Vendas em Convenios Empresa          [Fr("VV_005") @e 999,999]
ULTPAG        Vendas a Prazo Clientes Preferenc.   [Fr("VV_004") @e 999,999]
ULTPAG
ULTPAG  02 Encargos Diretos Sobre Vendas                      [Z_02_ENCARGOS_SOBRE_VENDAS @e 999,999]      [z_p1 @e 999.9%]
ULTPAG
ULTPAG        Impostos e Taxas                        [Z_IMPOSTOS_TAXAS @E 999,999]      [z_p2 @e 999.9%]
ULTPAG           Imposto Simples Federal           [Z_IMP_SIMPLES @E 999,999]
ULTPAG           ICM Antecipado (deduz dos 30%)    [Z_ICM_ANTECIPADO @E 999,999]
ULTPAG           Taxas de Cartoes de Credito       [Z_TXCARTOES @E 999,999]
ULTPAG           Taxas p/ Troca de Cheques         [Z_TXCHEQUES @E 999,999]
ULTPAG        Descontos e Comissoes                   [Z_COMISSOES_E_DESCONTOS @E 999,999]      [z_p3 @e 999.9%]
ULTPAG           Descontos nas Vendas em Dinheiro  [fr("VV_006") @E 999,999]
ULTPAG           Descontos nas Vendas em Cheques   [fr("VV_007") @E 999,999]
ULTPAG           Descontos nas Vendas em Cartao    [fr("VV_008") @E 999,999]
ULTPAG           Descontos nas Vendas a Pz Empresa [fr("VV_010") @E 999,999]
ULTPAG           Descontos nas Vendas a Pz Fiado   [fr("VV_009") @E 999,999]
ULTPAG           Comissoes sobre Vendas BO         [Z_COMIS_BO @E 999,999]
ULTPAG           Comissoes sobre Vendas Convenios  [Z_COMIS_CONV @E 999,999]
ULTPAG        Compras de Prods p/ Entrega             [Z_COMPRA_PROD_ENTREGAS @e 999,999]      [z_p4 @e 999.9%]
*ULTPAG        Devolucoes de Clientes                  [fr("VGE_008") @e 999,999]      [z_p5 @e 999.9%]
ULTPAG        Devolucoes de Clientes                  [Z_DEVOLUCOES_CLI @e 999,999]      [z_p5 @e 999.9%]
ULTPAG
ULTPAG  03 Receita Operacional Liquida   (1-2)                [Z_03_RECEITA_LIQUIDA @E 999,999]      [z_p6 @e 999.9%]
ULTPAG
ULTPAG  04 CMV (Custos da Mercadoria Vendida)                 [Z_04_CMV @E 999,999]      [z_p7 @e 999.9%]
ULTPAG
*COMANDO DEPOIS  Z_AUMENTO_DE_PRECOS = fr("SDPE001")-fr("SDPE003")
*COMANDO DEPOIS  Z_CMV = fr("SDPE001")+fr("DD001002")+Z_AUMENTO_DE_PRECOS-fr("SDPE002")
*ULTPAG  04 CMV (Custos da Mercadoria Vendida)             [Z_CMV @E 999,999]      [z_p7 @e 999.9%]
*ULTPAG
*ULTPAG        Valor do Estoque Inicial     +       [fr("SDPE001") @E 999,999]
*ULTPAG        Compra de Mercadorias        +       [fr("DD001002") @E 999,999]
*ULTPAG        Aumentos de Precos           +       [Z_AUMENTO_DE_PRECOS @E 999,999]
*ULTPAG        Avarias e Quebras           -e+      [fr("VGE_014") @E 999,999]
*ULTPAG        Valor do Estoque Final       -       [fr("SDPE002") @E 999,999]

ULTPAG  05 Lucro Operacional Bruto                            [Z_05_LUCRO_BRUTO @E 999,999]      [z_p8 @e 999.9%]
ULTPAG
ULTPAG  06 Despesas Operacionais                              [Z_06_despesas_operacionais @E 999,999]      [z_p9 @e 999.9%]
ULTPAG
ULTPAG        Folha de Pagamento e Encargos           [Z_FOLHA_ENCARGOS @E 999,999]      [Z_FOLHA_ENCARGOS*z_perc01 @e 999.9%]
ULTPAG           Salarios                          [fr("DD003002") @E 999,999]
ULTPAG           Vales Transporte                  [fr("DD004002") @E 999,999]
ULTPAG           INSS                              [fr("DD005002") @E 999,999]
ULTPAG           FGTS                              [fr("DD006002") @E 999,999]
ULTPAG           Outros Custos Pessoal             [fr("DD007002") @E 999,999]
ULTPAG        Outras Despesas                         [z_outras_despesas @E 999,999]      [z_outras_despesas*z_perc01 @e 999.9%]
ULTPAG           Aluguel                           [fr("DD020002") @E 999,999]
ULTPAG           Telefone                          [fr("DD021002") @E 999,999]
ULTPAG           Agua,Luz                          [fr("DD022002") @E 999,999]
ULTPAG           Publicidade                       [fr("DD023002") @E 999,999]
ULTPAG           Desp.Entrega Domicilio            [fr("DDXXXXXX") @E 999,999]
ULTPAG           Mat. Expediente                   [fr("DD025002") @E 999,999]
ULTPAG           Manut Maquinas/Equipamentos       [fr("DD026002") @E 999,999]
ULTPAG           Serv.Prestados                    [fr("DD027002") @E 999,999]
ULTPAG           Despesas Diversas                 [fr("DD028002") @E 999,999]
ULTPAG
ULTPAG  08 Lucro/Prejuizo Operacional                         [Z_08_LUCRO_PREJUIZO @E 999,999]      [Z_08_LUCRO_PREJUIZO*z_perc01 @e 999.9%]
ULTPAG
ULTPAG  07 Descontos Obtidos                                  [z_07_Outras_Receitas @E 999,999]      [z_07_Outras_Receitas*z_perc01 @e 999.9%]
*ULTPAG  07 Outras Receitas                                    [z_07_Outras_Receitas @E 999,999]      [z_07_Outras_Receitas*z_perc01 @e 999.9%]
*ULTPAG
*ULTPAG        Descontos Obtidos                       [fr("07.01") @E 999,999]
ULTPAG
ULTPAG  09 Aquisicao Equipamentos                             [Z_09_Aquisicao_Equipamentos @E 999,999]
ULTPAG
ULTPAG  10 Resultado Liquido                                  [Z_10_Resultado_Liquido @E 999,999]      [Z_10_Resultado_Liquido*z_perc01 @e 999.9%]

*CEXECUTE SI_RES04
*CEXECUTE SI_RES03