FiveTech Software tech support forums

... "CANCELA.BMP" CANCEL ACTION oDlgMa:End() oAceptar:lTransparent = .t. oCancelar:lTransparent = .t. ACTIVATE DIALOG oDlgMa CENTERED if lSave if agrega Materia->(DbAppend()) Materia->Codigo := nCodigo endif Materia->Detalle := cDetalle Materia->Abrevia := cAbrevia Materia->Ramo ...

... oBtn   local cVar1 := PadR( "ABC", 20 )   local cVar2 := PadR( "DEF", 20 )   local nVar  := 30000   local lSave := .f.   SetGetColorFocus()   DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-14   DEFINE DIALOG oDlg SIZE 300,200 PIXEL TRUEPIXEL ...

... test()local aGet:=array(2)local oDlglocal cGet1:=space(60)local cGet2:=space(60)local lSave:=.f.local bChecklocal oBtn1,oBtn2DEFINE DIALOG oDlg SIZE 400,300@ 10,10 GET aGet[1] VAR cGet1 SIZE 100,10 PIXEL of oDlg@ 40,10 GET aGet[2] ...

what is difficult? bother variable of the type "lsave:= .t. or lsave:= .f." It's just for kids, it seems like you're still programming with the clipper Silvio, I learned to program in CLIPPER 5.3 and I continue to use the CLIPPER 5.3 modus ...

yo haria asi: // C:\FWH\SAMPLES\SILVICHK.PRG#include "FiveWin.ch"STATIC lSave := .F.FUNCTION Main()   LOCAL aGet := ARRAY( 2 )   LOCAL oDlg   LOCAL cGet1 := SPACE( 60 )   LOCAL cGet2 := SPACE( 60 )   LOCAL bCheck   LOCAL ...

... test()local aGet:=array(2)local oDlglocal cGet1:=space(60)local cGet2:=space(60)local lSave:=.f.local bChecklocal oBtn1,oBtn2DEFINE DIALOG oDLG SIZE 400,200@ 10,10 GET aGet[1] VAR cGet1 SIZE 100,10 PIXEL of oDlg@ 40,10 GET aGet[2] ...

... ), "Ult. Proveedor", ; "costo" , ; "UM", , "Ult.Modif" ; LINES CELL font ofont ON dblCLICK ( lsavek := .t., oDlgSTK:End() ) obrw:bKeyDown = { | nKey, nCol, nFlags | iif( nKey = K_ENTER, ( lsavek := .t., oDlgSTK:End() ), ) } oBrw:nRowHeight := ...

... ACTION ( ImprimirInfo() ) redefine BTNBMP oCan 2007 prompt HB_UTF8CHR( 57615 ) + " Volver " font oSegoe ID 992 OF princfac ACTION ( lsave := .f., dbCloseall() , princfac:End(), oWndChild:End() ) // cancel oCan:lCancel := .t. redefine BTNBMP oCanc 2007 prompt HB_UTF8CHR( 57615 ) + ...

... ACTION ( ImprimirInfo() ) redefine BTNBMP oCan 2007 prompt HB_UTF8CHR( 57615 ) + " Volver " font oSegoe ID 992 OF princfac ACTION ( lsave := .f., dbCloseall() , princfac:End(), oWndChild:End() ) // cancel ACTIVATE DIALOG princfac CENTERED nowait ON INIT princfac:Move( 0, 0 ) //, ...

ARREGLADO FALTABA lSAved:=.T. Function cGetFile32( cFileMask, cTitle, nDefaultMask, cInitDir, lSave, nFlags, cIniFile ) local cSection, cFile local nRet DEFAULT lSave := .f. CursorWait() // On cGetFile() that parameter is a boolean for long filenames if nFlags != Nil .and. ...

... then before save the array there is a part on source I not understood from this WITH OBJECT oBrw --- END then I made the same from if lSave /endif but here make me error

... the user select a folder to save a file //cGetFile( <cFileMask>, <cTitle>, [<nDefaultMask>], [<cInitialDirectory>], [<lSave>], [<lLongNames>], [<nFlags>], [<cInitialFile>] ) –> cFileName I tried with cNamePdf := oBrowse:aArrayData[ oBrowse:narrayat][3] ...

... usando tsbrowse, agregue un botón para generar un archivo de excel usando la misma clase. ExcelOle( cXlsFile, lActivate, oMeter, cTitle, oFont, lSave, bExtern ) // --- Impresion del contenido de un browsestatic function ImprimeVent(aVent,lExcel)local oFont,nRegif lExcel if confirma('La ...

Nages, on METHOD BuildDialog( oPlan, dCheckIn, dCheckOut ) I made IF lSave if lNew ::oReserva:Append() oRec:= ::oReserva:record(.t.) else ::oReserva:Seek( oPlan:GetRowID() + DToS( dCheckIn ) ) oRec:= ::oReserva:record() endif oRec:DATE = Date() oRec:ROOMS_ID ...

... even in READONLY mode Then at the time of the save of record there is the same control which avoids duplication. ACTIVATE DIALOG oDlt CENTERED IF lsave IF lNew IF (oDCli) -> (DbSeek (cCli)) (ODCli) -> (DbGoBottom ()) CCLI: = StrZero (Val ((oDCli) -> NumCli) +1.4) ENDIF (ODCli) -> (DbAppend ...