Erro ao implantar pedido via programa

Discussão em 'EMS , HCM e Totvs 11' iniciado por Carlos Alberto Giusti, Julho 17, 2023.

Página 1 de 2
  1. Carlos Alberto Giusti

    Carlos Alberto Giusti Membro Ativo

    Estou criando um programa que implanta pedido de venda através de uma planilha excel.
    Já fiz a rotina de leitura da planilha (está ok).
    Agora estou fazendo a rotina de implantação de pedido.
    Ao fazer a rotina de criação do ped-venda está dando o erro anexo.
    Saberia me dizer o porque desse erro?

    Arquivos Anexados:

    Carlos Alberto Giusti, Julho 17, 2023
    #1
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Tu tá gravando direto na tabela ped-venda ou usando a API?
    rafael.andrade, Julho 17, 2023
    #2
  3. Carlos Alberto Giusti

    Carlos Alberto Giusti Membro Ativo

    assim:

    RUN InputTable IN h_bodi159sdf(INPUT TABLE tt-ped-venda).
    RUN outputTable IN h_bodi159sdf(OUTPUT TABLE tt-ped-venda).
    RUN emptyRowErrors IN h_bodi159.
    RUN openQueryStatic IN h_bodi159(INPUT "Main":U).
    RUN getRowErrors IN h_bodi159(OUTPUT TABLE RowErrors).
    RUN setRecord IN h_bodi159(INPUT TABLE tt-ped-venda).
    RUN createRecord IN h_bodi159.
    RUN getRowErrors IN h_bodi159(OUTPUT TABLE RowErrors).
    Carlos Alberto Giusti, Julho 17, 2023
    #3
  4. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Usa essa aqui, é mais completa:

    Código:
    {cdp\cdapi300.i1}  /* Temp-Table de Erros   */
{pdp\pdapi151.i}   /* Temp-Table Ped-Venda   */
{pdp\pdapi151.i1}  /* Temp-Table Ped-Item    */
{pdp\pdapi151.i2}  /* Temp-Table Ped-Repre   */
{pdp\pdapi151.i3}  /* Temp-Table Ped-Ent     */
{pdp\pdapi151.i4}  /* Temp-Table Cond-Ped    */
{pdp\pdapi151.i5}  /* Temp-Table Ped-Antecip */
{pdp\pdapi151.i6}  /* Temp-Table Pd-vendor   */
{cdp\cdapi150.i3}  /* Temp-Table de VersÆo   */
{cdp\cdapi150.i4}  /* Temp-Table de Erros    */

/* Preenche as tabelas tt-ped-venda e tt-ped-item*/

RUN pdp\pdapi152.r (INPUT-OUTPUT TABLE tt-ped-venda,
                    INPUT-OUTPUT TABLE tt-ped-item,
                    INPUT-OUTPUT TABLE tt-ped-ent,
                    INPUT-OUTPUT TABLE tt-ped-repre,
                    INPUT-OUTPUT TABLE tt-con-pges,
                    INPUT-OUTPUT TABLE tt-ped-antecip,
                    INPUT-OUTPUT TABLE tt-versao-integr,
                    OUTPUT       TABLE tt-erros-geral,
                    INPUT        i-cod-maq-origem,
                    INPUT        i-num-processo,
                    INPUT        NO,
                    INPUT        TABLE tt-pd-vendor).

/* Leia os erros da tabela tt-erros-geral */

/* Se não aconteceu erro, pega o ROWID do pedido que acabou de criar e completa ele usando a BO */

DEF VAR h-bodi149com AS HANDLE.
   RUN dibo\bodi159com.r PERSISTENT SET h-bodi149com.
   RUN CompleteOrder IN h-bodi149com (INPUT ROWID(ped-venda),
                                      OUTPUT TABLE RowErrors).

/* Leia a RowErrors pra mostrar os erros */
    rafael.andrade, Julho 17, 2023
    #4
  5. Carlos Alberto Giusti

    Carlos Alberto Giusti Membro Ativo


    ok vou testar essa.
    Carlos Alberto Giusti, Julho 17, 2023
    #5
  6. Carlos Alberto Giusti

    Carlos Alberto Giusti Membro Ativo


    No ambiente do cliente não tem essas apis.
    Carlos Alberto Giusti, Julho 17, 2023
    #6
Página 1 de 2

Compartilhe esta Página