Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MT130TOK - Valida a seleção de fornecedores
Versões: Advanced Protheus 7.10 , 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
Descrição: 
LOCALIZAÇÃO : Function A130TudOk() - Resonsável por verificar validacao da TudoOk.

EM QUE PONTO : O ponto de entrada 'MT130TOK'  é executado no final da validação da função A130TudOk somente se não for identificada nenhuma divergência anterior. O PE possui retorno lógico que permitirá validar ou não a seleção dos fornecedores.
Eventos


 

Programa Fonte 
MATA130.PRX
Sintaxe

MT130TOK - Valida a seleção de fornecedores ( < PARAMIXB[1]> , < PARAMIXB[2]> ) --> lRetorno

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
PARAMIXB[1] Numérico Variável que indica a possição da coluna do fornecedor no aHeader X
PARAMIXB[2] Numérico Variável que indica a possição da coluna da loja do fornecedor no aHeader X
Retorno
    lRetorno(logico)
  • Variável lógica que permite validar a tunção A130TudOK.
Observações


 

Exemplos 
User Function MT130TOKLocal lRetorno   := .T.Local lDelLinha  := .F.Local nPosFornec := paramixb[ 1]Local nPosLoja  := paramixb[ 2]Local nI//É bom lembrar que as variáveis aCols e aHeader são private//e podem ser visualizadas neste PEFor nI := 1 to Len(aCols)    If ValType(aCols[nI,Len(aCols[nI])]) == 'L'        lDelLinha := aCols[nI,Len(aCols[nI])]      // Se esta Deletado    EndIf    If !lDelLinha        If AllTrim(aCols[nI][nPosFornec]) =='000032' .And. AllTrim(aCols[nI][nPosLoja])=='64'            lRetorno    := .F.            Exit        EndIf    EndIfnext                     Return lRetorno