18 Out 2019 11:30
20 Out 2019 23:24
21 Out 2019 11:01
MSDN escreveu : visto a qualidade e extensão do projeto, além do principal, ter um suporte técnico a atualizações
21 Out 2019 12:20
Nascimento escreveu:converso com alguns amigos aqui , que até tentaram usar a classe do amigo quintas, até chegaram a usar, mais devido a algumas coisas que ou faltavam , ou não achavam voltaram pra o acbr monitor , que tem horas que da uma dor de cabeça , mais como se diz, "quando não tem tu, vai tu mesmo" , en fim , tudo que citei é meu ponto de vista
oSefaz := SefazClass():New()
hb_MemoWrit( "autorizado.xml", oSefaz:NfeLoteEnvia( cXml, cLote, cUF, cCertificado, cAmbiente ) )
oSefaz := SefazClass():New()
oSefaz:cUF := aVarList[ VAR_UF ]
oSefaz:cVersao := aVarList[ VAR_VERSAO ]
oSefaz:cCertificado := aVarList[ VAR_CERTIFICADO ]
oSefaz:cAmbiente := aVarList[ VAR_AMBIENTE ]
oSefaz:cNFCE := aVarList[ VAR_NFCE ]
CASE nOpc == OPC_ENVIO_TESTE
oSefaz:NfeLoteEnvia( [<NFe><infNFe Id="Nfe0001"></infNFe></NFe>] )
? oSefaz:cXmlRetorno
Inkey(0)
CASE nOpc == OPC_ENVIO_USUARIO
cXml := MemoRead( win_GetOpenFileName(, "Arquivo a transmitir", ".\", "XML", "*.XML", 1 ) )
DO CASE
CASE "<infMDFe" $ cXml ; ? "autorizando CTE"; oSefaz:cVersao := "3.00"; oSefaz:CteLoteEnvia( cXml )
CASE "<infCTe" $ cXml ; ? "autorizando MDFE"; oSefaz:cVersao := "3.00"; oSefaz:MDFeLoteEnvia( cXml )
CASE "<infNFe" $ cXml ; ? "autorizando NFE"; oSefaz:NfeLoteEnvia( cXml )
OTHERWISE ; ? "Documento não reconhecido"
ENDCASE
? oSefaz:cXmlRetorno
hb_MemoWrit( "testeassinado.xml", oSefaz:cXmlDocumento )
hb_MemoWrit( "testeautorizado.xml", oSefaz:cXmlAutorizado )
Inkey(0)
21 Out 2019 12:51
Como já repeti várias vezes, o problema maior não é a parte da Fazenda, é criar o XML com todos os detalhes.
Pra isso, é o manual da Fazenda, ou até mesmo uma nota já autorizada como modelo.
21 Out 2019 14:21
21 Out 2019 14:25
21 Out 2019 21:14
A versão compilada sim. É como o executável, que é atualizado a cada 3 meses, ou quando tem alteração muito importante. O código será aberto também, pode baixar os fontes e compilar.JoséQuintas escreveu:Provavelmente depois só pagando.
21 Out 2019 21:20
22 Out 2019 18:08
22 Out 2019 19:33
fladimir escreveu:No SVN já tem acesso as classes criadas pra Harbour pra Boleto, SAT e NFe/NFCe
22 Out 2019 20:15
Attribute VB_Name = "ACBrNFeUtils"
Option Explicit
Public Function CreateNFe(Optional ByVal eArqConfig As String = "", _
Optional ByVal eChaveCrypt As String = "") As ACBrNFe
Dim nfe As ACBrNFe
Set nfe = New ACBrNFe
nfe.InicializarLib eArqConfig, eChaveCrypt
Set CreateNFe = nfe
End Function
22 Out 2019 20:44
cXml := "<nota>xxxx</nota>"
oSefaz:NfeLoteEnvia( cXml )
cXml := "<nota>xxxx</nota>"
hb_MemoWrit( "arquivo.xml", cXml )
ACBR.SendArquivo( "arquivo.xml" )
22 Out 2019 21:21
22 Out 2019 21:24