Histórico da Página

...

1. Na criação do objeto OLE deve ser alterado para atribuir uma instância da classe wrapper (Excel ou Word). A include inicializa a variável passada como parâmetro com base na configuração do arquivo datasul_framework.properties (Office).

   Bloco de código
   language sql title Modelo antigo linenumbers true
   CREATE "Excel.Application" chExcel.

   Bloco de código
   language sql title Modelo novo linenumbers true
   {office/office.i Excel chExcel}

2. Na definição das variáveis que serão utilizadas na integração devem ser alteradas do tipo COMPONENT-HANDLE para o tipo CLASS apontando para a interface responsável pela implantação da funcionalidade nas classes Wrapper.

   Bloco de código
   language sql title Modelo antigo linenumbers true
   DEFINE VAR chExcel AS COM-HANDLE NO-UNDO. DEFINE VAR chWorkbook AS COM-HANDLE NO-UNDO. DEFINE VAR chRange AS COM-HANDLE NO-UNDO.

   Bloco de código
   language sql title Modelo novo linenumbers true
   DEFINE VAR chExcel AS office.iface.excel.ExcelWrapper NO-UNDO. DEFINE VAR chWorkbook AS office.iface.excel.Workbook NO-UNDO. DEFINE VAR chRange AS office.iface.excel.Range NO-UNDO.

3. Alterar métodos que não passam parâmetros adicionando “?” ou utilizando um método correspondente sem os mesmos, quando existir.

   Bloco de código
   language sql title Modelo antigo linenumbers true
   chWorkbook:SaveAs(tt-param.arquivo,"56",,,,,,,,,,).

   Bloco de código
   language sql title Modelo novo linenumbers true
   chWorkbook:SaveAs(tt-param.arquivo,"56",?,?,?,?,?,?,?,?,?,?). ou chWorkbook:SaveAs(tt-param.arquivo,"56").

...

1. Alterar atribuição à métodos por propriedades com extent.
   
   

   Bloco de código
   language sql title Modelo antigo linenumbers true
   chChart:HasAxis({&xlCategory}) = false.

   Bloco de código
   language sql title Modelo novo linenumbers true
   chChart:HasAxis({&xlCategory}, false).

2. Alterar métodos que recebem como parâmetro a propriedade de outro objeto.

    

   Bloco de código
   language sql title Modelo antigo linenumbers true
   chWorksheet = chWorkbook:Sheets(chWorkbook:Sheets:COUNT).

   Bloco de código
   language sql title Modelo novo linenumbers true
   iWorkSheets = chWorkbook:Sheets:COUNT. chWorksheet = chWorkbook:Sheets(iWorkSheets).