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
