FiveTech Software tech support forums

Now I'm trying to make cString_TH:= GetIni( cInifile, cSection,"TH", "" ) IF ! empty(cString_TH) cToken := StrToken(cString_TH,1,";") acSizes[1] := StrToken(cToken,1,"|") acEstilo[1] := StrToken(cToken,2,"|") acSpaces[1] := StrToken(cToken,3,"|") ...

... function FormataTextoComPrimeiraLetraMaiusculo( cText ) /* */ Local nToken := 1 Local cToken := StrToken(cText, nToken, " ") Local cResult := "" DO WHILE !empty(cToken) cResult += Upper(left(cToken,1))+Lower(Substr(cToken,2))+" ...

... ( 'MandaPaqueteFiscal' , 'WINFIS32.DLL' , nHandler , CHR(163) ) CallDll32 ( 'UltimaRespuesta' , 'WINFIS32.DLL' , nHandler , @cRta ) cRta:= StrToken(cRta,3, SE ) ? cRta // esta OK ahora s:= 'http://'+ cRta ShellExecute( 0,'OPEN', s ,'','', 1 ) // FUCIONA OK Muchas gracias por tu tiempo y ...

... "+odb1:descrip+if(lsize," "+odb1:SIZE,"")+" "+odb1:unit+" "+STR(ROUND(odb1:qty*if(lcat,val(strtoken(oitem:cprompt,5+if(lsize,1,0)," ")),1),nqtydec+1))+" "+odb1:mem+" "+odb1:position) odb1:SKIP() enddo oitem:expand() ...

... -LIBPATH:"R:\lib" -LIBPATH:"R:\c_lib" -LIBPATH:"R:\c_lib\win" "wKP.obj" "errorsys.obj" "strtoken.obj" "main.obj" "kpir.obj" "ksiega.obj" "kontrah.obj" "a.obj" "wlasc.obj" ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

... IF::nRetry > NRETRY ::lGps := .f. ::cMsgErr := "PERDIDA CONEXION" ENDIF ELSE ::nRetry := 0 FOR c := 1 TO LEN( ::aNMEA ) ::aNMEA[c] := StrToken( cBuffer, c, "$" ) NEXT FOR c := LEN( ::aNMEA ) TO 1 STEP -1 // leemos ultimas sentencias DO CASE CASE AT( "GPGGA", ::aNMEA[c] ...

... IF::nRetry > NRETRY ::lGps := .f. ::cMsgErr := "PERDIDA CONEXION" ENDIF ELSE ::nRetry := 0 FOR c := 1 TO LEN( ::aNMEA ) ::aNMEA[c] := StrToken( cBuffer, c, "$" ) NEXT FOR c := LEN( ::aNMEA ) TO 1 STEP -1 // leemos ultimas sentencias DO CASE CASE AT( "GPGGA", ::aNMEA[c] ...

... ".\SumatraPdf.exe" local cPrinter := PrnGetName() local cFile,cCmd cFile := cFilePdf cCmd := cSumatra + ' -Print-to "' + ; alltrim( StrToken( cPrinter, 1, "," ) ) + ; '" -exit-on-print ' + cFile MsgRun( "Imprimiendo archivo "+cFile, "Espere..", ...

... Lo leo de la siguiente forma: ? SubStr(strtoken(cResp,4,":"),1,At(",",strtoken(cResp,4,":"))-1)  30520528931? SubStr(strtoken(cResp,5,":"),1,At(",",strtoken(cResp,5,":"))-1) "JURIDICA"? ...

... oTxtFile := TTxtFile():New( cFileCSV, 0 ) oTxtFile:Skip() //skip the first line of the header while !oTxtFile:lEoF() ?StrToken( oTxtFile:cLine, 1, ";" ) ?StrToken( oTxtFile:cLine, 2, ";" ) ?StrToken( oTxtFile:cLine, <n>, ";" ) oTxtFile:Skip() ...

... oTxtFile := TTxtFile():New( cFileCSV, 0 ) oTxtFile:Skip() //skip the first line of the header while !oTxtFile:lEoF() ?StrToken( oTxtFile:cLine, 1, ";" ) ?StrToken( oTxtFile:cLine, 2, ";" ) ?StrToken( oTxtFile:cLine, <n>, ";" ) oTxtFile:Skip() ...

... CATCH MsgInfo("Error al crear el objeto HTTP") retu .t. END x:=1 WHILE .T. cNew:=substr( cDatos,1,at('<END>',cDatos)+4 ) cProd := strtoken(cNew,1,cToken) cProd2 := strtoken(cNew,2,cToken) cProd3 := strtoken(cNew,3,cToken) Aadd(aProd,cProd) Aadd(aProd,cProd2) Aadd(aProd,cProd3) ...

Perfect! FiveDBU and Fiveform are linking No more messages: undefined reference to symbol 'pcre_free'. Just these examples are not compiling: Dozip.prg 'Undefined Reference to Symbol InflateInit2_" Install.prg 'Undefined Reference to Symbol HB_FUN_STRTOKEN" TestClip.prg 'Undefined Referenc...

Thanks Antonio. DBF01.PRG is working :) Only a few samples are no linking: FiveDBU.prg, FiveForm and VMH reporting 'Undefined Reference to Symbol PCRE_FREE" Dozip.prg 'Undefined Reference to Symbol InflateInit2_" Install.prg 'Undefined Reference to Symbol HB_FUN_STRTOKEN" TestClip.prg...