FiveTech Software tech support forums

... TITLE "A Faire" DEFINE FONT aFONT NAME "TAHOMA" SIZE 0,-12 // HideKeyboard() @ 0, 0 LISTBOX oBrw ; FIELDS DEPANBMP(BLEU,JAUNE,vert,rouge,blanc), ; SUBS(TRNDATE(PKDEPAN->DATEDEP),1,5), ; TRANSFORM(PKDEPAN->Hdeb,"@Z 99.99") , ; GETCLI(PKDEPAN->CLIREEL) ; HEADERS " ","Date","Heure","Client" ...

Amiguinho See this REGIDA := nSerialHD() REGIDB := nSerialHD() REGIDC := "" REGIDC := REGIDC+SUBS(REGIDA,1,1)+SUBS(REGIDB,8,1) REGIDC := REGIDC+SUBS(REGIDA,2,1)+SUBS(REGIDB,7,1) REGIDC := REGIDC+"-" REGIDC := REGIDC+SUBS(REGIDA,3,1)+SUBS(REGIDB,6,1) REGIDC := REGIDC+SUBS(REGIDA,4,1)+SUBS(REGIDB,5,1) ...

... de connexion en cours, essayez plus tard !") RETURN NIL ENDIF J := 0 FOR I = 1 TO LEN(AFILES) IFILE := AFILES[I] DFIC := ALLTRIM(IFILE[1]) IF SUBS(DFIC,1,1) = "." .OR. ASC(SUBS(DFIC,1,1)) = 0 ELSE DFICL := CurDir() + "\ENTRANT\" + alltrim(dfic) // LOCAL FILE DFICR := ALLTRIM(DDIR ) + alltrim(dfic) ...

... Seek Cod_pro1+Cod_edi1 Define Dialog oDlg ResName "BrowseSoloMuestra" Title "Departamentos" REDEFINE LISTBOX oBrw ; FIELDS oDbdep->Cod_dep , subs(Oridep->Det_ori,1,15) ,str(oDbdep->cos_dep),str(oDbdep->Can_dor),str(oDbdep->Can_ban); HEADERS "Código", "Orientación" , "Costo Dpto.", ...

... Seek Cod_pro1+Cod_edi1 Define Dialog oDlg ResName "BrowseSoloMuestra" Title "Departamentos" REDEFINE LISTBOX oBrw ; FIELDS oDbdep->Cod_dep , subs(Oridep->Det_ori,1,15) ,str(oDbdep->cos_dep),str(oDbdep->Can_dor),str(oDbdep->Can_ban); HEADERS "Código", "Orientación" , "Costo Dpto.", ...

... 1 Index On codigo Tag icodigo TO ( CurDir() + "\dat\agenda.cdx" ) FOR borrado <> 1 * Indexa fichero de planning SELECT tareas Index On subs(dtoc(tfecha),1,5) + alltrim(thora) Tag inombrec TO ( CurDir() + "\dat\tareas.cdx" ) FOR borrado <> 1 * Indexa fichero de recuento de stocks ...

... ARQ, BUFFERS, RET, PALAVRA, P, T, ARQUIVO1 SET CENTURY OFF REGISTRO := "HDHDHDHDRBRBRBRB99999999YYYYYYYYYYYY" HDSERIAL := SUBSTR(HDSERIAL(),1,8) // Serial do HD MAXDAYS := "30" // Tempo maximo de DIAS de uso ROMBIOS := "RBRBRB" ...

... no Existe") Return endif //-17 DEFINE FONT oFont NAME "Courier New" SIZE 0,-15 REPORT oReport Title " "," "," ",spac(32)+" Santiago "+spac(8)+subs(a->fec_inf,1,2)+spac(11)+aMeses[val(subs(a->fec_inf,4,2))]+space(7)+subs(a->fec_inf,7,4)," ",; "Sr(a)DR(a) : "+OemToAnsi(trim(a->med_sol))," ...

... no Existe") Return endif //-17 DEFINE FONT oFont NAME "Courier New" SIZE 0,-15 REPORT oReport Title " "," "," ",spac(32)+" Santiago "+spac(8)+subs(a->fec_inf,1,2)+spac(11)+aMeses[val(subs(a->fec_inf,4,2))]+space(7)+subs(a->fec_inf,7,4)," ",; "Sr(a)DR(a) : "+OemToAnsi(trim(a->med_sol))," ...

... SDF Con esto, ya tengo todos los registros en Provisional.- Luego desde este base, con un WHILE/ENDD los voy añadiendo a la base que quiero, con SUBS y AT

... static function UpdCaption( oDlg, cHostName, cSubject, aAtt, cMsg ) local n, lMsgInfo, cHost, cSender, cTo, cCC lMsgInfo := .F. cHost := subs(cHostName,at('(',cHostName)+1,(at(')',cHostName)-at('(',cHostName))-1) cSender := rtrim(subs(cHostName,1,at('(',cHostName)-1)) for n := 1 to len(aRecNo) ...

... IF FILE(rclipper()+"fmtos\"+FMTOS+".fmt") cmd:=memoread(rclipper()+"fmtos\"+FMTOS+".fmt") IF (n:=AT(CHR(13),cmd))>0 ;cmd:=SUBS(cmd,1,n-1);ENDIF IF (n:=AT(CHR(10),cmd))>0 ;cmd:=SUBS(cmd,1,n-1);ENDIF cmd:=alltrim(cmd);acos:=llenarray(cmd,0,"|") aGets:=Array(len(acos)/9) ...

... in writing." + cFile) ENDIF oClient:Close() endif IF FILE(CFILE) hFile := FOPEN(CFILE) WHILE HB_FReadLine( hFile, @sLine, aEol ) == 0 ctr++ IF subs(ALLTRIM(sLine),1,8) == "<SPAN ID" // ip is next line ctr := 1 lok := .t. ENDIF IF CTR = 2 .AND. lok myip := sline ENDIF // ? sLine END fclose(hFile) ...

... aFiles, cDir, cPath,SOUSREP ) LOCAL aSubDir,cItem,LEXT FOR EACH cItem IN cDir IF cItem[5] <> "D" LEXT := ALLTRIM(CITEM[1]) LEXT := SUBS(LEXT,LEN(LEXT) -2 ,3) IF UPPER(CITEM[1]) # "DATA.ZIP" .AND. UPPER(CITEM[1]) # "PRO99.EXE" ; .AND. UPPER(CITEM[1]) # "CBATIWIN.EXE" .AND. UPPER(CITEM[1]) ...

... para Xon/Xoff a funcao SetCommState() retorna falso. // A solucao esta em zerar os valores de threshold para XonLim e XoffLim // _dcb:= subs( _dcb,1,14) + L2Bin( 0 ) + subs( _dcb,19 ) // XonLim,XoffLim set to 0 // retu ( _dcb ) // Obs 2 // Consulte estrutura DCB p/ alterar outros valores ...