Duvida Informar deposito de baixa ao gerar nota pelo bodi317

Discussão em 'EMS , HCM e Totvs 11' iniciado por fabianofss, Julho 12, 2023.

  1. fabianofss

    fabianofss Membro Participativo

    Oi pessoal,
    Tem um sistema de pronta Entrega onde é feita uma nota de remessa para gerar saldo no deposito AMB e ao faturar os pedidos de venda pelo bodi317 estão baixando saldo do EXP em vez de baixar esse saldo do AMB.

    Sabem onde fica esta relação de faturamento x deposito
    ou se caso eu modificar o deposito na tabela fat-ser-lote antes de efetivar a nota funcionaria de baixar do deposito AMB?
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

  3. fabianofss

    fabianofss Membro Participativo

  4. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Então, customizado é customizado, tem que alterar o customizado
    fabianofss curtiu isso.
  5. lcpaulino

    lcpaulino Membro Participativo

    Olá, há muito tempo atrás eu fiz um específico para geração de notas e me lembro que utilizava o procedure "criaAlteraWtFatSerLote" da bo bodi317... eu nem sei se esse programa ainda está funcionando na empresa onde eu desenvolvi... mas segue abaixo o trecho onde eu manipulava a baixa do estoque via bodi317 (talvez ajude):

    /* Inicio Bloco a ser repetido para cada item da nota */
    bloco-cria-item:

    /* Limpar a tabela de erros em todas as BOS */
    run emptyRowErrors in h-bodi317in.

    /* Disponibilizar o registro WT-DOCTO na bodi317sd */
    run localizaWtDocto in h-bodi317sd(input i-seq-wt-docto,
    output l-proc-ok-aux).

    /* Cria um item para nota fiscal. */
    run criaWtItDocto in h-bodi317sd (input ?,
    input "",
    input tt-item-nota.seq-id-carga-nota,
    input tt-item-nota.it-codigo,
    input tt-item-nota.cod-refer,
    input tt-item-nota.nat-operacao-rem-pc,
    output i-seq-wt-it-docto,
    output l-proc-ok-aux).


    /*****Inicio Especifico -> Baixa correta de Lotes******/
    FOR EACH wt-fat-ser-lote EXCLUSIVE-LOCK
    WHERE wt-fat-ser-lote.seq-wt-docto = i-seq-wt-docto
    AND wt-fat-ser-lote.seq-wt-it-docto = i-seq-wt-it-docto:
    DELETE wt-fat-ser-lote.
    END.
    RUN criaAlteraWtFatSerLote IN h-bodi317sd (INPUT YES,
    INPUT i-seq-wt-docto,
    INPUT i-seq-wt-it-docto,
    INPUT tt-item-nota.it-codigo,
    INPUT tt-item-nota.cod-depos,
    INPUT tt-item-nota.cod-localiz,
    INPUT tt-item-nota.lote-na-fat-ser-lote,
    INPUT tt-item-nota.qt-lanc,
    INPUT 0,
    INPUT IF ITEM.tipo-con-est >= 3
    THEN 12/31/9999
    ELSE ?,
    OUTPUT l-proc-ok-aux).
    /* Caso ocorreu problema nas valida‡äes, nÆo continua o processo */
    if not l-proc-ok-aux then
    undo, leave.
    /*****Fim Especifico -> Baixa correta de Lotes******/
  6. fabianofss

    fabianofss Membro Participativo

    Boa tarde,
    foi bem assim a solução que acabei usando, só que em vez de deletar e gerar o wt-fat-ser-lote eu estou alterando o wt-fat-ser-lote.cod-depos.

    Obrigado!

Compartilhe esta Página