FiveTech Software tech support forums

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

... ADSRightsCheck(<lMode>)->lPriorSetting ADSSetAOF(<cFilter>,[<nResolveOption>])->lSuccess ADSStmtSetTableReadOnly(<nMode>)-><lSuccess> AEval(<aArray>,<bBlock>,[<nStart>],[<nCount>])->aArray AFields([<aFieldsnames>],[<aTypes>],[<aWidths>],[<aDecimals>])->nFields ...

Hello, function copy to delimited errors out. I think the parameter nMode == 1 should be logical parameter and TRUE. Best regards, Otto ELSEIF nFormat == 3 // Delimited ? cFileName //__dbDelim( nMode == 1 , cFileName , cDelim , aFld , ; // bFor , bWhile , ...