FiveTech Software tech support forums

... local oBrw, cCol, bInit, oBtn local aItems local oGetClient, cClient, bCliInit local nHt := Int( ScreenHeight() * 0.8 ) local nWd := 1100 local lSave := .f. if lNew oRec:Date := Date() aItems := { AClone( aBlankItem ) } else aItems := IIT->( FW_DbfToArray( cItemFlds, { || IIT->INVNUM == ...

... "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 ...