FiveTech Software tech support forums

... hay problema, pero luego quisiera poner says en distintos lugares del BMP. Esto no me funciona Hago esto: REDEFINE BITMAP oBmpA FILE rtrim( oQuery:FieldGet(1) ) + "\RECIBO"+str((cAlias)->nEstado,1)+".BMP" ID 61 OF oFld:aDialogs[1] UPDATE @ 10,10 say oSay PROMPT "Hola" OF oBmpA Me da un error ...

... El problema es que el no saber de antemano los nombres de las columnas, no puedo leer el campo directamente, sino utilizando (alias())->(Fieldget()) Lo mejor que he conseguido hasta ahora es: FOR i := 1 TO 60 oBrw:aCols[i]:bClrStd := {|| {CLR_WHITE, iif(fieldget(i) ...

... nueva new DO WHILE VIEJA->( ! EOF () ) NUEVA->( DBAPPEND () ) FOR i := 1 TO VIEJA->( FCOUNT () ) NUEVA->( FIELDPUT ( i, VIEJA->( FIELDGET ( i ) ) ) ) NEXT i VIEJA->( DBSKIP () ) ENDDO vieja->(dbclosearea()) nueva->(dbcloseara()) Next *******************FIN DE CODIGO************************* ...

... about 10 classes modify like: if nlang>1 select lang1 seek ::ccaption if found() ::ccaption:=lang1->(fieldget(nlang)) end end Source prgs even not need modify , you can get your app support multi lang . Best Regards! Shuming Wang

... tabla oDbConfig := oOdbc:Query( "SELECT * FROM " + cAliasCfg ) oDbConfig:Open() oDbConfig:Complete() oDbConfig:Gotop() nCodigoCliente := oDbConfig:FieldGet( 13 ) + 1 nOldCliente := oDbConfig:FieldGet( 13 ) //Modificamos en la tabla ce configuracion el campo de codigo cliente con el nuevo valor ...

Tengo instalado el odbc de mysql, la conexion la hace , si pongo un msginfo( Tb:Fieldget(2)) me despliega el contenido del campo, mi pregunta es porque al hace el listbox no me presenta nada de informacion , habre la caja del listbos pero no presenta informacion. ...

... oTb) DEFINE FONT oFontBrw Name "Ms Sans Serif" SIZE 0,-11 DEFINE DIALOG oDlg RESOURCE "DLGMANDB" FONT oFontBrw REDEFINE LISTBOX oLbx ; FIELDS oTb:FieldGet(1) ,;// Campos que contendr  oTb:FieldGet( 2 ) ,; // el TBrowse. oTb:FieldGet( 3 ) , ; otb:FieldGet( 8 ) ; ID 101; FIELDSIZES 50, 310, 250, ...

... "C",10,0},; {"TYPE", "C", 1,0} } DbCreate( CURDIR()+"\STRUCT.DBF",a) select customer a := {} for i := 1 to fCount() aadd(a,{fieldname(i),valtype(fieldget(i))}) next i use ( CURDIR()+"\STRUCT.DBF") alias STRU new exclusive for i := 1 to len(a) append blank STRU->NAME := a[i,1] STRU->TYPE ...

me da el error en esta linea:



if (nSeleant)->(fieldget(fieldpos((nSeletrab)->(fieldname(nCont)))))=Nil



Gracias.
Manolo

... NSYS++ IF NSYS = 100 Sysrefresh() NSYS = 0 ENDIF (nSeletrab)->(dbappend()) for nCont := 1 to (OFTEMP)->(FCount()) if (nSeleant)->(fieldget(fieldpos((nSeletrab)->(fieldname(nCont)))))=Nil nSust := ascan(aSust,{|aVal| AllTrim(aVal[1])==AllTrim((nSeletrab)->(fieldname(nCont)))}) ...

... NSYS++ IF NSYS = 100 Sysrefresh() NSYS = 0 ENDIF (nSeletrab)->(dbappend()) for nCont := 1 to (OFTEMP)->(FCount()) if (nSeleant)->(fieldget(fieldpos((nSeletrab)->(fieldname(nCont)))))=Nil nSust := ascan(aSust,{|aVal| AllTrim(aVal[1])==AllTrim((nSeletrab)->(fieldname(nCont)))}) ...