Ponto-de-Entrada: MT390VLV - Validade de lotes
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Localização:
1 - Function A390Valid() - Responsável pela alteração de data de validade de lotes;
2 - Function Q215GrvAll() - Grava os dados referentes ao Resultado.
2.1 - Na rotina de Resultados(QIEA215) do SIGAQIE o retorno deste PE é tratado conforme abaixo:
Se o ponto de entrada retornar True:
A informação do campo QEL_DTVAL(Data Valid.) é replicada para o campo B8_DTVALID(Data Validad) conforme regras do parâmetro MV_QVALLOT(https://tdn.totvs.com/x/2ElKEg).
Se o ponto de entrada retornar False:
A informação do campo QEL_DTVAL(Data Valid.) é alterada conforme informada na tela de Resultados(QIEA215) e o conteúdo do campo B8_DTVALID(Data Validad) não é alterado.
Em que ponto: Antes da alteração da validade.
Programa Fonte: MATA390.PRX
Sintaxe: MT390VLV - Validade de lotes ( [ PARAMIXB ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| PARAMIXB | data | Elemento tipo data contendo a nova data digitada na tela. |
Retorno:
lRet
- (logico)
- .T. = Valida a mudança de data de validade do lote..F. = Não valida.
Observações:
Exemplo:
#INCLUDE "TOTVS.CH"
USER FUNCTION MT390VLV()
LOCAL lRet := .T.
LOCAL dData := PARAMIXB[1]
// VALIDAÇÕES DO USUÁRIO
RETURN lRet
|