FISA001-SPDPIS07 - Registro 0500 Conta Contábil - EFD Contribuições

Salve salve....

Ponto de entrada SPDPIS07 - ( Registro 0500 Conta Contábil - EFD Contribuições)

#INCLUDE "PROTHEUS.CH" 

/*/{Protheus.doc} SPDPIS07
Inclusão do ponto de entrada SPDPIS07, para possibilitar a geração do registro 0500 quando o código da conta contábil é diferente do informado na nota fiscal.

@type		function
@author		Eurai Rapelli
@since 		2023.01.01
/*/
User Function SPDPIS07()
Local aArea       	:= GetArea()

Local cFTFILIAL		:= PARAMIXB[01]	//FT_FILIAL
Local cFTTIPOMOV	:= PARAMIXB[02]	//FT_TIPOMOV
Local cFTSERIE		:= PARAMIXB[03]	//FT_SERIE
Local cFTNFISCAL	:= PARAMIXB[04]	//FT_NFISCAL
Local cFTCLIEFOR	:= PARAMIXB[05]	//FT_CLIEFOR
Local cFTLOJA		:= PARAMIXB[06]	//FT_LOJA
Local cFTITEM		:= PARAMIXB[07]	//FT_ITEM
Local cFTPRODUTO	:= PARAMIXB[08]	//FT_PRODUTO	 	
//Local cFTCONTA :=  PARAMIXB[9] //FT_CONTA

Local cAliasSFT		:= 'SFT'
Local cFTCONTA		:= (cAliasSFT)->FT_CONTA

//Alterar a conta 
//SFT->(dbSetOrder(1))
//If SFT->(DbSeek(cFTFILIAL+cFTTIPOMOV+cFTSERIE+cFTNFISCAL+cFTCLIEFOR+cFTLOJA+PadR(cFTITEM,TamSx3("FT_ITEM")[1])+cFTPRODUTO))
//	cFTCONTA		:= SFT->FT_CONTA
//	If Empty(AllTrim(cFTCONTA))
//		If cFTTIPOMOV = "S"
//			cFTCONTA = "4101010003"
//		Else
//			cFTCONTA = "3202030071" 
//		EndIf
//	EndIf
//EndIf



RestArea(aArea) 
Return( cFTCONTA )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima