Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Impressão de Cancelamento ACBrSat


RFE Sistemas
Go to solution Solved by Rafael Dias,
  • Este tópico foi criado há 668 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link to comment
Share on other sites

  • Este tópico foi criado há 668 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.