Classe e função pra carregar XML

Projeto hbNFe (Nota Fiscal Eletronica/Danfe) para [x]Harbour

Moderador: Moderadores

Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Classe e função pra carregar XML

Mensagem por JoséQuintas »

Código: Selecionar todos

   // DIVISAO IV - Informacoes da consulta via chave de acesso -------------------------------------------------------------------
   cUF     := ::UFSigla( ::aIde[ "cUF" ] )
Tá na própria classe.
Não na NFCE, mas na NFE que recebeu por herança.
Então é como se estivesse nela mesma.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Classe e função pra carregar XML

Mensagem por JoséQuintas »

Errei.
Está na SefazClass.

Código: Selecionar todos

cUF := SefazClass():UFSigla( ::aIde[ :cUF ] )
Talvez seja mais interessante pegar direto da chave de acesso, os dois primeiros dígitos..

Código: Selecionar todos

cUF := SefazClass():UFSigla( Left( ::cChave, 2 ) )
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
rubens
Colaborador
Colaborador
Mensagens: 1520
Registrado em: 16 Ago 2003 09:05
Localização: Nova Xavantina - MT

Classe e função pra carregar XML

Mensagem por rubens »

Gilberto esta chave está correta?
35170644463156000184550750004914211108131768.XML
Pela composição da chave é de NFe e não de NFCe...
35170644463156000184550750004914211108131768.XML esse 55 aí é de NFe, NFCe deveria ser 65. A menos que a chave foi montada de forma diferente.

Aqui eu gerei assim, sem problemas:

Código: Selecionar todos

oDanfe:= hbNFeDanfce():New()
oDanfe:ToPDF(  Memoread( cXml ) , cFilePDF )
If lMostra
    PDFOpen( cFilePDF )
EndIf
Também não sei se influencia, mas tive um problema em um cliente que o fornecedor dele não informava o estado no XML (para mim isso nem validadava mas validou). Daí o estado vinha vazio e cadastrava na tabela do fornecedor sem estado... fiz uma regra aqui para pesquisar o codigo do municipio e pegar o estado, mas a solução que o Quintas postou aí é mais simples...

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Classe e função pra carregar XML

Mensagem por JoséQuintas »

E aproveitando, só pra lembrar o que dá pra obter pela chave de acesso:

- UF
- Ano e Mês
- CNPJ do Emitente
- Se é NFE, CTE, MDFE, etc
- Série do documento
- Número do documento
- Se normal/contingência - a partir da NFE 2.00

Só com base na chave já poderíamos escolher logotipo, pasta de arquivo, etc.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Responder