FiveTech Software tech support forums

... {|| oCheques:GoTop() },; {|| oCheques:Skip(1) },; {|| oCheques:Skip(-1) },; {|| oCheques:EoF() },; {|nField| oCheques:FieldGet( nField ) }) MySqlFields( oCheques ) devuelve un array con los nombres de todas las columnas del recordset, ¿Cuál sería el ...

... que inventar algo para que se hiciera un traspaso en bloque... algo parecido a usar __dbTrans Mientras, usar Local nFCount:= ::FCount() en FOR nField:= 1 TO nFCount, y similares variables, puede ayudar un poco... muy poco... La clave es el bucle FOR y el copiado campo a campo... Saludos

... cSeek := Space( 100 )       local oCbx       local aColumns :={"ID","FIRST","LAST"}       LOCAL nField:=  2       SetGetColorFocus()       FERASE( "CUSTOMER.CDX" )       USE CUSTOMER NEW EXCLUSIVE VIA "DBFCDX"  ...

... combobox I tried to save on oBrw:cFilterFld the value of column selected @ 20, 280 COMBOBOX oCbx var oBrw:cFilterFld ; ITEMS aHdrs ; ON CHANGE ( nField:=::nat,; oBrw:cFilterFld := aColumns[nField],; msginfo( oBrw:cFilterFld ),; oBrw:Seek( "" ), oBrw:SetFocus() ) ; SIZE 150,400 PIXEL ...

Silvio, please undo Hello Silvio, can you please try these changes: nField :=1 //header AAdd( aHdrs, "" ) AAdd( aColumns, "" ) for n= 1 to Len(aBrowse) AAdd( aHdrs, aBrowse[n][2] ) AAdd( aColumns, aBrowse[n][1] ) next And change back AEval( ...

Hello Silvio, can you please try these changes: nField :=1 //header AAdd( aHdrs, "" ) AAdd( aColumns, "" ) for n= 1 to Len(aBrowse) AAdd( aHdrs, aBrowse[n][2] ) AAdd( aColumns, aBrowse[n][1] ) next And change back AEval( oBrw:aCols, ...

Hello Silvio, can you please try these changes: nField :=1 //header AAdd( aHdrs, "" ) AAdd( aColumns, "" ) for n= 1 to Len(aBrowse) AAdd( aHdrs, aBrowse[n][2] ) AAdd( aColumns, aBrowse[n][1] ) next And change back AEval( oBrw:aCols, ...

... the columns the procedure is not looking for the data in the field that you have selected but in the field number that is related to the combobox nfield in reality the procedure should search in the selected field, if I select "state" he must look for the data in the "state" ...

here not save on xbrowse I add a parameter function XBrDtPicker( dParam, cTitle, nSize, nField ) then ACTIVATE DIALOG oDlg CENTERED RELEASE FONT oFont, oFontD if lOK If nField = 1 replace res->check_in with dDate else replace res->check_out with dDate endif endif ...

... AFields([<aFieldsnames>],[<aTypes>],[<aWidths>],[<aDecimals>])->nFields AFill(<aTarget>,<expValue>,[<nStart>],[<nCounts>])->aTarget AfterAtNum(<cSearch>,<cString>,[<nCount>],[<nSkipChars>])->cResult ...

... name or virtual field name. Returns value of the field. 2. Parameter can also be an expression. Returns value of the expression. 35. FieldName( nField ) FieldName (alternative name is used) 36. FieldPos( cField ) cField can also be alternate name assigned by ::MapCol() or virtual field name ...

Angel, En la línea 1882 de ADORDD.prg tenemos: IF !aWAData[ WA_EOF ] .AND. !( oRecordSet:Fields( nField - 1 ):Value == xvalue ) Lo que quiere decir es que ese campo en el recordSet es de tipo fecha y el valor que quieres asignarle es de tipo caracter Error description: ...

Angel, En la línea 1882 de ADORDD.prg tenemos: IF !aWAData[ WA_EOF ] .AND. !( oRecordSet:Fields( nField - 1 ):Value == xvalue ) Lo que quiere decir es que ese campo en el recordSet es de tipo fecha y el valor que quieres asignarle es de tipo caracter Error description: ...

Lucas, DO_PUTVALUE( 1503 ) -> oRecordSet:Update() oRecordSet:Fields( nField - 1 ):Value := xValue oRecordSet:Update() This is my code: REPLACE FACTURAS->NOMBRE WITH CLIENTES->NOMBRE .... and so one The real cause: Field lengh for FACTURAS nombre is ...

... TOLEAUTO:UPDATE( 0 ) Called from: source\adordd.prg => ADO_PUTVALUE( 1503 ) ADO_PUTVALUE( 1503 ) -> oRecordSet:Update() oRecordSet:Fields( nField - 1 ):Value := xValue oRecordSet:Update() This is my code: REPLACE FACTURAS->NOMBRE WITH CLIENTES->NOMBRE .... and so one The real cause: ...