FoxPro/Visual FoxPro - Count

Tengo un solo registro en la tabla facturas y el siguiente codigo no funciona ¿ alguien podria decirme porque ?

SELECT facturas
COUNT TO cantidad_fac
IF cantidad_fac = 1
SELECT facturas
GO top
SELECT facturacion
APPEND blank
replace facturacion.inicio WITH facturas.fecha
endif

y realmente se esta cumpliendo la condicion ?

en dond esta fallando tu codigo ?

Si, realmente cumple la condicion.
Eso quiero saber, donde esta fallando.

Yo lo habria asi:

****
REGISTROS=0
SELE H
USE facturas
GO TOP
REGISTROS=RECCOUNT( )
****
IF REGISTROS<>0
SELE J
USE facturacion
GO BOTTOM
APPEND blank
replace facturacion.inicio WITH facturas.fecha
endif
****
SELE H
USE
****
SELE J
USE
****

Jesus Cordero
Caracas-Venezuela

Pero alguien sabria decirme porque no anda mi codigo.

Gracias, por tu aporte, pero alguien sabria decirme porque no anda mi codigo.

tu codigo deberia funcionar yo solo le agregaria "GO BOTTOM", antes de hacer el
"APPEND", del archivo "facturacion", para agregar el registro al final del archivo.
ahora bien poque tu dices que no te funciona, te pregunto:
no graba en el registro del archivo "facturacion" ?
graba con el campo "facturas" en blanco ?
no logras visualizar el registro de "facturas" ?

para poder ayudarte debes plantear las pregustas en forma mas detallada
no crees.

Saludos
Jesus Cordero
Caracas-Venezuela

No graba el registro en el archivo facturacion.

ok entoces no se cumple la condicion: IF cantidad_fac = 1, prueba evaluando la
condicion de esta forma

IF cantidad_fac <>0
SELECT facturas
GO top
......
...... las siguientes lineas de codificación
.....
endif

****
si no graba el registro el archivo facturas esta en blanco
*****

Jesus Cordero
Caracas - Venezuela

Prove agregandole el go top y me agrega un registro en blanco, de la siguiente manera : / /
Alguien tiene alguna idea, de aque se debe.

el primer registro del archivo facturas esta en blanco
por eso es que te graba la fecha de esa forma el archivo facturacion
****
debes inicializar en archivo facturas antes de incorporarle los datos
****
puedes incorporar un brow despues del selec facturas para visualizar lo que te digo, el archivo facturas posee mas de un registro.
******
SELECT facturas
GO top
brow
*****

Jesus Cordero
Caracas - Venezuela

El primero y unico registro de la tabla facturas, si tiene todos sus datos.

El primero y unico registro de la tabla facturas, si tiene todos sus datos.

Verifica en la estrucuras el tipo de campo facturacion.inicio y facturas.fecha
deben ser iguales.

Ya verifique, y si son iguales.

Ya verifique, y si son iguales.

Tu inicializaste los arhivos, ejecutaste un "ZAP" antes de probar ?
Verificaste el PATH ?
No tendaras un archivo con el msmo nombre en otras ubicacion ?

Tu codigo debe funcionar.

Jesus Cordero
Caracas - venezuela

- Se esta creando el archivo en blanco en la tabla de facturacion???
- Antes de esta linea replace facturacion.inicio WITH facturas.fecha pon
WAIT WINDOW facturas.fecha a ver si tiene un valor ese campo.

Hola analia, sin menospreciar tu trabajo y tus conocimientos, yo intentaria hacer algo asi:

SELECT * FROM FACTURAS INTO Cursor tmp1
if RECCOUNT() = 1
Insert into FACTURACION (Inicio) Values tmp1.fecha
Select Facturacion
=TableUpdate(.t.)
endif

Saludos, espero que te sirva

solo hay que poner COUNT ALL TO variable

la palabra ALL es la clave