Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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'

UserFunction LJ720SER


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

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

Return cRet