[RESOLVIDO] tamanho campo de email em "Destinatario XML"

Bom Dia Pessoal,

Alguem ja precisou de mais que 60 caracteres no campo de email do contato do cliente ?

Fiz uma upc para aumentar o tamanho do campo para 300 caracteres.

Funcionou ok.

teria como me mostrar, por favor ?

voce sabe mexer com UPC ? Tem que cadastrar no programa cd0704b a upc.

Segue abaixo o codigo:

[prog=]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 New Global Shared Var h-comprim As WIDGET-HANDLE No-undo.
Def New Global Shared Var h-largura As WIDGET-HANDLE No-undo.
Def New Global Shared Var h-diametro As WIDGET-HANDLE No-undo.
Def New Global Shared Var h-it-codigo As WIDGET-HANDLE No-undo.

Def New Global Shared Var tx-comprim As WIDGET-HANDLE No-undo.
Def New Global Shared Var tx-largura As WIDGET-HANDLE No-undo.
Def New Global Shared Var tx-diametro As WIDGET-HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR l-flag AS LOGICAL INITIAL NO NO-UNDO.

DEF NEW GLOBAL SHARED VAR hFolder AS HANDLE .

DEF VAR ipagina AS INT.

def var c-objeto as char no-undo.

def new global shared var h_campo as widget-handle no-undo.
def new global shared var h_campo2 as widget-handle no-undo.
def new global shared var h_campo3 as widget-handle no-undo.
def new global shared var h_campo4 as widget-handle no-undo.
def var h_frame as widget-handle no-undo.
def var h_frame2 as widget-handle no-undo.
def var h_vapara as widget-handle no-undo.
Def New Global Shared Var h-nome-frame As Widget-handle No-undo.

assign c-objeto = entry(num-entries(p-wgh-objectrivate-data, "~/"), p-wgh-objectrivate-data, "~/").

If p-ind-object = "viewer" AND
p-ind-event = "before-initialize"
Then Do:

ASSIGN h_Frame = p-wgh-frame:FIRST-CHILD.
ASSIGN h_Frame = h_Frame:FIRST-CHILD.

DO WHILE h_Frame <> ?:
if h_frame:type <> "field-group" then do:

IF h_Frame:NAME = "e-mail" THEN
DO :
assign h_campo2 = h_Frame.
h_campo2:FORMAT = "X(300)".
h_campo2:WIDTH = 66.
END.

ASSIGN h_Frame = h_Frame:NEXT-SIBLING.
end.
else do:
assign h_frame = h_frame:first-child.
end.
END.

END.[/prog]