Ir para conteúdo
  • Cadastre-se

Fabiano Ribeiro

Membros
  • Total de ítens

    16
  • Registro em

  • Última visita

Últimos Visitantes

852 visualizações

Fabiano Ribeiro's Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

1

Reputação

  1. 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);
  2. 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
  3. 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
  4. 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...
  5. Sim, eu deveria usar um de versao menor?
  6. 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...
  7. 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
  8. Ok, vou implementar o Bloco C nessa logica e posto aqui ainda hoje...
  9. 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...
  10. Eu utilizo o AcbrBoleto para impressao do sicoob e funciona perfeitamente utilizando a opcao cobBancoob...
  11. Obrigado Régys, baixei novamente o repositório e funcionou....
  12. 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?
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.