Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

 Tempo aproximado para leitura: 05 min

1. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Jurídico
Módulo:Pré Faturamento de Serviços - SIGAPFS
Função:

Lançamentos - JURA241

Desdobramentos Contas a Pagar - JURA246


02. PONTO DE ENTRADA

Descrição:

Ponto de entrada após a gravação do lançamento e/ou Antes da Gravação do Desdobramento de Contas a Pagar para informar se deve ser gerado um registro na tabela Demais Docs. PIS COFINS (CF8) da natureza que possui apuração de PIS ou COFINS.

Observação:Caso a natureza  - origem ou destino do Lançamento -  não possuir configuração de apuração de PIS ou COFINS o ponto de entrada não é executado.

Localização:

SIGAPFS - Atualizações - Financeiro - Lançamentos

Programa Fonte:

JURA241/JURA246

Função:

J241Cmmt/JA246Event

Parâmetros:



Nome

Tipo

Descrição

cNaturezacaracter

Código da natureza utilizada no lançamento


Obs:  Na rotina de Lançamentos, apenas uma única natureza será considerada para avaliação do ponto de entrada e gravação do registo Demais Docs. PIS COFINS (CF8), sendo priorizada a Natureza de Origem (OHB_NATORI). Por exemplo: Caso a Natureza de Origem do lançamento estiver configurada com a apuração de PIS ou COFINS então o ponto de entrada será executado para avaliação da mesma assim desconsiderando a Natureza de Destino (OHB_NATDES). Na rotina de Desdobramento, é considerada a natureza do mesmo

Importante:  Em virtude do processo de  Baixa de títulos da Pagar gerar registros de Lançamentos a partir do Desdobramento, recomendamos que o ponto de entrada verifique se não existe lançamento de desdobramento que já tenha gerado registro de Demais Docs. PIS COFINS, a fim de evitar duplicidade de registros

Retorno:



Nome

Tipo

Descrição

Obrigatório

lGravaCF8lógico

Quando verdadeiro faz a gravação do registro na tabela Demais Docs. PIS COFINS (CF8)

Sim




03. EXEMPLO

#INCLUDE "PROTHEUS.CH"

//-------------------------------------------------------------------
/*/{Protheus.doc}  J246Comp
Ponto de entrada após confirmar a tela de detalhe do título a pagar
@author  TOTVS
@since   22/06/2020J241EDF
Ponto de entrada para gravação da CF8 na inclusão do lançamento

@param PARAMIXB, array   , Parâmetros do ponto de entrada
           PARAMIXB[1], caracter, Código da natureza do lançamento

@author TOTVS
@since  05/11/2021
/*/
//-------------------------------------------------------------------
User Function J246Comp()
    Local cPrefixo := SE2->E2_PREFIXO
    Local cTitulo   := SE2->E2_NUM
   ApMsgInfo("Prefixo: '" + cPrefixo + "' - Título: '" + cTitulo + "'")
Return NilFunctionJ241EFD()
    Local lGravaCF8 := .F.
    Local cNatureza := ""

    IfValType(PARAMIXB) == "A"

        cNatureza := PARAMIXB[1]
        oModel := FWModelActive() //Captura o Modelo Ativo
        cId := oModel:GetId() //Id do Modelo

        IfcId == 'JURA241'.And.OHF->(ColumnPos("OHF_CODCF8")) > 0
            //Verifica se não existe desdobramento com registro de EFD gerado para o título
            //Captura o modelo de Dados de Lançamentos
            oModel := oModel:GetModel("OHBMASTER")
            cChvTit := oModel:GetValue("OHB_CPAGTO")
            cIdDes := oModel:GetValue("OHB_ITDES")

            If !Empty(cChvTit) .And. !Empty(cIdDes)
                cIdDocTit  := FINGRVFK7("SE2",cChvTit) //Captura o IdDoc do Título
                aAreaOHF := OHF->(GetArea())
                OHF->(DbSetOrder(01)) //OHF_FILIAL + OHF_IDDOC + OHF_CITEM
                IfOHF->(DbSeek( xFilial("OHF") + cIdDocTit + cIdDes))
                    lHasCF8Des := !Empty(OHF->OHF_CODCF8)
                EndIf
                RestArea(aAreaOHF)
            EndIf
        EndIf

        If !lHasCF8Des
            lGravaCF8 := cNatureza == "10.10.10.10"
        EndIf
    EndIf

Return (lGravaCF8)


Templatedocumentos


HTML
<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>