Pintar o FILL-IN.

Bom dia
Por Favor..

Qual código e em qual evento para pintar o fundo do componente FILL-IN?

Obrigado

Veja se precisa algo assim na UPC.

Código:

IF p-ind-event  = "initialize" AND
   p-ind-object = "viewer"     THEN DO:

    assign wgh-grupo = p-wgh-frame:first-child.
    assign wh-window = p-wgh-frame:parent.

    DO WHILE valid-handle(wgh-grupo):
        assign wgh-child = wgh-grupo:first-child.
        do  while valid-handle(wgh-child):
            case wgh-child:type:
                when "fill-in" then do:
                    IF wgh-child:NAME = "cod-emitente" THEN DO:
                        ASSIGN wh-cod-emitente = wgh-child
                            wgh-child:BGCOLOR = 10.
                    END.
                end.
            end.
            assign wgh-child = wgh-child:next-sibling no-error.
        end.
        leave.
    END.
END.