Fabiano Ribeiro

Segue anexo ACBrNFeDANFEFRDM.pas

Sobre o Campo cdsDadosProdutos.Quantidade(18), na impressão do fast, quando a unidade Comercial é diferente da Tributada, esse campo recebe os 2 valores, sendo assim é necessário o aumento do campo conforme o campo cdsDadosProdutos.ValorUnitario(50)(linha 425) que funciona da mesma forma: unit ACBrNFeDANFEFRDM.pas Linha 424 FieldDefs.Add('Quantidade', ftString, 50);

Boa tarde, segue anexo....

Boa tarde, apenas uma sugestão(ou correção), na unit ACBrNFeDanfeFrDm.pas, quando setamos a propriedade ImprimirUnQtVlComercial = iuComercialETributavel, é feito uma concatenação dos 2 valores contidos na UnidadeComercial e UnidadeTributada se estas duas forem diferentes, e armazena no campo "unidade" da tabela FNFe, acontece que esse campo foi criado com tamanho 6, então quando utilizamos mais casas (acima de 2) nas unidades, a concatenação ignora o excesso. Sugestão na criação do campo Unidade aumentar o tamanho, eu coloquei 12 aqui para minha necessidade. Ex.: Linha 1550 FieldDefs.Add('Unidade', ftString, 12); //FieldDefs.Add('Unidade', ftString, 6); segue o arquivo em anexo com a sugestão ACBrNFeDANFEFRDM.pas

Segue anexo o arquivo com a sugestão. ACBrNFeDANFEFR.pas

Olá pessoal, Apenas uma sugestão, ja existe um codigo similiar na função TACBrNFeDANFEFR.PrepareReport para poder fazer o "LoadFromStream", só colocar a mesma opção para a função TACBrNFeDANFEFR.PrepareReportEvento. Segue como ficaria a sugestão: function TACBrNFeDANFEFR.PrepareReportEvento: Boolean; Var wProjectStream: TStringStream; begin if Trim(FastFileEvento) <> '' then begin if not (uppercase(copy(FastFileEvento,length(FastFileEvento)-3,4))='.FR3') then begin wProjectStream:=TStringStream.Create(FastFileEvento); fdmDanfe.frxReport.FileName := ''; fdmDanfe.frxReport.LoadFromStream(wProjectStream); wProjectStream.Free; end else begin if FileExists(FastFileEvento) then fdmDanfe.frxReport.LoadFromFile(FastFileEvento) else raise EACBrNFeDANFEFR.CreateFmt('Caminho do arquivo de impressão do EVENTO "%s" inválido.', [FastFileEvento]); end; end else raise EACBrNFeDANFEFR.Create('Caminho do arquivo de impressão do EVENTO não assinalado.'); FdmDanfe.frxReport.PrintOptions.Copies := NumCopias; // preparar relatorio if Assigned(ACBrNFe) then begin if assigned(TACBrNFe(ACBrNFe).EventoNFe) then begin FdmDanfe.Evento := TACBrNFe(ACBrNFe).EventoNFe; FdmDanfe.CarregaDadosEventos; end else raise EACBrNFeDANFEFR.Create('Evento não foi assinalado.'); if TACBrNFe(ACBrNFe).NotasFiscais.Count > 0 then begin FdmDanfe.frxReport.Variables['PossuiNFe'] := QuotedStr('S'); FdmDanfe.NFe := TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFe; FdmDanfe.CarregaDadosNFe; end; Result := FdmDanfe.frxReport.PrepareReport; end else raise EACBrNFeDANFEFR.Create('Propriedade ACBrNFe não assinalada.'); end; Obrigado. Fabiano

Olá Rodrigo, até onde sei nao tem novidades não... O codigo nao foi pro SVN... Talvez vc queira pegar a frente, dai é com algum moderador... precisando de alguma coisa estarei a disposição...

Sim, eu deveria usar um de versao menor?

Hoje precisei comentar uma condicao no write do bloco G pois o validador PVA_EFD estava exigindo esse bloco mesmo sem informações... Comentei isso // if DT_INI >= EncodeDate(2011,01,01) then aqui funcionou...

Ola Guilherme, nao consegui implementar os blocos por inteiro, mas estao dentro da logica. Fiz apenas os blocos que eu preciso mais urgente... Ja testei aqui e funcionou... Segue anexos os arquivos... Qualquer duvida estou a disposição... ACBrEFDBloco_C_Class.pas ACBrEFDBloco_D_Class.pas ACBrEFDBlocos.pas ACBrSpedFiscal.pas

Ok, vou implementar o Bloco C nessa logica e posto aqui ainda hoje...

Ola Guilherme, você implementou mais blocos ai? Estou precisando dos C e D... Se ja tivesse seria uma boa ajuda... Estou com um cliente que possui um sistema q gera o SPED com a ECF errada, a ideia seria pegar o SPED(txt) retirar o erro e adicionar os dados da ECF correta. Estou implementando o C100, C110, C140, C141, C170, C190, caso tenha alguma coisa ai avisa... Depois posto minha unit...

Eu utilizo o AcbrBoleto para impressao do sicoob e funciona perfeitamente utilizando a opcao cobBancoob...

Obrigado Régys, baixei novamente o repositório e funcionou....

Tentei o instalador do ACBR, e agora mesmo tentando compilar o pacote AcbrSerial.dpk isolado me retorna esse erro. Ainda uso o Delphi 7. Sim, meu fonte do ACBR totalmente verde... Onde fica essa funcção CompareVersions?