FoxPro/Visual FoxPro - append blank no me funciona

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

Debe ser por el tipo de dato no veo que las instrucciones esten mal escritaas

perdon a que se refiere con el tipo de dato cualquier ayuda me sirve o si en la fuente puedo hacer algun cambio gracias