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

Duvida Codigo de produto no cliente no danfe

Discussão em 'EMS , HCM e Totvs 11' iniciado por reissobr, Março 22, 2016.

  1. reissobr

    reissobr Membro Participativo

    Pessoal, evolui um pouco.
    No Cd0903 existe a opção Descricao + Narrativa Item/Cli,
    Uma trigger no item cliente, de preencher automaticamente a narrativa, com algo tipo " seu codigo - xxxxxx" quando o campo Item Cliente for preenchido, e a opção acima marcado no Cd0903 também funciona.
  2. reissobr

    reissobr Membro Participativo

    Pessoal,
    Trabalhei um pouco mais na UPC para a BO317EF e o código do cliente saiu no DANFE pela UPC.
    Amanha alinho com o gestor, mas acho que o caminho que vamos implementar é via a UPC.
    Agradeço a todos que de uma forma ou de outra, contribuíram para mais este desenvolvimento.
  3. reissobr

    reissobr Membro Participativo

    Pessoal,
    Quando estou montando a narrativa da nota, coloquei o código abaixo:

    ASSIGN wt-it-docto.narrativa = wt-it-docto.narrativa + CHR(10) + CHR(13) + "Seu codigo " + item-cli.item-do-cli.

    O Objetivo era que a descricao do item saisse em uma linha, e a narrativa, com o código do cliente na linha de baixo, mas nao aconteceu.
    A descricao e a narrativa estao concatenadas, mas o "CR LF" foi ignorado, e saiu tudo na mesma linha.
    Tem alguma forma de forçar a quebra da linha, quando imprime descricao + narrativa informada ?
  4. elmo

    elmo Membro Ativo

    Bom dia @reissobr ,
    Aqui temos customizado que faz algo parecido, colocamos o lote, volume (litros) e a narrativa cadastrada no tela item x cliente caso exista. A upc também fica na BO317EF.
    No meu caso todo o texto é coloca na tabela nar-it-nota no campo narrativa e no CD0903 deixo Descrição + Narrativa Inform.

    Código:
    /*** Narrativa do Item da Nota Fiscal *********************/
                    for each it-nota-fisc of nota-fiscal no-lock,
                        each  item
                        where item.it-codigo = it-nota-fisc.it-codigo
                        AND   ITEM.tipo-contr <> 4 /*Diferente de debito direto*/
                        no-lock:
                       
                        assign c-mensagem-item = ""
                               c-out           = "".
                              
                              
                        /* Se existir narrativa no item x cliente considera como narrativa informada
                        /* INICIO: Norma Petrobras ********************************/
                        IF  item.ind-imp-desc = 3 OR       /* Descri‡Æo + Narrativa Item/Cliente */
                            item.ind-imp-desc = 8 then     /* Descri‡Æo + 24 Narrativa Item/Cliente */
                        DO:
    
                            FIND FIRST item-cli
                                 where item-cli.nome-abrev = nota-fiscal.nome-ab-cli
                                   and item-cli.it-codigo  = it-nota-fisc.it-codigo
                                   no-lock no-error.
                            IF AVAIL item-cli AND
                               item-cli.narrativa <> "" THEN
                            DO:
    
                                if item.ind-imp-desc = 3 then         
                                   ASSIGN c-mensagem-item = item-cli.narrativa.
                                ELSE
                                   ASSIGN c-mensagem-item = trim(entry(1,substring(item-cli.narrativa,1,24),chr(10))).
    
                            END.
                           
                        END.
                        /* FIM: Norma Petrobras ***********************************/
                        */
                       
                        
                        FIND FIRST item-cli
                             where item-cli.nome-abrev = nota-fiscal.nome-ab-cli
                               and item-cli.it-codigo  = it-nota-fisc.it-codigo
                               no-lock no-error.
                        IF AVAIL item-cli AND
                           item-cli.narrativa <> "" THEN
                        DO:
                           ASSIGN c-mensagem-item = item-cli.narrativa.                  
                        END.        
    
    find first nar-it-nota
                             where nar-it-nota.cod-estabel  = it-nota-fisc.cod-estabel
                               and nar-it-nota.serie        = it-nota-fisc.serie
                               and nar-it-nota.nr-nota-fis  = it-nota-fisc.nr-nota-fis
                               and nar-it-nota.nr-sequencia = it-nota-fisc.nr-seq-fat
                               and nar-it-nota.it-codigo    = it-nota-fisc.it-codigo
                               no-error. 
                        IF NOT AVAIL nar-it-nota THEN
                        DO:
                            CREATE nar-it-nota.
                            ASSIGN nar-it-nota.cod-estabel  = it-nota-fisc.cod-estabel
                                   nar-it-nota.serie        = it-nota-fisc.serie
                                   nar-it-nota.nr-nota-fis  = it-nota-fisc.nr-nota-fis
                                   nar-it-nota.nr-sequencia = it-nota-fisc.nr-seq-fat
                                   nar-it-nota.it-codigo    = it-nota-fisc.it-codigo.                                                  
                        END.                       
                        ASSIGN nar-it-nota.narrativa = c-mensagem-item. /*nar-it-nota.narrativa*/                              
                        
    reissobr curtiu isso.
  5. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    eu acredito que o seu problema esteja no chr(13), isso é de quando usavamos impressoras matriciais pra fazer o LF e o CR, acho que só o chr(10) seja o suficiente.
    reissobr curtiu isso.
  6. reissobr

    reissobr Membro Participativo

    Valeu pessoal.
    Obrigado pelo fonte Elmo.
    Richard, vou fazer o teste sem o chr(13).
    Mas pelo que andei olhando, tem alguma tratativa da descricao nos ft0518fx ....
    Assim que resolver, compartilho.

Compartilhe esta Página