Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MT110TOK
Versões: Advanced Protheus 6.09 , 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
Nível de Acesso: Nível 1 (Acesso Clientes)
Idiomas: Espanhol , Inglês
Descrição: 
LOCALIZAÇÃO : Function A110TudOk() responsável pela validação da GetDados da Solicitação de Compras .

EM QUE PONTO : O ponto se encontra no final da função e deve ser utilizado para validações especificas do usuario onde será controlada pelo retorno do ponto de entrada o qual se for .F. o processo será interrompido e se .T. será validado.
Eventos


Programa Fonte 
MATA110.PRX
Sintaxe

MT110TOK ( < PARAMIXB> ) --> lRetorno

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
PARAMIXB Array of Record Paramixb[1] = lRetorno no momento da chamada do ponto de entrada ; Paramixb[2] = Data da solicitação de compras X
Retorno
    lRetorno(logico)
  • .T. valida e continua o processo
    .F. invalida e interrompe o processo
Observações


Exemplos 
User Function  MT110TOK()Local nPosPrd    := aScan(aHeader,{|x| AllTrim(x[2]) == 'C1_PRODUTO'})Local nPosItem    := aScan(aHeader,{|x| AllTrim(x[2]) == 'C1_ITEM'})Local lValido := .T.dbSelectArea('SC1')dbSetOrder(2)If MsSeek(xFilial('SC1')+aCols[n][nPosPrd]+cA110Num+aCols[n][nPosItem])     If (C1_QUJE > 0) .Or. (C1_RESIDUO == 'S') )          lValido := .F.     EndIfEndIf Return(lValido)