PROCEDURE Export_Excel_bySQLQހQހTEXtREAdn@o~@o@o @o! PROCEDURExport_Excel_bySQL (data_p INARCHAR2,orksheet_nameR2EFAULT 'Hoja1') ISAPPLICATION OLE2.OBJ_TYPE;yWORKBOOKSـRKSHEETrglistʄLISTCEL(߅r扸INTEGERcπϊitit_long_n'8pos file_cl(32767)user_can EXCEPsfononInteriorgf_cmd(2000--efr dCurspqueegresarar troonn_iEXEC.typeR,olNPLS_떩3Len|߁T8ǐ aux,fIabreISECORD(lhO0),ǔшQ2(1_hNUMBERϗۅw_defrTABLEF//INDEXYINARYǗexp";G%umbeӎVarchaDatDATo_ InnxProc.put_l (Row_numcwO*Colggσval𚧬m5Ӝ2NUW/siz:o'ty''WG7׭'wǮgW /*hereou (ssOLDr߱/ϲo_O?߷ bold,TApatalictc*/ǷߑwǹISIBEGINǻ := cre8_a-add( ,y8wget_obj_property (1shee'Cs',desymGsVء?F''gʌ/AlIFNO$THE__C8Ɋ0VENDolooǃokSmYooקm߆ߔ7߆ک, 1']//?/+orIndex]ڊggRELEASE_OBJ (wig??WTÎX ׾'wǿg?߿/Ͽ_ --OpenxhppationndakeisibleAPPPATIONCREATd'R.Wn2SET_PROPERTY@g+TRUE-_O--kZapecifiedPiwiatoxportata/*ްwwvorg&'C:\temp(st.xuWORKBOOKS&G𗈉 6INVOK(p',g_W /*newZ׹ 'WORKBOOKS'); X :=LE2.INVOKE_OBJ (, 'Add-_O--InitilizeorkheetW=get_obj_property(Application,'Active2X 'BOLD'CEPTIOז7INVALID_c?7ITq_r-׿Iexec_sql Mess`('ERRORRL-0001 (E): sal m`PMS-. (PRUTIL01.Ext__byC). 'o||HR(10)Ylastk_mesg'ows:'iTO_(WQ_Count)_;zpCarg ẋZtaux󾱻aUTE߰nB2WHIL?.FETCH_ROWS) > 0F(iN..@rtermin˶jo eer!!F(iT__]ǮgUXi__'&_/φ'gg7״777g)gGokǿw_YgwϲGϿѿ߻/όόϲǁWggNULLw׾׳߿ǩ'+oׯoWoǴnLOSE_CURSOR/*TSaveheicredArglistOLE2.C_ܼAdd (, 'c:\temp(st.xls'); LE2.Invoke (workbook, 'Save',rglistg.Droy_ (*/--elease fRELEASE_OBJsheeookswapplicationEND;