Agnaldo Prates

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

Obrigado Isaque. Vou testar e retornarei. Abraço.

Seguem os arquivos. ACBrEFDBloco_0.pas ACBrEPCBloco_0.pas

Isaque, boa tarde. Depois de algum tempo sem participar do fórum, venho antes de tudo agradecer a toda comunidade que participa deste belíssimo projeto, principalmente a você que o idealizou bem como o disponibilizou. Parabéns! Durante meus testes e desenvolvimento, tive a seguinte necessidade. Dentro do registro0150, tabela de participantes, no SPED há a função LocalizaRegistro(pCod_part). Função extremamente útil em meu dia-a-dia. Senti falta da mesma no SPED PIS/COFINS, implementei-a, de maneira que, ao invés do código do participante, a busca é feira pelo CNPJ ou CPF, alterei então a função do SPED Fiscal, para também buscar este documento, no caso pCGCJ_CPF. Esta idéia surgiu quando em alguns testes, observei participantes duplicados no EFD, tendo em vista que uso duas tabelas, clientes e fornecedores, o código obviamente irá repetir. Então, com todo respeito e reverencia ao projeto, o que você acha desta busca ser pelo numero do documento do participante? Segue: function TRegistro0150List.LocalizaRegistro(pCGC_CPF: String): boolean; var intFor: integer; begin Result := false; for intFor := 0 to Self.Count - 1 do begin IF Length(pCGC_CPF)>11 then begin if Self.Items[intFor].CNPJ = pCGC_CPF then begin Result := true; Break; end; End else begin if Self.Items[intFor].CPF = pCGC_CPF then begin Result := true; Break; end; End; end; end; Abraço.

Pessoal bom dia. Já resolvi o problema. Agradeço a todos pela atenção. Não sei bem o que houve, o AcBr estava sim atualizado. Testei no meu sistema que é denominado, SAVE. Ao testar também no ECFTeste ocorreu o mesmo erro. Resolição. Removi a pasta do ACBr e baixei novamente. Recompliei e tudo foi resolvido. Possivelmente havia algum erro na pasta, pois depois de re-instalada funcionou corretamente. Abraço a todos.

Nada em vermelho, amarelo etc. Vou apagar tudo o projeto e baixá-lo novamente. Obrigado antes de tudo.

Parabéns Daniel! Isso mostra que com toda certeza você estava certo ao lançar um projeto de tão relevante importância para todos os desenvolvedores de aplicações comerciais. Agora só falta o governo entender também, que, somos parte também do desenvolvimento do nosso país. A todos meus parabéns, aos idealizadores toda reverencia. Tenho dito!