Almacenar en una tabla solo los seleccionados

Buen Día Víctor, tengo la siguiente situación:
1.- Tengo Dos Tablas, La primera Tabla se llama Detdepos, y esta Ubicada en una base de datos con la siguiente ruta: P:\Control\Datos\Detdepos, la cual contiene los siguientes campos (Fecha, tienda, coshcode, cumplan, fecval, monto, numcaptap, tipo, leído) leído es un campo lógico, y en mi base de datos aparece T, los que ya se han leídos, y en blanco los que no se han leído. La segunda tabla es Depósitos esta contiene los mismos campos que detdepos y esta ubicada en la base de datos en mi proyecto, la ruta es Use C:\conciliacion\bd\Deposito.
2 Deseo almacenar de la Tabla Detdepos todos los campos cuyo leído sean blanco, realice el siguiente algoritmo pero no funciona, intenta almacenar el primer registro, pero solo coloca el campo coshcode, los demás atributos los deja en blanco y solo almacena (01) y debería almacenar como 3500 registros.
3.- El Algoritmo es el siguiente:
Close Databases All
Open Database "P:\Control\Datos\control" Shared
Use C:\conciliacion\bd\Deposito In 0
Use P:\Control\Datos\Detdepos In 0
Select Detdepos
Scan
If Detdepos.leido and (Left(Detdepos.tipo, 4) $ "CHEQ,EFEC")
Select Detdepos
If Eof()
Append Blank
Replace Deposito.cashcode With detdepos.cashcode, ;
Deposito.fecha With detdepos.fecha, ;
Deposito.fecval With detdepos.fecval, ;
Deposito.monto With detdepos.monto, ;
Deposito.numcatap With detdepos.numcatap, ;
Deposito.numplan With detdepos.numplan, ;
Deposito.tienda With detdepos.tienda, ;
Deposito.tipo With detdepos.tipo
Replace Deposito.conciliado With "FALSE"
Replace Detdepos.leido With T
EndIf
Select detdepos
Endif
Endscan
messagebox("El Proceso Ha Culminado Satisfactoriamente", 64,"Conciliación")

1 Respuesta

Respuesta
1
Close Databases All
Open Database "P:\Control\Datos\control" Shared
Use C:\conciliacion\bd\Deposito In 0
Use P:\Control\Datos\Detdepos In 0
Select Detdepos
Go Top
Do While !Eof()
   If !Detdepos.leido and Left(Detdepos.tipo, 4) $ "CHEQ,EFEC"
      Select Deposito
      Append Blank
      Replace Deposito.cashcode With detdepos.cashcode, ;
         Deposito.fecha With detdepos.fecha, ;
         Deposito.fecval With detdepos.fecval, ;
         Deposito.monto With detdepos.monto, ;
         Deposito.numcatap With detdepos.numcatap, ;
         Deposito.numplan With detdepos.numplan, ;
         Deposito.tienda With detdepos.tienda, ;
         Deposito.tipo With detdepos.tipo, ;
         Deposito.conciliado With .F., ;
      Select Detdepos
      Replace Detdepos.leido With .T.
   Endif
   Skip
EndDo
Messagebox("El Proceso Ha Culminado Satisfactoriamente", 64,"Conciliación")

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas