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_Docto" ,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
//Codigo do Documento
Return 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 |
