FiveTech Software tech support forums

... oLbx ), oLbx:Refresh() ) REDEFINE BUTTON ID 105 OF oDlg ACTION ( oDlg:End() ) RETURN NIL //================================= FUNCTION EditC1(SiNuevo, oLbx ) //================================= Local oDlg, lSalvar := .f. IF sinuevo = .t. oRs:ADDNEW() oRs:Fields("codigo"):value := ...

... static oProf,mProf,oCli,mCli,mMedProf,mConsumo,oMedProf,oConsumo,FilMovi, FilNtx, oSay1,oBrw,oBtagre,oBtborra,oBtmodi Static mEditar, mSiNuevo, mAceptar, mCancelar, oDlg2, wcan,SiNuevo, oAceptar, oCancelar, oSalir //==================== FUNCTION FISICO3() //==================== Local ...

... ID 105 of oDlg ACTION oDlg:End() ACTIVATE DIALOG oDlg CLOSE DATA Return nil //======================================= STATIC FUNCTION EMAE2( oLbx, SiNuevo ) //======================================= Local oDlg, oDbf, lSave := .f.,oBitmap1,oBrush,oFont1 Local aSexo,aStatus,aDepto[1],aMuni,aPrograma,aEstado ...

... BUTTON ID 105 OF oFld:aDialogs[1] ACTION ( oDlg:End() ) ACTIVATE DIALOG oDlg CENTERED RETURN //================================= FUNCTION EditC1(SiNuevo, oLbx ) //================================= Local oDlg, lSalvar := .f. IF sinuevo = .t. oRs:ADDNEW() // crea un nuevo registro en blanco oRs:Fields("codigo"):value ...

... E->COD_EEFF+"-"+ALLTRIM(E->CONCEPTO) SKIP DO WHILE .NOT. EOF() AADD(dEEFF,E->COD_EEFF+"-"+ALLTRIM(E->CONCEPTO)) SKIP ENDDO SELECT A IF SiNuevo = .T. mCodigo := SPACE(12) mNombre := SPACE(45) mNatural := "DEUDORA" mEEFF := SPACE(47) mViacomp := .F. mDetalle := .F. ElSE mCodigo := CATALOGO->CODIGO ...

... sugerencia al respecto como ven es ado puro no uso adordd //===================== FUNCTION PRUEBA() //===================== Local oDlg,oBrw,SiNuevo := .f. LOCAL oConexionAdo := TOLEAUTO():New("adodb.connection") PRIVATE oRecordset := TOLEAUTO():New("adodb.recordset") oConexionAdo:Open("DRIVER={MySQL ...