Pesquisar na Comunidade
Showing results for tags 'impressão de cancelamento acbrsat'.
Encontrado 1 registro
-
Boa tarde, fiz o cancelamento do SAT perfeito foi certinho, no entando quando vou imprimir não imprime e fecha o sistema. Alguém poderia me ajudar? Segue abaixo os Códigos usados. /* --------------------------- Botão de impressão ------------------*/ Dim XmlVenda, XmlCancelamento As String XmlVenda = "C:\Program Files (x86)\Microsoft Visual Studio\VB98\Vendas\11111111111111\202007\24\AD35200711111111111111591234567890002074158897.xml" XmlCancelamento = "C:\Program Files (x86)\Microsoft Visual Studio\VB98\Cancelamentos\11111111111111\202007\24\ADC35200711111111111111591234567890002082256479.xml" retorno = sat.CancelarCFe(XmlVenda) 'SetResposta retorno sat.ImprimirExtratoCancelamento XmlVenda, XmlCancelamento, vbNullString /* --------------------------- Função Criada ------------------*/ Public Function ImprimirExtratoCancelamento(ByVal eArquivoXml As String, ByVal eArquivoXmlCancelamento, Optional ByVal eNomeImpressora As String = "") Dim retorno As Long 'retorno = SAT_ImprimirExtratoVenda(eArquivoXml, eNomeImpressora) 'CheckResult (retorno) retorno = SAT_ImprimirExtratoCancelamento(eArquivoXml, eArquivoXmlCancelamento, eNomeImpressora) CheckResult (retorno) End Function /* --------------------------- Declaração ------------------*/ Private Declare Function SAT_ImprimirExtratoCancelamento _ Lib "ACBrSAT32.dll" (ByVal eArquivoXml As String, _ ByVal eArquivoXmlCanelamento, _ ByVal eNomeImpressora As String) As Long
