FoxPro/Visual FoxPro - descontar stock desde una tabla a otra

Estimados tengo una tabla con cod y stock ,(LA TOMO CON SELECT 44),,, (cargada con datos) necesito que esos datos sean restados al stock de la segunda tabla tambien con cod y sock (SELECT 4)
Tengo una rutina hecha , me descuenta el stock, pero solo del ultimo registro.
(LAS SELECT(TABLAS LIBRES) LAS CARGUÉ EN EL INIT DEL FORMULARIO, FUNCIONAN BIEN)


89
EL TEMA QUE SOLO ME DESCUENTA UN REGISTRO SOLO EN LA SELECT 4 , FALTA PONER ?RECNO ?????
AGUARDO RESPUESTA
GRACIAS
SALUDOS
JOSE

Prueba este FORM, solamente que en el proyecto incorpora ambas tablas.
Comenta luego.

• Jose.rar(2,5 KB)

Gracias estimado, pero continúa sin funcionar, me busca la cant. de registros a descontar,, : encuentra dos , y me descuenta dos unidades de stock (son de 1 unidad los que busca) pero me los descuenta en el último xartim que busqué-

xartm es el alias de articulosm
xartmt es el alias de artimtempo (que es la tabla temporaria)

Es muy raro , me tendría que descontar tambien el primero que encuentra.-

Scan me hace el mismo efecto que con do while.-

Ya lo habia probado
Saludos
Jose

SELECT 4
***set order to codart
set order to 1 && siendo 1 el primer indice invocado al abrir la tabla y ordenado por codart

GO top

select 44 && tabla desde donde se van a capturar los codigos
DO WHILE NOT EOF()

**SELECT 4
select 44 && no lo necesitas, pero lo pongo para mayor visualizacion
cod = codart
select 4
Seek cod && o el campo por el que indexo
***if xartm.codart=xartmt.codartt
if found() && si lo encuentra
repla xartm.stock with (xartm.stock)-(xartmt.stockt) && aca reemplazo los campos
*** los reemplazos tambien puedes hacerlos usando variables
MESSAGEBOX(" STOCK FINALMENTE DESCONTADO EN SELECT 4 ",48,"Mensaje")

ENDIF
SELECT 44

SKIP
LOOP
***EXIT esta demas
ENDDO

Hola Gracias , pero NO funciona.-
Como lo escribí yo si , pero descuenta solo un stock en la última fila.-
Saludos

Hola, usa variables para los replace y te va a funcionar.

Suerte.

El error está en que indexas la misma tabla que usas para el bucle, luego mueves el cursor en la otra tabla SKIP sin sentido ya que cuando vuelva al seek volverá a buscar el mismo código y de ahí que siempre será un mismo registro que toca. Además el LOOP y EXIT en donde están son inútiles.
Yo lo haría así..

Excelente Abel Funcionó muy bien!
Quise poner un 10 , pero me salio 1.-(en la clasificación creo)
Muchas Gracias
Gracias también a Santiago y Mauricio.-
saludos
José


PD: Tengo otra consulta ya que estamos , programé un sistema de presupuestos, recibos y remitos , me falta hacerla factura electrónica para que pida el CAE (para que AFIP envíe la autorización ), pero no lo se hacer.
Alguien tiene algo hecho ?
Gracias

Si, calificaste con uno, pero que eso no te preocupe, me alegro te haya servido. Con respecto a la facturación electrónica, estoy metido en ello aunque aun en los inicios; para resolverlo rápidamente compre una licencia para eso a Bitingenieria.

Gracias Abel , disculpas, no funciona bien el calificador de las repuestas al menos con mi celular , esta próxima lo haré con la computadora ya que no es táctil, ya he leído que está la licencia de bitingenieria, pero queria saber si lo podíamos hacer nosotros.-

Una última consulta necesito asociar remitos con presupuestos,,,,, pero pasa lo siguiente ,, tengo todo en una misma tabla y elijo la opción presupuesto, remito o recibo.-(lo cambio pero de esta manera se transforma a remito o recibo), necesito que queden los dos comprobantes , entonces, hice una prueba, generé , mejor dicho copie la tabla presupuesto y la renombre a remitos.-
(cuando genero un remito , me aparece en presupuestos porque es la misma tabla.-
El tema es que la tabla presupuesto esta relacionada con la tabla del grid que la llamo art1.dbf y le puse un campo en común numérico de combinación con la tabla presupuesto para relacionarla.-
Entonces necesito que cuando tengo el presupuesto generado , utilizar los mismos datos para un remito por ejemplo, pero no puedo hacerlo porque los nros de combinaci{on de art1 son los mismos que el presupuesto.
Pero cuando imprimo el informe de me toma también los mismos datos repetidos del presupuesto,.
(También hice un appen from pero me genera los mismos nros.)

Co se hace en éstos casos?
Gracias
Saludos
José

Lo que haría sería, solamente agregar un campo lógico (por ejemplo a la tabla; el campo lógico de nombre Remito) que identifique si se hizo un remito con el Presupuesto, Factura, etc. y colocas un botón que se encienda o apague según se haya hecho o no. Así te evitas duplicar los datos innecesariamente.

Al imprimir alguno de ellos, si el sistema detecta que dicho Presupuesto, Factura, etc; tiene un Remito; podrías agragar lo siguiente a tu botón para que el usuario escoja si desea imprimir Remito o el comprobante equivalente...

* Código.

..Bueno, tómalo como idea, ya que desconozco como está diseñado tu sistema; para mi sería mucho más simple así.

Respecto de la Facturación Electrónica; por supuesto que cualquiera puede hacerla; existe muchísima información; solo que parece como si hubiesen querido encriptarla para que nadie pudiese hacerlo, o en todo caso que les costase muchísimo lograrlo (imagino que es por que hay muchas empresas o personas lucrando con ésto); solo hay que ponerse en ello con determinación y sin dudas se puede; una vez que lo consiga compartire la solución.

Muchas gracias Abel está bueno pero lo que implementaré en un principio va a ser de elegir por ejemplo un presupuesto hecho y con los mismos datos generar un remito.-
Lo voy a cargar seguramente de la misma tabla del presupuesto y cargo los datos del presupuesto pero sin el nro de rpesup, ya que se va a transformar en un nro de remito con el sigiuente código (le suma uno al último número):
nro = RECCOUNT()
THISFORM.Refresh
THISFORM.txtnro.Value = nro + 1

Tengo en cuenta tu código en el caso de impresión.-
Saludos
José