Agora ficou uma duvida quanto a NFCE
ela usa a mesma numeracao da NFe isto é segue a sequencia ou inicia uma nova sequencia somente para a NFCe
o tipo de impressao muda de 55 para 65

Moderador: Moderadores
FUNCTION GERAPDFNFCe(cXml)
LOCAL oDanfe
LOCAL cFilePdf := 'NFCe011793.pdf'
oDanfe:= hbNFeDaNFCe():New()
oDanfe:ToPDF( Memoread( cXml ) , cFilePdf )
PDFOpen( cFilePdf )
RETURN nil
oDanfe := hbNfeDaGeral():New()
oDanfe:ToPDF( cXmlDocumento, cFilePdf, cFileAuxiliar )
METHOD ToPDF( cXmlDocumento, cFilePDF, cXmlAuxiliar ) CLASS hbNFeDaGeral
LOCAL oDanfe
IF cXmlDocumento == NIL .OR. Empty( cXmlDocumento )
RETURN "XML inválido"
ENDIF
IF Len( cXmlDocumento ) < 100
IF File( cXmlDocumento )
cXmlDocumento := MemoRead( cXmlDocumento )
ENDIF
ENDIF
IF cXmlAuxiliar != NIL .AND. ! Empty( cXmlAuxiliar ) .AND. Len( cXmlAuxiliar ) < 100
cXmlAuxiliar := MemoRead( cXmlAuxiliar )
ENDIF
DO CASE
CASE "<infCte " $ cXmlDocumento ; oDanfe := hbNFeDaCte():New()
CASE "<infNFe " $ cXmlDocumento .AND. "<NFe " $ cXmlDocumento .AND. XmlNode( XmlNode( cXmlDocumento, "ide" ), "mod" ) == "55" ; oDanfe := hbNFeDaNFe():New()
CASE "<infNFe " $ cXmlDocumento .AND. "<NFe " $ cXmlDocumento .AND. XmlNode( XmlNode( cXmlDocumento, "ide" ), "mod" ) == "65" ; oDanfe := hbNFeDaNFCe():New()
CASE "<infMDFe " $ cXmlDocumento .AND. "<MDFe " $ cXmlDocumento ; oDanfe := hbNFeDaMDFe():New()
CASE "<infEvento " $ cXmlDocumento ; oDanfe := hbNFeDaEvento():New()
OTHERWISE
RETURN "XML inválido"
ENDCASE
oDanfe:cLogoFile := ::cLogoFile
oDanfe:cDesenvolvedor := ::cDesenvolvedor
RETURN oDanfe:ToPDF( cXmlDocumento, cFilePDF, cXmlAuxiliar )
rubens escreveu:Bom dia,
Não sei como é o QrCode do AC, mas se tá gerando o xml e validando então não pode ter problema com o QrCode porque ele está sendo lido do XML.
Qual o problema você está tendo ?
Rubens
Rubens o problema é que nao estou gerando a Tag onde fica o QRCODE ai retorna o erro
Retornar para Contribuições, Dicas e Tutoriais
Usuários vendo este fórum: Nenhum usuário registrado online e 14 visitantes