[RESOLVIDO] UPC - CD1720a - Aparecendo campo

Boa tarde,

Desenvolvi uma upc para o programa cd1720a, onde ela apaga todos campos "não" necessários na tela e adiciona novos campos.

Se eu aprovar apenas uma ordem de compra o programa funciona corretamente, mas quando tento aprovar mais de uma ordem de compra um campo que havia mandado sumir volta a aparecer. Não descobri ainda o que pode ter ocorrido.

segue upc desenvolvida.

Código:

def input param p-ind-event        as char          no-undo.
def input param p-ind-object       as char          no-undo.
def input param p-wgh-object       as handle        no-undo.
def input param p-wgh-frame        as widget-handle no-undo.
def input param p-cod-table        as char          no-undo.
def input param p-row-table        as rowid         no-undo.
def var c-objeto    AS CHAR no-undo.
DEF VAR h-frame     AS HANDLE          NO-UNDO.
DEF VAR h-frame-1   AS HANDLE          NO-UNDO.
DEF NEW GLOBAL SHARED VAR whEmitente        AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whItem            AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whComprador       AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whComprador-sl    AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whBrCusto         AS WIDGET-HANDLE NO-UNDO.

DEF NEW GLOBAL SHARED VAR whVlDesc          AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whVlAtual         AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR wvVlAntig         AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whCustoDesc       AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whCustoAtual      AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whCustoAntig      AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whAtual           AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whAnterior        AS WIDGET-HANDLE NO-UNDO.

DEF NEW GLOBAL SHARED VAR whNrPedido        AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whNrPedido-desc   AS WIDGET-HANDLE NO-UNDO.

DEF NEW GLOBAL SHARED VAR whqtdeParcelas                AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whqtdeParcelas-desc           AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whPrimeiroVencimento          AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whPrimeiroVencimento-Desc     AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whUltimoVencimento            AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whUltimoVencimento-Desc       AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whFornecedor-Desc             AS WIDGET-HANDLE NO-UNDO.


DEF NEW GLOBAL SHARED VAR whContaContabil               AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whContaContabil-desc          AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whContaContabil-d             AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whCentroCusto                 AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whCentroCusto-Desc            AS WIDGET-HANDLE NO-UNDO.

DEF NEW GLOBAL SHARED VAR whNarativa                    AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whNarativa-Desc               AS WIDGET-HANDLE NO-UNDO.


DEF NEW GLOBAL SHARED VAR whRect1       AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whRect2       AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whRect3       AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whRect4       AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whRect5       AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whRect6       AS WIDGET-HANDLE NO-UNDO.




DEFINE VARIABLE da-data-primeiro-vcto AS DATE  FORMAT 99/99/9999      NO-UNDO.
DEFINE VARIABLE de-saldo AS DECIMAL     NO-UNDO.
DEFINE BUFFER tb-cotacao-item FOR cotacao-item.

DEF NEW GLOBAL SHARED VAR whQtdeEstoque            AS WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR whQtdeEstoque-desc       AS WIDGET-HANDLE NO-UNDO.
DEFINE VARIABLE de-valor-compra AS DECIMAL     NO-UNDO.

assign c-objeto = entry(num-entries(p-wgh-object:private-data, "~/"), p-wgh-object:private-data, "~/").
message "EVENTO" p-ind-event skip
        "OBJETO" p-ind-object skip
        "NOME OBJ" c-objeto skip
        "FRAME" p-wgh-frame skip
        "TABELA" p-cod-table skip
        "ROWID" string(p-row-table) view-as alert-box.

if  p-ind-event = "after-INITIALIZE" OR p-ind-event = "ASSIGN" OR p-ind-event = "CD1720A_APROV_PARC_PEDIDO" THEN do:
    ASSIGN h-frame = p-wgh-frame:FIRST-CHILD.
    ASSIGN h-frame = h-frame:FIRST-CHILD.
    DO  WHILE VALID-HANDLE(h-frame):
        IF  h-frame:TYPE <> "field-group" THEN DO:            
            /*MESSAGE h-frame:NAME SKIP
                    h-frame:VISIBLE
                VIEW-AS ALERT-BOX INFO BUTTONS OK.*/
            CASE h-frame:NAME:
                WHEN "i-ind-tip-doc" THEN DO:                    
                    ASSIGN h-frame:VISIBLE = FALSE.
                END.
                WHEN "i-ind-tip-aprov" THEN DO:
                    ASSIGN h-frame:VISIBLE = FALSE.
                END.
                WHEN "c-cod-aprov" THEN 
                    ASSIGN h-frame:VISIBLE = FALSE.
                WHEN "i-nr-requisicao" THEN 
                    ASSIGN h-frame:VISIBLE = FALSE.
                WHEN "i-sequencia" THEN 
                    ASSIGN h-frame:VISIBLE = FALSE.
                WHEN "i-num-pedido" THEN 
                    ASSIGN h-frame:VISIBLE = FALSE.
                WHEN "i-numero-ordem" THEN 
                    ASSIGN h-frame:VISIBLE = FALSE.
                WHEN "i-nr-processo" THEN 
                    ASSIGN h-frame:VISIBLE = FALSE.
                WHEN "i-numero-ordem" THEN 
                    ASSIGN h-frame:VISIBLE = FALSE.
                WHEN "de-valor-limite" THEN 
                    ASSIGN h-frame:VISIBLE = FALSE.
                WHEN "i-seq-aprov" THEN 
                    ASSIGN h-frame:VISIBLE = FALSE.
                WHEN "l-aprov-tec" THEN 
                    ASSIGN h-frame:VISIBLE = FALSE.
                WHEN "i-cod-emitente" THEN DO:                 
                    ASSIGN h-frame:ROW = 2.38
                           h-frame:COLUMN = 11.47
                           h-frame:WIDTH = 10
                           h-frame:SIDE-LABEL-HANDLE:ROW = 2.38
                           h-frame:SIDE-LABEL-HANDLE:COLUMN = 2.57
                           .
                           /*h-frame:SIDE-LABEL-HANDLE:SCREEN-VALUE = "Fornecedor".                */
                    CREATE TEXT whFornecedor-Desc NO-ERROR
                        ASSIGN FORMAT = "X(20)"
                               SCREEN-VALUE = "Fornecedor:"
                               FRAME = h-frame:FRAME                               
                               ROW = 2.38
                               COLUMN = 2.57
                               WIDTH = 9
                               HEIGHT = 0.98
                               VISIBLE = TRUE.
                    CREATE FILL-IN whEmitente NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = FALSE
                           ROW = 2.38
                           COLUMN = 21.8
                           WIDTH = 65
                           HEIGHT = 0.88
                           FORMAT = "X(150)"
                           VISIBLE = TRUE.
                END.
                WHEN "c-it-codigo" THEN DO:                
                    ASSIGN h-frame:ROW = 3.38
                           h-frame:COLUMN = 6.57
                           h-frame:SIDE-LABEL-HANDLE:ROW = 3.38
                           h-frame:SIDE-LABEL-HANDLE:COLUMN = 2.57
                           h-frame:WIDTH = h-frame:WIDTH - 5.7.                    
                    CREATE FILL-IN whItem NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = FALSE
                           ROW = 3.38
                           COLUMN = 21.8
                           WIDTH = 65
                           HEIGHT = 0.88
                           FORMAT = "X(150)"
                           VISIBLE = TRUE
                           .
                END.
                WHEN "c-nr-contrato" THEN 
                    ASSIGN h-frame:VISIBLE = FALSE.
                WHEN "de-quantidade" THEN DO:
                    ASSIGN h-frame:ROW = 12.38
                           h-frame:COLUMN = 45.72
                           h-frame:WIDTH = 17
                           h-frame:SIDE-LABEL-HANDLE:ROW = 12.38
                           h-frame:SIDE-LABEL-HANDLE:COLUMN = 37.                
                END.
                WHEN "de-valor-doc" THEN DO:               
                    ASSIGN h-frame:ROW = 12.38
                           h-frame:COLUMN = 15
                           h-frame:SIDE-LABEL-HANDLE:ROW = 12.38
                           h-frame:SIDE-LABEL-HANDLE:COLUMN = 2.57.

                    ASSIGN de-valor-compra = DECIMAL(h-frame:SCREEN-VALUE).                           
                    CREATE TEXT whComprador-sl NO-ERROR
                        ASSIGN FORMAT = "X(20)"
                               SCREEN-VALUE = "Comprador:"
                               FRAME = h-frame:FRAME                               
                               ROW = 1.38
                               COLUMN = 2.57
                               WIDTH = 11
                               HEIGHT = 0.98
                               VISIBLE = TRUE.
                    CREATE FILL-IN whComprador NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = FALSE
                           ROW = 1.38
                           COLUMN = 10.8
                           WIDTH = 10.88
                           HEIGHT = 0.88
                           FORMAT = "X(150)"
                           VISIBLE = TRUE.                    
                    CREATE TEXT whVlDesc NO-ERROR
                        ASSIGN FORMAT = "X(20)"
                               SCREEN-VALUE = "Valor compra:"
                               FRAME = h-frame:FRAME                               
                               ROW = 5.38
                               COLUMN = 2.57
                               WIDTH = 11
                               HEIGHT = 0.98
                               VISIBLE = TRUE.
                    CREATE TEXT whVlDesc NO-ERROR
                        ASSIGN FORMAT = "X(20)"
                               SCREEN-VALUE = "Custo compra:"
                               FRAME = h-frame:FRAME                               
                               ROW = 6.38
                               COLUMN = 2.57
                               WIDTH = 11
                               HEIGHT = 0.98
                               VISIBLE = TRUE.
                    CREATE TEXT whAnterior NO-ERROR
                        ASSIGN FORMAT = "X(20)"
                               SCREEN-VALUE = "Última Compra"
                               FRAME = h-frame:FRAME                               
                               ROW = 4.85
                               COLUMN = 27.77
                               WIDTH = 13
                               HEIGHT = 0.68
                               VISIBLE = TRUE.
                    
                    CREATE TEXT whAtual NO-ERROR
                        ASSIGN FORMAT = "X(20)"
                               SCREEN-VALUE = "Compra Atual"
                               FRAME = h-frame:FRAME                               
                               ROW = 4.85
                               COLUMN = 14.57
                               WIDTH = 12
                               HEIGHT = 0.68
                               VISIBLE = TRUE.
                    CREATE FILL-IN whVlAtual NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = FALSE
                           FORMAT = "->>>>>>>,>>9.99":U
                           ROW = 5.38
                           COLUMN = 12.57
                           WIDTH = 13
                           HEIGHT = 0.88
                           FORMAT = "X(150)"
                           VISIBLE = TRUE.                    
                    CREATE FILL-IN wvVlAntig NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = FALSE
                           FORMAT = "->>>>>>>,>>9.99":U
                           ROW = 5.38
                           COLUMN = 26.17
                           WIDTH = 13
                           HEIGHT = 0.88
                           FORMAT = "X(150)"
                           VISIBLE = TRUE.                    
                    CREATE FILL-IN whCustoAtual NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = FALSE
                           ROW = 6.38
                           FORMAT = "->>>>>>>,>>9.99":U
                           COLUMN = 12.57
                           WIDTH = 13
                           HEIGHT = 0.88
                           FORMAT = "X(150)"
                           VISIBLE = TRUE.                    
                    CREATE FILL-IN whCustoAntig NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = FALSE
                           FORMAT = "->>>>>>>,>>9.99":U
                           ROW = 6.38
                           COLUMN = 26.17
                           WIDTH = 13
                           HEIGHT = 0.88
                           FORMAT = "X(150)"
                           VISIBLE = TRUE.                    
                    CREATE TEXT whNrPedido-desc NO-ERROR
                        ASSIGN FORMAT = "X(11)"
                               SCREEN-VALUE = "Nº Pedido.:"
                               FRAME = h-frame:FRAME                               
                               ROW = 1.38
                               COLUMN = 22.57
                               WIDTH = 11
                               HEIGHT = 0.98
                               VISIBLE = TRUE.
                    CREATE FILL-IN whNrPedido NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = FALSE
                           ROW = 1.38
                           COLUMN = 30.57
                           WIDTH = 13
                           HEIGHT = 0.88
                           FORMAT = "X(150)"
                           VISIBLE = TRUE. 
                    
                    CREATE TEXT whqtdeParcelas-desc NO-ERROR
                        ASSIGN FORMAT = "X(15)"
                               SCREEN-VALUE = "Qtde Parcelas.:"
                               FRAME = h-frame:FRAME                               
                               ROW = 4.98
                               COLUMN = 46.57
                               WIDTH = 15
                               HEIGHT = 0.98
                               VISIBLE = TRUE.
                    CREATE FILL-IN whqtdeParcelas NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = FALSE
                           ROW = 4.98
                           COLUMN = 57.37
                           WIDTH = 13
                           HEIGHT = 0.88
                           FORMAT = "X(150)"
                           VISIBLE = TRUE. 
                    CREATE TEXT whPrimeiroVencimento-Desc NO-ERROR
                        ASSIGN FORMAT = "X(21)"
                               SCREEN-VALUE = "Primeiro Vencimento.:"
                               FRAME = h-frame:FRAME                               
                               ROW = 5.98
                               COLUMN = 46.57
                               WIDTH = 21
                               HEIGHT = 0.98
                               VISIBLE = TRUE.
                    CREATE FILL-IN whPrimeiroVencimento NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = FALSE
                           ROW = 5.98
                           COLUMN = 61.57
                           WIDTH = 9
                           HEIGHT = 0.88
                           FORMAT = "X(150)"
                           VISIBLE = TRUE. 
                    CREATE TEXT whPrimeiroVencimento-Desc NO-ERROR
                        ASSIGN FORMAT = "X(19)"
                               SCREEN-VALUE = "Últ. Vcto.:"
                               FRAME = h-frame:FRAME                               
                               ROW = 5.98
                               COLUMN = 71.57
                               WIDTH = 11
                               HEIGHT = 0.98
                               VISIBLE = TRUE.
                    CREATE FILL-IN whUltimoVencimento NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = FALSE
                           ROW = 5.98
                           COLUMN = 78.60
                           WIDTH = 9
                           HEIGHT = 0.88
                           FORMAT = "X(150)"
                           VISIBLE = TRUE. 
                    CREATE TEXT whContaContabil-desc NO-ERROR
                        ASSIGN FORMAT = "X(19)"
                               SCREEN-VALUE = "Conta Contabil:"
                               FRAME = h-frame:FRAME                               
                               ROW = 8.08
                               COLUMN = 3.57
                               WIDTH = 11
                               HEIGHT = 0.98
                               VISIBLE = TRUE.
                    CREATE FILL-IN whContaContabil NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = FALSE
                           ROW = 8.08
                           COLUMN = 14.50
                           WIDTH = 13
                           HEIGHT = 0.88
                           FORMAT = "X(150)"
                           VISIBLE = TRUE. 
                    CREATE FILL-IN whContaContabil-d NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = FALSE
                           ROW = 8.08
                           COLUMN = 27.90
                           WIDTH = 60
                           HEIGHT = 0.88
                           FORMAT = "X(150)"
                           VISIBLE = TRUE. 
                    CREATE TEXT whQtdeEstoque-desc NO-ERROR
                        ASSIGN FORMAT = "X(19)"
                               SCREEN-VALUE = "Qtde Estoque.:"
                               FRAME = h-frame:FRAME                               
                               ROW = 12.38
                               COLUMN = 63.57
                               WIDTH = 19
                               HEIGHT = 0.79
                               VISIBLE = TRUE.
                    CREATE FILL-IN whQtdeEstoque NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = FALSE
                           ROW = 12.38
                           COLUMN = 74.27
                           WIDTH = 13
                           HEIGHT = 0.88
                           FORMAT = "X(150)"
                           VISIBLE = TRUE. 
                    CREATE EDITOR whNarativa NO-ERROR
                    ASSIGN FRAME = h-frame:frame
                           SCROLLBAR-VERTICAL = NO
                           SENSITIVE = TRUE                           
                           ROW = 9.38
                           COLUMN = 1.97
                           WIDTH = 85.8
                           HEIGHT = 2.58
                           FORMAT = "X(150)"
                           SCROLLBAR-HORIZONTAL = FALSE
                           SCROLLBAR-VERTICAL = TRUE
                           VISIBLE = TRUE. 
                    CREATE RECTANGLE whRect1 NO-ERROR
                    ASSIGN FRAME = h-frame:FRAME
                           ROW = 1.07
                           COLUMN = 1.57
                           WIDTH = 86.5
                           HEIGHT = 3.5
                           EDGE-PIXELS = 2 
                           GRAPHIC-EDGE  = TRUE                            
                           VISIBLE = TRUE.
                    CREATE RECTANGLE whRect2 NO-ERROR
                    ASSIGN FRAME = h-frame:FRAME
                           ROW = 4.68
                           COLUMN = 1.57
                           WIDTH = 42
                           HEIGHT = 3
                           EDGE-PIXELS = 2 
                           GRAPHIC-EDGE  = TRUE                            
                           VISIBLE = TRUE.
                    CREATE RECTANGLE whRect4 NO-ERROR
                    ASSIGN FRAME = h-frame:FRAME
                           ROW = 4.68
                           COLUMN = 44.17
                           WIDTH = 44
                           HEIGHT = 3
                           EDGE-PIXELS = 2 
                           GRAPHIC-EDGE  = TRUE                            
                           VISIBLE = TRUE.
                    CREATE RECTANGLE whRect3 NO-ERROR
                    ASSIGN FRAME = h-frame:FRAME
                           ROW = 12.17
                           COLUMN = 1.57
                           WIDTH = 86.5
                           HEIGHT = 1.27
                           EDGE-PIXELS = 2 
                           GRAPHIC-EDGE  = TRUE                            
                           VISIBLE = TRUE.
                    CREATE RECTANGLE whRect5 NO-ERROR
                    ASSIGN FRAME = h-frame:FRAME
                           ROW = 07.87
                           COLUMN = 1.57
                           WIDTH = 86.5
                           HEIGHT = 1.27
                           EDGE-PIXELS = 2 
                           GRAPHIC-EDGE  = TRUE                            
                           VISIBLE = TRUE.
                    CREATE RECTANGLE whRect6 NO-ERROR
                    ASSIGN FRAME = h-frame:FRAME
                           ROW = 09.27
                           COLUMN = 1.57
                           WIDTH = 86.5
                           HEIGHT = 2.77
                           EDGE-PIXELS = 2 
                           GRAPHIC-EDGE  = TRUE                            
                           VISIBLE = TRUE.
                END.
                WHEN "c-narrativa-apr" THEN 
                    ASSIGN h-frame:WIDTH = 86.50
                           h-frame:COLUMN = 2.57 NO-ERROR.
            END CASE.
            IF h-frame:NAME MATCHES("rt-mold*") THEN DO:
                ASSIGN h-frame:VISIBLE = FALSE.
            END.
            ASSIGN h-frame = h-frame:NEXT-SIBLING NO-ERROR.
        END.
        ELSE LEAVE.
    END.
    FIND FIRST doc-pend-aprov WHERE ROWID(doc-pend-aprov) = p-row-table NO-LOCK NO-ERROR.
    IF AVAIL doc-pend-aprov THEN DO:
        ASSIGN whNrPedido:SCREEN-VALUE = string(doc-pend-aprov.num-pedido).
        ASSIGN whComprador:SCREEN-VALUE = doc-pend-aprov.cod-usuario.
        FIND FIRST ITEM OF doc-pend-aprov NO-LOCK NO-ERROR.
        IF AVAIL ITEM THEN DO:
            ASSIGN whItem:SCREEN-VALUE = item.desc-item.
        END.
        FIND FIRST ordem-compra OF doc-pend-aprov NO-LOCK NO-ERROR.
        IF AVAIL ordem-compra THEN DO:
            ASSIGN de-saldo = 0.
            FOR EACH saldo-estoq WHERE
                saldo-estoq.cod-estabel =   ordem-compra.cod-estabel  AND
                saldo-estoq.it-codigo   =   ordem-compra.it-codigo    NO-LOCK:
                ASSIGN de-saldo = de-saldo + saldo-estoq.qtidade-atu - saldo-estoq.qt-alocada.
            END.
            ASSIGN whQtdeEstoque:SCREEN-VALUE = string(de-saldo).
            ASSIGN whNarativa:SCREEN-VALUE = ordem-compra.narrativa.
            ASSIGN whContaContabil:SCREEN-VALUE = string(ordem-compra.conta-contabil,"99999999.99999").
            FIND FIRST conta-contab OF ordem-compra NO-LOCK NO-ERROR.
            IF AVAIL conta-contab THEN 
                ASSIGN whContaContabil-d:SCREEN-VALUE = conta-contab.titulo.
            ASSIGN whVlAtual:SCREEN-VALUE = STRING(round(ordem-compra.preco-unit,2),"->>>>>>>>>>>>>>>,>>9.99").
            ASSIGN whCustoAtual:SCREEN-VALUE = STRING(round(ordem-compra.preco-fornec,2),"->>>>>>>>>>>>>>>,>>9.99").
            FIND FIRST ITEM-uni-estab WHERE
                item-uni-estab.cod-estabel  =   ordem-compra.cod-estabel  AND
                item-uni-estab.it-codigo    =   ordem-compra.it-codigo    NO-LOCK NO-ERROR.
            IF AVAIL item-uni-estab THEN DO:
                ASSIGN 
                    wvVlAntig:SCREEN-VALUE  = STRING(round(item-uni-estab.preco-repos,2),"->>>>>>>>>>>>>>>,>>9.99")
                    whCustoAntig:SCREEN-VALUE  = string(round(item-uni-estab.preco-ul-ent,2),"->>>>>>>>>>>>>>>,>>9.99").
            END.
            /*FIND FIRST cotacao-item OF ordem-compra NO-LOCK NO-ERROR.
            FIND LAST tb-cotacao-item 
                WHERE tb-cotacao-item.it-codigo = ordem-compra.it-codigo 
                  AND tb-cotacao-item.cod-emitente = ordem-compra.cod-emitente
                  AND tb-cotacao-item.numero-ordem <> ordem-compra.numero-ordem NO-LOCK NO-ERROR.
            IF AVAIL tb-cotacao-item THEN DO:
                
            END.
            IF AVAIL cotacao-item THEN DO:
                

            END.*/
            FIND FIRST pedido-compr OF ordem-compra NO-LOCK NO-ERROR.
            
            IF AVAIL pedido-compr THEN DO:
                FIND FIRST cond-pagto OF pedido-compr NO-LOCK NO-ERROR.
                IF AVAIL cond-pagto THEN DO:                
                    ASSIGN whqtdeParcelas:SCREEN-VALUE = string(cond-pagto.num-parcelas).
                    FIND FIRST prazo-compra OF ordem-compra NO-LOCK NO-ERROR.
                    IF AVAIL prazo-compra THEN DO:
                        IF cond-pagto.dia-mes-venc > 0 THEN DO:
                            ASSIGN da-data-primeiro-vcto = date(month(prazo-compra.data-entrega),DAY(DATE("01/" + string(cond-pagto.dia-mes-venc) + "/2010")),YEAR(prazo-compra.data-entrega)) .
                        END.
                        ELSE DO:
                            ASSIGN da-data-primeiro-vcto = prazo-compra.data-entrega + cond-pagto.prazo[1].
                        END.
                    END.
                    IF cond-pagto.num-parcelas > 1 THEN DO:
                        ASSIGN whUltimoVencimento:SCREEN-VALUE = string(prazo-compra.data-entrega + cond-pagto.prazo[cond-pagto.num-parcelas]).

                    END.
                    whPrimeiroVencimento:SCREEN-VALUE = string(da-data-primeiro-vcto).
                END.
            END.
            FIND FIRST emitente OF pedido-compr NO-LOCK NO-ERROR.
            IF AVAIL emitente THEN DO:
                ASSIGN whEmitente:SCREEN-VALUE = emitente.nome-emit.
            END.
        END.
    END.
END.

Resolvi o problema. O que fiz, não deixa de ser uma ganbiarra mas funcionou, atribui o tamanho dos camposq ue apareciam para 1 por 1. Daí o campo desapareceu.

Amigo,
estou com uma dificuldade parecida. Quando seleciono mais de um pedido, o programa não atualiza a informação do campo. Poderias postar o código com a solução?

Obrigado,
Carlos Neto