FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Clase para leer DBF desde Dialogo
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Clase para leer DBF desde Dialogo
Posted: Fri May 03, 2019 07:13 AM
Para la próxima versión de FWH se simplifica asi :-)

Code (fw): Select all Collapse
#include "FiveWin.ch"

function Main()

   USE clients
   XBrowse( ,,, { | oBrw | BrwSetup( oBrw ) } )
   USE

return nil

function BrwSetup( oBrw )

   @ 05, 154 BTNBMP Prompt "*" SIZE 15, 16 PIXEL OF oBrw:oWnd FLAT  ;
      TOOLTIP FWString( "Insert" ) ACTION ( FW_DbInsert(), oBrw:SetFocus() ) ;
      COLOR CLR_BLACK, CLR_WHITE

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Clase para leer DBF desde Dialogo
Posted: Sat May 04, 2019 03:57 AM

Oki

avisare si les salen patas y cuernos :twisted: al DBF :mrgreen:

Gracias :D
Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Clase para leer DBF desde Dialogo
Posted: Sat May 04, 2019 04:35 AM
:-)

aRec no estaba delarada la deje a si

Local aRec

pero sale el error de Len :-)

Code (fw): Select all Collapse
function InsertRecord()

   local nRecNo := RecNo()
   local aData  := FW_DbfToArray()

   hb_AIns( aData, nRecNo, aRec, .T. )
   aData[ nRecNo ] = Array( Len( aData[ nRecNo ] ) )
   DbGoTop()
   FW_ArrayToDbf( aData,,, .T. )
   DbGoTo( nRecNo )

return nil


Code (fw): Select all Collapse
Time from start: 0 hours 0 mins 4 secs 
   Error occurred at: 03-05-2019, 23:35:08
   Error description: Error BASE/1111  Error de argumento: LEN
   Args:
     [   1] = U   

Stack Calls
===========
   Called from:  => LEN( 0 )
   Called from: model.prg => INSERTRECORD( 4719 )
   Called from: model.prg => (b)BRWSETUP( 4705 )


vere si le entiendo al error :-)


Saluditos :-)
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Clase para leer DBF desde Dialogo
Posted: Sat May 04, 2019 06:32 AM

soy muy burra no le encuentro el error de len
no se si aData llega sin valor alguno :?:

Saluditos :wink:

:cry:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Clase para leer DBF desde Dialogo
Posted: Sat May 04, 2019 06:44 AM
Aida,

Te pido disculpas, borré algunas líneas por error:

Este es el código correcto:
Code (fw): Select all Collapse
function InsertRecord()

   local nRecNo := RecNo()
   local aData  := FW_DbfToArray()
   local aRec   := Array( Len( aData[ nRecNo ] ) )

   hb_AIns( aData, nRecNo, aRec, .T. )
   DbGoTop()
   FW_ArrayToDbf( aData,,, .T. )
   DbGoTo( nRecNo )

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Clase para leer DBF desde Dialogo
Posted: Sat May 04, 2019 07:31 AM
Muchas gracias ya funciono :-)



Muchas gracias eres mi superman :-)



seguiré probando :-)



Saluditos :-)
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Clase para leer DBF desde Dialogo
Posted: Sun May 05, 2019 09:44 AM
Que crees ya funciona insertando pero ya no me deja editar nada :-)

Code (fw): Select all Collapse
LOCAL lAutoSort:=.F.
LOCAL bSetUp:=.F.
LOCAL aCols:=.F.
LOCAL bSelect:=.T.
LOCAL lExcel:=.T.
LOCAL lFastEdit:= .t.
LOCAL lautofit:=.F.

USE DATA\VModelAir.dat ALIAS VModelAir SHARED NEW
VModelAir->(DBGOTOP())


XBrowse( ,"EDITANDO COLORES VModelAir",lFastEdit , { | oBrw | BrwSetup( oBrw ) } )

VModelAir->(DBGOTOP())

CLOSE VModelAir

RETURN NIL


Que debo hacer :-)

Saluditos :-)
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Clase para leer DBF desde Dialogo
Posted: Sun May 05, 2019 09:54 AM
ya lo resolví de esta manera :-)

Code (fw): Select all Collapse
XBrowse( ,"EDITANDO COLORES VModelAir", , { | oBrw | BrwSetup( oBrw ) },,  bSelect, lExcel,lFastEdit  )





AIDA wrote:Que crees ya funciona insertando pero ya no me deja editar nada :-)

Code (fw): Select all Collapse
LOCAL lAutoSort:=.F.
LOCAL bSetUp:=.F.
LOCAL aCols:=.F.
LOCAL bSelect:=.T.
LOCAL lExcel:=.T.
LOCAL lFastEdit:= .t.
LOCAL lautofit:=.F.

USE DATA\VModelAir.dat ALIAS VModelAir SHARED NEW
VModelAir->(DBGOTOP())


XBrowse( ,"EDITANDO COLORES VModelAir",lFastEdit , { | oBrw | BrwSetup( oBrw ) } )

VModelAir->(DBGOTOP())

CLOSE VModelAir

RETURN NIL


Que debo hacer :-)

Saluditos :-)
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Clase para leer DBF desde Dialogo
Posted: Thu Jul 25, 2019 06:21 PM
Antonio Linares wrote:La próxima versión de FWH incluirá la función XEdit() que aquí se incluye:

Code (fw): Select all Collapse
#include "FiveWin.ch"

function Main()

   USE clients
   XEdit()
   USE

return nil

function XEdit()

return FW_Record():New():Edit()




Buenas tardes maestro,

Esta funcion xedit es modificable ? es decir, como xbrowse se puede parametrizar o cambiar la posicion y el tipo de objeto (say y get ) que quiero presentar en el dialogo?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Clase para leer DBF desde Dialogo
Posted: Thu Jul 25, 2019 06:50 PM

Saludos, esta CLASE funciona tambien para QUERYS o ARRAY.? gracias, saludos... :shock:

Dios no está muerto...



Gracias a mi Dios ante todo!

Continue the discussion

Static archive · New replies & topics via GitHub Discussions