FISA007-SPDPIS05 - Campo 13 IND_PAGTO

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