Quintas,
Preciso usar sua classe apenas para o evento de CANCELAMENTO da NFCe (METHOD NFeEventoCancela)
Eh possÃvel? Quais as dependências? que prg's devo acrescentar ao meu projeto?

Moderador: Moderadores
C:\Users\Notebook\Downloads\sefazclass-master\sefazclass-master>hbmk2 sefazclass.hbp
Harbour 3.2.0dev (r1705200225)
Copyright (c) 1999-2016, http://harbour-project.org/
Compiling 'source\ze_sefazclass.prg'...
Lines 3066, Functions/Procedures 55
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_sefazclass.c'... Done.
Compiling 'source\ze_sefazcapicom.prg'...
Lines 797, Functions/Procedures 3
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_sefazcapicom.c'... Done.
Compiling 'source\ze_sefazAssina.prg'...
Lines 1275, Functions/Procedures 9
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_sefazAssina.c'... Done.
Compiling 'source\ze_sefazAssinachk.prg'...
Lines 69, Functions/Procedures 1
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_sefazAssinachk.c'... Done.
Compiling 'source\ze_sefazDaCte.prg'...
Lines 2845, Functions/Procedures 6
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_sefazDaCte.c'... Done.
Compiling 'source\ze_sefazDaEvento.prg'...
Lines 2365, Functions/Procedures 8
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_sefazDaEvento.c'... Done.
Compiling 'source\ze_sefazDaMdfe.prg'...
Lines 2191, Functions/Procedures 6
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_sefazDaMdfe.c'... Done.
Compiling 'source\ze_sefazDaNfe.prg'...
Lines 2883, Functions/Procedures 24
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_sefazDaNfe.c'... Done.
Compiling 'source\ze_sefazDaNFCe.prg'...
Lines 2820, Functions/Procedures 17
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_sefazDaNFCe.c'... Done.
Compiling 'source\ze_sefazDadfe.prg'...
Lines 2112, Functions/Procedures 16
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_sefazDadfe.c'... Done.
Compiling 'source\ze_sefazSoapList.prg'...
Lines 1270, Functions/Procedures 1
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_sefazSoapList.c'... Done.
Compiling 'source\ze_sefazxmlclass.prg'...
Lines 2190, Functions/Procedures 33
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_sefazxmlclass.c'... Done.
Compiling 'source\ze_xmlfunc.prg'...
Lines 343, Functions/Procedures 17
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_xmlfunc.c'... Done.
Compiling 'source\ze_miscfunc.prg'...
Lines 34, Functions/Procedures 2
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_miscfunc.c'... Done.
Compiling 'source\ze_xharbour.prg'...
Lines 40, Functions/Procedures 0
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_xharbour.c'... Done.
Compiling 'source\ze_digitodoc.prg'...
Lines 271, Functions/Procedures 12
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_digitodoc.c'... Done.
Compiling 'source\ze_extenso.prg'...
Lines 969, Functions/Procedures 11
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_extenso.c'... Done.
Compiling 'source\ze_inscestadual.prg'...
Lines 879, Functions/Procedures 29
Generating C source output to 'C:\Users\Notebook\AppData\Local\Temp\hbmk_gentd3.dir\ze_inscestadual.c'... Done.
METHOD NFeEventoCancela( cChave, nSequencia, nProt, xJust, cCertificado, cAmbiente ) CLASS SefazClass
hb_Default( @nSequencia, 1 )
::cNFCe := iif( DfeModFis( cChave ) == "65", "S", "N" )
::Setup( ::UFSigla( Substr( cChave, 1, 2 ) ), cCertificado, cAmbiente, WS_NFE_RECEPCAOEVENTO )
::cXmlDocumento := [<evento versao="] + WS_VERSAO_NFEEVENTO + [" ] + WS_XMLNS_NFE + [>]
::cXmlDocumento += [<infEvento Id="ID110111] + cChave + StrZero( nSequencia, 2 ) + [">]
::cXmlDocumento += XmlTag( "cOrgao", Substr( cChave, 1, 2 ) )
::cXmlDocumento += XmlTag( "tpAmb", ::cAmbiente )
::cXmlDocumento += XmlTag( "CNPJ", DfeEmitente( cChave ) )
::cXmlDocumento += XmlTag( "chNFe", cChave )
::cXmlDocumento += XmlTag( "dhEvento", ::DateTimeXml() )
::cXmlDocumento += XmlTag( "tpEvento", "110111" )
::cXmlDocumento += XmlTag( "nSeqEvento", Ltrim( Str( nSequencia, 4 ) ) )
::cXmlDocumento += XmlTag( "verEvento", WS_VERSAO_NFEEVENTO )
::cXmlDocumento += [<detEvento versao="] + WS_VERSAO_NFEEVENTO + [">]
::cXmlDocumento += XmlTag( "descEvento", "Cancelamento" )
::cXmlDocumento += XmlTag( "nProt", Ltrim( Str( nProt ) ) )
::cXmlDocumento += XmlTag( "xJust", xJust )
::cXmlDocumento += [</detEvento>]
::cXmlDocumento += [</infEvento>]
::cXmlDocumento += [</evento>]
IF ::AssinaXml() == "OK"
::cXmlEnvio := [<envEvento versao="] + WS_VERSAO_NFEEVENTO + [" ] + WS_XMLNS_NFE + [>]
::cXmlEnvio += XmlTag( "idLote", DfeNumero( cChave ) ) // usado numero da nota
::cXmlEnvio += ::cXmlDocumento
::cXmlEnvio += [</envEvento>]
::XmlSoapPost()
::cXmlProtocolo := ::cXmlRetorno
::NFeGeraEventoAutorizado( ::cXmlDocumento, ::cXmlProtocolo )
ENDIF
RETURN ::cXmlRetorno
IF ::AssinaXml() == "OK"
METHOD AssinaXml() INLINE ::cXmlRetorno := CapicomAssinaXml( @::cXmlDocumento, ::cCertificado,,::cPassword )
Usuários vendo este fórum: Nenhum usuário registrado online e 16 visitantes