Descrição

Possibilita o uso de informações customizadas no cadastro de garantia de insumo do tipo produto.

Observações

Desta forma os campos serão preenchidos automaticamente quando for aberta a tela.

Exemplos

#INCLUDE "Protheus.ch"
User Function MNTA435A()

Local cTipoRet // Campo preenchido
Local cRet := "" // Retorno caracter
Local nRet := 0 // Retorno numerioc

//------------------------------------------------
// Recebe o parametro que define em qual campo sera
// preenchido o registro.
// L - Codigo da Localizacao
// Q - Quantidade (Garantia por Tempo)
// U - Unidade de tempo
//------------------------------------------------
cTipoRet := PARAMIXB[1]

If cTipoRet == "L"
cRet := "DIAESQ"
ElseIf cTipoRet == "Q"
nRet := 999999
ElseIf cTipoRet == "U"
cRet := "Dia"
EndIf

Return If(cTipoRet == "Q",nRet,cRet)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus10 e Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

PARAMIXB[1] // L - Codigo da Localizacao, Q - Quantidade (Garantia por Tempo), U - Unidade de tempo

Retorno

If(cTipoRet == "Q",nRet,cRet)

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

MNTA435.PRX