Ponto de Entrada: QDOM710 - Transferência de Conteúdo
Descrição:
Transfere o conteúdo das variáveis do SIGAQDO para o Word conforme lista mencionada no próprio programa.
Ponto de chamada:
Executado na inclusão de Documento. Entretanto, se o usuário estiver incluindo um documento e clicar duas vezes no botão documento para visualizar, no primeiro clique vai chamar o PE QDOM710 e no segundo clique o PE QDOM720. Isto ocorre porque ao incluir, no primeiro clique esta sendo feito a criação do .CEL e no segundo como já existe esse arquivo .CEL é aberto em visualização apenas.
A partir da versão 12.1.25 do Protheus (julho de 2019) os fontes QDOM700, QDOM710 e QDOM720 foram incorporados para o produto padrão, deixando de ser rdmakes para serem pontos de entrada.
Maiores informações no boletim técnico: DMANQUALI-201 DT - Incorporar fontes QDOM700, QDOM710 e QDOM720 no RPO padrão.
Programa Fonte
.PRW
Sintaxe
QDOM710 - Transferência de Conteúdo ( ) --> Nil
Retorno
Nil (nulo)
Exemplo:
OLE_SetDocumentVar( oWord, "Adv_NomeFilial" , cNomFilial ) //01 - Filial do Sistema OLE_SetDocumentVar( oWord, "Adv_CopiaControlada", cTpCopia ) //02 - Copia Controlada OLE_SetDocumentVar( oWord, "Adv_Cancel" , If( M->QDH_CANCEL == 'S','Documento Cancelado',' ' ) ) //03 - Cancelado OLE_SetDocumentVar( oWord, "Adv_Obsoleto" , If( M->QDH_OBSOL == 'S','Documento Obsoleto' ,' ' ) ) //04 - Obsoleto OLE_SetDocumentVar( oWord, "Adv_DTpDoc" , QDXFNANTPD( M->QDH_CODTP, .t. ) ) //05 - Tipo OLE_SetDocumentVar( oWord, "Adv_DataVigencia" , if(Valtype(M->QDH_DTVIG) == 'D',DtoC( M->QDH_DTVIG ),' ')) //06 - Data de Vigencia OLE_SetDocumentVar( oWord, "Adv_Titulo" , M->QDH_TITULO ) //07 - Titulo OLE_SetDocumentVar( oWord, "Adv_Objetivo" , cObjetivo ) //08 - Objetivo OLE_SetDocumentVar( oWord, "Adv_NUsrR" , cNomRece ) //09 - Destinatario If Empty( cNomRece ) OLE_SetDocumentVar( oWord, "Adv_NDeptoR", " " ) Else //10 - Departamento do Destinatario ( Nome ) OLE_SetDocumentVar( oWord, "Adv_NDeptoR", QA_NDEPT( QDG->QDG_DEPTO,.T.,QDG->QDG_FILMAT) ) Endif OLE_SetDocumentVar( oWord, "Adv_NDeptoD" , QA_nDeptos( M->QDH_FILIAL, M->QDH_DOCTO, M->QDH_RV ) ) //11 - Departamento Recebedores - Distribuicao ( Nome ) OLE_SetDocumentVar( oWord, "Adv_Sumario" , cSumario ) //12 - Sumario OLE_SetDocumentVar( oWord, "Adv_MotivoRevisao" , cMotRevi ) //13 - Motivo da Revisao OLE_SetDocumentVar( oWord, "Adv_ApelidoElaborador" , cApElabo ) //14 - Elaboradores( Apelido ) OLE_SetDocumentVar( oWord, "Adv_ApelidoRevisor" , cApRevis ) //15 - Revisores( Apelido ) OLE_SetDocumentVar( oWord, "Adv_ApelidoAprovador" , cApAprov ) //16 - Aprovadores( Apelido ) OLE_SetDocumentVar( oWord, "Adv_ApelidoHomologador" , cApHomol ) //17 - Homologador ( Apelido ) OLE_SetDocumentVar( oWord, "Adv_Docto" , Alltrim( M->QDH_DOCTO ) ) //18 - Codigo do Documento OLE_SetDocumentVar( oWord, "Adv_Rv" , M->QDH_RV ) //19 - Numero da Revisao OLE_SetDocumentVar( oWord, "Adv_Rodape" , cRodape ) //20 - Rodape OLE_SetDocumentVar( oWord, "Adv_MdpCodigo" , cCodAtu ) OLE_SetDocumentVar( oWord, "Adv_MdpNovCod" , cCodNov ) OLE_SetDocumentVar( oWord, "Adv_MdsDescr" , cDescr ) OLE_SetDocumentVar( oWord, "Adv_MdpDe" , cDe ) OLE_SetDocumentVar( oWord, "Adv_MdpPara" , cPara ) OLE_SetDocumentVar( oWord, "Adv_MdpRaz" , cMdpRaz ) OLE_SetDocumentVar( oWord, "Adv_MdpObs" , cMdpObs ) OLE_SetDocumentVar( oWord, "Adv_MdsRaz" , cMdsRaz ) OLE_SetDocumentVar( oWord, "Adv_MdsObs" , cMdsObs ) OLE_SetDocumentVar( oWord, "Adv_ApelidoDestino" , QA_nUsr( cFilApDes, cCodApDes, .t., "A" ) ) //20 - Destinatario ( Apelido ) OLE_SetDocumentVar( oWord, "Adv_ApelidoSolicitante" , QA_nUsr( cFilApSol, cCodApSol, .t., "A" ) ) //21 - Solicitante ( Apelido ) *** Quando de uma solicitacao de alteracao *** OLE_SetDocumentVar( oWord, "Adv_Elaborador" , cElabora ) //22 - Elaborador ( Nome ) OLE_SetDocumentVar( oWord, "Adv_Revisor" , cRevisor ) //23 - Revisor ( Nome ) OLE_SetDocumentVar( oWord, "Adv_Aprovador" , cAprovad ) //24 - Aprovador ( Nome ) OLE_SetDocumentVar( oWord, "Adv_Homologador" , cHomolog ) //25 - Homologador ( Nome ) OLE_SetDocumentVar( oWord, "Adv_Ass1" , QDXFNANASS( M->QDH_CODASS, .t. ) ) //26 - Assunto ( Codigo ) OLE_SetDocumentVar( oWord, "Adv_Ass2" , QDXFNANASS( M->QDH_CODAS1, .t. ) ) //27 - Assunto 1 ( Codigo ) OLE_SetDocumentVar( oWord, "Adv_Ass3" , QDXFNANASS( M->QDH_CODAS2, .t. ) ) //28 - Assunto 2 ( Codigo ) OLE_SetDocumentVar( oWord, "Adv_Ass4" , QDXFNANASS( M->QDH_CODAS3, .t. ) ) //29 - Assunto 3 ( Codigo ) OLE_SetDocumentVar( oWord, "Adv_Ass5" , QDXFNANASS( M->QDH_CODAS4, .t. ) ) //30 - Assunto 4 ( Codigo ) OLE_SetDocumentVar( oWord, "Adv_CRespR" , SI3->I3_MAT ) //34 - Responsavel pelo Centro de Custo ( Matricula ) OLE_SetDocumentVar( oWord, "Adv_DeptoD" , M->QDH_DEPTOD ) //35 - Departamento Recebedores - Distribuicao ( Codigo ) OLE_SetDocumentVar( oWord, "Adv_DeptoE" , M->QDH_DEPTOE ) //36 - Departamento Elaborador ( Codigo ) OLE_SetDocumentVar( oWord, "Adv_NDeptoE" , QA_nDept( M->QDH_DEPTOE, .t., M->QDH_FILMAT ) ) //37 - Departamento Elaborador ( Nome ) OLE_SetDocumentVar( oWord, "Adv_CPastaR" , QDG->QDG_CODMAN ) //38 - Pasta ( Codigo ) OLE_SetDocumentVar( oWord, "Adv_NPastaR" , QDXFNANMAN( QDG->QDG_CODMAN, .t., QDJ->QDJ_FILMAT ) ) //39 - Pasta ( Nome ) OLE_SetDocumentVar( oWord, "Adv_DeptoR" , QDG->QDG_DEPTO ) //40 - Departamento do Destinatario ( Codigo ) OLE_SetDocumentVar( oWord, "Adv_NRespR" , QA_nUsr( SI3->I3_FILMAT, SI3->I3_MAT ) ) //41 - Responsavel pelo Departamento doDestinatario ( Nome ) OLE_SetDocumentVar( oWord, "Adv_DataEmissao" , DtoC( cDtEmiss ) ) //42 - Data de Emissao OLE_SetDocumentVar( oWord, "Adv_DataValidade" , DtoC( M->QDH_DTLIM ) ) //43 - Data de Validade OLE_SetDocumentVar( oWord, "Adv_DataImplantacao" , DtoC( M->QDH_DTIMPL ) ) //44 - Data de Implantacao OLE_SetDocumentVar( oWord, "Adv_DataDistribuicao" , DtoC( QD1->QD1_DTGERA ) ) Return
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas