Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: QDODISTREOK - Valida Treinamento para distribuir documentos
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:
Retorno
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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas