[RESOLVIDO] Importador de Folha de Especificação EMS 204

Alguém tem um programa modelo ou sabe como fazer um importador de folha de especificação do item no EMS 204?

Tenho que usar BO ou API....???

Grato;

para importar apenas o folh-espec vc pode usar o baca abaixo, mas lembre-se que cada folha
tem seus componentes. e se vc quiser importar os componentes de uma folha, terá
que fazer outro importador para a tabela comp-folha availiando o folh-espec, e ainda as folhas devem ser vinculadas as familias (cd0202).

Código:

/************************************/
def var x-codigo    as char format "x(8)"  no-undo.
def var x-descricao as CHAR FORMAT "x(40)" no-undo.
def stream str-e.


INPUT STREAM str-e from value("c:\folha-imp.txt").
    repeat:
      import stream str-e delimiter ";"
               x-codigo 
               x-descricao.

      FIND FIRST folh-espec WHERE folh-espec.cd-folha = x-codigo NO-LOCK NO-ERROR.
      IF NOT AVAIL folh-espec THEN
      DO:
          CREATE folh-espec.
          ASSIGN folh-espec.cd-folha  = x-codigo. 
          ASSIGN folh-espec.descricao = x-descricao.
      END.
END.
input close.

/************************************/

Realmente eu tenho que importar os componentes da folha também. O arrquivo de entrada está em excel, contendo o código do item mais os resultados que totalizam 67 componentes da folha de especificação.

ex. de um registro a ser importado: it-codigo + 67 resultados dos componentes da FE.


000086CAR0001;ONDA MICRO=170MM - MICRO=625X360 (ONDA 360) -#CONSULTAR PASTA PADRAO P02#PAPEL 635X735; 200;170;630;365;6;2;6;;;;;;;;4;SELEÇAO;;;;;;;;;;;;N;;;X;5021;Nenhum;;N;N;
;N;S;4;9;15;665;

Grato!