Árvore de páginas

Versões comparadas

Chave

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

...

A data de contabilização é enviada através do layout de integração T154 no campo 54-DT_CONTABIL.

Essa Após o processamento dos dados no TAF, essa informação será gravada posteriormente no campo LEM_DTCONT dentro do TAF, para possibilitar que a apuração do IRRF seja feita pela data de contabilização e irá determinar o fato gerador do IRRF do título/documento quando o parâmetro MV_TAFDT40=1.

Veja mais em: DSERTAF2-18247 DT Apuração pela data de contabilização R-4010

03. PARÂMETROS

Nome

Tipo

Descrição

nRecnoE2

Numérico

R_E_C_N_O_ do registro na SE2

dDtCtb

Data

Data da contabilização do padrão (E2_EMIS1)

cAlias

Caractere

Query padrão da rotina FINA989 para títulos a receber

04. RETORNO

Nome

Tipo

Descrição

dDtCtb

Data

Nova query modificada pelo ponto de entradaData da contabilização a ser considerada

05. EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagevb
themeMidnight
firstline1
titleF989CRQYF989DtCtb
linenumberstrue
#include#INCLUDE 'protheus.ch'

/*/{Protheus.doc} F989CRQY()  

	Recebe a query padrão completa que faz a filtragem dos títulos a receber"PROTHEUS.CH"
  
User Function F989DtCtb()

    Local nRecnoE2 := ParamIxb[1] //R_E_C_N_O_ do registro na SE2
    doLocal ExtratordDtCtb Fiscal, permitindo  substitui-la com adaptações.
	
	@param ParamIxb[1] - cQuery - Query padrão da rotina FINA989 para títulos a receber
    @return cRet - Query modificada pelo ponto de entrada
/*/

User Function F989CRQY()

    Local cQuery  := ParamIXB[1] //Query padrão

    //Adiciona filtro por natureza para geração do R-4080
    cQuery += " AND SE1.E1_NATUREZ = '000001' "

Return cQuery := ParamIxb[2] //Data da contabilização do padrão (E2_EMIS1)

    DbSelectArea("SE2")
    SE2->(DbGoTo(nRecnoE2))
    If !Empty(SE2->E2_XDTCTB)
        dDtCtb := SE2->E2_XDTCTB //Campo customizado na SE2
    EndIF

Return dDtCtb



Templatedocumentos