NeoBookDBPro Sample (OrderEntry)

[rafmonalb]

Estoy desarrollando una aplicación de Bases de Datos, para ello
me estoy ayudando consultando del ejemplo incluido (OrderEntry).
En la página INVOICE (Edit) en el Grid hay asociada una Subrutina
que nos permite eliminar artículos del pedido pulsando dos veces
sobre la linea a eliminar. En numerosas ocasiones cuando se pulsa
sobre una de las lineas para eliminarla desaparecen todas la lineas
del pedido en vez únicamente sobre la que hemos pulsado dos veces.
En la aplicación de Bases de Datos que estoy intentando desarrollar
tengo el mismo problema.

¿Podrían ayudarme?

[virger]

En area de subrutinas existe este codigo (linea 50 del original):

Code: Select all

:OrderDetailDelete
If "[Orders.OrderDetails.$RecCount]" ">" "0"
  dbpDeleteRecord "Orders" "OrderDetails"
  GoSub "UpdateTotals"
EndIf
Return

Le agregue esta linea en #51
alertbox "" "BORRA|[Orders.OrderDetails.$RecNum]"

Dejando el resto igual, y en todas las ocasiones que lo internte NO ME DIO EL ERROR que refieres
Algun cambio que le hayas hecho al la subrutina ?

[rafmonalb]

1º Abro la publicación OrderEntry.pub y pulso en Ejecutar (desde el principio).
2º En el menú procedo a añadir un nuevo pedido pulsando en "Add New Invoice".
3º Procedo a introducir varios Artículos en el Pedido indicando las Unidades (Qty),
el Código (PartNum), y pulsando en Add.

Hasta aquí todo bien,

4º Me doy cuenta uno de los Artículos o no es el que deseaba, o la cantidad está mal, o el precio,...
y procedo a eliminar la linea errónea de Artículos Pedidos pulsando sobre ella dos veces.

Me borra de la pantalla TODAS las lineas de Artículos Pedidos.

Esto me lo hace la mayoría de las veces, sin embargo:
A) Si el Pedido está TERMINADO y accedo a él en la EDICION (Browse Invoices) puedo eliminar las lineas sin problema.
B) Creo que aunque me borra en la Pantalla todas las lineas de Artículos Pedidos, realmente no las
borra todas en la Tabla de Pedidos / Articulos Pedidos, solo borra la que debiera; esto lo compruebo según A)

[virger]

Ahora si tuve el error.Creo es un "BUG" del plugin, asi que lo resolvi agregando esta linea an el boton "Add" (PushButton27), quedando el codigo final:

IfEx "[AQty] > [#34][#34] AND [APartNum] > [#34][#34] AND [APartDesc] > [#34][#34] AND [AUnitPrice] > [#34][#34]"
dbpSaveEdits "Orders" "Invoices"
dbpAddRecord "Orders" "OrderDetails"
SetVar "[Orders.OrderDetails.OrderNum]" "[Orders.Invoices.OrderNum]"
......


Pruebalo y me notificas.

Gracias Por Leerme

[virger]

Para no repetir la linea de codigo por cada "new add", puedes en el boton "PushButton30" (Add New Invoice) en las acciones y antes de:
GotoPage "Edit"
incluir esta linea dbpSaveEdits "Orders" "Invoices" (la misma que se habia dada en Add, y quitas la de Add), el resultado es el mismo <corrige el error>

Feliz Dia y
Hasta La Vista Baby

[rafmonalb]

Muchas gracias por la ayuda, hace tiempo llegué a la
misma conclusión de que era un BUG del PlugIn.

Hice la modificación que me sugeriste y en las pruebas que
he realizado creo se así queda solventado el problema.

Muchas gracias por tú atenta y rápida respuesta.