Fauze

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?

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: E quando emito uma NFe retorna: 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.

Obrigado Régys, como disse ao amigo Kiko, vou dar uma olhada e ver se consigo desenvolver (preciso de exemplos).

Obrigado Kiko, vou dar uma olha.

Régys, como poderia usar o sockets, qual a diferença entres eles e qual seria melhor?

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 ...

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

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á?

Não encontrei a pasta ACBR\DLLs\Capicom, será que posso refazer a instalação sem perder as configurações do monitor??