arce

atualizei para meus clientes e está funcionando ok mas deixamos alguns para fazer a modificação hj, e testamos o envio da NF-e sem as atualizações... o webservice aceitou normalmente (não inclui nf-e com ISSQN ou de importação) Mas de toda forma agora esta tudo OK obrigado a todos

uma outra questão... se eu não substituir os schemas até o dia 01/11/11 ... pode haver rejeições?

eu apenas add um item no "Motivo da desoneração do ICMS" (ICMS.motDesICMS) referente a (NT2011/0004) 2.10 motDesICMS (N28) - Motivo da desoneração do ICMS function motDesICMSToStr(const t: TpcnMotivoDesoneracaoICMS): string; begin // 1 – Táxi; // 2 – Deficiente Físico; // 3 – Produtor Agropecuário; // 4 – Frotista/Locadora; // 5 – Diplomático/Consular; // 6 – Utilitários e Motocicletas da // Amazônia Ocidental e Áreas de // Livre Comércio (Resolução // 714/88 e 790/94 – CONTRAN e // suas alterações); // 7 – SUFRAMA; // 8 - Venda a orgãos públicos // 9 – outros. (v2.0) result := EnumeradoToStr(t, ['1', '2', '3', '4', '5', '6', '7', '8', '9'], [mdiTaxi, mdiDeficienteFisico, mdiProdutorAgropecuario, mdiFrotistaLocadora, mdiDiplomaticoConsular, mdiAmazoniaLivreComercio, mdiSuframa, mdiVendaOrgaoPublico, mdiOutros]); end; function StrTomotDesICMS(var ok: boolean; const s: string): TpcnMotivoDesoneracaoICMS; begin result := StrToEnumerado(ok, s, ['1', '2', '3', '4', '5', '6', '7', '8', '9'], [mdiTaxi, mdiDeficienteFisico, mdiProdutorAgropecuario, mdiFrotistaLocadora, mdiDiplomaticoConsular, mdiAmazoniaLivreComercio, mdiSuframa, mdiVendaOrgaoPublico, mdiOutros]); end; // add no TYPE da unit ... TpcnMotivoDesoneracaoICMS = (... mdiVendaOrgaoPublico, ...) acho q já deve ter sido alterado... mas como eu baixei no início do mês.. o item Venda a Órgão Público ainda não estava integrado ao código fonte abraços

Marcio eu baixei o fonte do ACBr no inicio do mes... e para adicionar a motDesICMS (N28) "8 - Venda a Órgãos Públicos" alterei o código do componente. Mas depois q saiu o nome Schema (21/11/10) eu não baixei novamente. por isso achei q tinham add as mudanças obrigado

Olá pessoal Gostaria de saber se as modificações que entrarão em vigor no dia 01/11/11 já foram adicionadas no componente do ACBr. desde já obrigado

ok... vou verificar

Bom dia. Fiz o download do fonte hj(23/11/11) pela manhã... e qndo fui fazer algumas modificações q sempre fiz ao reinstalar os componentes... percebi q o fonte esta bloqueado. O código fonte do ACBr não é mais possível ser alterado? Obrigado.

Olá. Gostaria de saber como add o nome do meu aplicativo no Cupom Fiscal. Utilizo a função FechaCupom('Volte sempre') e adiciono uma mensagem. Mas quero colocar o nome do meu sistema e sua versão em outra linha. Um de meus clientes esta migrando de um outro sistema para o meu. E por algum motivo, o nome do aplicativo dele aparece nos cupoms emitidos pelo meu Sistema, sendo q não mandamos nenhuma dessas informações para a ECF. O nome pode estar salvo na memória da Impressora Fiscal? E como posso vincular as minhas informações? obrigado

Olá Vilmardiogo, reinstalei o componente e funcionou corretamente. mto obrigado

Tenho uma dúvida qnto as atualizações do ACBr Utilizo o ACBrNFeDANFERaveCB ... eu baixei o ACBr faz uma semana para atualiza-lo, fiz modificações e tudo ok para todas as operações (envio, cancelamento ...). Acontece q o ao gerar o DANFE o componente não aceita sem ter um logo vinculado, além de q o layout das faturas ficou desconfigurado (estoura a margem direita da folha). Uso Delphi 7 e Rave 7.0 BEX. Aguardo resposta ... obrigado

Mto obrigado peterson161 ... resolvido a questão, modifiquei a função de imprimir o PDF.. e funcionou Abraço

Olá. Estou com uma dúvida, criei no meu módulo de NF-e uma opção para o usuário gerar arquivos qndo quiser. Nesta ele pode selecionar no grid as notas q ele deseja exportar, o formato (TXT, PDF e XML) e também como ele quer nomear os arquivos; e é nesse ultimo ponto q citei q esta meu problema. Para salvar os XMLs eu alterei a função SaveToFile da unit ACBrNFeNotasFiscais o comando abaixo: CaminhoArquivo := PathWithDelim(PathArquivo)+StringReplace(TACBrNFe( FACBrNFe ).NotasFiscais.Items[i].NFe.[b]infNFe.ID[/b], 'NFe', '', [rfIgnoreCase])+'-NFe.xml'; CaminhoArquivo := PathWithDelim(PathArquivo)+StringReplace(TACBrNFe( FACBrNFe ).NotasFiscais.Items[i].[b]NomeArq[/b], 'NFe', '', [rfIgnoreCase])+'.xml'; assim gero o xml com o nome desejado da seguinte forma ACBrNFe1.NotasFiscais.Items[0].NomeArq := nome_arquivo; ACBrNFe1.NotasFiscais.SaveToFile(caminho, false); o mesmo acontece para os arquivos TXT, mas qndo faço para o PDF não funciona. Procurei alguma forma de modificar a função ImprimirPDF, mas não obtive sucesso. Alguém tem alguma idéia de como posso fazer? Este é o tipo de arquivo q mais necessito para ser renomeado. Aguardo resposta.

peterson161 muito obrigado, seu exemplo me ajudou mto. Obrigado pela atenção. [Resolvido]

A alguns meses criei um módulo para envio da nfe (não uso o monitor), e esta funcionando, mas não da forma como gostaria, ele ainda apresenta falhas na leitura do retorno, normalmente esses erros ocorrem qndo alguma nf-e tem algum tipo de rejeição. A questão é que estou buscando uma forma de criar uma tela de recepção, onde não mostre apenas para ao usuário o status "recebendo nfe" mas também qual nfe esta sendo recebida no momento (envio mais de uma nfe por lote). estou seguindo a seguinte lógica gerar_nfe(0); ACBrNFe1.NotasFiscais.Valida; ACBrNFe1.NotasFiscais.Assinada; ACBrNFe1.Enviar(lote, false); for count := 0 to ACBrNFe1.NotasFiscais.Count-1 do begin qryAtulizaStatus.ParamByName('ESTADONFE').AsInteger := frmPrincipal.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[count].cStat; qryAtulizaStatus.ParamByName('DESC_EST_NFE').AsString := frmPrincipal.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[count].xMotivo; qryAtulizaStatus.ParamByName('DHRECBTO').AsDateTime := frmPrincipal.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[count].dhRecbto; qryAtulizaStatus.ParamByName('CHAVE').AsString := frmPrincipal.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[count].chNFe; qryAtulizaStatus.ParamByName('PROTOCOLO').AsString := frmPrincipal.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[count].nProt; qryAtulizaStatus.ParamByName('DIGVAL').AsString := frmPrincipal.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[count].digVal; qryAtulizaStatus.ParamByName('VERAPLIC').AsString := frmPrincipal.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[count].verAplic; end; grava corretamente no banco, acontece q qndo o FOR é acionado ... todas as nfes já foram recebidas ... e gostaria de fazer essa atualização em tempo real, mostrando em uma grid (como no sistema gratuito da receita) Se não fui bem claro, eu detalho mais. Obrigado.

Um de meus clientes utilizam normalmente a impressora fiscal ELGIN. E para tal não precisamos fazer nenhuma mudança específica.

Agora está funcionando, utilizei apenas os comandos do ACBrECF, não usei o ACBrGAV. O erro era um timer que estava ativo e executava comandos da ECF, por isso acusava que estava ocupada. muito obrigado Daniel Simoes

esta aparecendo outro erro "CHAMADA RECURSSIVA DE FORMMSGDOPROCEDURE" em loop

A ECF começa a imprimir o cupom, e aparece o seguinte erro "Communication error 9997: timeout during operation" e depois outro erro em seguinda "Componente ACBrECF ocupado, aguardando resposta do comando anterior", esta ultima mensagem fica num laço... e repete diversas vezes. estou usando o comando de abrir a gaveta direto do componente de ECF, sem a utilização do GAV

não funcionou. A gaveta abre normalmente, mas qndo emite a ECF acusa erro, como se a porta estivesse ocupada. É necessário mudar alguma propriedade Device do Gav?

Geralmente é necessário aguardar alguns milissegundos após o comando de abertura de gaveta, pois o ECF fica temporariamente inoperante... Experimente inserir um Sleep(500) após o comando de abertura eu aumentei o Sleep para 1000.. mas mesmo assim o erro persiste. Se eu desvinculo a ECF do componente Gav os cupons são emitidos corretamente. tentei desvincular em tempo de execução da seguinte forma: ACBrGAV1.AbreGaveta ; ACBrGAV1.ECF := nil; // comandos para emissão da ECF ACBrGAV1.ECF := frmPrincipal.ECF; mas não funcionou.

Desenvolvi em um PDV a abertura e fechamento de gaveta, linkando o AcbrGav no AcbrECF (propriedade Modelo = gavImpressoraECF). A gaveta funciona normalmente, mas qndo vou emitir a ECF da um erro alertando q o cupom não pode ser impresso e cancela o cupom. Esta gaveta é ligada diretamente na impressora fiscal (Elgin).

Eu desinstalei a leitora e safesign e instalei novamente. A versão do windows é XP.

Olá. Desenvolvi um projeto com o ACBr e esta funcionando normalmente. Acontece que em alguns clientes não consigo emitir nota em ambiente de Produção. Quando vou implementar o sistema ... para verificar se as configurações estão OK, emito uma nota de homologação, nisso ela é enviada corretamente ... se coloco em ambiente de Produção, não conecta com o servidor. E não foi apenas em um dia, esses clientes q não estão conseguindo não transmitiram nenhuma nota pelo sistema. Já reinstalamos o certificado (A3). O estranho é que trouxe o certificado até a empresa(minha) e ai transmitiu corretamente. Alguem pode me ajudar, estou necessitando mto disso.

exatamente... modifiquei o horário da minha máquina para o de inverno ... e funcionou perfeitamente... agora resta saber isso vai permanecer até sábado .. qndo entrar o horario de inverno em definitivo. Mas atrasei o relógio em uma hora e funcionou valeu

um de meus clientes... conseguiu emitir 3 notas por volta das 8 horas... depois disso começou a dar erro. mudamos de micro, mas persistiu o erro. acabei de testar a conexão pelo fonte exemplo do acbr e também não está conectando.