1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

[RESOLVIDO] Erro ao Gerar Nota Fiscal

Discussão em 'EMS , HCM e Totvs 11' iniciado por Rogerio, Maio 31, 2017.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Galera estou gerando notas fiscais via BO através de um pedido, mas ao efetivar a nota está dando o erro abaixo, alguém já teve esse erro?

    upload_2017-5-31_15-52-9.png
    upload_2017-5-31_15-52-51.png
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Eu passei por isso outro dia, nas temp-tables que vc passa para a BO, se vc não tem Entregas do pedido, vc não faz nada, o que eu quero dizer é o seguinte, eu estava gerando uma nota sem pedido, dai no campo nr-pedcli eu coloquei = '' e a BO reclamou que não achou o pedido, dai eu simplesmente não fiz o assign do campo, dai passou, veja se não é isso.
  3. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Então eu nao sei o que está errado... Segue o trecho do programa que uso para gerar a nota.... ele dá o erro no momento que roda o EFETIVANOTA
    Código:
        RUN dibo/bodi317in.p PERSISTENT SET h-bodi317in.
        RUN inicializaBOS IN h-bodi317in(OUTPUT h-bodi317pr,
                                         OUTPUT h-bodi317sd,    
                                         OUTPUT h-bodi317im1bra,
                                         OUTPUT h-bodi317va).
    
        FOR EACH tt-gera BREAK BY tt-gera.nr-pedcli.
    
            IF l-erro THEN
                NEXT.
    
            IF FIRST-OF(tt-gera.nr-pedcli) THEN
            DO:
                ASSIGN l-erro = NO.
                FIND FIRST ped-venda WHERE ped-venda.nr-pedcli  = tt-gera.nr-pedcli AND
                                           ped-venda.nome-abrev = tt-gera.nome-abrev NO-LOCK NO-ERROR.
                RUN criaWtDocto IN h-bodi317sd
                        (INPUT  c-seg-usuario,
                         INPUT  ped-venda.cod-estabel,
                         INPUT  INPUT FRAME {&FRAME-NAME} fi-serie,
                         INPUT  1,
                         INPUT  ped-venda.nome-abrev,
                         INPUT  ped-venda.nr-pedcli,
                         INPUT  1,
                         INPUT  9999,
                         INPUT  INPUT FRAME {&FRAME-NAME} fi-dt-emis-nota,
                         INPUT  0,
                         INPUT  tt-gera.nat-operacao,
                         INPUT  ped-venda.cod-canal-venda,
                         OUTPUT i-seq-wt-docto,
                         OUTPUT l-proc-ok-aux).
           
                RUN devolveErrosbodi317sd IN h-bodi317sd(OUTPUT c-ultimo-metodo-exec,
                                                         OUTPUT TABLE RowErrors).
                FIND FIRST RowErrors WHERE rowerrors.errorsubtype <> 'WARNING' NO-LOCK NO-ERROR.
                IF  AVAIL RowErrors THEN
                DO:
                    {method/showmessage.i1}
                    {method/showmessage.i2 &Modal="yes"}
                    ASSIGN l-erro = YES.
                    NEXT.
                END.
            END.
    
            run localizaWtDocto in h-bodi317sd(input  i-seq-wt-docto,
                                               output l-proc-ok-aux).
    
            FIND FIRST bf-ped-item WHERE ROWID(bf-ped-item) = tt-gera.r-rowid NO-LOCK NO-ERROR.
            FIND FIRST ITEM OF bf-ped-item NO-LOCK NO-ERROR.
            ASSIGN c-it-codigo = bf-ped-item.it-codigo
                   c-cod-refer = bf-ped-item.cod-refer.
            run criaWtItDocto in h-bodi317sd  (input  tt-gera.r-rowid,
                                               input  "ped-item",
                                               input  0,
                                               input  '' ,
                                               input  '' ,
                                               input  tt-gera.nat-operacao,
                                               output i-seq-wt-it-docto,
                                               output l-proc-ok-aux).
    
            run devolveErrosbodi317sd in h-bodi317sd(output c-ultimo-metodo-exec,
                                                     output table RowErrors).
    
            FIND FIRST RowErrors WHERE rowerrors.errorsubtype <> 'WARNING' NO-LOCK NO-ERROR.
            IF  AVAIL RowErrors THEN
            DO:
                {method/showmessage.i1}
                {method/showmessage.i2 &Modal="yes"}
                ASSIGN l-erro = YES.
                NEXT.
            END.
    
            run WriteUomQuantity        in h-bodi317sd (input  i-seq-wt-docto,
                                                        input  i-seq-wt-it-docto,
                                                        input  tt-gera.qtde,
                                                        input  ITEM.un,
                                                        output de-quantidade-aux,
                                                        output l-proc-ok-aux).
    
            run localizaWtDocto       in h-bodi317pr(input  i-seq-wt-docto,
                                                     output l-proc-ok-aux).
    
            run localizaWtItDocto     in h-bodi317pr(input  i-seq-wt-docto,
                                                     input  i-seq-wt-it-docto,
                                                     output l-proc-ok-aux).
            run localizaWtItImposto   in h-bodi317pr(input  i-seq-wt-docto,
                                                     input  i-seq-wt-it-docto,
                                                     output l-proc-ok-aux).
    
            run calculaPrecos in h-bodi317pr(INPUT NO,
                                             output l-proc-ok-aux).
    
            run atualizaDadosItemNota in h-bodi317pr(output l-proc-ok-aux).
    
            run devolveErrosbodi317pr in h-bodi317pr(output c-ultimo-metodo-exec,
                                                     output table RowErrors).
    
            FIND FIRST RowErrors WHERE rowerrors.errorsubtype <> 'WARNING' NO-LOCK NO-ERROR.
            IF  AVAIL RowErrors THEN
            DO:
                {method/showmessage.i1}
                {method/showmessage.i2 &Modal="yes"}
                ASSIGN l-erro = YES.
                NEXT.
            END.
    
            IF LAST-OF(tt-gera.nr-pedcli) THEN
            DO:
                run calculaImpostosBrasil in h-bodi317im1bra(INPUT i-seq-wt-docto,
                                                             output l-proc-ok-aux).
    
                FIND FIRST RowErrors WHERE rowerrors.errorsubtype <> 'WARNING' NO-LOCK NO-ERROR.
                IF  AVAIL RowErrors THEN
                DO:
                    {method/showmessage.i1}
                    {method/showmessage.i2 &Modal="yes"}
                    ASSIGN l-erro = YES.
                    NEXT.
                END.
    
                run dibo/bodi317ef.p persistent set h-bodi317ef.
                run emptyRowErrors           in h-bodi317in.
                run inicializaAcompanhamento in h-bodi317ef.
                run efetivaNota              in h-bodi317ef(input  i-seq-wt-docto,
                                                            input  yes,
                                                            output l-proc-ok-aux).
                run finalizaAcompanhamento   in h-bodi317ef.
           
                run devolveErrosbodi317ef    in h-bodi317ef(output c-ultimo-metodo-exec,
                                                            output table RowErrors).
           
                FIND FIRST RowErrors WHERE rowerrors.errorsubtype <> 'WARNING' NO-LOCK NO-ERROR.
                IF  AVAIL RowErrors THEN
                DO:
                    {method/showmessage.i1}
                    {method/showmessage.i2 &Modal="yes"}
                    ASSIGN l-erro = YES.
                    NEXT.
                END.
                   
               
                FOR EACH tt-notas-geradas: DELETE tt-notas-geradas. END.
                run buscaTTNotasGeradas in h-bodi317ef(output l-proc-ok-aux,
                                                       output table tt-notas-geradas).
    
                FOR EACH tt-notas-geradas.
                    MESSAGE 'Nota Gerada ' tt-notas-geradas.nr-nota
                        VIEW-AS ALERT-BOX INFO BUTTONS OK.
                END.
           
                run finalizaBOS in h-bodi317in.
    
                ASSIGN l-erro = NO.
            END.
        END.
    
  4. af.dums

    af.dums Membro Ativo

    Consegue gerar um clientlog?
  5. ChacMaster

    ChacMaster Membro Participativo

    Passei um problema parecido com títulos uma vez, resolvi dando assign = ? (nulo) em todos os campos que não utilizei na TT, dá uma "tentiada", vai que cola ;)
  6. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    @af.dums Segue ClientLog....

    @ChacMaster vou fazer esse teste...

    Arquivos Anexados:

Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página