Clipper On Line • Ver Tópico - Sefazclass

Sefazclass

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Sefazclass

Mensagempor JoséQuintas » 05 Jun 2019 18:23

Pra quem quiser brincar, ou quem quiser se atualizar....

o test da Sefazclass está esticando..... kkk

sefazclass.png


Acrescentei hoje pra mostrar validade do certificado, apenas no test.exe, porque já existia na sefazclass.

Por esse programa dá pra, dentre outras coisas:

- ver validade do certificado
- enviar XML genérico só pra testar comunicação
- enviar XML de nota para ser autorizado
- gerar danfe
- validar XML - validação básica
- assinar xml genérico ou oficial/teste
- consultar cadastro

ou seja... quem quiser testar, é só executar o programa de teste, nem precisa mexer com programação
depois... é só olhar o fonte do teste e fazer igual no aplicativo.
Segue compilado com Harbour 3.4 e mingw 8.1, mas tá tudo na sefazclass

test.zip
(750.36 KiB) Baixado 23 vezes
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11880
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 757 vezes

Sefazclass

Mensagempor rubens » 08 Jul 2019 10:08

Bom dia...
José Quintas,
Baixei do Git ontem a SEFAZCLASS e o DANFE ainda não está imprimindo as notas referenciadas..
Dei um mexidinha e com este código consegui colocar para imprimir..
De repente se quiser aproveitar para inserir e upar.
Rubens

METHOD QuadroDadosAdicionais() CLASS hbNFeDaNFe

   LOCAL cMemo, nCont
   LOCAL nItem, cChave := 'NFe Ref.:'+HB_Eol()  // 08/07/2019 - 07:17:40 Rubens

   IF ::nFolha == 1
   
      // 08/07/2019 - 07:15:00 Rubens
      aNFref    := MultipleNodeToArray( ::cXml, "refNFe" )
      For Each nItem in aNFref
         If nItem:__EnumIndex=Len(aNFref)
            cChave += '('+aNFref[nItem:__EnumIndex]+') '+Hb_eol()
         Else
            cChave += '('+aNFref[nItem:__EnumIndex]+'), '
           EndIf
        Next
   
      *cMemo := ::aInfAdic[ "infCpl" ]
      cMemo := cChave + HB_Eol() + ::aInfAdic[ "infCpl" ]  // 08/07/2019 - 07:19:22 Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1448
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 69 vezes
Mens.Curtidas: 94 vezes

Sefazclass

Mensagempor JoséQuintas » 08 Jul 2019 10:18

Legal.
Só precisa colocar na parte que carrega o XML.
A partir daí, como é em informações adicionais, já vai entrar na formatação automática e no cálculo de quantidade de folhas.
O ponto e vírgula representa mudança de linha - segui o que fazia o unidanfe - isto é para o caso de onde queremos obrigatoriamente que mude de linha, independente da quebra automática.
Vou alterar e subir daqui a pouco.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11880
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 757 vezes

Sefazclass

Mensagempor JoséQuintas » 08 Jul 2019 11:25

Basicamente a mesma coisa, no final do método BuscaDadosXml()

https://github.com/JoseQuintas/sefazclass/commit/aaee0f0d3666277a66e031b27041ae1145011cc1

Valeu.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11880
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 757 vezes

Sefazclass

Mensagempor JoséQuintas » 08 Jul 2019 11:37

Quem puder testar, precisa de um XML com nota fiscal referenciada
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11880
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 757 vezes

Sefazclass

Mensagempor Jairo Maia » 08 Jul 2019 11:45

Olá Pessoal,

Isso está se referindo a emissão de NF-e para acobertar CF-e-SAT ou NFC-e emitidos num determinado período?

Se for isso não é necessário colocar em informações complementares a(s) chave(s) dos documentos referenciados.

No caso de SP por exemplo, é obrigatório apenas a seguinte expressão: "Emitida nos termos da Portaria CAT nº 106/2015".

PS: Nem mesmo em nota de devolução é necessário colocar a chave em informações complementares, apenas o número da nota, série e data de emissão da nota de entrada dos produtos devolvidos.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2440
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 294 vezes
Mens.Curtidas: 264 vezes

Sefazclass

Mensagempor JoséQuintas » 08 Jul 2019 12:18

É o caso de nota de devolução, por exemplo, aonde colocamos a nota referenciada no XML, no local próprio.
A alteração é pra que essas chaves apareçam também no impresso.
A lei não obriga isso, mas permite colocar no Danfe qualquer informação que exista no XML.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11880
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 757 vezes

Sefazclass

Mensagempor Jairo Maia » 08 Jul 2019 12:44

JoséQuintas escreveu:A lei não obriga isso, mas permite colocar no Danfe qualquer informação que exista no XML.
Sim. É que no caso de ser emitida uma nota que acoberte NFC-e ou CF-e-SAT com a SefazClass, terá que ser limitado o número de cupons referenciados a quantidade de chaves que couberem em informações adicionais no DANFE.

É muito comum um mesmo cliente ter bem mais documentos a serem referenciados do que é possível colocar no DANFE, isso obrigaria a ter que emitir várias NF-e´s, que por sua vez complica a escrituração.

Embora pode, apenas acho que o DANFE deve ter apenas as informações necessárias, mas é apenas uma opinião.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2440
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 294 vezes
Mens.Curtidas: 264 vezes

Sefazclass

Mensagempor JoséQuintas » 08 Jul 2019 12:57

Jairo Maia escreveu:É muito comum um mesmo cliente ter bem mais documentos a serem referenciados do que é possível colocar no DANFE, isso obrigaria a ter que emitir várias NF-e´s, que por sua vez complica a escrituração


O limite, no XML, de informações adicionais é de 5.000 caracteres.
Muitos componentes de Danfe não aceitam esse limite.
Só isso já pode estourar o limite de uma página de Danfe.

Mas pode ter razão, não faço idéia de quantas notas referenciadas poderiam existir em um XML.
Poderia gerar uma nota de trocentas páginas, só pra caber a observação... kkkk
O negócio é aguardar aparecer uma dessas "notas livro", pra decidir o que fazer.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11880
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 757 vezes

Sefazclass

Mensagempor JoséQuintas » 11 Jul 2019 21:53

Aviso importante:

Cometi um erro na atualização anterior, considerei _EnumIsLast como numérico, quando na verdade é lógico (.T./.F.).
Quem atualizou, favor atualizar novamente.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11880
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 757 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro