Antes que nada, agradecer a Fernando Leal, su colaboración de ayer con
respecto a TArrayBrowse.
Ahora el problema es muy parecido, ya que me ocurre con el TDbfBrowse.
El problema ocurre al añadir una nueva linea.
Tengo un TDbfBrowse con 5 columnas. La primera de ellas es el código de un
artículo. Pretendo que cuando termine de introducir ese código, me compruebe
en otro fichero si existe ese artículo.
Tengo la propiedad lAutoSave=.t., pero parece que hasta que no se acaba de
introducir los datos de toda la línea no se graba en el fichero todos los
datos.
No tengo problemas si realizo este proceso en una línea anterior ya que los
datos están grabados en el fichero.
¿Como averiguo el valor de la casilla que acabo de introdir sin tener que
leer el resultado en el fichero, ya que en este aun no se ha grabado?
Mil gracias anticipadas
Francisco Martínez
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Ahora problemas con TDbfBrowse
-
jrcsistemas
- Mensajes: 180
- Registrado: Lun Sep 15, 2008 2:53 pm
Ahora problemas con TDbfBrowse
Francisco yo hago lo mismo y lo resolvi asi:
en PosEdit
METHOD DbfBrowseFacturaColumn2PostEdit( oSender, Value, lCanceled, nKey )
CLASS TFormFacturaClientes
// columna codigo
If !lCanceled .And. !Empty(Value)
If BuscarArticulos( Value ) // Verifico la existencia del articulo
Value := CargaRenglon() // cargo los demas datos como detalle del
articulo, precios, etc. Devuelve el codigo leido de la tabla articulos.
WITH OBJECT ::oFactura
:Update()
:Refresh()
:GoRight()
END
::Calcular() // calculo el pie de la factura con impuestos.
Else
MsgBox("El código no existe !!")
EndIf
ElseIf !lCanceled .And. Empty(Value)
TFormBuscaArticulos():New(::oForm):ShowModal() // abro un formulario
para ingresarlo como articulo nuevo
CargaRenglon()
EndIf
El codigo se puede depurar, espero que te sirva.
Feliz 2009 !!
Juan
en PosEdit
METHOD DbfBrowseFacturaColumn2PostEdit( oSender, Value, lCanceled, nKey )
CLASS TFormFacturaClientes
// columna codigo
If !lCanceled .And. !Empty(Value)
If BuscarArticulos( Value ) // Verifico la existencia del articulo
Value := CargaRenglon() // cargo los demas datos como detalle del
articulo, precios, etc. Devuelve el codigo leido de la tabla articulos.
WITH OBJECT ::oFactura
:Update()
:Refresh()
:GoRight()
END
::Calcular() // calculo el pie de la factura con impuestos.
Else
MsgBox("El código no existe !!")
EndIf
ElseIf !lCanceled .And. Empty(Value)
TFormBuscaArticulos():New(::oForm):ShowModal() // abro un formulario
para ingresarlo como articulo nuevo
CargaRenglon()
EndIf
El codigo se puede depurar, espero que te sirva.
Feliz 2009 !!
Juan