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'
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
Visão Geral
Conteúdo das Ferramentas