PROJETO S@T-FISCAL

ANGELOATA 06/12/2017 13:57:55
#478306
Citação:

:
Pessoal alguem implementou o webservice: https://wssathomolog.fazenda.sp.gov.br/CFeConsultarLotes/CfeConsultarLotes.asmx para a consulta de os cupons foram integrados com o SEFAZ?

Se sim alguem tem o exemplo:



Consegui fazer aqui... se alguem quiser o codigo....



     Public Shared Function CfeConsultaLotes() As String()

        Dim tDadosMsg As New XmlDocument,
            tXMLretorno As New XDocument,
            pxmlnscfe As XNamespace = [Ô]http://www.fazenda.sp.gov.br/sat[Ô],
            tVersaoLeiaute As String = [Ô]0.07[Ô]

        Dim CFeServico As New ConsultaLotesSATSEFAZ.CfeConsultaLotes,
            CFeCabecMsg As New ConsultaLotesSATSEFAZ.CfeCabecMsgSoapEntity

        [ô]*** Comunicação com o WebService ***
        Try


            [ô]*** Inicia o XML
            Dim xdoc As New XDocument(New XDeclaration([Ô]1.0[Ô], [Ô]UTF-8[Ô], String.Empty),
                                      New XElement(pxmlnscfe + [Ô]consLote[Ô],
                                                   New XAttribute([Ô]xmlns[Ô], pxmlnscfe.NamespaceName),
                                                   New XAttribute([Ô]versao[Ô], tVersaoLeiaute),
                                                   New XElement(pxmlnscfe + [Ô]nserieSAT[Ô], [Ô]999999999[Ô]),
                                                   New XElement(pxmlnscfe + [Ô]dhInicial[Ô], [Ô]01042015000000[Ô]),
                                                   New XElement(pxmlnscfe + [Ô]dhFinal[Ô], [Ô]30042015004400[Ô]),
                                                   New XElement(pxmlnscfe + [Ô]chaveSeguranca[Ô], [Ô]24bb6087-3a03-4581-9b1f-4e8332879369[Ô])
                                                  ))

            [ô]*** Monta a Mensagem de Envio para o WebService ***
            CFeCabecMsg.versaoDados = tVersaoLeiaute
            CFeCabecMsg.cUF = [Ô]35[Ô]

            CFeServico.cfeCabecMsg = CFeCabecMsg
            CFeServico.Timeout = 100000
            CFeServico.SoapVersion = SoapProtocolVersion.Soap12
            CFeServico.Url = [Ô]https://wssatsp.fazenda.sp.gov.br/CfeConsultarLotes/CfeConsultarLotes.asmx[Ô]

            
            tDadosMsg.LoadXml(Funcoes.RemoveQuebraXML(xdoc.ToString))


            [ô]*** Recebe o Retorno do WebService ***
            tXMLretorno = XDocument.Parse(CFeServico.ConsultarLotesEnviados(tDadosMsg.OuterXml))


            [ô]*** Verifica o Retorno do WebService ***
            Dim tMotivoSEFAZ As String = [Ô][Ô]

            Dim t_qretConsStatServ = From c In tXMLretorno.Descendants([Ô]resLote[Ô])
                                            Select c

            For Each tRegProtocolo In t_qretConsStatServ


                Try

                    tMotivoSEFAZ = tRegProtocolo.Element([Ô]Mensagem[Ô])

                Catch ex As Exception

                    tMotivoSEFAZ = [Ô][Ô]

                End Try

                If tMotivoSEFAZ.Trim <> [Ô][Ô] Then

                    Return {[Ô]999[Ô], tMotivoSEFAZ, [Ô][Ô], [Ô][Ô]}

                End If

                [ô]*** Tratamento dos CF-e's ***

            Next

        Catch ex As Exception

            Return {[Ô]999[Ô], ex.Message.Trim, [Ô][Ô], [Ô][Ô]}

        End Try

        Return {[Ô]000[Ô], [Ô][Ô], [Ô][Ô], [Ô][Ô]}

    End Function
NILSONTRES 07/12/2017 09:57:55
#478317
ANGELO,
Você tem as classes para disponibilizar ?
FUTURA 08/12/2017 10:36:20
#478348
Pessoal, existe uma maneira de testar se o SAT esta ativo ?, em alguns casos, da conflito de portas no windows, ou perde a instalação do driver... qual comando eu poderia executar para gerar um aviso ao usuário ?, teria como, ou só no tratamento de erro mesmo ?
NILSONTRES 08/12/2017 14:07:48
#478355
FUTURA,
Citação:

Pessoal, existe uma maneira de testar se o SAT esta ativo ?, em alguns casos, da conflito de portas no windows, ou perde a instalação do driver... qual comando eu poderia executar para gerar um aviso ao usuário ?, teria como, ou só no tratamento de erro mesmo ?


Utilize a função:ConsultarSAT da dll.

Select Case RetornodaConsulta
Case [Ô]08098[Ô]
Inativo
[ô] RichTextBox1.ForeColor = Color.Red
[ô] RichTextBox1.Text = [Ô]Inativo ou Fora de Operação[Ô]
Case [Ô]08000[Ô]
SatAtivo
[ô]RichTextBox1.Text = [Ô]OPERANTE[Ô]

End Select
FUTURA 08/12/2017 15:39:02
#478356
Nilson, eu tenho programado no sistema, todas as funções, mas pelo menos no meu micro que é windows 10, se eu desligar o sat, e tentar uma consulta, não entra nem no tratamento de erro, derruba o sistema direto... vou testar em um micro com win7.
NILSONTRES 08/12/2017 15:51:14
#478357
Sim, se vc desligar o Sat, ira retornar um erro de porta não acessível, algo assim, dai vc tem que tratar o erro.
No meu sistema, ao iniciar, de cara ele já faz a consulta da ultima comunicação com a sefaz, isso para alertar o cliente que ele não esta se comunicando com a sefaz, alertando que ele não pode ficar mais de 10 dias, a mensagem começa a aparecer com sete dias, e fica até o cliente resolver o problema. Caso esteja desligado eu passo essa etapa ignorando os erros, nesse caso o cliente entra na tela de caixa, já no load da tela de caixa faço uma consulta Sat, se não estiver operante, bloqueio as vendas. Isso tanto faz o Sistema operacional.
MFLAVIO 31/08/2022 17:59:22
#500401
Pessoal Alguem tem algum exemplo de NFC-e?
meu sistema esta homologados com todos os SATS de mercado, mais hoje aconteceu de um SAT de um cliente dar defeito, justo esse cliente só tem um sat
ai gostaria de colocar o NFC-e nesse cliente ate o SAT voltar da garantia

existe algum manual para NFC-e igual o da NFE
NILSONTRES 31/07/2023 20:41:40
#501630
Alguém já fez alguma comunicação do SAT com androide, ou sabe onde encontro exemplos ?.
Página 91 de 91 [908 registro(s)]
Faça seu login para responder
Voltar