PE - XFCD2SFT - Permite alteração do Livro Digital de Impostos (CD2)

01. VISÃO GERAL

Esse ponto de entrada é chamado logo após a gravação do Livro Digital de Impostos (CD2), durante a gravação dos Livros Fiscais, que normalmente ocorre na geração do documento fiscal.

Por ser chamado após a gravação de todos os registros da CD2 do documento fiscal, é necessário que o ponto de entrada realize o controle de posicionamento e de gravação.

02. ESPECIFICAÇÃO

Parâmetros do ponto de entrada:

Não há

Retorno:

Não há.

03. EXEMPLO DE UTILIZAÇÃO

#INCLUDE "PROTHEUS.CH"
 
User Function XFCD2SFT()
Local aAreaCD2 := CD2->(GetArea())
Local cFilCD2  := CD2->CD2_FILIAL
Local cDoc     := CD2->CD2_DOC
Local cSerie   := CD2->CD2_SERIE
Local cCliente := CD2->CD2_CODCLI
Local cLojaCli := CD2->CD2_LOJCLI
Local cFornec  := CD2->CD2_CODFOR
Local cLojaFor := CD2->CD2_LOJFOR
Local cItem    := CD2->CD2_ITEM //Ao entrar no ponto de entrada, estará posicionado no último item da CD2
Local cImp     := CD2->CD2_IMP  //Ao entrar no ponto de entrada, estará posicionado no último tributo gerado na CD2

/*
	Realize aqui o controle de posicionamento desejado, com base nas informações que podem ser obtidas diretamente da CD2 que já está gravada.
*/


Reclock("CD2",.F.)
/*
	Realize aqui a gravação dos dados desejados
*/ 
CD2->(MsUnlock())

RestArea( aAreaCD2 )
 
Return Nil

04. DEMAIS INFORMAÇÕES