USO DLL FLEXDOCS

RICOCARDOZO 21/06/2016 09:26:29
#463833
Olá ;
Estou testando a dll da flexdocs para emissão de notas fiscais , só que a funcionalidade de pesquisa de notas emitidas está dando erro no loop de busca do webservice da receita , será que alguem pode me ajudar.

O codigo é o seguinte:

[ô]--------------------------------------------------------------------------------------
[ô]
[ô] Funcionalidade para consultar as NF-e destinadas para um CNPJ
[ô]
[ô]--------------------------------------------------------------------------------------
[ô] DECLARAÇÃO DE PARÂMETROS DE ENTRADA DA FUNCIONALIDADE
[ô]--------------------------------------------------------------------------------------
Dim siglaWS As String [ô] sigla do WS: AN para Ambiente Nacional ou RS
Dim siglaUF As String [ô] sigla da UF do destinatário
Dim tipoAmbiente As Long [ô] Ambiente: 1-Produção e 2-Homologação
Dim nomeCertificado As String [ô] campo assunto do certificado digital
Dim versao As String [ô] versão= 1.01
Dim CNPJ As String [ô] CNPJ do destinatário da NF-e
Dim indNFe As Long [ô] 0-todas as notas,
[ô] 1-somente as que não tiveram manifestação concluisva,
[ô] 2-todas as que tiveram manifestação

Dim indEmi As Long [ô] 0-todas as NF-e,
[ô] 1-somente as NF-e que não tenham destinatário/remetente
[ô] com a mesma raiz CNPJ

Dim ultNSU As String [ô] último NSU recebido pela empresa
Dim proxy As String [ô] IP e porta do proxy, informar se existir proxy
Dim usuario As String [ô] usuario do proxy
Dim senha As String [ô] senha do proxy
Dim licenca As String [ô] licenca de uso, necessário informar para produção
[ô]--------------------------------------------------------------------------------------
[ô] DECLARAÇÃO DE PARÂMETROS DE RETORNO DA FUNCIONALIDADE
[ô]--------------------------------------------------------------------------------------
Dim msgDados As String [ô] retorna o XML enviado ao WS
Dim msgRetWS As String [ô] retorna o XML de resposta do WS
Dim cStat As Long [ô] retorna o código do resultado da chamada
Dim msgResultado As String [ô] retorna o literal do resultado da chamada
Dim dhResp As String [ô] retorna a data e hora da resposta
Dim indCont As Long [ô] retorna o indicador de continuação
[ô] 0-não existem mais NF-e
[ô] 1-existem mais NF-e

Dim ultNSUConsultado As String [ô] retorna o Último NSU pesquisado na SEFAZ.
[ô] Se for o caso, o solicitante pode continuar a consulta
[ô] a partir deste NSU para obter novos resultados.

Dim txtNFe As String [ô] retorna o TXT com as informações das notas localizadas
[ô]--------------------------------------------------------------------------------------
[ô] INICIALIZAÇÃO DE PARÂMETROS
[ô]--------------------------------------------------------------------------------------
siglaWS = [Ô]RS[Ô]
siglaUF = [Ô]RS[Ô]
tipoAmbiente = 2
nomeCertificado = [Ô]CN=M R M KATO ASAKURA - EPP:69621187915, OU=AC CAIXA PJ-1 V1, OU=Caixa Economica Federal, O=ICP-Brasil, C=BR[Ô]
versao = [Ô]1.01[Ô]
msgDados = [Ô][Ô]
msgRetWS = [Ô][Ô]
cStat = 0
msgResultado = [Ô][Ô]
CNPJ = [Ô]10142785000190[Ô]
indNFe = 0
indEmi = 0
ultNSU = [Ô]0[Ô]
proxy = [Ô][Ô]
usuario = [Ô][Ô]
senha = [Ô][Ô]
licenca = [Ô][Ô]
dhResp = [Ô][Ô]
indCont = 1
ultNSUConsultado = [Ô]0[Ô]
txtNFe = [Ô][Ô]
[ô]--------------------------------------------------------------------------------------
[ô] instancia classe
[ô]--------------------------------------------------------------------------------------
Dim objNFeUtil As Object
Set objNFeUtil = CreateObject([Ô]NFe_Util_2G.util[Ô])
[ô]--------------------------------------------------------------------------------------
[ô] chama funcionalidade
[ô]--------------------------------------------------------------------------------------

Do While (indCont = 1)

txtNFe = objNFeUtil.ConsultaNFDest(siglaWS, siglaUF, tipoAmbiente, nomeCertificado, versao, msgDados, msgRetWS, cStat, msgResultado, CNPJ, indNFe, indEmi, ultNSU, dhResp, indCont, ultNSUConsultado, proxy, usuario, senha, licenca)

If cStat = 138 then
[ô]
[ô] tratar notas do txtNFe
[ô]
MsgBox msgResultado & vbCrLf & vbCrLf & txtNFe, vbInformation, [Ô]Resultado[Ô]

Else If cStat <> 137
//
// tratar erro
//
indCont = 9; // forçar fim do loop
End If

[ô]
[ô] Atualizar ultNSU para persistir na consulta
[ô]
ultNSU = UltNSUConsultado

Loop [ô] While (indCont = 1 ) -> continuar consulta, pois a SEFAZ possui mais documentos para o CNPJ informado, ou ainda não avaliou a totalidade da sua base de dados
[ô]--------------------------------------------------------------------------------------
[ô] libera classe
[ô]--------------------------------------------------------------------------------------
Set objNFeUtil = Nothing
JOAOBENEVIDES 22/06/2016 10:15:12
#463899
amigo voce esta usando vb6 para fazer isto
RICOCARDOZO 22/06/2016 11:20:05
#463905
Sim , mais já pesquisei e pelo que vi o problema é no site da receita federal .

Apesar que o loop tambem está errado.
JOAOBENEVIDES 22/06/2016 11:25:48
#463909
a ta porque eu programei por anos nesta dll , agora migrei para .net
ASSANTANA 05/07/2016 18:01:48
#464507 Resposta escolhida
Olá Joao, boa tarde

Estou usando C# para testar essa função com a dll da flexdocs, mas quando chando a função ele fica parado, você pode me ajudar.

Em anexo está a rotina que estou utilizando.

grd abs
Tópico encerrado , respostas não são mais permitidas
Voltar