Salve salve....
Ponto de entrada SPDPIS05 - ( Campo 13 IND_PAGTO)
#INCLUDE "PROTHEUS.CH"
/*/{Protheus.doc} SPDPIS05
Inclusão do ponto de entrada SPDPIS05
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function SPDPIS05()
Local cAlias := ParamixB[1] // SFT
Local aCmpAntSFT := ParamixB[2] // array de dados
Local cIndpagto := "9"
Local cIndfrt := aCmpAntSFT[21] // retorna conteudo do campo Indicador de tipo de frete
Local aAreaPis05 := {}
Local cTipomv := Iif(Left(aCmpAntSFT[9],1)$"1|2|3","E","S") // CFOP
Local cDoc := aCmpAntSFT[1]
Local cSer := aCmpAntSFT[2]
Local cCliFor := aCmpAntSFT[3]
Local cLoja := aCmpAntSFT[4]
Local aArea := GetArea()
If cTipomv == "E"
Else
Endif
RestArea( aArea )
Return( { cIndpagto, cIndfrt } )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima
