Histórico da Página

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.

QDOA110.PRW

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

Lret(logico)
• (T) True não existe impedimento
  (F) False , ou não esta cadastrado ou não esta concluido, impedido de distribuir.
  

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