Completar Pedido de Venda

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

  1. Carlos Alberto Giusti

    Carlos Alberto Giusti Membro Ativo

    Estou criando um programa de implantação de pedidos de venda através de uma planilha excel.
    Foi feita toda a rotina e implantou o pedido.

    estou usando a rotina abaixo para completar o pedido:

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

    A questão é a seguinte: No pd4000 tem vinculada uma upc pedindo se é cif ou fob.
    quando uso essa rotina, acessa a upc pedido se é cif ou fob. Como já informo no programa não preciso informar nesse momento. Como faço para ao completar o pedido de venda pelo programa não utilizar a upc? Mas sem desvincular a upc do pd4000.
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Essa rotina usa o programa bodi159com, não o PD4000, vc tem uma UPC nele ou no PD4000?
  3. Carlos Alberto Giusti

    Carlos Alberto Giusti Membro Ativo

    Tem upc nos dois.

    No bodi159com tem uma upc. Se tiro a upc completa o pedido. Como posso ignorar a upc quando o acesso a completa pedido vem de programa específico e não do pd4000.
  4. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    coloca mais ou menos isso no começo da UPC ....
    Código:
        assign level = 1.
        repeat while program-name(level) <> ?:
            if program-name(level) begins 'eqp/eq0506b.w' then return.
            assign level = level + 1.
        end.
    
  5. Carlos Alberto Giusti

    Carlos Alberto Giusti Membro Ativo

    RESOLVIDO.

    Obrigado a todos.

Compartilhe esta Página