INDEX SI_RESUL CT_CODIGO
OUTROARQ SIRES07 SIRES07 GRUPO
OUTROARQ CP_DIVIS

VARIAVEL Z_M1 = STRZERO( MONTH(S_DATUAL)-1 ,2)
VARIAVEL W_VALMES = "CT_VAL"+Z_M1

VARIAVEL Z_TXSIMPLES =  5.40
VARIAVEL Z_TXANTEC   =  5.10
VARIAVEL Z_TXCART    =  6.00
VARIAVEL Z_TXCHEQ    =  4.00
VARIAVEL Z_TXCONV    =  0.00
VARIAVEL Z_TXBON     =  0.00
VARIAVEL LST_TP = 999
VARIAVEL Z_TXPIS = 0.65
VARIAVEL Z_TXCOFINS = 3.00
VARIAVEL Z_TXCSSL = 1.00
VARIAVEL Z_TXIR = 1.2
VARIAVEL Z_TXINSS = 28
VARIAVEL Z_TXFGTS = 8
VARIAVEL z_dPIS     = "00"
VARIAVEL z_dCOFINS  = "00"
VARIAVEL z_dCSSL    = "00"
VARIAVEL z_dIR      = "00"

T5,6,20,60,Parametros
T2,2,Mes de Referencia..................:,2,z_m1,99
T4,2,Taxa do PIS .......................:,6,z_txpis,999.99
T5,2,Taxa do COFINS ....................:,6,z_txcofins,999.99
T6,2,Taxa da CSSL (Cont.Social s/ Lucro):,6,z_txcssl,999.99
T7,2,Taxa do Imposto de Renda...........:,6,z_txir,999.99
T8,2,Taxa do INSS sobre o Valor da Folha:,6,z_txinss,999.99
T9,2,Taxa do Icms Antecipado............:,6,z_txantec,999.99
T10,2,Taxa p/ Cartoes de Credito.........:,6,z_txcart,999.99
T11,2,Taxa de Troca de Cheques...........:,6,z_txcheq,999.99
T12,2,Taxa de Descontos dos Convenios....:,6,z_txconv,999.99
T13,2,Taxa de Comissao sobre Bonificados.:,6,z_txbon,999.99

COMANDO ANTES W_VALMES = "CT_VAL"+Z_M1
COMANDO ANTES Z_TXSIMPLES = z_txpis+z_txcofins+z_txcssl+z_txir
*
COMANDO ANTES Z_V01 = Fr("VV_001")
COMANDO ANTES Z_V02 = Fr("VV_002")
COMANDO ANTES Z_V03 = Fr("VV_003")
COMANDO ANTES Z_V04 = Fr("VV_004")
COMANDO ANTES Z_V05 = Fr("VV_005")
COMANDO ANTES Z_V06 = Fr("VV_006")
COMANDO ANTES Z_V07 = Fr("VV_007")
COMANDO ANTES Z_V08 = Fr("VV_008")
COMANDO ANTES Z_V09 = Fr("VV_009")
COMANDO ANTES Z_V10 = Fr("VV_010")
COMANDO ANTES Z_01_RECEITA_BRUTA = Fr("VV_031")
COMANDO ANTES Z_IMP_SIMPLES = Z_01_RECEITA_BRUTA * z_txsimples / 100
COMANDO ANTES Z_ICM_ANTECIPADO = Z_01_RECEITA_BRUTA * z_txantec / 100
COMANDO ANTES Z_TXCARTOES = Fr("VV_003") * z_txcart/100
COMANDO ANTES Z_TXCHEQUES = Fr("VV_002") * z_txcheq/100
COMANDO ANTES Z_IMPOSTOS_TAXAS = Z_IMP_SIMPLES + Z_ICM_ANTECIPADO + Z_TXCARTOES + Z_TXCHEQUES
COMANDO ANTES Z_VCONV = Fr("VV_005")
COMANDO ANTES Z_COMIS_CONV = Z_VCONV * z_txconv/100
COMANDO ANTES Z_COMIS_BO = FR("GP_B013") * z_txbon/100
COMANDO ANTES 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 ANTES Z_DEVOLUCOES_CLI = 0
COMANDO ANTES Z_02_ENCARGOS_SOBRE_VENDAS = Z_IMPOSTOS_TAXAS+Z_COMISSOES_E_DESCONTOS+Z_DEVOLUCOES_CLI
COMANDO ANTES Z_03_RECEITA_LIQUIDA = Z_01_RECEITA_BRUTA - Z_02_ENCARGOS_SOBRE_VENDAS
COMANDO ANTES Z_04_CMV = FR("VGE_027")
COMANDO ANTES Z_04_CMV = IF(Z_04_CMV=0,FR("VGE_025"),Z_04_CMV)
COMANDO ANTES Z_05_LUCRO_BRUTO = Z_03_RECEITA_LIQUIDA - Z_04_CMV
*
COMANDO ANTES Z_P01 = IF( Z_01_RECEITA_BRUTA>0, 1/Z_01_RECEITA_BRUTA*100, 0)
COMANDO ANTES Z_PV01 = IF( Z_V01>0, 1/Z_V01*100, 0)
COMANDO ANTES Z_PV02 = IF( Z_V02>0, 1/Z_V02*100, 0)
COMANDO ANTES Z_PV03 = IF( Z_V03>0, 1/Z_V03*100, 0)
COMANDO ANTES Z_PV04 = IF( Z_V04>0, 1/Z_V04*100, 0)
COMANDO ANTES Z_PV05 = IF( Z_V05>0, 1/Z_V05*100, 0)
COMANDO ANTES z_nil = DbGoBottom()

D********************  Resultado do Exercicio do mes [z_m1]/[year(date()) 9999] *****************
D
Dt 01 Receita Operacional Bruta .............................. [Z_01_RECEITA_BRUTA @e 999,999] (100,0%vt)
D
Da       Vendas em Dinheiro                   [Z_V01 @e 999,999] [Z_V01*Z_P01 @E 999.9]%vt
Da       Vendas em Cheques                    [Z_V02 @e 999,999] [Z_V02*Z_P01 @E 999.9]%vt
Da       Vendas em Cartao                     [Z_V03 @e 999,999] [Z_V03*Z_P01 @E 999.9]%vt
Da       Vendas em Convenios Empresa          [Z_V05 @e 999,999] [Z_V05*Z_P01 @E 999.9]%vt
Da       Vendas a Prazo Clientes Preferenc.   [Z_V04 @e 999,999] [Z_V04*Z_P01 @E 999.9]%vt
D
Dt 02 Encargos Diretos Sobre Vendas .......................... [Z_02_ENCARGOS_SOBRE_VENDAS @e 999,999] ([Z_02_ENCARGOS_SOBRE_VENDAS*Z_P01 @e 999.9]%vt)
D
Da       Impostos e Taxas ...................... [Z_IMPOSTOS_TAXAS @E 999,999] ([Z_IMPOSTOS_TAXAS*Z_P01 @e 999.9]%vt)
Da*Prev     PIS+COFINS+CSSL+Imposto_Renda     [Z_IMP_SIMPLES @E 999,999] [Z_IMP_SIMPLES*Z_P01 999.9]%
Da*Prev     ICM Antecipado mais o A Recolher  [Z_ICM_ANTECIPADO @E 999,999] [Z_ICM_ANTECIPADO*Z_P01 999.9]%
Da          Taxas de Cartoes de Credito       [Z_TXCARTOES @E 999,999] [Z_TXCARTOES*Z_PV03 999.9]%
Da          Taxas p/ Troca de Cheques         [Z_TXCHEQUES @E 999,999] [Z_TXCHEQUES*Z_PV02 999.9]%
D
FILTROIMP Z_COMIS_CONV+Z_COMIS_BO>0
Da       Descontos e Comissoes ................. [Z_COMISSOES_E_DESCONTOS @E 999,999] ([Z_COMISSOES_E_DESCONTOS*Z_P01 @e 999.9]%vt)
FILTROIMP Z_COMIS_CONV+Z_COMIS_BO=0
Da       Descontos No Ato da Venda ............. [Z_COMISSOES_E_DESCONTOS @E 999,999] ([Z_COMISSOES_E_DESCONTOS*Z_P01 @e 999.9]%vt)

Da          Descontos nas Vendas em Dinheiro  [Z_V06 @E 999,999] [Z_V06*Z_PV01 @e 999.9]%
Da          Descontos nas Vendas em Cheques   [Z_V07 @E 999,999] [Z_V07*Z_PV02 @e 999.9]%
Da          Descontos nas Vendas em Cartao    [Z_V08 @E 999,999] [Z_V08*Z_PV03 @e 999.9]%
Da          Descontos nas Vendas a Pz Empresa [Z_V10 @E 999,999] [Z_V10*Z_PV05 @e 999.9]%
Da          Descontos nas Vendas a Pz Fiado   [Z_V09 @E 999,999] [Z_V09*Z_PV04 @e 999.9]%
FILTROIMP Z_COMIS_BO>0
Da          Comissoes sobre Vendas BO         [Z_COMIS_BO @E 999,999] ([Z_COMIS_BO*Z_P01 @e 999.9]%vt)
FILTROIMP Z_COMIS_CONV>0
Da          Comissoes sobre Vendas Convenios  [Z_COMIS_CONV @E 999,999] ([Z_COMIS_CONV*Z_P01 @e 999.9]%vt)
D
Dt 03 Receita Operacional Liquida (01-02) .................... [Z_03_RECEITA_LIQUIDA @E 999,999] ([Z_03_RECEITA_LIQUIDA*Z_P01 @e 999.9]%vt)
D
Dt 04 CMV (Custo da Mercadoria Vendida pelo Markup) .......... [Z_04_CMV @E 999,999] ([Z_04_CMV*Z_P01 @e 999.9]%vt)
D
Dt 05 Lucro Operacional Bruto (03-04) ........................ [Z_05_LUCRO_BRUTO @E 999,999] ([Z_05_LUCRO_BRUTO*Z_P01 @e 999.9]%vt)
D

VARIAVEL Z_06_FOLHA_PAGTO = 0
VARIAVEL Z_06_OUTRAS_DESPESAS = 0
VARIAVEL Z_06_DESPESAS_OPERACIONAIS = 0
VARIAVEL Z_PDO  = 0
VARIAVEL Z_PFP  = 0
VARIAVEL Z_PODO = 0
VARIAVEL Z_DIVISOES = "/"

SUBLIST SIRES07
COMANDO DURANTE Z_DIVISOES = Z_DIVISOES + if(!empty(calc1), Substr(CALC1,3,3)+"/", "")
COMANDO DURANTE Z_CALCULO = IF(GRUPO="06.2",FR(CALC1),0)
COMANDO DURANTE Z_CALCULO = IF(GRUPO="06.2".and.Z_CALCULO=0,FR(CALC2),Z_CALCULO)
COMANDO DURANTE Z_CALCULO = IF(GRUPO="06.2".and.Z_CALCULO=0.AND.!EMPTY(CALC3),FR_EVAL(CALC3),Z_CALCULO)
COMANDO DURANTE Z_06_FOLHA_PAGTO = Z_06_FOLHA_PAGTO + Z_CALCULO
COMANDO DURANTE Z_CALCULO = IF(GRUPO="06.4",FR(CALC1),0)
COMANDO DURANTE Z_CALCULO = IF(GRUPO="06.4".and.Z_CALCULO=0,FR(CALC2),Z_CALCULO)
COMANDO DURANTE Z_CALCULO = IF(GRUPO="06.4".and.Z_CALCULO=0.AND.!EMPTY(CALC3),FR_EVAL(CALC3),Z_CALCULO)
COMANDO DURANTE Z_06_OUTRAS_DESPESAS = Z_06_OUTRAS_DESPESAS + Z_CALCULO
*-
COMANDO DURANTE Z_SIMPLES_PAGO = IF(GRUPO="07.2",FR(CALC1),Z_SIMPLES_PAGO)
COMANDO DURANTE Z_09_Aquisicao_Equipamentos = IF(GRUPO="07.3",FR(CALC1),Z_09_Aquisicao_Equipamentos)
COMANDO DURANTE Z_PROLABORE = IF(GRUPO="07.4",FR(CALC1),Z_PROLABORE)
*-
COMANDO DEPOIS  Z_06_DESPESAS_OPERACIONAIS = Z_06_FOLHA_PAGTO+Z_06_OUTRAS_DESPESAS
COMANDO DEPOIS  Z_PDO  = IF( Z_06_DESPESAS_OPERACIONAIS>0, 1/Z_06_DESPESAS_OPERACIONAIS*100, 0)
COMANDO DEPOIS  Z_PFP  = IF( Z_06_FOLHA_PAGTO>0, 1/Z_06_FOLHA_PAGTO*100, 0)
COMANDO DEPOIS  Z_PODO = IF( Z_06_OUTRAS_DESPESAS>0, 1/Z_06_OUTRAS_DESPESAS*100, 0)
ULTPAGt 06 Despesas Operacionais .................................. [Z_06_DESPESAS_OPERACIONAIS @e 999,999] ([Z_06_despesas_operacionais*Z_P01 @e 999.9]%vt)
ULTPAG
FIM SUBLIST

SUBLIST SIRES07
COMANDO ANTES Z_NIL = DBGOTOP()
FILTRO LEFT(GRUPO,4)="06.1"
COMANDO DURANTE Z_CALCULO = FR(CALC1)
COMANDO DURANTE Z_CALCULO = IF(Z_CALCULO=0,FR(CALC2),Z_CALCULO)
COMANDO DURANTE Z_CALCULO = IF(Z_CALCULO=0.AND.!EMPTY(CALC3),FR_EVAL(CALC3),Z_CALCULO)
COMANDO DURANTE Z_TXT = padr(alltrim(TEXTO)+" ",39,".")
D        [Z_TXT] [Z_CALCULO @E 999,999] ([Z_CALCULO*Z_PDO @e 999.9]%do)
FIM SUBLIST

SUBLIST SIRES07
COMANDO ANTES Z_NIL = DBGOTOP()
FILTRO LEFT(GRUPO,4)="06.2"
COMANDO DURANTE Z_CALCULO = FR(CALC1)
COMANDO DURANTE Z_CALCULO = IF(Z_CALCULO=0,FR(CALC2),Z_CALCULO)
COMANDO DURANTE Z_CALCULO = IF(Z_CALCULO=0.AND.!EMPTY(CALC3),FR_EVAL(CALC3),Z_CALCULO)
COMANDO DURANTE Z_TXT = padr(alltrim(TEXTO)+" ",27,".")+"("+Lower(Substr(Calc1,2,4))+")"
D           [Z_TXT @s33] [Z_CALCULO @E 999,999] ([Z_CALCULO*Z_Pfp @e 999.9]%fp) ([Z_CALCULO*Z_PDO @e 999.9]%do)
ULTPAG
FIM SUBLIST

SUBLIST SIRES07
COMANDO ANTES Z_NIL = DBGOTOP()
FILTRO LEFT(GRUPO,4)="06.3"
COMANDO DURANTE Z_CALCULO = FR(CALC1)
COMANDO DURANTE Z_CALCULO = IF(Z_CALCULO=0,FR(CALC2),Z_CALCULO)
COMANDO DURANTE Z_CALCULO = IF(Z_CALCULO=0.AND.!EMPTY(CALC3),FR_EVAL(CALC3),Z_CALCULO)
COMANDO DURANTE Z_TXT = padr(alltrim(TEXTO)+" ",39,".")
D        [Z_TXT] [Z_CALCULO @E 999,999] ([Z_CALCULO*Z_PDO @e 999.9]%do)
FIM SUBLIST

SUBLIST SIRES07
COMANDO ANTES Z_NIL = DBGOTOP()
FILTRO LEFT(GRUPO,4)="06.4"
COMANDO DURANTE Z_CALCULO = FR(CALC1)
COMANDO DURANTE Z_CALCULO = IF(Z_CALCULO=0,FR(CALC2),Z_CALCULO)
COMANDO DURANTE Z_CALCULO = IF(Z_CALCULO=0.AND.!EMPTY(CALC3),FR_EVAL(CALC3),Z_CALCULO)
COMANDO DURANTE Z_TXT = padr(alltrim(TEXTO)+" ",27,".")+"("+Lower(Substr(Calc1,2,4))+")"
FILTROIMP Z_CALCULO>0
D           [Z_TXT @s33] [Z_CALCULO @E 999,999] ([Z_CALCULO*Z_Podo @e 999.9]%od) ([Z_CALCULO*Z_PDO @e 999.9]%do)
ULTPAG
FIM SUBLIST

VARIAVEL Z_SIMPLES_PAGO = 0
VARIAVEL Z_09_Aquisicao_Equipamentos = 0
VARIAVEL Z_PROLABORE = 0
VARIAVEL Z_09_INV_PROLAB = 0

COMANDO DEPOIS z_vpis    = Z_01_RECEITA_BRUTA * z_txpis / 100
COMANDO DEPOIS z_vcofins = Z_01_RECEITA_BRUTA * z_txcofins / 100
COMANDO DEPOIS z_vcssl   = Z_01_RECEITA_BRUTA * z_txcssl / 100
COMANDO DEPOIS z_vir     = Z_01_RECEITA_BRUTA * z_txir / 100
COMANDO DEPOIS z_vpgpis    = Fr("DD"+z_dPIS   +"006")
COMANDO DEPOIS z_vpgcofins = Fr("DD"+z_dCOFINS+"006")
COMANDO DEPOIS z_vpgcssl   = Fr("DD"+z_dCSSL  +"006")
COMANDO DEPOIS z_vpgir     = Fr("DD"+z_dIR    +"006")
COMANDO DEPOIS z_vdfPIS    = z_vpis - z_vpgpis
COMANDO DEPOIS z_vdfCOFINS = z_vcofins - z_vpgcofins
COMANDO DEPOIS z_vdfCSSL   = z_vcssl - z_vpgcssl
COMANDO DEPOIS z_vdfIR     = z_vir - z_vpgir

COMANDO DEPOIS z_desc_obt = fr("CP_001")
COMANDO DEPOIS z_Juros_pg = Fr("CP_002")
*-COMANDO DEPOIS z_boncompr = Z_ICM_ANTECIPADO - FR("FATF002")*1.4285*z_txantec/100
COMANDO DEPOIS z_boncompr = ( FR("FATF001")-FR("FATF002") )*1.4285*z_txantec/100
COMANDO DEPOIS z_bonvenda = z_vdfpis+z_vdfcofins+z_vdfCSSL+z_vdfIR
*- COMANDO DEPOIS z_bonvenda = Z_IMP_SIMPLES - Z_SIMPLES_PAGO
COMANDO DEPOIS z_07_Outras_Receitas = z_desc_obt+z_boncompr+z_bonvenda-z_Juros_pg
COMANDO DEPOIS z_08_Lucro_PREJUIZO = Z_05_LUCRO_BRUTO - Z_06_despesas_operacionais
COMANDO DEPOIS z_09_Inv_ProLab = Z_PROLABORE+Z_09_Aquisicao_Equipamentos
COMANDO DEPOIS z_10_Resultado_Liquido = Z_08_LUCRO_PREJUIZO + z_07_Outras_Receitas - Z_09_INV_PROLAB

ULTPAGt 07 Lucro/Prejuizo Operacional ............................. [Z_08_LUCRO_PREJUIZO @E 999,999] ([Z_08_LUCRO_PREJUIZO*Z_P01 @e 999.9]%vt)
ULTPAG
ULTPAG  08 Outras Receitas/Despesas Financeiras.................... [z_07_Outras_Receitas @E 999,999] ([z_07_Outras_Receitas*Z_P01 @e 999.9]%vt)
ULTPAG
ULTPAG        Descontos Obtidos nos Pagamentos    +   [z_desc_obt @E 999,999]
ULTPAG        Juros Pagos nas Liquidacoes         -   [z_Juros_pg @E 999,999]
ULTPAG        Bonificacao sobre as Compras        +   [z_boncompr @E 999,999]
ULTPAG        Bonificacao sobre as Vendas         +   [z_bonvenda @E 999,999]

FILTROIMP Z_09_INV_PROLAB>0
ULTPAG
FILTROIMP Z_09_INV_PROLAB>0
ULTPAG  09 Investimentos/Prolabores ............................... [Z_09_INV_PROLAB @E 999,999]

ULTPAG
ULTPAGt 10 Resultado Liquido ...................................... [Z_10_Resultado_Liquido @E 999,999] ([Z_10_Resultado_Liquido*Z_P01 @e 999.9]%vt)
ULTPAG
ULTPAG  *** Observacoes:
ULTPAG
ULTPAG      Diferenca PIS...:  [z_vPIS @E 999,999]Prev  -  [z_vpgPIS @E 999,999]pg  = [z_vdfPIS @E 999,999]df
ULTPAG      Diferenca COFINS:  [z_vCOFINS @E 999,999]Prev  -  [z_vpgCOFINS @E 999,999]pg  = [z_vdfCOFINS @E 999,999]df
ULTPAG      Diferenca CSSL..:  [z_vCSSL @E 999,999]Prev  -  [z_vpgCSSL @E 999,999]pg  = [z_vdfCSSL @E 999,999]df
ULTPAG      Diferenca IR....:  [z_vIR @E 999,999]Prev  -  [z_vpgIR @E 999,999]pg  = [z_vdfIR @E 999,999]df

*ULTPAG
*ULTPAG
*ULTPAG
*COMANDO ANTES  Z_AUMENTO_DE_PRECOS = fr("SDPE001")-fr("SDPE003")
*COMANDO ANTES  Z_ZeradosVnd = fr("VGE_021")
*COMANDO ANTES  Z_CMV = fr("SDPE001")+FR("FATF001")+Z_AUMENTO_DE_PRECOS-fr("SDPE002")+Z_ZeradosVnd
**Z_COMPRA_PROD_ENTREGAS
*ULTPAG        *** Outro Calculo de CMV             [Z_CMV @E 999,999] [Z_CMV*Z_P01 @e 999.9%]
*ULTPAG            Valor do Estoque Inicial   +  [fr("SDPE001") @E 999,999]
*ULTPAG            Compra de Mercadorias      +  [Fr("FATF001") @E 999,999]
*ULTPAG            Aumento de Precos          +  [Z_AUMENTO_DE_PRECOS @E 999,999]
*ULTPAG            Custo dos Zerados Vendidos +  [Z_ZeradosVnd @E 999,999]
**-ULTPAG            Compras para Entregas      +  [Z_COMPRA_PROD_ENTREGAS @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
*--*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%]

ARQUIVO CP_DIVIS
VARIAVEL Z_TDIV = 0
FILTRO !( "/"+StrZero(recn(),3)+"/"$Z_DIVISOES ) .and. Fr("DD"+StrZero(recn(),3)+"006") > 0
COMANDO DURANTE z_emiss_pagto = Fr("DD"+StrZero(recn(),3)+"006")
COMANDO DURANTE Z_Tdiv = Z_TDIV+z_emiss_pagto
C
COutros Pagamentos nao Relacionados na Planilha de Resultados do Exercicio
C[repl("-",80)]
CDivisao                             Emissoes/Pagtos
C[repl("-",80)]
D[Recno() 999] [DESC]       [z_emiss_pagto @E 999,999.99]
ULTPAG
ULTPAG *** Total nao Incluso:                  [Z_TDIV @E 999,999.99]

*ARQUIVO HELP
*COMANDO ANTES Z_NIL = DBGOBOTTOM()
*COMANDO ANTES Z_NIL = if(tipo_prn="A",DbCreate( R_siga-"SIRES07R", {{"linha","C",80,0}} ),.f.)
*COMANDO ANTES Z_NIL = if(tipo_prn="A",Abra("0",r_Siga,"SIRES07R","SIRES07R"),.f.)
*COMANDO ANTES Z_NIL = If(tipo_prn="A",SIRES07R->( __dbSDF(.f.,(alltrim(r_siga)+"rel\"+s_arq_prn+".rel"),{},,,,,.f.) ),.f.)
*COMANDO ANTES Z_NIL = If(tipo_prn="A",SIRES07R->( DBCLOSEAREA() ),.F.)
