CLOSE ALL
nn=SQLCONNECT('fss1')

=SQLEXEC(nn,'delete from item')

USE doc\items IN 0
SELECT items

ncont = 0
SCAN all
	ncont = ncont +1
	cid = PADL(ncont,12,'0')
	cname = nombre
	nprice = IIF(ALLTRIM(iva)!='No',precioa/1.12,precioa)
	npriceb = IIF(ALLTRIM(iva)!='No',preciob/1.12,preciob)
	npricec = IIF(ALLTRIM(iva)!='No',precioc/1.12,precioc)
	npriced = 0.00
	
	ncosto = 0.00
	najustecosto = 0.00

	ccodigo = cid

	ccodigo2 = INT(VAL(barras))
	ccodigo3 = ''
	cnote = ''
	
	ndescuentomax = 100
	ctipo = '02'
	cidgrupo = '000000001'
	cidbrand= '00000001'
	cidbodega= '00000001'
	cidubicacion= '00000001'
	cidsupplier= '000000000001'
	nunidadescaja= 1
	niva= IIF(ALLTRIM(iva)!='No',1,0)	
	ccad = 'insert into item (id,name,price,priceb,pricec,partnumber,costo,ajustecosto,descuentomax,tipo,idgrupo,idbrand,idubicacion,idsupplier,unidadescaja,iva,codigo2,codigo3,note,IDBODEGA)'+;
			'values(?cid,?cname,?nprice,?npriceb,?npricec,?ccodigo,?ncosto,?najustecosto,?ndescuentomax,?ctipo,?cidgrupo,?cidbrand,?cidubicacion,?cidsupplier,?nunidadescaja,?niva,?ccodigo2,?ccodigo3,?cnote,?cidbodega)'
	b=SQLEXEC(nn,ccad)	
	?b
ENDSCAN 



