FoxPro/Visual FoxPro - Append Blank no me funciona ayuda porfa

Mi problema es el siguiente no me funciona append blank con uno de los ítems de mi base de datos
La estructura de la base de datos es la siguiente

Nombre de ítems2.dbf
Ci mumerico (código) ****
Des carácter (descripción)
Uni carácter (unidad)
Can carácter (cantidad)
Pun numérico c/2 decimal (precio unitario)
Punit mumerico c/2 decimales (precio total)

Nota **** este es el problema no adiciona “ci” es un codigo en la bases de datos

aca una parte del codigo
************************************************************
* caralma *
************************************************************
PROCEDURE caralma
close all
set exclu off
sele a
use items2 index items2
xci=space(6)
xdes=space(40)
xuni=space(10)
xcan=0
xpun=0
xpor=0
xpunit=0
do pantac with "ALTAS "
do while .t.
@ 6,30 get xci pict "!!!!!!"
read
if ASC(xci)=32
return
endif
INDEX on ci TO items2
seek xci
if found()
@ 23,1 say " Mensaje : "
set colo to w*/n
@ 23,12 say "Ya! existe ese codigo "
read
@ 23,12 to 23,70 clear
set colo to w/n
xci=space(6)
loop
endif
@ 8,30 get xdes pict "@!"
@ 10,30 get xuni pict "@!"
@ 12,30 get xcan pict "999,999.99"
@ 14,30 get xpun pict "999,999.99"
@ 16,30 get xpunit pict "99,999.9999"
read
if flock()
append blank
repl ci with xci && aca esta el problema no ingresa pero los demás si
repl des with xdes
repl uni with xuni
repl can with xcan
repl pun with xpun
repl punit with xpunit
unlock
endif
*sele b
*use material &&/usr/pedidos/material
*if flock()
*append blan
*repl cod_sec with "MAT"
*repl cod_mat with xci
*repl des_mat with xdes
*repl unidad with xuni
*repl cantidad with xcan
*unlock
*endif
use
sele a
enddo
set exclu on

Estare muy agradecido por la ayuda prestada saludos a todos estaré atento a sus repuestas

De antemano muchas gracias

Hola,
el problema es que tenés el campo Ci como numerico

Ci mumerico (código) ****

y luego estás declarando la variable xci como caracter

xci=space(6

entonces el problema se produce cuando tratás de reemplazar Ci(que es numérico) con xci(que es caracter) y salta el error de (incompatibilidad operador operando)

repl ci with xci && aca esta el problema

lo que podrías hacer es declarar la variable xci como numérica o convertirla a numérica antes de hacer el reemplazo

xci = val(xci)
replace ci with xci

y todo bien

saludos
jafcorp

muchas gracias no tome encuenta ese dellate

Una recomendacion, aprovecha los nombres largos que te ofrece VFP, olvidate de Foxbase y clipper con esos nombres de variables cortos que solo confunden y hacen mas complicadas las lecturas.

Gracias por tu comentario lo tomare en cuenta pero no me ayuda a la solucion me gustaria nucho que me brindes soluciones o algo parecido para poder aprender mas
atentamente

Jorge

Gracias Plinio por tu comentario lo tomare en cuenta pero no me ayuda a la solucion me gustaria nucho que me brindes soluciones o algo parecido para poder aprender mas
atentamente

Jorge