Ayuda con busqueda de registros
Publicado por Néstor (27 intervenciones) el 18/04/2016 19:11:28
Saludos programadores,necesito una gran ayuda por favor.
Es posible que la consulta ya esté hasta respondida pero tengo un largo rato buscando en la web algo como lo que necesito.....
Tengo 2 tablas libres caja y mcaja ambas tienen los mismos campos. La tabla CAJA es donde se guardan registros diarios y luego se borran, claro antes se guarda esa data en la tabla MCAJA. Ahora bien mi gran problema es que esa aplicacion la hice en que solo se ejecutara antes de hacer cierre, pero cuando no estoy lo hacen en cualquier momento y se guandan en MCAJA registros que se repiten nuevamente hasta llegar al cierre .
Quiero hacer una condicion que busque por el campo NRO y continue copiando en caso de que no exista.
Algo como:
SI MCAJA.NRO=CAJA.NRO ENTONCES
NO AGREGAR REGISTROS
SINO
COPIAR REGISTROS DE CAJA A MCAJA
FIN SI
La verdad creo que esta logica no s si funciones para fox
Asi lo estoy haciendo en la actualidad...
****************************************************************************************************************
eMessageTitle = '****** ALERTA ********'
eMessageText = '¿YA ES LA HORA DE CIERRE?'
nDialogType = 4+64+0
nAnswer=MESSAGEBOX(eMessageText,nDialogType,eMessageTitle)
DO CASE
CASE nAnswer = 6
*********************************************************************
* CARGA DE REGISTROS DE VENTAS DIARIAS DE C2 *******
*********************************************************************
USE 'c:\Sis_G\Base de datos\CAJA.dbf'
DELETE ALL
PACK
APPEND FROM \\Caja02\c\System\Data\CAJA02.dbf && esta tabla viene de otros sistema y de alli tome las tablas y solo le cambie los nombres
CLOSE TABLES
***************************************************************************
* CARGA DE DATOS DE TABLAS DE VENTAS MENSUALES DE C2 *
***************************************************************************
USE 'c:\Sis_G\Base de datos\MCAJA.dbf'
APPEND FROM \\Caja02\c\System\Data\CAJA02.dbf && esta tabla viene de otro sistema y de alli tome las tablas y solo le cambie los nombres
CLOSE TABLES
*************************************************************************
* APERTURA DE TABLA CAJA.DBF PARA GENERAR REPORTE *
*************************************************************************
USE "c:\sis_g\base de datos\caja.dbf" order tag codigo
SET REPORTBEHAVIOR 90
REPORT FORM "\reports\ventah.frx" NOCONSOLE PREVIEW
************************************************************************************************************************
CASE nAnswer = 7
********************************************************************
* CARGA DE REGISTROS DE VENTAS DIARIAS DE C2 *******
********************************************************************
USE 'c:\Sis_G\Base de datos\CAJA.dbf'
DELETE ALL
PACK
APPEND FROM \\Caja02\c\System\Data\CAJA02.dbf && esta tabla viene de otro sistema y de alli tome las tablas y solo le cambie los nombres
CLOSE TABLES
*****************************************************
* APERTURA DE TABLA CAJA.DBF PARA GENERAR REPORTE *
*****************************************************
USE "c:\sis_g\base de datos\caja.dbf" order tag codigo
SET REPORTBEHAVIOR 90
REPORT FORM "\reports\ventah.frx" NOCONSOLE PREVIEW
ENDCASE
Si me pueden ayudar se los voy a gradecer Muchisimoooooooo
Adjunto las tablas ,,,,, Graaaacias de antemano.....
Es posible que la consulta ya esté hasta respondida pero tengo un largo rato buscando en la web algo como lo que necesito.....
Tengo 2 tablas libres caja y mcaja ambas tienen los mismos campos. La tabla CAJA es donde se guardan registros diarios y luego se borran, claro antes se guarda esa data en la tabla MCAJA. Ahora bien mi gran problema es que esa aplicacion la hice en que solo se ejecutara antes de hacer cierre, pero cuando no estoy lo hacen en cualquier momento y se guandan en MCAJA registros que se repiten nuevamente hasta llegar al cierre .
Quiero hacer una condicion que busque por el campo NRO y continue copiando en caso de que no exista.
Algo como:
SI MCAJA.NRO=CAJA.NRO ENTONCES
NO AGREGAR REGISTROS
SINO
COPIAR REGISTROS DE CAJA A MCAJA
FIN SI
La verdad creo que esta logica no s si funciones para fox
Asi lo estoy haciendo en la actualidad...
****************************************************************************************************************
eMessageTitle = '****** ALERTA ********'
eMessageText = '¿YA ES LA HORA DE CIERRE?'
nDialogType = 4+64+0
nAnswer=MESSAGEBOX(eMessageText,nDialogType,eMessageTitle)
DO CASE
CASE nAnswer = 6
*********************************************************************
* CARGA DE REGISTROS DE VENTAS DIARIAS DE C2 *******
*********************************************************************
USE 'c:\Sis_G\Base de datos\CAJA.dbf'
DELETE ALL
PACK
APPEND FROM \\Caja02\c\System\Data\CAJA02.dbf && esta tabla viene de otros sistema y de alli tome las tablas y solo le cambie los nombres
CLOSE TABLES
***************************************************************************
* CARGA DE DATOS DE TABLAS DE VENTAS MENSUALES DE C2 *
***************************************************************************
USE 'c:\Sis_G\Base de datos\MCAJA.dbf'
APPEND FROM \\Caja02\c\System\Data\CAJA02.dbf && esta tabla viene de otro sistema y de alli tome las tablas y solo le cambie los nombres
CLOSE TABLES
*************************************************************************
* APERTURA DE TABLA CAJA.DBF PARA GENERAR REPORTE *
*************************************************************************
USE "c:\sis_g\base de datos\caja.dbf" order tag codigo
SET REPORTBEHAVIOR 90
REPORT FORM "\reports\ventah.frx" NOCONSOLE PREVIEW
************************************************************************************************************************
CASE nAnswer = 7
********************************************************************
* CARGA DE REGISTROS DE VENTAS DIARIAS DE C2 *******
********************************************************************
USE 'c:\Sis_G\Base de datos\CAJA.dbf'
DELETE ALL
PACK
APPEND FROM \\Caja02\c\System\Data\CAJA02.dbf && esta tabla viene de otro sistema y de alli tome las tablas y solo le cambie los nombres
CLOSE TABLES
*****************************************************
* APERTURA DE TABLA CAJA.DBF PARA GENERAR REPORTE *
*****************************************************
USE "c:\sis_g\base de datos\caja.dbf" order tag codigo
SET REPORTBEHAVIOR 90
REPORT FORM "\reports\ventah.frx" NOCONSOLE PREVIEW
ENDCASE
Si me pueden ayudar se los voy a gradecer Muchisimoooooooo
Adjunto las tablas ,,,,, Graaaacias de antemano.....
- Base-de-datos.rar(2,6 MB)
Valora esta pregunta


0