Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: QDODISTREOK - Valida Treinamento para distribuir documentos
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Espanhol , Inglês
Descrição: 
O objetivo deste Ponto de entrada é validar o treinamento do documento, se está cadastrado e se está concluído para poder efetuar a distribuição do documento.O ponto de chamada da função é no momento de distribuição do documento.
Programa Fonte 
QDOA110.PRW
Sintaxe

QDODISTREOK - Valida Treinamento para distribuir documentos ( [ ParamIXB ] ) --> Lret

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIXB Array of Record 1 - Filial
2 - Cod. Documento a distribuir
3 - Revisão do documento
Retorno
    Lret(logico)
  • (T) True não existe impedimento
    (F) False , ou não esta cadastrado ou não esta concluido, impedido de distribuir.
Exemplos 
USER FUNCTION QDODISTREOK ()    LOCAL cFilial        := PARAMIXB[1]    LOCAL cCodDoc  := PARAMIXB[2]    LOCAL cNrRev     := PARAMIXB[3]    LOCAL Lret           := .F.    dbSelectArea("QDA")     dbsetorder(2)     If QDA->(dbSeek(cFilial+cCoddoc+cNrRev))         if QDA->QDA_BAIXA == "S"	 lret := .T.         Else             Alert (' Não é possivel Distribuir, Documento com Treinamento (Filial: '+cFilial+' Doc: '+cCodDoc+' Revisão: '+cNrRev+') não concluido')         Endif     Else             Alert (' Não é possivel Distribuir, Documento com Treinamento (Filial: '+cFilial+' Doc: '+cCodDoc+' Revisão: '+cNrRev+') não cadastrado')     EndifReturn lRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não