Declaracion de estructuras visual fox

227 views
Skip to first unread message

Itchar23 Itchar

unread,
Sep 27, 2013, 1:49:38 PM9/27/13
to publice...@googlegroups.com
Hola que tal, soy nuevo en visual fox y me he topado con un problema al manejar estructuras de datos en este lenguaje de programación.

Lo que necesito es manejar una estructura de datos que pueda ser compatible con un SDK de un sistema administrativo, hasta el momento dicho SDK entiende las declaraciones hechas desde fox pro, pero tengo un parámetro ( estructura de datos) que no he podido declarar para poder introducir un valor a dicho SDK .  En Visual Basic  la instrucción es la siguiente: 

Ejemplo de la estructura en visual basic: 

Public Type tDocumento
  aFolio As Double
  aNumMoneda As Long
  aTipoCambio As Double
  aImporte As Double
  aDescuentoDoc1 As Double
  aDescuentoDoc2 As Double
  aSistemaOrigen As Long
  aCodConcepto As String * kLongCodigo
  aSerie As String * kLongNumSerie
  aFecha As String * kLongFecha
  aCodigoCteProv As String * kLongCodigo
  aCodigoAgente As String * kLongCodigo
  aReferencia As String * kLongReferencia
  aAfecta As Long
End Type


  Dim estructura_doc As tDocumento

'Llenado de la estructura de datos.

 estructura_doc.aFolio = ( valor) 
  estructura_doc.aNumMoneda =( valor) 
  estructura_doc.aTipoCambio = ( valor) 
  estructura_doc.aImporte =( valor) 
  estructura_doc.aDescuentoDoc1 =( valor) 
  estructura_doc.aDescuentoDoc2 =( valor) 
  estructura_doc.aSistemaOrigen = ( valor) 
  estructura_doc.aAfecta = ( valor) 


 funcionGuardadatos (estructura_doc)

Me gustaría saber como puedo declarar una estructura de datos similar a esta en VISUAL FOX,  

SALUDOS.





Ultraton500

unread,
Sep 27, 2013, 2:05:05 PM9/27/13
to publice...@googlegroups.com
Hola,
Qué vendría a ser una "estructura de datos"? Te refieres la estructura de una tabla de una base de datos?

Saludos,
Javier.

Fernando D. Bozzo

unread,
Sep 27, 2013, 4:16:17 PM9/27/13
to publice...@googlegroups.com
Hola Itchar23:

En FoxPro no existen esas estructuras de VB. Lo más parecido funcionalmente son las clases, pero no son compatibles con esas estructuras.
Aunque estas estructuras que comentás no tiene soporte "nativo" en Fox, sí que se pueden crear y usar. Estuve buscando un poco sobre el tema a raíz de tu consulta, y encontré los siguientes links que deberías leer. Uno es un chat sobre este tema, muy interesante, que explica un poco todo el problema y como manejar estas estructuras en Fox. Te adelanto que es necesario un PRG llamado clsheap.prg (te lo adjunto). También deberías leer el código del PRG, ya que al principio hay una gran explicación sobre que es y cómo se usa.

Seguramente haya ejemplos entre los comentarios (leí solo una parte) y puede que tengas que buscar más ejemplos en la web, pero buscando clsheap.prg supongo que no costará mucho encontrarlos.


Saludos!
clsheap.prg

Fernando D. Bozzo

unread,
Sep 27, 2013, 4:28:32 PM9/27/13
to publice...@googlegroups.com
...y por supuesto olvidé poner los links:

La charla (chat) sobre el tema (Pointers on Pointers - partes 1 y 2):
http://fox.wikis.com/wc.dll?Wiki~PointersOnPointers
http://fox.wikis.com/wc.dll?Wiki~PointersOnPointersII
NOTA: El programa clsheap.prg fue creado por EdRauth, por eso el chat es con él.

Win32 API (buscá CLSHEAP dentro):
http://fox.wikis.com/wc.dll?Wiki~Win32API

Una consulta en Foxite sobre esto mismo:
http://www.foxite.com/archives/pointer-in-vfp-0000215927.htm

Y aquí otra con buenas explicaciones:
http://www.progtown.com/topic735787-call-of-functions-win32-api.html

Saludos.-

Fernando D. Bozzo

unread,
Sep 27, 2013, 4:46:14 PM9/27/13
to publice...@googlegroups.com
También te adjunto otra librería para manejo de estructuras que acabo de encontrar en mi PC, que dentro tiene un documento de ayuda en Word.

Tanto esta como la otra librería que te adjunté las hizo EdRauth y creo que las publicó en UniversalThread (www.universalthread.com)

Saludos.-
struct.zip

Ricardo Itchar

unread,
Sep 28, 2013, 1:26:05 PM9/28/13
to publice...@googlegroups.com
gracias me ha sido de mucha utilidad la informacion
Reply all
Reply to author
Forward
0 new messages