FiveTech Software tech support forums

... == IDOK, dSelect, dDate ) //-----------------------------------------------------------------------// static function MoveCalendar( oDlg, nMode, nVar) local dSelect := oDlg:Cargo local n local nFirstButton := 0 local nLastButton := 0 local nDate := 0 local nSkip := 0 local nPDate := 0 ...

... does now work :-( #endif AAdd( aTasks, cTask ) hWnd = GetWindow( hWnd, GHW_HWNDNEXT ) end Return aTasks // DLL32 FUNCTION RSProcess(npID AS LONG, nMode AS LONG ) AS LONG FROM "RegisterServiceProcess" LIB "Kernel32.dll" DLL32 FUNCTION GCP() AS LONG FROM "GetCurrentProcessId" ...

Why don't you try using STRTRAN(). It is the solution here. Yes, do you test with STRTRAN ? run all ok ? sure ? IF nMode==2 //modify ntest1 := STRTRAN(str(oBrowse:aArraydata[nRecord][2]), ".", ",") ntest2 := STRTRAN(str(oBrowse:aArraydata[nRecord][3]), ".", ...

Estimado Jorge, Si estas usando estás funciones: DLL32 FUNCTION OpenComFiscal( nCom AS _INT, nMode AS _INT ) AS _INT PASCAL FROM "OpenComFiscal" LIB "winfis32.dll" DLL32 FUNCTION MandaPaqueteFiscal( nHandler AS _INT, cBuffer AS LPSTR ) AS _INT PASCAL ...

... field sizes of FIRST and LAST. Sorry Nages I have a bit of everything. your idea can only work that I have to manage the various insertion modes nMode = 1 new nMode = 2 change nMode = 3 duplicate records nMode = 4 I need this in the selection dialog I made @ 12, 10 SAY "Cognome:" OF ...

... ShellExcute("open", "do.bat"....) Me genera todo menos la impresion del vale. He probado TODAS las combinaciones de nMode y nada de nada. Alguna idea o tip por donde ir... hasta probe oShell := CreateObject( "WScript.Shell" ) oShell:Run( "%comspec% ...

... ::oWnd but I cannot show the caption and menu pulldown ( no good) on DIALOG it is different because I need to have DEFINE DIALOG oDlg TITLE aTitle[nMode] SIZE 1120,650 ; PIXEL TRUEPIXEL RESIZABLE FONT oFont but I not want the "X" because the user could press it and then the procedure ...

... if the progressive number I deduce from the last of the same table +1 without using sysdbf.file and autoincremental class sample: at init IF nMode == 1 .or. nMode == 3 // add new or duplicate oCust: gobottom () CCLI: = StrZero (Val (oCust: NumCli) +1.4) else cCli: = oRec: numcli // modify ...

... if the progressive number I deduce from the last of the same table +1 without using sysdbf.file and autoincremental class sample: at init IF nMode == 1 .or. nMode == 3 // add new or duplicate oCust: gobottom () CCLI: = StrZero (Val (oCust: NumCli) +1.4) else cCli: = oRec: numcli // modify ...

... this way and besides I have many dbf that have this type of code "0001" Please see editrecord function on my test on add New i made IF nMode == 1 cCodeCliente:=CreaCodiceClienti(oClienti) Endif cCli:=If(nMode==1,cCodeCliente,oRec:Numcli) on dialog I made @ 12, 5 SAY "Codice:" ...

cCli is the account number of customer IF nMode == 1 oClienti:gobottom() cCodeCliente:=StrZero(val(oClienti:numcli)+1,4) Endif In one of my programs I need customer-numbers as well. There is a index on customer-number with the text-format "00000". ...

... } then I associated on buttons oBrwClienti:EditSource( .t. ) for add or oBrwClienti:EditSource( .f. ) for modify function EditRecord( oRec ) Local nMode:= If( oRec:RecNo == 0, 1, 2) IF nMode == 1 oClienti:gobottom() cCodeCliente :=StrZero(val(oClienti:numcli)+1,4) Endif on Dialog @ 12, 5 SAY "Codice:" ...

... and I show the archive with a xbrowse as you can see I insert a tab to select the index on edit I have 3 option Mode nMode = 1 -> add New nMome = 2 -> modify record nMode = 3 --> duplicate record at the beginning of the edit function I call tdatarow with oRec ...

... ) procedure ClosePort( nHandler ) // Debe llamar a CloseComFiscal() CloseComFiscal( nHandler ) return DLL32 FUNCTION OpenComFiscal( nCom AS _INT, nMode AS _INT ) AS _INT PASCAL FROM "OpenComFiscal" LIB "winfis32.dll" DLL32 FUNCTION MandaPaqueteFiscal( nHandler AS _INT, cBuffer ...

... compilado con FW916 devuelve otros valores en las funciones. // Listado de funciones de WinFis32.dll DLL32 FUNCTION OpenComFiscal( nCom AS _INT, nMode AS _INT ) AS _INT PASCAL LIB "winfis32.dll" DLL32 FUNCTION MandaPaqueteFiscal( nHandler AS _INT, cBuffer AS LPSTR ) AS _INT PASCAL LIB ...