OPs sem Estabelecimento

Situação:

SANTIBR-71665 OPs sem Estabelecimento - Empresa Santillana

Olá, boa tarde! As OPs abaixo estão sem estabelecimento, não conseguimos ajustar por aqui, podem por favor aplicar os estabelecimento conforme tabela abaixo?

Estabel	Ordem de Produção	Empresa
99	787.377	Santillana
99	787.401	Santillana
99	787.408	Santillana
99	787.431	Santillana

Possíveis Soluções:

Consulta OP Consulta Ordem de Produção CD9070

Qual programa gerou a OP

Qual programa gerou a Ordem de Produção

FOR EACH ord-prod
    WHERE ord-prod.nr-ord-produ = 787431.
         DISP nr-ord-produ
                  it-codigo
                 nome-abrev
                cod-unid-negoc
                cod-estabel WITH WIDTH 300 1 COL.
UPDATE cod-estabel.
END.

FOR EACH ord-prod
  WHERE (ord-prod.nr-ord-produ = 305810
      or ord-prod.nr-ord-produ = 305811
      or ord-prod.nr-ord-produ = 305812
      or ord-prod.nr-ord-produ = 305813
      or ord-prod.nr-ord-produ = 305814).
    DISP nr-ord-produ
         it-codigo
         nome-abrev
         cod-unid-negoc
         cod-estabel WITH WIDTH 300 1 COL.
  //UPDATE cod-estabel.
END.

OUTPUT TO i:\leopoldo\cp9070_estab.csv.

PUT UNFORMATTED
    "ORDEM" ";"
    "ESTAB" ";"
    "EMISSAO" ";"
    "NARRATIVA" SKIP.

FOR EACH ord-prod WHERE ord-prod.cod-estabel = "":

    PUT UNFORMATTED
        ord-prod.nr-ord-produ ";"
        ord-prod.cod-estabel ";"
        ord-prod.dt-emissao ";"
        REPLACE(REPLACE(REPLACE(ord-prod.narrativa,CHR(13),' '),CHR(10),' '),';',' ')  ";" SKIP.

END.
OUTPUT CLOSE.