... STATIC FUNCTION EMAE2( oLbx, SiNuevo ) //======================================= Local oDlg, oDbf, lSave := .f.,oBitmap1,oBrush,oFont1 Local aSexo,aStatus,aDepto[1],aMuni,aPrograma,aEstado Local mInss,mIng,mCed,mProg,mNom,map1,map2,msexo,mcivil,mnac,mano,mmes1,mdia1,mdir1,mdep,mmuni,mbarrio,mtel,mcel ...
... "Excel.Application" ) oWorkBook := oExcel:WorkBooks:Add() ........ Ok , this works , excel seems to generate a file (name) , map1.xls , .... Now , i try to open a existing xls file without succes , i have oExcel := CreateObject( "Excel.Application" ) oWorkBook := ...
prueba tambien asi al guardar ,, sobre todo cuando es edicion,, oRecordSet:Fields("Apellido1"):value := _scFill( mAp1, 15 ) oRecordSet:update() function _scFill(c, nLon) local nLen local nSp if valtype(c) <> "C" c := '' ENDIF nLen := len(c) nSp := len(space(nLon-nLen)) return ...
... := .T.) , the user can close aplication or return to the aplication without closing it. I noticed that excel is executed with caption .... MAP1 ... Next code can detect that excel is not closed , but closing it fails : hWnd := FINDWND( "MAP1" ) IF !EMPTY( hWnd ...