Atenas Soluções Softwares

Só complementando oque o colega italojjr disse e acredito que vc ja até saiba ! vc precisa atualizar seu sistema para o novo formato de CCe e CAn por evento , o formato antigo está com os dias contados !

SAOliveira , vc emitir um Cupom Fiscal é igual emitir uma Nota Fiscal no quisito Aliquota de ICMS , a unica diferença é que Cupom Fiscal vc só emite dentro do Estado e Nota Fiscal vc pode Emitir Interestadual (Para fora do Estado) , para emissão do Cupom Fiscal sua Aplicação informa ao ECF a Aliquota que o produto adota , seja ela qual for ! Este seu caso de calculos de ICMS vai depender da Compra do produto para o referido mes , o calculo que o contribuinte faz para pagar o ICMS é : (Débito ICMS = Vendas) - (Crédito ICMS = Compras) = Saldo do ICMS (Apuração mensal)

ECF não calcula nada , só informa ! , ou seja , ao vender um determinado item no ECF vc informa a Aliquota de ICMS já pré fixada pelo lacrador , não existe variação e calculos no ECF . exemplo de Aliquotas pré fixadas pelo lacrador : FF = Subst. Tributaria I = Isento T01 = 18% --> (T01 pode ter outra aliquota , depende do lacrador) T02 = 7% --> (T02 pode ter outra aliquota , depende do lacrador) ... Entre varias outras...

Vc grava em Banco de Dados estas informações em questão e muitas outras relacionadas ao Cupom Fiscal após a fechamento do cupom ! E após a Redução-Z , tambem grava em Banco de Dados toda a apuração do dia !

thiago , vou tentar te ajudar de um modo simples , vc vai utilizar uma variavel integer pra contar oque vc querer que processe quando ela chegar em seu valor n . Vamos simular o envio de 20 em 20 emails ! var i : integer ; begin i := 0 ; // 1-Pesquisa o seu banco para listar os emails ha enviar while not Query.eof do // laço da lista de emails begin //...Incluo 1 email ao lote aqui... inc(i) ; // Atribuo + 1 ao minha variavel contadora if i = 20 then // Quando chegar a 20 emails executo o processo de envio begin //... executo aqui o processo de envio e aguardo //... Informo a Aplicação para descartar os 20 emails deste processo ja enviado i := 0 ; // Zero a minha variavel contadora pra iniciar novamente a contagem end ; Query.next ; // Continuo o próximo end ; if i > 0 then begin //... executo aqui o processo de envio do restante dos emails que sobraram < 20 end ; end ; Com certeza vc precize nesta empreitada de Try Except pra tratar erros , enfim ... tem que testar ! Este foi um exemplo simples mas se quizer algo mais avançado vc pode tambem utilizar uma thread para esse caso , pra que não nescessite ficar aguardando o envio de todos estes emails até o fim ! , pesquise por thread .

O pessoal faz um laço onde manda a consulta e pega o ultimo NSU e enquanto o valor de retorno for = 1 fica o laço infinito sempre setando o ultimo NSU até ficar = 0 pra finalizar o laço ! ; Diz uns colegas aqui do forum que as vezes da uns 500 looping's no laço pra retornar umas 12 NFs ! Este sistema de busca eu particularmente ainda não adotei , mas pra quem quer a ferramenta de imediato tem que ser assim !

Vc esta consultando utilizando do jeito antigo carregando o XML ou do jeito novo pela chave ?

Haa Bichão , então só pode ser alguma coisa haver com o Indy mesmo ! vc não esta ocupando a porta ativando o indy ao rodar seu Aplicativo ?

Ta embaçado heim , funciona no exemplo e no seu não , conflito com o Indy não sei não , tenho indy tbm no meu projeto só que em formularios separados , Será !! Vc copiou as dll's tbm ?

Ala , este erro ocorre por vc não estar conseguindo conectar ao Provedor com as configurações de conexão do seu programa , vc viu bo link que tbm tem o fonte do exemplo , debugue pra ver como esta sendo enviado SSL e TLS , enfim veja como esta a configuração do exemplo e coloque no seu , copie as Dlls do exemplo para a pasta do seu programa !

Aí , que legal pra nós degustarmos nesta quarta-feira antes do feriado , os caras inventando mais um trampinho pra nós : http://g1.globo.com/jornal-da-globo/not ... final.html Rapaziada , oque valeu mesmo da noticia foi só a imagem caneca de cerveja !!!

Neste link = http://www.baixa.la/arquivo/6664193 tem um exemplo com fontes de envio de email com Synapse (O ACBr utiliza Synapse) , tente enviar email com ele . Existem algumas considerações para o não envio de Email's : 1: Antivirus bloqueando a porta SMTP . (Verificar) 2: Porta SMTP normalmente pode ser : 25 , 465 ou 587 . (Testar) 3: Alguns provedores aceitam SSL outros não . (Testar) 4: Alguns provedores aceitam TLS outros não . (Testar) 5: Algumas das DLL's que estão junto ao link informado para alguns provedores tem que estar presentes na System32 ou com o aplicativo . (Testar) ALA e demais colegas , por gentileza de o FeedBack após realizar os testes de como conseguiu resolver o problema , tem muita gente aqui no forum que pergunta o pessoal responde e depois não volta com o FeedBack de como conseguiu resolver o problema , vamos lembrar que as perguntas e respostas ja efetuadas servem de conhecimento para todos daqui do forum ! Grato .

Pessoal , aparentemente o problema esta na criação do XML de retorno ! O Componente envia/registra no WS certinho mas quando esta criando o XML das informações de retono acontece o erro !

Graca , só pra matarmos a curiosidade fax assim : Clica em cima do xml em questão vai em Abrir como e escolha o Bloco de Notas , vc irá ler o codigo do arquivo e veja sem tem assim = "TAGS <>"

Na maioria dos países a impressora POS (Point-Of-Sale) é uma impressora simples, sem memória fiscal, lacre, todas estas coisas. Quando existe alguma memória, é simples, praticamente um disco virtual. As vendas quase sempre ficam armazenadas no computador. As POS printers mais baratas custam menos de US$ 100. Não vejo motivo para a existência do SAT, pra mim a NFC-e vai torná-lo 100% obsoleto. Pra que forçar o comerciante a gastar? Com a NFC-e ele pode usar uma impressora de US$ 100 e imprimir o "DANFE ecológico" só com o QR-code e o valor total, gastando bem menos papel. Para o comerciante e para o governo, a NFC-e tem só vantagens. Pra quem o SAT é vantajoso? Alexsander , veja oque o Daniel comenta i até vc sitou anteriormente ! É verdade ! Vantagem entre NFC-e e SAT é claro que NFC-e é mais vantajoso pois não tem nada fisico/hardware , por outro lado perde-se muito em empregos com fabricação e manutenção .

Então Graca , parece ser algum problema no componente voltado ao ambiente de MG mesmo , porque veja os outros colegas acima sitaram ser tbm de MG e não tem ninguem mais reclamando disso em outras UF's , no caso teria que debugar ai neste ambiente !

Graca , vc esta em MG tbm ? No meu caso estou em SP e atualizei o ACBr no dia 05/11 , precisa checar se o problema é com alguma nova atualização ou com alguma rotina implementada para com a Sefaz de MG ?

Boa tarde os comandos que utilizo // Limpa ACBrNFe1.NotasFiscais.Clear; // Carrega o xml da nf-e ACBrNFe1.NotasFiscais.LoadFromFile( OpenDialog1.FileName ); // configura o acbr a forma de emissao que esta constante na nota ACBrNFe1.Configuracoes.Geral.FormaEmissao := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis; // Executa a consulta ACBrNFe1.Consultar; Com os componentes atualizados !!! Tente assim : if not(InputQuery('WebServices Consultar', 'Chave da NF-e:', Chave)) then exit; ACBrNFe1.NotasFiscais.Clear ; ACBrNFe1.EventoNFe.Evento.Clear ; ACBrNFe1.WebServices.Consulta.NFeChave := Chave ; ACBrNFe1.WebServices.Consulta.Executar; Obs: 1-A mensagem de Retorno esta no evento OnGerarLog do Componente ACBRNFe ! 2-Não precisa carregar XML .

Coloque as linhas de comando que vc esta dando ao componente para Envio e Retorno ?

É melhor que não , se der alguma zica vc pode perder tempo e ter dor de cabeça : 1 - desinstale tudo do "ACBr" do delphi e retire também os library path do "ACBr", o ACBrInstall vai adicionar pra vc tudo certinho . 2 - baixe a nova atualização do SVN trunk caso não tenha baixado . 3 - instale o ACBr . Obs : Nos teus projetos com ACBr de um Rebuild :

Fiz a atualização do ACBR, porém estou com um problema na linha: infEvento.tpEvento := teCCe ; Na outra versão era passado o codigo: 110110, agora esta passando o 'teCCe'. Devo usar alguma Unit??? Abraço. uses pcnConversao

Existem algumas bibliotecas que tem que serem Compiladas e devidamente configaradas no Library Path do Delphi antes da instalação do componente , no caso deste erro é a "Synapse" , só compile ! Obs : Utilize o ACBrInstall !!!

Renan , ja que vc esta neste ponto de verificação do teu sistema , aproveite e ja mude o formato de Envio para CCe , Cancelamento por "Evento" , é mais facil vc atualizar para este formato novo de envio por Evento doque ficar batendo cabeça procurando este bug do formato antigo !

ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.idLote := Lote ; with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Grid_NFs_Emitidas.CellByName['Chave_NFe',Grid_NFs_Emitidas.SelectedRow].AsString ; infEvento.CNPJ := Grid_NFs_Emitidas.CellByName['Cnpj_Emitente',Grid_NFs_Emitidas.SelectedRow].AsString ; infEvento.dhEvento := Now ; infEvento.tpEvento := teCCe ; infEvento.nSeqEvento := Numero_Sequencia ; infEvento.detEvento.xCorrecao := Trim(Memo_CCe.Lines.Text) ; infEvento.detEvento.xCondUso := '' ; end; ACBrNFe1.EnviarEventoNFe( Lote );

Renan , entendi + ou - , no caso vc esta utilizando o método antigo informando o XML da NFe para emitir a Carta de Correção , não é ? Vc não obtem nenhum erro de retorno ? Na sua pasta de XML's enviados como esta o conteudo do XML enviado da CCe ? Este erro é somente em produção no seu sistema ?