Mauro Asl

Show de bola, vou promover melhorias no outro relatório com base neste e posto depois.

Boa noite, aos amigos do versionamento. Estou migrando os relatórios da NFe e NFCe do fast para o Fortes Report, por questões de incompatibilidade da versão que utilizo. Nesta migração me deparei com alguns campos que existem no fast e não encontrei no fortes. Então revolvi implementá-los. Peguei como base a impressão pelo cupom. 1º Fiz uma melhoria no cabeçalho, para que ficasse na mesma ordem de impressão do cupom. 2º Acrescentei o campo subtotal. 3º Acrescentei os campos para descontos e acréscimos, sendo visiveis caso o valor seja maior que zero. 4º Acrescentei para caso tenha valores dos tributos separados, que sejam impressos. Como mencionei, fiz tudo com base da impressão do cupom. Esta anexado a imagem de como ficou a impressão e a classe alterada. Onde houve as alterações e implementações, deixei comentário. bom, essa é minha pequena contribuição. ACBrDANFCeFortesFrA4.pas ACBrDANFCeFortesFrA4.dcu ACBrDANFCeFortesFrA4.dfm

Boa noite, Augusto. Pode ser que o ambiente de produção aínda não esteja preparado para receber esta tag. Tente enviar sem ela.

Oi Régys, eu implementei esse tipo de rotina na minha aplicação já faz um tempo, provavelmente que deveria estar com algum problema nas rotinas de aguardar tempo e etc.. ná época, e claro que já foi resolvido como você explicou. Vou seguir sua dica e fazer alguns teste e posto o resultado.

Pegando o gancho : Nós sabemos que a internet em determinados horários fica muito lenta. Precisamos garantir em nossas aplicações: performance, confiabilidade e agilidade. Claro que os clientes querem que tudo seja muito rápido, mas eles também sabem os horários de lentidão da internet. Para o nosso amigo acima, fica uma sugestão. Sabendo dessa lentidão, cria dentro da sua aplicação um intervalo de horários para os picos e no exemplo do Régys ajuste-o de acordo com suas necessidades. Horário de pico, maior tempo espera e etc.. Já tive problemas no passado com isso e contornei bém a situação.

Este trecho foi retirado de perguntas frequentes sobre a NFC-e do Rio de Janeiro. Vê se ajuda. 6.5. Se já utilizo a NFe, poderei utilizar a mesma numeração para NFCe? A numeração utilizada pela NFCe será distinta da numeração utilizada pela NFe, por se tratar de um novo modelo de documento fiscal eletrônico (modelo 65). A numeração da NFCe será sequencial de 1 a 999.999.999, por estabelecimento e por série, devendo ser reiniciada quando atingido este limite. O contribuinte poderá adotar séries distintas para a emissão da NFCe que serão designadas por algarismos arábicos, em ordem crescente, vedada a utilização do algarismo zero e de subsérie, por checkaut ou caixa conforme a necessidade do contribuinte.

Régys, eu estava tentando instalar o ACBr do Trunk2, onde está ocorrendo o erro mencionado acima. Voltei ao do Trunk e compila normalmente. Como estou com muita coisa para fazer nessa semana, vou tentar instalar e configurar o trunk2 no próximo final de semana. Obrigado.

ao compilar o pacote ! Atualizei ontém !

Na classe pnfsNFSeR, [dcc32 Error] pnfsNFSeR.pas(690): E2251 Ambiguous overloaded call to 'Poem_Zeros' ACBrUtil.pas(1051): Related method: function Poem_Zeros(const string; const Integer): string; ACBrUtil.pas(1056): Related method: function Poem_Zeros(const Int64; Integer): string; Estive vendo que este metodo "Leitor.rCampo", retorna uma variant. Obs : Instalação Delphi XE6. Att,

Caros amigos do versionamento, Antes de reportar este erro, atualizei meus fontes hoje para verificação. neste if da linha 571 da classe citada acima, verifiquei o erro de conversão, causado pela string "%", pois o campo vDesc e do tipo float. if FDANFEClassOwner.ImprimirDescPorc then begin if vDesc > 0 then FieldByName('vDesc').AsString := DFeUtil.FormatFloat(((vDesc*100) / (VUnCom * QCom))) + '%' //FieldByName('vDesc').AsString := DFeUtil.FormatFloat(RoundTo(100 - ((((VUnCom * QCom) - vDesc) / (VUnCom * QCom)) * 100), -1)) + '%' else FieldByName('vDesc').AsString := DFeUtil.FormatFloat(vDesc); end A classe já esta em anexo com a correção, apenas removi o percentual que causa o erro. Após verificação deste erro, percebi que a classe "DANFeNFCeA4.fr3" esta com erro e não mostrando o desconto por item. Mais tarde vou ver se consigo corrigir o erro posto a correção. Att: Mauro Augusto. ACBrNFeDANFEFRDM.pas

Bom dia, A equipe do versionamento. Eu Acrescentei no arquivo DANFeNFCeA4.fr3 os campos telefone do emitente e valor de acréscimo que estava faltando. Caso haja interesse em versionar, segue anexo. Att: Mauro Augusto. DANFeNFCeA4.txt

É esta msg: DANFeNFCeA4.fr3 Você não tem permissão para fazer upload deste tipo de arquivo

Boa noite, A equipe do versionamento. Eu Acrescentei no arquivo DANFeNFCeA4.fr3 os campos telefone do emitente e valor de acréscimo que estava faltando. Caso haja interesse em versionar, como faço para enviar para vocês, pois ao anexar um arquivo recebo msg de não permissão para upload. Att: Mauro Augusto.

Boa tarde.... O horário de verão gera esse erro realmente "erro: requisicao nao enviada. 12057 n". tive problemas com todos os meus clientes hoje. corre corre danado, menos clientes da UF=SP. solução provisória os clientes das outras ufs pedi para voltar para o horário antigo. Vamos a pergunta! O que pode estar acontecendo ?

Boa tarde !!! O ocorrido só está acontecendo com P.J. No término do preenchimento dos dados no "ACBrNFe.NotasFiscais", a propriedade "Count" dele sempre mostra dois itens. Sempre antes do preenchimento, eu limpo a propriedade "ACBrNFe.NotasFiscais.Clear" assim garantindo que terá apenas uma nota. ACBrNFe.NotasFiscais.Items[0], contém o preenchimento correto e de posição [1], o preenchimento aleatório. Para resolver o problema antes de assinar e validar, estou utilizando o código abaixo. if ACBrNFe.NotasFiscais.Count>1 then ACBrNFe.NotasFiscais.Delete(1); Obrigado pela Atenção.

Bom dia Italo, Atualizei e funcionou Obrigado...

Sim, estou utilizando os da pasta V200, que atualizei no sábado.. Acabei de fazer um teste de carta correção com a versão 3.10 e o evento foi registrado normalmente. Só está acontecendo com a 2.00, e é essa que estou em produção.

Boa tarde ! Vê com pode me ajudar. Realizei uma atualização do svn no dia 16/08/2014 e agora ao emitir uma carta de correção estou obtendo o seguinte erro: leiauteCCe_v1.00.xsd#/schema/simpleType[3][@name = 'TCOrgaoIBGE'] Duplicate named <simpleType> : name = '{http://www.portalfiscal.inf.br/nfe}TCOrgaoIBGE' Este erro esta ocorrendo na ACBrNFeUtil.pas nesta função : function ValidaMSXML(XML: AnsiString; out Msg: AnsiString; const APathSchemas: string = ''; AModeloDF: TpcnModeloDF = moNFe; AVersaoDF: TpcnVersaoDF = ve200): Bool na linha 1928 " Schema.add( 'http://www.portalfiscal.inf.br/nfe' schema_filename );" Neste ponto levanta a exception relatada acima. Desde já agradeço...

já testei as versões da Bemafi32.dll 6.1.0.0 6.1.1.1, essa está rodando !

de qual dll da bematech em expecifico ?

Boa tarde.. Após realizar a atualização do ACBr, alguns clientes que utilizam bematech, começaram a reportar que estava gerando erro ao gerar Arq. MFD. Fui dar uma olhada na função e percebi que a formatação em vermelho estava com erro Extração por data: FileMask := FilePath + Prefixo + Trim(NumSerie) + '_' +FormatDateTime('yyyymmdd',Now ) + '_*.TXT'; reescrevi a seguinte linha e resolveu o problema: FileMask := FilePath + Trim(NumSerie) +'_' +FormatDateTime('ddmmyyyy', DataInicial)+'_'+FormatDateTime('ddmmyyyy', DataFinal)+'.TXT'; Extração por COO: FileMask := FilePath + Prefixo + Trim(NumSerie) + '_' +FormatDateTime('yyyymmdd',Now ) + '_*.TXT'; FileMask := FilePath + Trim(NumSerie) + '_' +COOIni+'_'+COOFim+'.TXT'; Obs: Caso já tenham corrigido, desconsiderar, Att: Mauro Asl

Segue o anexo... ACBrECFFiscNET.rar

Gente, consegui resolver o problema !! Estou postando os trechos código da Class ACBrECFFiscNET alterado, para que o(s) desenvolvedores do projeto possam analisar as mudanças, ou possa optar por outras melhorias e atualizar nos fontes do projeto. Lembrando, que eu não testei essas mudanças na DataRegis, somente na termoprinter. Troquei em alguns pontos o PAnsiChar por AnsiString e Resolveu. Gerou o AtoCotep perfeitamente. Trecho do código : //dataregis | termoprinter xGera_PAF : Function ( ComPort : AnsiString; Modelo : AnsiString; RegFileName : AnsiString; COOInicial : AnsiString; COOFinal : AnsiString) : integer; stdcall; //xGera_PAF : Function ( ComPort : PAnsiChar; // Modelo : PAnsiChar; // RegFileName : PAnsiChar; // COOInicial : PAnsiChar; // COOFinal : PAnsiChar) : integer; stdcall; xGera_AtoCotepe1704_Periodo_MFD : Function ( ComPort : AnsiString; Modelo : AnsiString; RegFileName : AnsiString; DataReducaoInicial : AnsiString; DataReducaoFinal : AnsiString) : integer; stdcall; //xGera_AtoCotepe1704_Periodo_MFD : Function ( ComPort : PAnsiChar; // Modelo : PAnsiChar; // RegFileName : PAnsiChar; // DataReducaoInicial : PAnsiChar; // DataReducaoFinal : PAnsiChar) : integer; stdcall; --------------------------------------------------------------------------------------------------- else if pos(fsMarcaECF, 'dataregis|termoprinter') > 0 then begin DiaIni := FormatDateTime('dd/mm/yyyy', DataInicial); DiaFim := FormatDateTime('dd/mm/yyyy', DataFinal); iRet := xGera_AtoCotepe1704_Periodo_MFD( PortaSerial, ModeloECF, NomeArquivo, DiaIni, DiaFim ); //iRet := xGera_AtoCotepe1704_Periodo_MFD( PAnsiChar( PortaSerial ), // PAnsiChar( ModeloECF ), // PAnsiChar( NomeArquivo ), // PAnsiChar( DiaIni ), // PAnsiChar( DiaFim ) ); if iRet <> 0 then raise Exception.Create( ACBrStr( 'Erro ao executar Gera_AtoCotepe1704_Periodo_MFD.'+sLineBreak+ 'Cod.: '+IntToStr(iRet) + ' - ' + GetErroAtoCotepe1704(iRet) )) ; -------------- else if pos(fsMarcaECF, 'dataregis|termoprinter') > 0 then begin //iRet := xGera_PAF( PAnsiChar( PortaSerial ) , // PAnsiChar( ModeloECF ), // PAnsiChar( NomeArquivo ), // PAnsiChar( CooIni ), // PAnsiChar( CooFim ) ); iRet := xGera_PAF( PortaSerial , ModeloECF, NomeArquivo, CooIni, CooFim ); if iRet <> 0 then raise Exception.Create( ACBrStr( 'Erro ao executar Gera_PAF.'+sLineBreak+ 'Cod.: '+IntToStr(iRet) + ' - ' + GetErroAtoCotepe1704(iRet) )) ; if not FileExists( NomeArquivo ) then raise Exception.Create( ACBrStr( 'Erro na execução de Gera_PAF.'+sLineBreak+ ': "'+NomeArquivo + '" não gerado' )) end if not FileExists( NomeArquivo ) then raise Exception.Create( ACBrStr( 'Erro na execução de Gera_AtoCotepe1704_Periodo_MFD.'+sLineBreak+ 'Arquivo: "'+NomeArquivo + '" não gerado' )) end ----------------------- OBS, eu não estou muito familiarizado com os fontes do projeto, aos poucos vamos contribuindo para melhorar cada vez mais... Importante: Fiz um contato com o suporte da Termoprinter, com Sr Vinicius, que ajudou e muito nos problemas. Outra coisa que fica aqui, para o pessoal não bater a cabeça, é que a extração do cotepe, sempre da falha com conversor usb-serial, pelo menos nos que testtei. Após corrigir o fonte acima, erros e mais erros de violação até, que resolvemos fazer o teste em uma serial.. Abraços;

Concordo com você jaime, visto que pagar R$ 500,00 por um mês, achei salgado (e pra pagar menos, é preciso pagar mais ), mas a idéia do suporte diferenciado sem dúvida é muito boa. A sua idéia de pagar para ter acesso apenas de ver, e pagar por perguntas realizadas, achei bacana, eu estaria disposto. Seria interessante uma discussão sobre isto. Como eu ja disse antes, eu aprovo a idéia, mas acredito que o djsystem (Daniel) poderia abrir um tópido para negociação, para encontrar um meio termo como você mesmo propôs. -- Boa tarde gente.... Porque, que os mentores do projeto, em vez de criar esse suporte dedicado, não pergunta aos milhares de usuários do fórum, quem poderia "colaborar" com uma quantia simbólica mensal de no mínimo R$ 50,00. com isso, as perguntas no fórum dos colaboradores seriam respondidas em até um dia e as demais na medida que um ou outro fosse lendo. No meu ver, esse tipo de arrecadação seria mais vantajosa. Quem não pagasse não teria os privilégios. Falando em nome da minha empresa, contribuiria mensalmente com R$ 100,00 isso para ver o projeto sempre aprimorando mais e mais. Abraços....

Respondendo a sua pergunta: Para os ECFs Daruma,Bematech,Elgin,Sweda e Termoprinter, são todas essas dll´s: DarumaFrameWork.dll, Leitura.dll, LeituraMFDBin.dll, BemaFI32.dll, BemaMFD.dll, BemaMFD2.dll, Elgin.DLL, lebin.dll, ATO17.dll, CONVECF.dll, swmfd.dll, DLLG2.dll, DLLG2_Gerador.dll, libeay32.dll. algumas dll´s depende de outra para o funcionamento, por isso coloquei todas que estou utilizando aqui,,, Reafirmando a minha pergunta, quem tiver uma solução, sou grato !!! Eu envio todas as dll´s sempre pa os meus clientes no instalador.