Just do it function by function :-) PROCEDURE SALVAESEGUIPYTHON( MEMO, NOMFIL, VEDI, ASPETTA ) IF VEDI == NIL VEDI := 1 ELSE VEDI := VEDI ENDIF IF ASPETTA == NIL ASPETTA := "ASPET...
... := {} Do while (!oTemp4:Eof()) * If Empty(oTemp4:Nome) oTemp4:skip() Loop Endif ....................... c1:="Cartella n."+ Trim(oTemp4:codice) c2:=alltrim(oTemp4:nome) procedure to Create atable from oTemp4 ........................ then call CreateRtf(aTable,c1,c2,oFile) c1:="" ...
Buongiorno, ho sovrascritto inavvertitamente il codice di un file prg compilato con harbour e mi sono accorto di avere perso l'ultima modifica fatta con due nuove funzioni abbastanza complesse. L'unica traccia che ho è il file compilato in c dove ...
Antonio, Incredible!!!! I ask (Italian) Mi puoi mostrare il codice di un programma scritto in linguaggio Harbour che crea un array di 3 numeri dal 1 al 90 dove la somma è uguale alla distanza ciclometrica ? (Espanol) ¿Me puede mostrar el código de un programa ...
Come potrei tradurre questo codice in fwh, usando tdatabase ? probabilmente in clipper 87 non si usavano ancora i cdx e quindi facevamo tutto in sequelziale e quindi con il comando locate for, vi ricordate qualcosa ? anno1:= ...
... rates, payments, warehouse reasons, warehouse types, units of measurement, etc. and it use the standard archive the archive was index on Chiave+Codice because on archive I can save different record as tables Sample : Field Chiave -> "ALIVA" for rates Field Chiave -> "PAGAM" ...
... As soon as the user selects a record, all controls are populated immediately cCodice := oTabIva:codice cDescrizione := oTabIva:desc nTipo := oTabIva:num7 nSoggetto := oTabIva:Num6 cOpzione1 ...