Histórico da Página
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 |
| ||||||||||||
Retorno: |
|
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