Agnaldo Prates

Olá companheiros, bom dia. Estive adequanto meu sistema com relação à NFC-e, e observei que para o usuário final o nome do arquivo xml pode causar uma "certa" confusão em um dado momento, então tomei a liberdade de alterar algunas linhas no ACBrNFeNotasFiscais conforme segue. Esta solução não sei se é viável a todos os desenvolvedores, mas no meu caso eu tive esta dificuldade pois os nomes dos arquivos são muito parecidos, mudando basicamente o modelo e o dv. NFe11140701914788000104650010000000731000000737-NFCe.xml NFe11140701914788000104550010000000731000000737-NFe.xml Atenciosamente, Agnaldo Prates. Segue as sugestões. Linha 262 if TACBrNFe( FACBrNFe ).Configuracoes.Geral.ModeloDF = moNFe then CaminhoArquivo := PathWithDelim(PathArquivo)+StringReplace(TACBrNFe( FACBrNFe ).NotasFiscais.Items.NFe.infNFe.ID, 'NFe', '', [rfIgnoreCase])+'-NFe.xml' else CaminhoArquivo := PathWithDelim(PathArquivo)+StringReplace(TACBrNFe( FACBrNFe ).NotasFiscais.Items.NFe.infNFe.ID, 'NFCe', '', [rfIgnoreCase])+'-NFCe.xml'; linha 501 IF Self.FConfiguracoes.Geral.ModeloDF = moNFe then FConfiguracoes.Geral.Save(StringReplace(Self.Items.NFe.infNFe.ID, 'NFe', '', [rfIgnoreCase])+'-nfe.xml', vAssinada) Else FConfiguracoes.Geral.Save(StringReplace(Self.Items.NFe.infNFe.ID, 'NFCe', '', [rfIgnoreCase])+'-NFCe.xml', vAssinada);

Oi Rafael e Patrick, bom dia. Seria possível disponibilizar esta solução para mim também? [email protected] Atenciosamente, Agnaldo Prates.

Bom dia Italo. Não há de quê, afinal, quem agradece somos nós usuários deste projeto magnífico.

Boa tarde senhores. A cidade de Jaru/RO agora aderiu ao sistema de emissão de notas fiscais de serviços eletronica. Hoje consegui o endereço de produção. Cidade: Jaru - 1100114 - Código do IBGE. Segue em anexo a unit alterada. ps: Estou abrindo este tópico pois não encontrei outro específico para adicionar cidades. Atenciosamente, Agnaldo Prates. ACBrProvedorFiorilli.pas

Olá Fábio, O detalhe pode ser alguma restrição nas seguintes pastas, lembrando que se elas não existirem devem ser criadas de setadas as devidas permissões. %USERPROFILE%\Application Data\Microsoft\SystemCertificates %USERPROFILE%\Application Data\Microsoft\Protect %USERPROFILE%\Application Data\Microsoft\Credentials %USERPROFILE%\Application Data\Microsoft\Crypto O %USERPROFILE% refere-se a pasta AppData, na pasta do seu usuário (Pasta oculta). Por aqui a gente sempre resolve assim. De repente pode ser isso ai.

Bom, a meu ver, há uma inconsistência no Schemas que, ao invés de ler a formatação AAAAMMDD, está lendo AAAA-MM-DD.

Oi Régys, a adoção em primeiro momento será voluntária, mas creio que a partir de julho há sim uma tendencia de se tornar obrigatório. Todavia, como as coisas mudam muito rápido por aqui, vamos aguardar o andar da carruagem. Meio off. Quanto à numeração das notas nos PDVs, em consulta recente à Sefaz/AM, eles me informaram que pode usar uma série para cada PDV, informação que não consegui aqui em RO, mas vou procurar me informar melhor sobre o assunto. "Caro Agnaldo, Em nome da Secretaria da Fazenda, agradeço as palavras. É um grande incentivo para nossa equipe. Sobre a sua pergunta, você de sim utilizar séries distintas para os caixas. Dessa forma, cada caixa terá numeração própria"[sic]

Boa noite pessoal. Lembrando que Rondônia também a partir de 10/01/2014 está usando a sefaz virtual do RS para o projeto NFC-e. http://www.portal.sefin.ro.gov.br/site/conteudo.action?id=3646, creio que este projeto vem "desburocratizar" um pouco as questões do PAF-ECF.

Olá bom dia. O erro está no final do arquivo, duplicidade de fechamento de tag. ></protNFe></protNFe></nfeProc>. Pode ser alguma variável disparando duas vezes o mesmo valor. Espero que lhe ajude.

Pessoal boa tarde. Baixei a versão do Validador EFD Contribuições, instalei sem problemas. Ocorre que, ao identificar um erro, na NF-e de entrada e, ao clicar para abrir o local, não aparece o maldito registro. Alguém aqui, já deparou com esta situação? Lembrando que a versão desta coisa é: 2.0.4. Não tenho lembranças de ter visto um validador tão ruim. Desculpe o meio OFF! Prates, Agnaldo.

Só pra enfatizar, eu tive um problema parecido uma vez, gerando um inventário de aproximadamente 100.000 registros, quando chegava a 13% dos registros ocorria o erro. Debuguei o código e observei o seguinte: Ao checar se o produto estava no registro0200, eu utilizava uma função que criava uma tabela virtual. Aí estava a fonte do problema. Bastou alterar: Var Tb:TIbQuery; begin Tb := TIbQuery.Create(Self); Para: Var Tb:TIbQuery; begin Tb := TIbQuery.Create(Self); Tb.BufferChunks := 10; Tb.UniDirectional :=True; Pronto. Acabou o erro.

Estranho. Deve haver algum loop polindo o TStringList. Toda Via, se for AcbrSpedFsical, tive um problema neste sentido, eu resolvi assim: LinhasBuffer :=98304; // 100MB RAM Vc pode aumentar para 500MB = 524000. Atualmente creio que não há computadores com menos de um 1 GB de RAM, Tenho clientes que escrituram cerca de 2.000 notas por mes. Esta foi a solução que encontrei. Abraço. Prates, Agnaldo

Obrigado pessoal pelo feedback.

Pessoal não sei se corrige, modifiquei as seguintes linhas. Antes: if (EscECFResposta = Registrador) and (StringToFloatDef(EscECFResposta[i+1],0) = Aliq) then begin Result := RoundTo( StrToFloatDef(EscECFResposta[ I+2 ],0)/100, -2); Break; end ; Depois: if (EscECFResposta.Params = Registrador) and (StringToFloatDef(EscECFResposta.Params[i+1],0) = Aliq) then begin Result := RoundTo( StrToFloatDef(EscECFResposta.Params[ I+2 ],0)/100, -2); Break; end ; Abraço pessoal.

Bom dia pessoal. Hoje, atualizei o ACBr, porem ao recomplila-lo o mesmo apresentou o seguinte erro: Build [Hint] ACBrECFEscECF.pas(1239): Value assigned to 'TACBrECFEscECF.GetEstado' never used [Error] ACBrECFEscECF.pas(2236): Class does not have a default property [Error] ACBrECFEscECF.pas(2237): Class does not have a default property [Error] ACBrECFEscECF.pas(2237): Operator not applicable to this operand type Alguem deparou com o mesmo problema? Removi toda a pasta e baixe novamente, mas o erro persiste. Atenciosamente, Prates, Agnaldo.

Eu utilizei por vários anos a cobrança simples do BB, porem a carteira era a 18-19, ou seja: Carteira 18 variação 19. Esta situação em que o dinheiro some é prática do BB, casas lotericas, postos de atendimento etc. Um colega que trabalhou em um posto de atendimento do BDsco, confidenciou-me que, se na hora de transmitir a transação ocorrer algum tido de erro, o sistema autentica o pagamento e o dinheiro não vai para a conta destino, fica sobrando no final do dia no banco, o mesmo acontecendo com os demais. Se você não levar o comprovante ao banco, não receberá seu crédito. Abraço.

É pessoal, a coisa é complexa. A meu ver, o DANFE num futuro próximo deverá ser lido exclusivamente com LUPA, não me surpreenderei se doravante obrigarem a sua impressão para cada item constante na nota. Nem vou falar do CF.

Resolvido. Problema, no form estava o componente, removi e o criei em tempo de execução.

Bom dia pessoal. Neste tópico, eu relatei sobre a importação da NFe do site da receita, pois bem, debugando o código observei um detalhe: Ao chamar o método Notasficais.clear na primeira vez, o código não é aberto, na segunda vez, o método cai justamente no Destroy. destructor NotaFiscal.Destroy; begin FNFe.Free; inherited Destroy; end; Alguém já deparou com este detalhe? Abraço a todos.

Oi Juliomar, sim alguns recebem outros não, então tive que encontrar uma solução. DM.NfeData.NotasFiscais.Clear; Antes de alimentá-lo. A primeira vez, como eu disse no inicio, funciona 100%, porém na segunda, nada. Já procurei em todo código mas até agora não consegui encontrar o que pode ser. Abraço.

Sim, no meu sistema eu importo através da consulta da nota completa. Gero o XML e alimento o componente ACBrNFe.

Olá pessoal, boa tarde. Não sei se alguém já deparou com a seguinte situação. Ao importar o arquivo físico XML da NF-e, importa sem problemas, quantos necessário for. Porém, se a operação ocorrer da importação do site da receita, a primeira vez importa perfeitamente, entretanto se, escolher um arquivo ou mesmo tentar importar via site, ocorre o seguinte erro: List index out of bounds (0). Neste ponto já debuguei todo o meu código mas não consegui encontrar o erro. Eu gostaria de saber se algum dos amigos deparou em algum momento com esta situação. Abraço a todos.

netsolutions, dê uma olhada neste http://www.lefisc.com.br/materias/2008/122008piscofins.asp, possivelmente você vai encontrar alguma resposta para sua dúvida. A princípio a CST seria 06, mas confira se o produto desejado realmente enquadra na lista. Espero que lhe ajude. Abraço.

Valeu isaque. Entendo que não é muito fácil disponibilizar algo tão útil a muitos, entretanto é importante que deste trabalho venha algum reconhecimento. É certo que hoje na comunidade delphi, não há nenhum outro projeto tão importante quanto ao ACBr. Entendo ainda que, já deveríamos, nós usuários, encontrarmos um meio de disponibilizar algum tempo para ajuda. Falo por mim, as vezes tento fazer algo mas como é um projeto em especial de grande abrangência, fico meio inibido de oferecer algum tipo de recurso, tendo em vista que, a claridade do código é indiscutível, e, em muitos casos vejo que meu código ainda precisa ser melhorado em alguns aspectos, visto que, como sou o único desenvolvedor, muitas vezes tenho que criar algum tipo de artifício para que funcione adequadamente atendendo minhas necessidades. Por fim, espero ainda ver este projeto recebendo prêmios, oferecidos principalmente por parte do estado, que, muitas vezes não tem ideia do quanto penamos para adequar nossas aplicações às suas exigências. A todos os idealizadores, meu respeito e reconhecimento, salve!

Isaque, boa noite. Somente hoje consegui um tempo para testar a função LocalizaRegistro no cadastro de participantes. Posso lhe dizer que ficou show de bola, pois alem do documento oficial, há ainda a sequencia da estrutura daqueles que utilizam o mesmo cadastro para fornecedores e clientes. Parabéns, a função ficou extraordinária. Aproveitando o post, encontrei as funções StrToCodVer e CodVerToStr na unit ACBrEPCBlocos, pela simplicidade e utilidade, eu diria que resolve muitos IF then else etc em nosso código. Iniciativa louvável. Ao compliar o meu projeto SpedFiscal, já senti falta da mesma também neste módulo, uma vez que existe o tipo TACBrVersaoLeiaute = TACBrCodVer. Todavia são módulos diferentes que retornam versões diferentes. Então, já pedindo as devidas autorizações, inseri tambem no módulo ACBrEFDBlocos.pas tais funções, que segue em anexo para vossa avaliação. Se eu estiver fazendo besteira, desconsidere este post. Um forte abraço. ACBrEFDBlocos.pas