-
Total de ítens
16 -
Registro em
-
Última visita
Últimos Visitantes
853 visualizações
Fabiano Ribeiro's Achievements
-
Fabiano Ribeiro changed their profile photo
-
Sugestão de alteração na unit ACBrNFeDANFEFRDM.pas - Tamanho do campo QUANTIDADE
um tópico no fórum postou Fabiano Ribeiro ACBrNFe
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, 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
-
Sugestão de alteração na função PrepareReportEvento da unit ACBrNFeDANFEFR
um tópico no fórum postou Fabiano Ribeiro ACBrNFe
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 -
Implementação De Leitura Do Arquivo Sped Pelo Componente
Fabiano Ribeiro replied to Guilherme Lanius's tópico in ACBrSPEDFiscal
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...
-
Implementação De Leitura Do Arquivo Sped Pelo Componente
Fabiano Ribeiro replied to Guilherme Lanius's tópico in ACBrSPEDFiscal
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 -
Implementação De Leitura Do Arquivo Sped Pelo Componente
Fabiano Ribeiro replied to Guilherme Lanius's tópico in ACBrSPEDFiscal
Ok, vou implementar o Bloco C nessa logica e posto aqui ainda hoje... -
Implementação De Leitura Do Arquivo Sped Pelo Componente
Fabiano Ribeiro replied to Guilherme Lanius's tópico in ACBrSPEDFiscal
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...
-
Bematech. Devemos Forçar Atualizacao Da Dll ?
Fabiano Ribeiro replied to Daniel Simoes's tópico in ACBrSerial
Obrigado Régys, baixei novamente o repositório e funcionou.... -
Bematech. Devemos Forçar Atualizacao Da Dll ?
Fabiano Ribeiro replied to Daniel Simoes's tópico in ACBrSerial
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?