Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Permite customizar a série da nota de troca/devolução da rotina LOJA720 onde po padrão é utilizado o parâmetro MV_LJNFTRO

Localização:

Venda Assistida (LOJA701)

Eventos:

Este Ponto de Entrada é acionado após a definição padrão da série da nota de troca/devolução MV_LJNFTRO

Programa Fonte:

LOJA720.PRW

Função:

Lj720DevSD2() e Lj720DevTRB()

Parâmetros
NomeTipoModoDescrição
lExpL1 LógicoSomente LeituraSinaliza se a operação é Troca ou Devolução: .T. = Troca; .F. Devolução
nExpN1 NuméricoSomente LeituraSinaliza se a operação possui documento de entrada: 1 = Com documento ; 2 = Sem documento

Retorno:

NomeTipoDescriçãoObrigatório
cRetCaracterSerie que substituirá a definida no parâmetro MV_LJNFTROS

 

Exemplo:

#Include 'Protheus.ch'

User Function LJ720SER()

Local lParam1 := .F.
Local nParam2 := 0
Local cRet := ""

lParam1 := PARAMIXB[1] //Sinaliza se a operação é Troca ou Devolução: .T. = Troca; .F. Devolução
nParam2 := PARAMIXB[2] //Sinaliza se a operação possui documento de entrada: 1 = Com documento ; 2 = Sem documento


//Definir regra customizada para atribuir nova série
If lParam1 .AND. nParam2 == 1
    cRet := "SER" //Valor fictício para uma nova série
Else
    cRet := PadR(SuperGetMv("MV_LJNFTRO"),3) //série padrao
EndIf

Return cRet