[RESOLVIDO] Formula Programa - EDI - Não retorna nada

Bom dia,
Aqui está um exemplo de como faço.

Código:

/*      Caixa Economica Federal
        Programa para somar a data a uma quantidade de dias
        Autor: Elmo de Oliveira
        Empresa: Advance Tintas
        Data: 29/10/2015

*/
def temp-table tt_param_program_formul no-undo
    field tta_cdn_segment_edi              as Integer format ">>>>>9" initial 0 label "Segmento" column-label "Segmento"
    field tta_cdn_element_edi              as Integer format ">>>>>9" initial 0 label "Elemento" column-label "Elemento"
    field tta_des_label_utiliz_formul_edi  as character format "x(10)" label "Label Utiliz Formula" column-label "Label Utiliz Formula"
    field ttv_des_contdo                   as character format "x(47)" label "Conteudo" column-label "Conteudo"
    index tt_param_program_formul_id       is primary
          tta_cdn_segment_edi              ascending
          tta_cdn_element_edi              ascending
    .

/********************** Temporary Table Definition End **********************/

/************************ Parameter Definition Begin ************************/

def Input param p_cdn_mapa_edi
    as Integer
    format ">>>>>9"
    no-undo.
def Input param p_cdn_segment_edi
    as Integer
    format ">>>>>9"
    no-undo.
def Input param p_cdn_element_edi
    as Integer
    format ">>>>>9"
    no-undo.
def Input param table
    for tt_param_program_formul.




DEF VAR c-serie AS CHAR.
DEF VAR c-nota  AS CHAR.
DEF VAR c-item  AS CHAR.
DEF VAR i-seq   AS INT.
DEF VAR c-segto AS CHAR.
DEF VAR c-cgc   AS CHAR.
def var c-estabel as char.
def var log-primeiro-gir as logical.
def var c-segto-pci as char format "x(03)".
def var c-segto-rff as char FORMAT "X(38)".
def var c-segto-gir as char FORMAT "X(27)".
def var v-cont as integer.
def var v_hdl_aux  as Handle  format ">>>>>>9" NO-UNDO.
def var l-primeiro-pci as logical initial yes.
DEF VAR data-multa AS DATE FORMAT "99/99/99" NO-UNDO.

def var v-nome like emitente.nome-abrev.

ASSIGN c-segto = "".

/*for each tt_param_program_formul.
    message "Segmento : " tta_cdn_segment_edi                 skip  
            "Elemento : " tta_cdn_element_edi                 skip
            "Label    : " tta_des_label_utiliz_formul_edi     skip
            "Conteudo : " ttv_des_contdo                      skip
            "SubStr   : " substring(ttv_des_contdo,21,06)     view-as alert-box.
end.*/


find first tt_param_program_formul  where
      tt_param_program_formul.tta_des_label_utiliz_formul_edi begins "Dt_Venc_Ti" no-error.
    
if available tt_param_program_formul then DO:
    ASSIGN data-multa = DATE(STRING (tt_param_program_formul.ttv_des_contdo )) + 1.
    return REPLACE( STRING( DATE( STRING(data-multa) ) ), "/", "" ).
END.
else return "".

/*
find first tt_param_program_formul  where
      tt_param_program_formul.tta_des_label_utiliz_formul_edi = "vlr_eft_pg" no-error.
    
if available tt_param_program_formul
then return substring(tt_param_program_formul.ttv_des_contdo,232,13).
else return "0".


find first tt_param_program_formul  where
      tt_param_program_formul.tta_des_label_utiliz_formul_edi begins "vlr_dsc_tt" no-error.
    
if available tt_param_program_formul
then return substring(tt_param_program_formul.ttv_des_contdo,162,13).
else return "0".


find first tt_param_program_formul  where
      tt_param_program_formul.tta_des_label_utiliz_formul_edi begins "vlr_mlt_tt" no-error.
    
if available tt_param_program_formul
then return substring(tt_param_program_formul.ttv_des_contdo,166,13).
else return "0".

return "03/03/2015". */

Perfeito cara, funcionou !!! Vlw elmo........