Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

Fabiano Ribeiro

Membros
  • Content Count

    16
  • Joined

  • Last visited

Community Reputation

1 Neutral

About Fabiano Ribeiro

  • Rank
    Novato

Recent Profile Visitors

672 profile views
  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 Fie
  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 := '';
  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?
×
×
  • Create New...