FiveTech Software tech support forums

... esa forma y me funciona ok cFileLst:=cRuta+"TBLSTPRE.DBF" AADD(aStrLst,{"PRECIO","N",12,IMPDPV}) FOR C=1 TO nCanLis cCampo:="PRECIO"+STRZERO(C,2) AADD(aStrLst,{cCampo,"N",12,2}) NEXT DbCreate(cFileLst,aStrLst)

... cwhere, '%' )   ORDER BY f.numerofactura DESC   ENDTEXT  Si este procedimiento lo llamo desde mi app de esta manera:    ::oQry:setfilter( cCampo )   ::oqry:gotop()   ::oBrw:refresh()  lo que estaria enviando en "ccampo" es (comprobado con "fwdbg ccampo" ...

... Local oDlg, oBrw, oFont2, oCol, oSay, oBtn2[ 9 ] LOCAL oGet,nIndex,aIdx:={} LOCAL cBusca:= Space(60) Local cSeek:="" Local oCampo, cCampo :=space(50) cTab_Art:=xServer:Query("SELECT a.*, b.*, c.* FROM tab_art AS a LEFT JOIN tab_fam AS b ON a.fam_art = b.cod_fam LEFT JOIN tab_mar ...

... Local oDlg, oBrw, oFont2, oCol, oSay, oBtn2[ 9 ] LOCAL oGet,nIndex,aIdx:={} LOCAL cBusca:= Space(60) Local cSeek:="" Local oCampo, cCampo :=space(50) cTab_Art:=xServer:Query("SELECT a.*, b.*, c.* FROM tab_art AS a LEFT JOIN tab_fam AS b ON a.fam_art = b.cod_fam LEFT JOIN tab_mar ...

... oCol, oSay, oBtn2[ 9 ], oBoton1, oBoton2, oBoton3 LOCAL oGet,nIndex,aIdx:={} LOCAL cBusca:= Space(60) Local cSeek:="" Local oCampo, cCampo :=space(50), Mensaje Mensaje:="Stock Inventario General" cTab_Art:=XServer:Query("SELECT cod_art, nom_art, in1_art, in2_art, in3_art, ...

... saca los caracteres no habituales o podrias crear una funcion que analice y reemplace esos caracteres, usando la funcion: If "�±" $ cCampo cCampo := StrTran( cCampo , "�±" , "N" ) EndIf Saludos, Carito

... Local oDlg, oBrw, oFont2, oCol, oSay, oBtn2[ 9 ] LOCAL oGet,nIndex,aIdx:={} LOCAL cBusca := Space(60) Local cSeek:="" Local oCampo, cCampo :=space(50) LOCAL acIndices := { "por Codigo", "por Descripcion" } LOCAL cIndice := "por Descripcion" nIndex:={"cod_insumo","nom_insumo"} ...

Estimados, favor de orientar, estoy con Mysql y tdolphin, y quiero hacer que me buque y me filtre un valor en el campo cCampo, en la query cTab_Fam, ordenado por campo nom_fam, en el browse oBrw // tab_fam es la tabla llamada de forma directa. // nom_fam es el campo que ordena. FUNCTION ...

... DBCOMBO y sus metodos gotfocus() y lostfocus(). En ningún caso se realiza la acción esperada. Ejemplo propuesto: REDEFINE DBCOMBO oComb[5] VAR cCampo ; ITEMS aItems ; LIST alist ; ID 4053 OF oFil UPDATE WHEN lContenida oComb[5]:blostfocus := { || AgregaContenido() } ----------- Function AgregaContenido() ...

... unicode implementation also was handled properly. Latest Version: Field sizes are recast to match the corresponding DBF sizes. 4) Sort oRcs:Sort:= cCampo + " ASC" oRcs:Sort:= cCampo + " DESC" oRcs:SetOrder( c, u, lDescend ) no sirvió Working with us in the release version and ...

... indice principal 3) DefinedSize logitud campo Precision longitud campo numerico NumericScale cantidad de decimales Uso oRcs:FieldLen(oRcs:FieldPos(cCampo)) oRcs:FieldDec(oRcs:FieldPos(cCampo)) La pregunta pueden hacer algo equivalente a ADO oRcs:Fields(cCampo):Precision oRcs:Fields(cCampo):NumericScale ...

... | ColoresTexto( nRow, nCol, nStyleLine, oDlg2 ) } STATIC Function ColoresTexto( pnRow, pnCol, pnStyle, oFolder ) Local cColor, nPaso, i:=0, cCampo:="" DO CASE CASE pnStyle = 0 .AND. pnCol = 6 .AND. (S13)->MV_CARG < 0 cColor := CLR_HRED CASE pnStyle = 0 .AND. pnCol = 7 .AND. ...

cCampo:="CAMPO1"
oServer:Query("INSERT INTO mitable (" + cCampo + ") VALUES ( 100 ) ;")

... use Mysql podría mostrar un pequeño ejemplo de como utilizar nombres de campos en variables? Ya he peleado por 3 dias y no doy. Sería algo así: cCampo:="CAMPO1" oServer:Query("INSERT INTO mitable ('"+cCampo+"') VALUES ('"+cCampo+"' + '100.00' ;") :| //Sintaxis ...

... ) ,; ( aVarP[8] := bQry[2]:cli_nombre, aGetP[8]:REFRESH(), .T. ) ) ) ) ) ; WHEN ( !EMPTY( aVarP[1] ) ) codigo FUNCTION llamabrow( aVar, cTabla, cCampo, aCampos, aTitulos ) // aVar -> contenedora del valor entrado (puede llegar vacio solo para seleccionar) // cTabla -> nombre de la tabla ...