Duvida tt-digita em relatórios

Discussão em 'Progress 4GL' iniciado por erickles, Julho 10, 2014.

Página 1 de 2
  1. erickles

    erickles Membro Participativo

    Bom dia pessoal,

    Estou desenvolvendo um relatório que contém a tt-digita, porém a mesma não esta migrando par ao rp.p. Sabem me dizer que tipo de parametrização devo fazer? Pois dei uma olhada na procedure "send-records" e não tem nada lá...
    erickles, Julho 10, 2014
    #1
  2. erickles

    erickles Membro Participativo

    Guys,

    Faltava isso no rp.p:

    Código:
    FOR EACH tt-raw-digita:

    CREATE tt-digita.
    RAW-TRANSFER raw-digita TO tt-digita.
   
END.
    Abraços!
    erickles, Julho 10, 2014
    #2
    reissobr curtiu isso.
  3. Cobra.cne

    Cobra.cne Equipe de Suporte Moderador

    Só complementando, também já passei por isso, e constatei que este código é feito automático quando o pré-processador PGDIG esta definido
    Código:
    &GLOBAL-DEFINE PGDIG f-pg-dig
    Abs.
    Cobra.cne, Julho 15, 2014
    #3
  4. pizzaia

    pizzaia Membro Participativo

    bom dia.

    estou com um problema parecido, preciso passar a tt-digita para rp.p, porém não terei a página de digitação f-pg-dig no programa chamador. a tt-digita será populada por um terceiro programa.

    exemplo:
    programa de consulta de pedidos cipd010.w
    relatório de pedido: cipd001.w e cipd001rp.p

    pela consulta (cipd010.w) passo os pedidos selecionados para o cipd001.w populando a tt-digita, porém o cipd001rp.p não está recebendo a tt-digita.

    pelo que entendi na explicação do Cleiton precisaria ter a f-pg-dig no cipd001.w, porém não gostaria de criar a mesma.

    é possível resolver esta situação sem criar a estrutura da tela de digitação ?

    obrigado.
    pizzaia, Fevereiro 10, 2015
    #4
  5. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Código:
            define private variable raw-param       as raw       no-undo.
        define buffer bfTit_acr for tit_acr.

        define temp-table tt-param
            field destino              as integer
            field arquivo              as character
            field usuario              as character
            field i-ep-codigo          like mguni.empresa.ep-codigo
            field data-exec            as date
            field hora-exec            as integer
            field dt-emissao-inicial   like titulo.dt-emissao
            field dt-emissao-final     like titulo.dt-emissao
            field dt-vencimen-inicial  like titulo.dt-vencimen
            field dt-vencimen-final    like titulo.dt-vencimen
            field cod-emitente-inicial like titulo.cod-emitente
            field cod-emitente-final   like titulo.cod-emitente
            field rs-instrucao         as integer
            field c-instrucao          as character format "x(50)" extent 3
            field portador             as integer
            field modalidade           as integer
            field cod-canal-venda      like esp_par_comloj.cod_canal_venda.

        define temp-table tt-digita
            field cod_estabel  like esp_orcamento.cod_estabel
            field num_titulo   like tit_acr.cod_tit_acr
            field parcela      as character form "XX" label "Pc"
            field cod_esp      as character form "XXX" label "Esp"
            field serie        as character form "XXX" label "Ser"
            field vl_boleto    like esp_orcam_condpgto.vl_boleto
            field cod_emitente like emitente.cod-emitente
            field nome_abrev   like emitente.nome-abrev
            field dt_vencto    like tit_acr.dat_vencto_tit_acr
            field nosso-nro    as character label "Nosso Número".

        define temp-table t1-digita like tt-digita.

        define temp-table tt-raw-digita
                       field raw-digita      as raw.

                    raw-transfer tt-param to raw-param.

                    empty temp-table tt-raw-digita.

                    for each tt-digita:
                        create tt-raw-digita.
                        raw-transfer tt-digita to tt-raw-digita.raw-digita.
                    end.

                    run imp/ime117rp.p (input raw-param, input table tt-raw-digita).
    bootstrapmaster, Fevereiro 10, 2015
    #5
    rohis e reissobr curtiram isso.
  6. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Ignora a declaração PRIVATE, é que eu uso isso dentro de uma classe.
    bootstrapmaster, Fevereiro 10, 2015
    #6
Página 1 de 2

Compartilhe esta Página