Critica no programa prgfin/apb/apb900zg.py

Discussão em 'Progress 4GL' iniciado por sergiotomio, Março 19, 2014.

  1. sergiotomio

    sergiotomio Sem Pontuação

    Alguém tem alguma ideia do que pode estar causando a crítica :
    ------------------------------------------------------------------------------------------------------------------------
    "Já existe pedido de baixa para o portador !"
    Ajuda:
    Já existe pedido de baixa para o portador, não será criado um novo movimento de pedido de baixa (PBX).
    ------------------------------------------------------------------------------------------------------------------------
    criei um programa somente com as temp-table e a chamada do programa, fixando todos os campos da tabela:

    CREATE tt_integr_apb_lote_impl.
    ASSIGN ...
    CREATE tt_integr_apb_item_lote_impl_3.
    ASSIGN ...
    CREATE tt_integr_apb_aprop_ctbl_pend.
    ASSIGN ...
    RUN prgfin/apb/apb900zg.py PERSISTENT SET v_apg900zg.
    RUN pi_main_block_api_tit_ap_cria_4 in v_apg900zg (INPUT 5, INPUT "EMS2", INPUT-OUTPUT TABLE tt_integr_apb_item_lote_impl_3).

    Mas a critica continua.
    Será que pode ser parametrização do DATASUL ?
  2. sergiotomio

    sergiotomio Sem Pontuação

    Me desculpem, esqueci de informar que estou utilizando o ambiente do TOTVS11
  3. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Precisamos de mais detalhes pra ajudar vc...

    O erro acontece com o produto padrão do EMS?

    O programa que você fez é UPC ou independente?

    [...] e por ai vai.
  4. sergiotomio

    sergiotomio Sem Pontuação

    Bom dia Rafael, na verdade, abri um chamado na TOTVS, e através de um exemplo que me enviaram. acabei alimentando os campos conforme o exemplo, e a crítica sumiu. Posso resumir, que precisa alimentar alguns campos chaves para que não dê esta critica novamente.
    Segue trecho da procedure onde alimentei a temp-tablem e funcionou:

    CREATE tt_integr_acr_renegoc.
    ASSIGN
    tt_integr_acr_renegoc.tta_cod_estab = tit_acr.cod_estab
    tt_integr_acr_renegoc.tta_num_renegoc_cobr_acr = 0
    tt_integr_acr_renegoc.tta_cod_refer = "teste003r"
    tt_integr_acr_renegoc.tta_dat_transacao = TODAY
    tt_integr_acr_renegoc.tta_cdn_cliente = tit_acr.cdn_cliente
    tt_integr_acr_renegoc.tta_cod_indic_econ = tit_acr.cod_indic_econ
    tt_integr_acr_renegoc.tta_cod_espec_docto = "DX"
    tt_integr_acr_renegoc.tta_cod_ser_docto = "5"
    tt_integr_acr_renegoc.tta_cod_tit_acr = "INVOICE003" /* Substituir pelo cod_invoice */
    tt_integr_acr_renegoc.tta_cod_portador = tit_acr.cod_portador
    tt_integr_acr_renegoc.tta_cod_cart_bcia = tit_acr.cod_cart_bcia
    tt_integr_acr_renegoc.tta_cdn_repres = tit_acr.cdn_repres
    tt_integr_acr_renegoc.tta_dat_primei_vencto_renegoc = TODAY
    tt_integr_acr_renegoc.ttv_rec_renegoc_acr = recid(tt_integr_acr_renegoc)
    tt_integr_acr_renegoc.ttv_log_atualiza_renegoc = YES /* Selecionado YES para atualizar direto sem passar pelo acr748aa.r */
    .

    CREATE tt_integr_acr_item_renegoc.
    ASSIGN
    tt_integr_acr_item_renegoc.tta_cod_estab = tit_acr.cod_estab
    tt_integr_acr_item_renegoc.tta_num_renegoc_cobr_acr = tt_integr_acr_renegoc.tta_num_renegoc_cobr_acr
    tt_integr_acr_item_renegoc.tta_cod_estab_tit_acr = tit_acr.cod_estab
    tt_integr_acr_item_renegoc.tta_num_id_tit_acr = tit_acr.num_id_tit_acr
    tt_integr_acr_item_renegoc.ttv_rec_renegoc_acr = tt_integr_acr_renegoc.ttv_rec_renegoc_acr.

    run prgfin/acr/acr902zc.py persistent set v_acr902zc.

    run pi_main_code_api_integr_acr_renegoc_8 in v_acr902zc (INPUT table tt_integr_acr_renegoc,
    INPUT table tt_integr_acr_item_renegoc,
    INPUT table tt_integr_acr_item_renegoc_new,
    INPUT table tt_integr_acr_fiador_renegoc,
    output table tt_log_erros_renegoc). /*pi_main_code_api_integr_acr_renegoc_3*/

    DELETE PROCEDURE v_acr902zc.
    rafael.andrade curtiu isso.

Compartilhe esta Página