*Cdigo da Loja: Tamanho 6 (Preenchido com zero a esquerda).
*Data Inventrio: Tamanho 6 (DDMMAA)obs. Data de incio do inventrio.
*Cdigo de Barras: Tamanho 13 (Preenchido com zero a esquerda).
*Preo de Venda: Tamanho 9 (Preenchido com zero a esquerda, valor unitrio).
*Quantidade: Tamanho 8 (Preenchido com zero a esquerda (5,3) Cinco inteiros e Trs decimais).

CREATE CURSOR TMP_PRODEMP;
(CODLOJA C(6),;
DATAIVE C(6),;
CODIGO C(13),;
PVENDA C(9),;
 QTD C(8))

CREATE CURSOR TMP_PRODIVE;
(CODIGO C(16),;
 QTD N(12,2))
   
cArq1 = GETFILE("","")
   
SELECT TMP_PRODEMP
APPEND FROM &cArq1 SDF

SELECT TMP_PRODEMP
GO TOP IN TMP_PRODEMP
DO WHILE ! EOF("TMP_PRODEMP")

   INSERT INTO TMP_PRODIVE (CODIGO,QTD) VALUES(PADL(TMP_PRODEMP.CODIGO,16,'0'),VAL(SUBSTR(TMP_PRODEMP.QTD,1,5) + "," + SUBSTR(TMP_PRODEMP.QTD,6,3)))

   SELECT TMP_PRODEMP
   SKIP IN TMP_PRODEMP
   LOOP
ENDDO

