Siga-nos no Facebook Siga-nos no Instagram Siga-nos no LinkedIn Venha estudar Protheus
 
Bem Vindo Visitante Lista de Usuários

 Todos os Fórums
  Faturamento

Enviar para a impressoraImprimir   

Subject nfeSefaz
Mensagem do Enviar e-mail Abrir o Perfil do usu�rio JFPEREIRA JFPEREIRA em 27/11/2019 as 13:33 hs
Local: SP   Membro desde: 20/07/2006  Postagem: 51
Pessoal, boa tarde.

Tenho um campo de várias linhas de mensagem gravado no cabeçalho do pedido de venda.

Este campo deverá ser gravado junto com as observaçoes na DANFE.

Alguém tem o modelo do ponto de entrada que me permite juntar este campo aos outros que serão gravados na danfe e depois imprimir no campo Informações complementares?

Esta acontecendo para todas as notas onde o cliente do pedido tem outro cliente de entrega. Normalmente o orgao do governo centralizador ... compra e manda entregar em outra unidade.

O campo é o C5_OBSNF.

Este fonte estava perdido no projeto ....   eu encontrei em uma pasta ... tentei adaptar.
Percebi que para estas notas o campo C5_NOTA E C5_SERIE não estão sendo gravados. Tem outras notas onde o cliente do pedido é o mesmo da entrega que a mensagem sai normalmente.

Talvez o fonte deste ponto esteja com algum problema e não estou sabendo reconhecer.

Ou tem outra forma mais simples e não estou sabendo.

Tentei usar este.

//==============================================================

#INCLUDE      "TOTVS.CH"
#INCLUDE      "RWMAKE.CH"
#INCLUDE      "PROTHEUS.CH"
#INCLUDE      "TBICONN.CH"
#INCLUDE      "PARMTYPE.CH"

User function PE01NFESEFAZ()

Local cAliasTRB      := GetNextAlias()
Local aArea              := GetArea()

private aNfe           := PARAMIXB

private aPROD           :=1      //-> aProd
private cMENSCLI      :=2      //-> cMensCli
private cMENSFIS      :=3      //-> cMensFis
private aDEST           :=4      //-> aDest
private aNOTA           :=5      //-> aNota
private aINFOITEM      :=6      //-> aInfoItem
private aDUPL           :=7      //-> aDupl
private aTRANSP      :=8      //-> aTransp
private aENTREGA      :=9      //-> aEntrega
private aRETIRADA      :=10      //-> aRetirada
private aVEICULO      :=11      //-> aVeiculo
private aREBOQUE      :=12      //-> aReboque
private aNfVincRur      :=13      //-> aNfVincRur
                        
If aNfe[5,4] == "1" // 22/11/17 - Corresponde ao Tipo NF 0-Entrada e 1-Saida - Chamado #1133

     BeginSql Alias cAliasTRB
          
          SELECT           C5_NUM, C5_XPEDCLI,
          SubString(CONVERT(TEXT,CONVERT(VARCHAR(7999),CONVERT(VARBINARY(7999),
          Substring(C5_OBSNF,1,7999)))),1,7999) AS C5_OBSNF ,
          A1_END, A1_BAIRRO, A1_MUN, A1_EST, A1_CEP
          FROM           %Table:SC5% SC5 (NOLOCK)
          INNER JOIN      %Table:SA1% SA1 ON SA1.A1_COD = SC5.C5_CLIENTE AND SA1.A1_LOJA = SC5.C5_LOJACLI AND      SA1.%NotDel%
          WHERE           SC5.%NotDel% AND
          SC5.C5_FILIAL     = %xFilial:SC5% AND
          SC5.C5_NOTA          = %Exp:SF2->F2_DOC%
          AND SC5.C5_SERIE= %Exp:SF2->F2_SERIE%
          
     EndSql
     
     If !(cAliasTRB)->(Eof())
          
          (cAliasTRB)->(DbGoTop())
          
          //     While !(cAliasTRB)->(Eof())
               IF !Empty(Alltrim((cAliasTRB)->C5_XPEDCLI))
                    aNfe[cMENSCLI]     += "Pedido do Cliente : "+ (cAliasTRB)->C5_XPEDCLI
               EndIF
               
               
               aNfe[cMENSCLI]     += "Endereço de Entrega :"+Alltrim((cAliasTRB)->A1_END)+' , '+Alltrim((cAliasTRB)->A1_BAIRRO)+' , '+Alltrim((cAliasTRB)->A1_MUN)+'-'+Alltrim((cAliasTRB)->A1_EST)+'    CEP: '+Alltrim((cAliasTRB)->A1_CEP)
               
               DbSelectArea("SC5")
               SC5->(DbSetOrder(1))
               DbSeek(xFilial("SC5")+(cAliasTRB)->C5_NUM)
//               aNfe[cMENSCLI]     += Alltrim(SC5->C5_OBSNF)
//               aNfe[cMENSCLI]     += " - PV/RP: "+ SC5->C5_NUM
               aNfe[cMENSCLI]     += STRTRAN( ALLTRIM(SC5->C5_OBSNF) , ' ' , CHR(13)+CHR(10) )
               aNfe[cMENSCLI]     += " -PV/RP: "+ ALLTRIM(SC5->C5_NUM)   

               //(cAliasTRB)->(dbSkip())
          //Enddo
     Endif
     
     (cAliasTRB)->(dbCloseArea())

Endif
     
RestArea(aArea)

Return(aNfe)


Mensagem do Enviar e-mail Abrir o Perfil do usu�rio BINDO BINDO em 27/11/2019 as 15:33 hs
Local: SP   Membro desde: 13/08/2005  Postagem: 5706
Este ponto de entrada é na transmissão da NFE, a nota já foi gerada. O campo C5_NOTA tem que estar gravado

Paulo Roberto Bindo
cel: (11) 9505-62179
bindo@globo.com


Mensagem do Enviar e-mail Abrir o Perfil do usu�rio JFPEREIRA JFPEREIRA em 27/11/2019 as 15:56 hs
Local: SP   Membro desde: 20/07/2006  Postagem: 51
Pois é ...

estou percebendo que para estes documentos o sistema gravando tudo c6, d2, f2,

o C5 ... nao grava o dado da nota e a serie.


Vou tentar comparar mais notas para ver se nao é um problema isolado ou generico.


Para as que não gravaram eu percebi que o cliente era diferente do da entrega.

só isto no cabeçalho do pedido.

Vou fazer um select em todas as notas que o cliente reclamou .. e ver o que tem em comun com umas 4 ou 5 que deram certo ....

tem nota que o campo de informação para nota C5_OBSNF sai direitinho na DANFE IMPRESSA

Obrigado Paulo.

quando eu descobrir o problema eu posto a solucao aqui.





Para participar do Fórum você precisa efetuar login primeiro
Caso você não esteja registrado registre-se para participar do fórum

 Mudar para Fórum