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 |