Tablas en visual foxpro6
Tengo un problemita con unas tablas y quiero saber si usted es tan amable y me puede ayudar:
Tengo una tabla que la llame "facturas" la cual contiene los siguientes campos :
# factura(nfactura),fecha,vendedor,valor.
tengo otra tabla que la llame "diario" la cual contiene los siguientes campos:
#devolucion(ndevol),fecha,#factura(nfactura),valor.
en una tercera tabla quiero llenar la siguiente informacion:
#devolucion,fecha,#factura,vendedor,valor
Entonces quiero hacer la siguiente comparación:
Si en la tabla "diario" el campo nfactura es igual a la tabla "facturas" el campo nfacturas entonces el código del vendedor que está en la tabla "facturas" me lo lleve a la tercera tabla en el campo vendedor.
En espera de su valiosa respuesta
Tengo una tabla que la llame "facturas" la cual contiene los siguientes campos :
# factura(nfactura),fecha,vendedor,valor.
tengo otra tabla que la llame "diario" la cual contiene los siguientes campos:
#devolucion(ndevol),fecha,#factura(nfactura),valor.
en una tercera tabla quiero llenar la siguiente informacion:
#devolucion,fecha,#factura,vendedor,valor
Entonces quiero hacer la siguiente comparación:
Si en la tabla "diario" el campo nfactura es igual a la tabla "facturas" el campo nfacturas entonces el código del vendedor que está en la tabla "facturas" me lo lleve a la tercera tabla en el campo vendedor.
En espera de su valiosa respuesta
1 Respuesta
Respuesta de yonjames
1
Una solución podrá ser la siguiente:
Select Diario
Scan
Select * from Facturas where nFactura=Diario.Factura into cursor cResul
If _Tally>0
Select Nueva_Tabla
Appen Blan
Replace Nfactura With cResul.NFactura
Replace Vendedor With cResul.Vendedor
....
Select Diario
EndScan
Nota:
Evaluar si lo que tienes es facturas son varios registros de diario.
No olvides calificar e informarme si te sirve esta solución.
Atento a tus comentarios.
Select Diario
Scan
Select * from Facturas where nFactura=Diario.Factura into cursor cResul
If _Tally>0
Select Nueva_Tabla
Appen Blan
Replace Nfactura With cResul.NFactura
Replace Vendedor With cResul.Vendedor
....
Select Diario
EndScan
Nota:
Evaluar si lo que tienes es facturas son varios registros de diario.
No olvides calificar e informarme si te sirve esta solución.
Atento a tus comentarios.
