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 |
lExpL1 variável do tipo lógico para sinalizar se a operação é Troca(.T.) ou Devolução (.F.)
nExpN1 variável do tipo numérico para sinalizar se a operação possui documento de entrada(1) ou sem documento de entrada(2)
| |||||||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
UserFunction LJ720SER
Local lParam1 := .F.
Local nParam2 := 0
Local cRet := ""lParam1 lTroca := PARAMIXB[1] //Sinaliza se a operação é Troca ou Devolução: .T. = Troca; .F. Devolução
nParam2 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 lParam1 lTroca .AND. nParam2 nNfOrigem == 1
cRet := "SER"//Valor fictício para uma nova nova série
Else
cRet := PadR(SuperGetMv("MV_LJNFTRO"),3) //série padrao
EndIf
Return cRet