-
Total de ítens
60 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Fauze
-
-
Pessoal preciso de ajuda para usar esse comando eu utilizo o ACBrMonitor.
Não entendi direito as informação que estão no link: http://anfm.blogspot.com.br/2011/09/nova-versao-071a-do-acbrnfemonitor.html
Alguem poderia me ajudar com os parâmentros e qual o formato do arquivo, é o mesmo que uso para enviar a NFe [ENTNFE.TXT]? Já tentei, mas da erro de comando.
NFE.CARTADECORRECAO("[CCE]
idLote=2
[EVENTO001]
chNFe=351109XXXXXXXXXXXXXX550010000055661000055660
cOrgao=35
CNPJ=XXXXXXXXXXXXXX
dhEvento=09/09/11 10:55:00
nSeqEvento=10
xCorrecao=TESTE DE CORRECAO DE NFE")
-
Sim, voltou a funcionar ...
-
Kiko, mais uma dúvida, devo instalar nos meus clientes, se sim, não preciso esperar até o dia 01/11/2012?
-
Kiko, tem 5 opções para download, qual delas devo baixar?
A versão do meu monitor é ACBrNFeMonitor2 Ver.0.6.2b - CAPICOM.
1- Download ACBrInstall.zip (1.1 MB)
2- ACBrNFeMonitor2-CAPICOM-0.7.2.1-Windows-Instalador.exe
3- ACBrNFeMonitor2-OpenSSL-0.7.2.1-Windows-Instalador.exe
4- ACBrNFeMonitor2-OpenSSL-0.7.2-Windows-Instalador.exe
5- ACBrNFeMonitor2-CAPICOM-0.7.1c_20120628-Windows-Instalador.exe
-
Pessoal,
Não estou conseguindo emitir/consultar NFe.
Uso ACBrNFeMonitor no modo Homologação.
Logo de manhã estava funcionando.
Qaundo consulto uma NFe retorna:
OK: Cabeçalho - Versão do arquivo XML não suportada[CONSULTA]
Versao=PR-v2_6_2
TpAmb=2
VerAplic=PR-v2_6_2
CStat=239
XMotivo=Cabeçalho - Versão do arquivo XML não suportada
CUF=41
ChNFe=
DhRecbto=30/12/1899
NProt=
DigVal=
E quando emito uma NFe retorna:
OK: Falha no Schema XML do lote de NFe. org.xml.sax.SAXParseException: cvc-complex-type.2.4.a: Invalid content was found starting with element 'esp'. One of '{"http://www.portalfiscal.inf.br/nfe":qVol}' is expected.[ENVIO]
Versao=PR-v2_6_2
TpAmb=2
VerAplic=PR-v2_6_2
CStat=225
XMotivo=Falha no Schema XML do lote de NFe. org.xml.sax.SAXParseException: cvc-complex-type.2.4.a: Invalid content was found starting with element 'esp'. One of '{"http://www.portalfiscal.inf.br/nfe":qVol}' is expected.
CUF=41
NRec=
DhRecbto=30/12/1899
TMed=0
Msg=Falha no Schema XML do lote de NFe. org.xml.sax.SAXParseException: cvc-complex-type.2.4.a: Invalid content was found starting with element 'esp'. One of '{"http://www.portalfiscal.inf.br/nfe":qVol}' is expected.
Falha no schema XML. org.xml.sax.SAXParseException: cvc-pattern-valid: Value '' is not facet-valid with respect to pattern '[0-9]{15}' for type 'TRec'.
[RETORNO]
Versao=PR-v2_6_2
TpAmb=2
VerAplic=PR-v2_6_2
NRec=
CStat=215
XMotivo=Falha no schema XML. org.xml.sax.SAXParseException: cvc-pattern-valid: Value '' is not facet-valid with respect to pattern '[0-9]{15}' for type 'TRec'.
CUF=41
O que devo fazer ou é algum problema na Sefaz?
-
Régys ...
Era isso mesmo que estava precisando.
-
Boa tarde Pessoal,
Não consigo gerar o arquivo PDF sem ter que enviar o e-mail?
Estou usando o ACBrNFeMonitor.
-
Arquivo texto e troca de arquivo, normal como você está fazendo ai.
Socket, você conecta diretamente ao ACBrMonitor, não tem envio de arquivo texto, mas comando e respostas somente. Você estabelece uma comunicação via TCP/IP na porta e envia os comando, dai o ACBrMonitor devolve a resposta.
Eu particularmente acho melhor dessa forma porque assim você não terá os problemas de troca de arquivo que está tendo e simplifica a comunicação.
Obrigado Régys, como disse ao amigo Kiko, vou dar uma olhada e ver se consigo desenvolver (preciso de exemplos).
-
Fauze eu ainda não usei via Socket, mas tente dar o pontapé inicial por aqui:
http://acbr.sourceforge.net/drupal/?q=node/40
Desça até encontrar:
Modo Modo TCP/IP:
Ai tem uns exemplos, veja se te ajuda.
Obrigado Kiko, vou dar uma olha.
-
Quanto a sua pergunta, se você diz respeito a comunicação com o ACBrMonitor, eu penso que o melhor seria utilizar sockets ao invés do arquivo texto, agora se está falando da linguagem, concordo plenamente com o kiko, você deve utilizar a que você domine mais, a que seja mais produtivo.
Lembrando que se utilizar delphi não precisa utilizar o ACBrMonitor, pode fazer diretamente com os componente ACBr, o que diminui uma camada no teu aplicativo.
Régys, como poderia usar o sockets, qual a diferença entres eles e qual seria melhor?
-
Fauze não entendi direito a pergunta
Kiko, gostaria de sabe se tem outra opção para usar o monitor, que não seja troca de arquivos .txt?
-
Igor, Régys e Kiko,
Obrigado pelas orientações.
Já havia tentado o Sleep como sugeriu o Kiko, em seguida encontrei um função e resolvi usá-la, assim não corro o risco de elevar o processamento do servidor.
Vou postar o código, está com os comentários como estava no forum.
Obs.: Qual a sugestão dos amigos para eu usar o ACBrNFeMonitor com VB6?
'//-------------------------------------------------------------------- '// PROPOSITO: '// Dar Pause or delay em um PROCEDIMENTO especificando os segundos '// '// ARGUMENTS: '// Number of seconds. May use fractions in a decimal format (#.##) '// '// COMMENTS: '// Timer() returns a Single value rounded to the nearest 1/100 of a '// second like a stopwatch. Also, Timer() has a "bug" - it resets '// itself at midnight. Therefore we need to adjust for this, using '// some sort of counter. The simplest way is to concatenate the day '// in front of it with Day(Date) but then the days get reset when the '// month changes, and of course we need to adjust when the months are '// reset by the changing year. Fortunately that's as far as we have '// to go. To avoid an extremely large number by concatenating one in '// front of the other, we add the different parts of the Date together '// and then concatenate with the sum. '//-------------------------------------------------------------------- Public Sub EventPause(sngSeconds As Single) Dim dblTotal As Double, dblDateCounter As Double, sngStart As Single Dim dblReset As Double, sngTotalSecs As Single, intTemp As Integer '// For our purposes, it's better to concatenate five zeros onto the '// end of our date counter, then ADD any Timer values to it. dblDateCounter = ((Year(Date) + Month(Date) + Day(Date)) _ & 0 & 0 & 0 & 0 & 0) '// Initialize start time. sngStart = Timer '// We also need to adjust for the possible resetting of Timer() '// (such as if the Time happens to be just before midnight) when '// adding the Pause time onto the Start time. The folowing formula '// takes ANY value of the total seconds, whether it's above or below '// the 86400 limit, and converts it to a format compatible to the '// date counter. sngTotalSecs = (sngStart + sngSeconds) intTemp = (sngTotalSecs \ 86400) '// Return the integer portion only dblReset = (intTemp * 100000) + (sngTotalSecs - (intTemp * 86400)) '// Now we can initialize our total time. dblTotal = dblDateCounter + dblReset '// Timer loop Do DoEvents '// Make sure any other tasks get some attention '// For this to work properly, we cannot create a variable with the '// concatenated expression and plug it in unless we reset the variable '// during the loop. Much better to do it like this: Loop While (dblDateCounter + Timer) < dblTotal End Sub
-
Obrigado Igor,
Mas não achei nada parecido no VB6.
Fiz uma alteração na função, que funcionou, o problema é que se por algum motivo o arquivo sainfe.txt não for criado na pasta, o programa vai fica num loop infinito.
Tem outra sugestão?
-
Pessoal,
Estou usando ACBrNFeMonitor no meu sistema em Clipper, sem problema, na época peguei um exemplo no forum do PC Toledo para fazer a leitura do retorno (SAINFE.TXT).
Agora estou fazendo no sitema que estou desenvolvendo em VB6, consigo fazer todas as comunicações com o Monitor, no envio do (ENTNFE.TXT), o problema está no retorno do (SAINFE.TXT).
Logo que mando o arquivo (ENTNFE.TXT) chamo a função que vai ler o arquivo (SAINFE.TXT), como há um pequeno delay, acaba dando um erro "PERMISSION DENIED".
Enquanto fica no laço While lFlag = False esperando o montior criar o arquivo de retorno acontece o erro.
Tem algum colega aqui no forum que desenvolve em VB6 que tenha passado por isso, ou saiba como eu faço para dar uma parada no processo entre o envio e a chamada da função que le o arquivo (SAINFE.TXT)?
Private Sub ButtonPlus1_Click() Dim I As Long On Error GoTo error If Dir(vPathMonitor & "\SAINFE.TXT") <> "" Then Kill vPathMonitor & "\SAINFE.TXT" End If Open vPathMonitor & "\ENTNFE.TXT" For Output As #1 cConteudo = "NFe.EnviarEmail(" cConteudo = cConteudo & Chr(34) cConteudo = cConteudo & "[email protected]" cConteudo = cConteudo & Chr(34) & "," cConteudo = cConteudo & Chr(34) cConteudo = cConteudo & "C:\ACBrNFeMonitor\Logs\41120613374035000132550010000001071167858305-nfe.xml" cConteudo = cConteudo & Chr(34) & ",1,,)" Print #1, cConteudo Close #1 lFlag = False While lFlag = False If Dir(vPathMonitor & "\SAINFE.TXT") <> "" Then Call LeArquivo("SAINFE.TXT") End If Wend Exit Sub error: MsgBox Err.Description End Sub
Private Function LeArquivo(arquivo As String) Dim vLinha As String, cMensagem As String, Ok As Boolean If Dir(vPathMonitor & "\" & arquivo) <> "" Then lFlag = True Open vPathMonitor & "\" & arquivo For Input As #1 DoEvents Do While Not EOF(1) Line Input #1, vLinha If cMensagem <> "" Then cMensagem = cMensagem & vbCr & vLinha Exit Do End If If InStr(vLinha, "OK: Serviço em Operação") > 0 Then Exit Do End If If InStr(vLinha, "ERRO:") > 0 Then cMensagem = vLinha End If If InStr(vLinha, "OK: Email enviado com sucesso") > 0 Then cMensagem = vLinha End If Loop If cMensagem <> "" Then MsgBox cMensagem, , "Atenção!" End If Close #1 End If End Function
-
oK ...
-
Na tela de configuração na aba [ Monitor ] ative [v] Log de comandos Enviados e recebidos
depois faça toda a operação, após o erro procure em C:\ACBrNFeMonitor\LOG.TXT e nos envie.
Não sabia dessa opção, então ativei e deixei Max. linha = 0, como funciona, diariamente ele sobrepõe ou continua adicionando linhas e qual é o máximo de linhas?
-
Olá pessoal,
Quando o destinatário não tem e-mail o ACBrNFeMonitor não gera o arquivo PDF, qual comando posso usar para gerar o PDF?
Obs.: Uso os comandos para gerar a NFe que utilizam o formato do emissor do SEFAZ de SP
-
Como você mesmo já disse que vai fazer os testes no cliente em modo de produção
Ops ... me enganei ... vou fazer em modo de homologação.
-
Boa noite Italo,
Muito obrigado pela dica, o problema é que estou fazendo uma adaptação em um sistema desenvolvido em clipper, e fica mais facil tratar o retorno do que fazer manutenção em telas que já estão em funcionamento a muito tempo, para versão windows "VB6" fiz exatamente o que vc sugeriu.
Se não conseguir os arquivos, vou faze testes no cliente em modo produção para gravar os arquivos e tratar no sistema.
-
Olá Pessoal,
Estou sem um certificado para fazer os testes, onde posso encontrar exemplos de retorno quando o envio é rejeitado.
Exemplo: quando é informado o código do município errado, falta de no. no endereço, etc.
Isso seria para eu fazer a leuitura e tratar os erros conforme a Tabela de códigos de erros e descrições de mensagens de erros.
-
Bom dia Kiko,
Já fiz meu cadastro na receita em março deste ano, pelo que entendi é só fazer a alteração e adicionar o apção "55".
-
Ricardo,
Meus sistema já é cadastro na receita para emissão de nota com formulário contínuo, e meu cliente agora quer passar a emitir somente NFe, liguei na receita e me disseram que é preciso o componete, no caso ACBrNFeMonitor estar homologado, e não o meu sistema, gostaria de saber se isso é verdadeiro?
-
Olá pessoal,
Fiz a implementação do meu sistema com o ACBrNFeMonitor, agora o contador do meu cliente disse que precisa dar baixa no emissor de SP e dar entrada no meu sistema.
Liguei no 0800 da receita e o atendente disse que tenho cadastrar o componente uma vez que é ele que faz a comunicação com a SEFAZ, a pergunta é a seguinte:
Está correto, como está sendo feito aqui no Paraná?
-
Esse erro quando aconteceu comigo era por causa da dll do capicom voce tem que registrar a dll.
Dentro da pasta ACBR\DLLs\Capicom tem um instalador .bat so rodar ele quando é maquina xp, quando e windows 7 ou vista voce tem que rodar como administrado senao nao registra a dll. caso persista o erro va manualmente pelo dos mas execute o dos como administrador e execute os seguintes comandos na pasta system32 para xp e sysow64(windows 64 bit) .
regsvr32 capicom.dll
regsvr32 msxml5.dll
Espero ter ajudado.
Não encontrei a pasta ACBR\DLLs\Capicom, será que posso refazer a instalação sem perder as configurações do monitor??
Carta de correção eletronica
em ACBrNFe
Postado
ERRO: Comando inválido (NFE.CARTADECORRECAO("[CCE]
idLote=1
[EVENTO001]
chNFe=41121011763640000170550010000042671691524689
cOrgao=41
CNPJ=11763640000170
dhEvento=05/10/2012 10:17:43
nSeqEvento=1
xCorrecao=TESTE DE CORRECAO DE NFE"))
Eu estou salvando um arquivo na pasta do ACBrMonitor com o nome de [entnfe.txt] com esse comando:
NFE.CARTADECORRECAO("[CCE]
idLote=1
[EVENTO001]
chNFe=41121011763640000170550010000042671691524689
cOrgao=41
CNPJ=11763640000170
dhEvento=05/10/2012 10:17:43
nSeqEvento=1
xCorrecao=TESTE DE CORRECAO DE NFE")
Essa chave é de uma NFe de teste que foi validada com sucesso.
Obs.: dhEvento é a data e hora que o arquivo foi recebido no envio?