Linha Microsiga Protheus

Árvore de páginas

01. VISÃO GERAL

O ponto de entrada AG900SAF() esta disponível na rotina de ordem de carregamento(AGRA900) na validação de linha da tabela de itens do lote da ordem de carregamento.
Permite verificar os dados do objeto de lote e retorna variável logica para definir se continua ou se encontrou alguma validação que impede prosseguir.

Caso seja utilizado este ponto de entrada não será executada a validação da safra de acordo com o contrato de parceria. 

É passado para o ponto de entrada um array com o objeto oModelNPN (modelo tabela NPN)  e o numero inteiro da linha posicionada (nLinha). 


Localização:

AG900SAF()

Programa Fonte:

AGRA900 - Ordem de Carregamento

Função:

Ponto de Entrada para validar itens do lote da ordem de carregamento.

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Lógico

Retorno verdadeiro ou falso.

sim

02. EXEMPLO DE UTILIZAÇÃO


  
USER FUNCTION AG900SAF()

Local oModelNPN:= PARAMIXB[1]
Local nLInha   := PARAMIXB[2]
Local lRet     := .T.

IF  nLInha> 0 .and. ( oModelNPN:GetDataId() > 0  .And. ! fWfldGet('NPN_QUANT') = 0 .And. ! oModelNPN:IsUpdated() )    
    lRet := .F.
    Help(,, "Aviso",,"Não foi encontrado Lote para este produto na safra!" , 1, 0 )    
EndIF
  
Return lRet