CONSUMIR WEB SERVICE NOTA FISCAL PAULISTA
Ola Pessoal Gostaria de saber se alguem tem exemplo de como consumir o web service da nota fiscal paulista estou com dificuldades em consumir todos exemplo que tenho nao funciona
Obrigado
joao
Obrigado
joao
Ninguem pode de dar uma dica?
usa o exemplo da NF-e que tem no projeto é igual só muda o webservice e os campos!
Aqui no forum tem qual p link?
quando você entra no forum aparece lá em cima FONTE NFE VB.NET, só baixar que lá vai te ajudar bastante!
Na verdade vc que consumir webservice sobre nota fiscal eletrônica e não nota fiscal paulista, correto?
sim é isto que eu quero
O WS da NFP é https://www.nfp.fazenda.sp.gov.br/ws/arquivocf.asmx.
mais eu estou tendo problema é para fazer como acessar la tecla
Ola Pessoa Na mInha empreitada queria saber como fazer o web service como devo comecar onde acho exemplo
Obrigado
Joao
Ps Ate hoje nao consegui
Obrigado
Joao
Ps Ate hoje nao consegui
bom aki esta um exemplo que nem um FDP passa!! sabe procurei na net inteira aki no forum massssss sabeeee o povinhoooo sabe como fazer e nao passa essa droga de um exemplo
bom eu mesmo fiz fiquei um dia todo para chegar no que esta abaixo! um serviço bem feito!
bom posto aki para ajudar um amigo que precisa e espero que esse povooo q nao faz nada e so enche linguinça que nao custa nada postar um pedaço do codigo para os outros ter uma noçao como funciona!
e so add o webservice no projeto em web reference
https://www.nfp.fazenda.sp.gov.br/ws/arquivocf.asmx
depois e so colocar o q esta a abaixo
modulo.ConteudoArquivo =[Ô]00000878|122|Lote validado com sucesso|3|00000000000000|EMPRESA ME|159062314110|Simples Validação|CURTO.TXT|3085|6D188973D9347D7FAF2D052339E11639FB016|Arquivo: C:\Meus Documentos\curto.txt|21/12/2007 10:25:06|21/12/2007 10:25:07|1||2| ALERTA : CNPJ/CPF do destinatário inválido na linha 0000006 COO 002980 ALERTA : CRZ Final inválido na linha 0000001 ALERTA : CRZ Inicial inválido na linha 0000001 [Ô]
modulo.CategoriaUsuario = [Ô]CategoriaUsuario[Ô]
modulo.Usuario = [Ô]usuario[Ô]
modulo.Senha = [Ô]*****[Ô]
modulo.CNPJ = [Ô]#######[Ô]
modulo.EnvioNormal = [Ô]true[Ô] [ô][ô]indica true processamento normal, se false, simples validação.
modulo.NomeArquivo = arquivo
modulo.Observacoes = [Ô][Ô]
enviar(dir)
Public Shared Function enviar(ByVal caminho As String) As String
Try
Dim NfpServico As New ServiceNfp.ArquivoCFSoap12Client
Dim NfpServicoAutenticar As New ServiceNfp.Autenticacao
NfpServicoAutenticar.CategoriaUsuario = modulo.CategoriaUsuario
NfpServicoAutenticar.CNPJ = modulo.CNPJ
NfpServicoAutenticar.Senha = modulo.Senha
NfpServicoAutenticar.Usuario = modulo.Usuario
Dim resultado As String = NfpServico.Enviar(NfpServicoAutenticar, modulo.NomeArquivo, modulo.ConteudoArquivo, modulo.EnvioNormal, modulo.Observacoes)
Dim numerodolote As String = [Ô]erro[Ô]
Dim status As String = [Ô][Ô]
Try
Dim splitaresultado As Array = resultado.Split([Ô]|[Ô])
numerodolote = splitaresultado(1)
status = Trim(splitaresultado(2))
Catch ex As Exception
End Try
Dim LotePath As String = (caminho & [Ô]\lotes\[Ô])
If Not Directory.Exists(LotePath) Then
Directory.CreateDirectory(LotePath)
End If
File.Delete(LotePath & numerodolote)
modulo.TextoTXT = resultado
modulo.GravarXML(LotePath & numerodolote)
If status = [Ô]103[Ô] Then
Dim AprovadaPath As String = (caminho & [Ô]\aprovadas\[Ô])
If Not Directory.Exists(AprovadaPath) Then
Directory.CreateDirectory(AprovadaPath)
End If
File.Delete(AprovadaPath & modulo.NomeArquivo)
File.Copy(caminho & modulo.NomeArquivo, AprovadaPath & modulo.NomeArquivo)
File.Delete(caminho & modulo.NomeArquivo)
Else
Dim AprovadaPath As String = (caminho & [Ô]\erros\[Ô])
If Not Directory.Exists(AprovadaPath) Then
Directory.CreateDirectory(AprovadaPath)
End If
File.Delete(AprovadaPath & modulo.NomeArquivo)
File.Copy(caminho & modulo.NomeArquivo, AprovadaPath & modulo.NomeArquivo)
File.Delete(caminho & modulo.NomeArquivo)
End If
Return resultado
Catch ex As Exception
Return [Ô]Erro: [Ô] & ex.Message
End Try
End Function
bom eu mesmo fiz fiquei um dia todo para chegar no que esta abaixo! um serviço bem feito!
bom posto aki para ajudar um amigo que precisa e espero que esse povooo q nao faz nada e so enche linguinça que nao custa nada postar um pedaço do codigo para os outros ter uma noçao como funciona!
e so add o webservice no projeto em web reference
https://www.nfp.fazenda.sp.gov.br/ws/arquivocf.asmx
depois e so colocar o q esta a abaixo
modulo.ConteudoArquivo =[Ô]00000878|122|Lote validado com sucesso|3|00000000000000|EMPRESA ME|159062314110|Simples Validação|CURTO.TXT|3085|6D188973D9347D7FAF2D052339E11639FB016|Arquivo: C:\Meus Documentos\curto.txt|21/12/2007 10:25:06|21/12/2007 10:25:07|1||2| ALERTA : CNPJ/CPF do destinatário inválido na linha 0000006 COO 002980 ALERTA : CRZ Final inválido na linha 0000001 ALERTA : CRZ Inicial inválido na linha 0000001 [Ô]
modulo.CategoriaUsuario = [Ô]CategoriaUsuario[Ô]
modulo.Usuario = [Ô]usuario[Ô]
modulo.Senha = [Ô]*****[Ô]
modulo.CNPJ = [Ô]#######[Ô]
modulo.EnvioNormal = [Ô]true[Ô] [ô][ô]indica true processamento normal, se false, simples validação.
modulo.NomeArquivo = arquivo
modulo.Observacoes = [Ô][Ô]
enviar(dir)
Public Shared Function enviar(ByVal caminho As String) As String
Try
Dim NfpServico As New ServiceNfp.ArquivoCFSoap12Client
Dim NfpServicoAutenticar As New ServiceNfp.Autenticacao
NfpServicoAutenticar.CategoriaUsuario = modulo.CategoriaUsuario
NfpServicoAutenticar.CNPJ = modulo.CNPJ
NfpServicoAutenticar.Senha = modulo.Senha
NfpServicoAutenticar.Usuario = modulo.Usuario
Dim resultado As String = NfpServico.Enviar(NfpServicoAutenticar, modulo.NomeArquivo, modulo.ConteudoArquivo, modulo.EnvioNormal, modulo.Observacoes)
Dim numerodolote As String = [Ô]erro[Ô]
Dim status As String = [Ô][Ô]
Try
Dim splitaresultado As Array = resultado.Split([Ô]|[Ô])
numerodolote = splitaresultado(1)
status = Trim(splitaresultado(2))
Catch ex As Exception
End Try
Dim LotePath As String = (caminho & [Ô]\lotes\[Ô])
If Not Directory.Exists(LotePath) Then
Directory.CreateDirectory(LotePath)
End If
File.Delete(LotePath & numerodolote)
modulo.TextoTXT = resultado
modulo.GravarXML(LotePath & numerodolote)
If status = [Ô]103[Ô] Then
Dim AprovadaPath As String = (caminho & [Ô]\aprovadas\[Ô])
If Not Directory.Exists(AprovadaPath) Then
Directory.CreateDirectory(AprovadaPath)
End If
File.Delete(AprovadaPath & modulo.NomeArquivo)
File.Copy(caminho & modulo.NomeArquivo, AprovadaPath & modulo.NomeArquivo)
File.Delete(caminho & modulo.NomeArquivo)
Else
Dim AprovadaPath As String = (caminho & [Ô]\erros\[Ô])
If Not Directory.Exists(AprovadaPath) Then
Directory.CreateDirectory(AprovadaPath)
End If
File.Delete(AprovadaPath & modulo.NomeArquivo)
File.Copy(caminho & modulo.NomeArquivo, AprovadaPath & modulo.NomeArquivo)
File.Delete(caminho & modulo.NomeArquivo)
End If
Return resultado
Catch ex As Exception
Return [Ô]Erro: [Ô] & ex.Message
End Try
End Function
Tópico encerrado , respostas não são mais permitidas