Linha Microsiga Protheus

Árvore de páginas

LJTESSFA - Permite alterar a TES do pedido do simples faturamento

Descrição:

P.E. para permitir alterar o código da TES dos itens do pedido do simples faturamento

Eventos:

O ponto de entrada é executado antes de gerar os pedidos de venda de simples faturamento e simples remessa.

Programa Fonte:

LOJA701C

Parâmetros:

NomeTipoDescrição
ParamIxb[1]Texto

 Código da TES antes da mudança

ParamIxb[2]Array

Array com as informações da SL1.

Exemplo:

aSL1[2]

aSl1[2][1] == "L1_NUM"

aSl1[2][2] == "123456"

ParamIxb[3]Array

Array com as informações da SL2.

Exemplo:

aSL2[2]

aSl2[1][1]

aSl2[1][1][1]== "L2_NUM"

aSl2[1][2][2] == "123456"

ParamIxb[4]NuméricoNúmero do item posicionado

Retorno:

NomeTipoDescrição
cTESTexto

Código da TES

Exemplo:

#INCLUDE "TOTVS.CH"

//---------------------------------------------------------------------------
/*/{Protheus.doc} LJTESSFA
Ponto de entrada para alteração da TES do pedido do simples faturamento

@type function
@author Varejo
@since 06/05/2020
@version P12

@param cTES, texto, Código da TES
@param aSL1, array, Array da tabela SL1
@param aSL2, array, Array da tabela SL2
@param nI, array, Posição do item

@return texto, Retorna o código da TES
/*/
//---------------------------------------------------------------------------
User Function LJTESSFA()
Local aArea := GetArea()
Local cTESPed := ParamIxb[1]
Local aSL1 := aClone(ParamIxb[2])
Local aSL2 := aClone(ParamIxb[3])
Local nItPed := ParamIxb[4]
Local cTesRet := ""

If nItPed == 1


cTesRet := "506"


ElseIf nItPed == 2


cTesRet := "502"


Else


cTesRet := "501"


EndIf

RestArea(aArea)
Return cTesRet