Qual UPC altero o valor unitario da NF antes do Calculo

Discussão em 'Progress 4GL' iniciado por andreluisbrandao, Janeiro 6, 2016.

Página 1 de 2
  1. andreluisbrandao

    andreluisbrandao Membro Participativo

    Bom dia Senhores,

    Estamos aqui na BAHIA com uma dificuldade com relação a impressão do valor unitario da nota fiscal sem a inclusão do percentual de uma norma chama SIMBAHIA. Gostaria de saber dos mestre, em qual programa posso colocar uma UPC para alterar esse valor unitario da NF, estou tentando pelo programa bodi317ef , porem acho que apos o calculo do embarque o valor retorna para o original.

    Alguma luz por favor.
    andreluisbrandao, Janeiro 6, 2016
    #1
  2. ds201

    ds201 Membro Participativo

    Bom dia

    Acredito que se a norma é estadual, a TOTVS é obrigada por contrato a ajustar a produto para que a referida norma seja atendida.
    Vale a pena fazer contato com A TOTVS e ver se é assim que funciona.

    Nota: Um BO tem vários eventos. E preciso saber o que cada um deles faz e como devem ser usados para atender sua necessidade.

    Sds
    ds201, Janeiro 6, 2016
    #2
  3. andreluisbrandao

    andreluisbrandao Membro Participativo

    Blz,

    Existe algum programa que eu possa colocar na uma UPC no momento da geração do XML?
    andreluisbrandao, Janeiro 6, 2016
    #3
  4. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    o ideal é vc ajustar tudo na BO antes de criar o XML, que dai já vai certo o valor, faz uma upc para bodi326emb, tem os eventos beforeEfetivaNota e afterEfetivaNota, acredito que nesse momento a nota já está pronta, o que vc fizer vai ficar valendo.
    Código:
    {include/i-epc200.i}

def input        parameter p-ind-event as char no-undo.
def input-output parameter table for tt-epc.

define temp-table tt-notas-geradas no-undo
       field rw-nota-fiscal as rowid
       field nr-nota        as character
       field seq-wt-docto   as integer.

def var h-bo as widget-handle no-undo.
def var l-procedimento-ok as logical no-undo.


for first tt-epc no-lock
    where tt-epc.cod-event     = 'beforeEfetivaNota'
      and tt-epc.cod-parameter = 'Table-Rowid':

    for first wt-docto exclusive-lock
        where rowid(wt-docto) = to-rowid(tt-epc.val-parameter):

        for first ped-venda no-lock
            where ped-venda.nr-pedcli  = wt-docto.nr-pedcli
              and ped-venda.nome-abrev = wt-docto.nome-abrev:
            assign wt-docto.observ-nota = wt-docto.observ-nota + ' ~n ' + ped-venda.observacoes.
        end.

    end.
    release wt-docto no-error.
end.


for first tt-epc no-lock
    where tt-epc.cod-event = 'afterEfetivaNota':

    assign h-bo = widget-handle(tt-epc.val-parameter).

    run buscaTtNotasGeradas in h-bo (output l-procedimento-ok,
                                     output table tt-notas-geradas).

    for each tt-notas-geradas
        ,
        first nota-fiscal fields (cod-estabel serie nr-nota-fis)
        where rowid(nota-fiscal) = tt-notas-geradas.rw-nota-fiscal
        no-lock
        :

        for first esp_wt_docto of tt-notas-geradas
            exclusive-lock:

            find esp_nota_fiscal of nota-fiscal
                exclusive-lock no-error.

            if not avail esp_nota_fiscal then do:
                create esp_nota_fiscal.
                buffer-copy nota-fiscal to esp_nota_fiscal.
            end.

            buffer-copy esp_wt_docto to esp_nota_fiscal.
   
            delete esp_wt_docto.
        end.

        /* executa o procedmento do ime082 para criar a esp_nota_fiscal,
           pois na atualizacao do estoque (no caso de ser automatica) eh usada */
        publish 'bodi317efAfterEfetivaNota'
            (input nota-fiscal.cod-estabel,
             input nota-fiscal.serie,
             input nota-fiscal.nr-nota-fis).

    end. /* tt-notas-geradas */

end. /* first tt-epc */

return 'ok':u.
    bootstrapmaster, Janeiro 6, 2016
    #4
  5. andreluisbrandao

    andreluisbrandao Membro Participativo

    Boa tarde ,

    Essa BO bodi326emb não existe aqui na minha base, Existe a bodi326 que é - BO Simulação Embarque porem tem a BO bodi317ef que é BO de Efetivação do Cálculo da Nota. Porem ja coloquei a UPC nessa ultima e não muda os valores. Qual BO seria mais eficiente?
    andreluisbrandao, Janeiro 7, 2016
    #5
  6. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    que doido, estou no TOTVS 12.1.6 e essa UPC da BO é importante pra caramba pra nós.
    bootstrapmaster, Janeiro 7, 2016
    #6
Página 1 de 2

Compartilhe esta Página