Wilton Sobrinho

Concordo que resolveria se não não executasse as linhas de comando, mas executa. e no final o arquivo gerado do sped fica conforme citado para EMBarbosa.. segue copia baixo: E001|1| |E990|2| |H001|1| |H990|2| |1001|1| |1990|2| |9001|0| |9900|0000|1| |9900|0001|1| |9900|0005|1| |9900|0100|1| |9900|0150|30| |9900|0990|1| |9900|C001|1| |9900|C100|30| |9900|C170|51| |9900|C190|33| |9900|C500|1| |9900|C990|1| |9900|D001|1| |9900|D990|1| |9900|E001|1| |9900|E990|1| |9900|H001|1| |9900|H990|1| |9900|1001|1| |9900|1990|1| |9900|9001|1| |9900|9900|24| |9900|9990|1| |9900|9999|1| |9990|27| |9999|187|

Sim, no minimo o cabecalho É executado, passando a situacao do movimento e o intervalo de movimentação. O Arquivo gera normal mas o bloco G nao como segue: E001|1| |E990|2| |H001|1| |H990|2| |1001|1| |1990|2| |9001|0| |9900|0000|1| |9900|0001|1| |9900|0005|1| |9900|0100|1| |9900|0150|30| |9900|0990|1| |9900|C001|1| |9900|C100|30| |9900|C170|51| |9900|C190|33| |9900|C500|1| |9900|C990|1| |9900|D001|1| |9900|D990|1| |9900|E001|1| |9900|E990|1| |9900|H001|1| |9900|H990|1| |9900|1001|1| |9900|1990|1| |9900|9001|1| |9900|9900|24| |9900|9990|1| |9900|9999|1| |9990|27| |9999|187|

Bom dia, aos usuários ACBR que já conseguiram gerar um SPED Fiscal sem erros no validador peço a encarecida ajuda. O Bloco G não gera de forma alguma, mesmo passando os parametros. Por favor me apontem o que estou fazendo de errado: procedure TF_ProcessaSped.geraBlocoG; var ContRegistro: Integer; begin ContRegistro := QryG110.RecordCount + QryG125.RecordCount + QryG126.RecordCount + QryG130.RecordCount + QryG140.RecordCount; // BLOCO G – CONTROLE DO CRÉDITO DE ICMS DO ATIVO PERMANENTE CIAP with ACBrSpedFiscal1.Bloco_G do begin DT_INI := QryMovimento.FieldByName('DT_MOV_INI').AsDateTime; DT_FIN := QryMovimento.FieldByName('DT_MOV_FIM').AsDateTime; // Abertura do Bloco G with RegistroG001New do begin // Indicador de movimento - TOpenBlocos if ContRegistro > 0 then IND_MOV := imComDados; // 0- Bloco com dados informados; if ContRegistro = 0 then IND_MOV := imSemDados; // 1- Bloco sem dados informados. end; if ContRegistro > 0 then begin {$REGION ' REGISTRO G110: ICMS – ATIVO PERMANENTE – CIAP'} QryG110.First; { ID DT_PROCESSAMENTO DT_INI DT_FIN SALDO_IN_ICMS SOM_PARC VL_TRIB_EXP VL_TOTAL IND_PER_SAI ICMS_APROP SOM_ICMS_OC } while not QryG110.EOF do begin with RegistroG110New do begin DT_INI := QryG110.FieldByName('DT_INI').AsDateTime; DT_FIN := QryG110.FieldByName('DT_FIN').AsDateTime; SALDO_IN_ICMS := QryG110.FieldByName('SALDO_IN_ICMS').AsFloat; SOM_PARC := QryG110.FieldByName('SOM_PARC').AsFloat; VL_TRIB_EXP := QryG110.FieldByName('VL_TRIB_EXP').AsFloat; VL_TOTAL := QryG110.FieldByName('VL_TOTAL').AsFloat; IND_PER_SAI := QryG110.FieldByName('IND_PER_SAI').AsFloat; ICMS_APROP := QryG110.FieldByName('ICMS_APROP').AsFloat; SOM_ICMS_OC := QryG110.FieldByName('SOM_ICMS_OC').AsFloat; end; QryG110.Next; end; {$ENDREGION} {$REGION ' REGISTRO G125: MOVIMENTAÇÃO DE BEM OU COMPONENTE DO ATIVO IMOBILIZADO'} QryG125.First; { ID DT_PROCESSAMENTO COD_IND_BEM DT_MOV TIPO_MOV VL_IMOB_ICMS_OP VL_IMOB_ICMS_ST VL_IMOB_ICMS_FRT VL_IMOB_ICMS_DIF NUM_PARC VL_PARC_PASS } while not QryG125.EOF do begin with RegistroG125New do begin COD_IND_BEM := QryG125.FieldByName('COD_IND_BEM').AsString; DT_MOV := QryG125.FieldByName('DT_MOV').AsDateTime; // TIPO_MOV := QryG125.FieldByName('TIPO_MOV').AsInteger; // Tipo de movimentação do bem ou componente if QryG125.FieldByName('TIPO_MOV').AsString = 'SI' then TIPO_MOV := mbcSI; // SI = Saldo inicial de bens imobilizados if QryG125.FieldByName('TIPO_MOV').AsString = 'IM' then TIPO_MOV := mbcIM; // IM = Imobilização de bem individual if QryG125.FieldByName('TIPO_MOV').AsString = 'IA' then TIPO_MOV := mbcIA; // IA = Imobilização em Andamento - Componente if QryG125.FieldByName('TIPO_MOV').AsString = 'CI' then TIPO_MOV := mbcCI; // CI = Conclusão de Imobilização em Andamento – Bem Resultante if QryG125.FieldByName('TIPO_MOV').AsString = 'MC' then TIPO_MOV := mbcMC; // MC = Imobilização oriunda do Ativo Circulante if QryG125.FieldByName('TIPO_MOV').AsString = 'BA' then TIPO_MOV := mbcBA; // BA = Baixa do Saldo de ICMS - Fim do período de apropriação if QryG125.FieldByName('TIPO_MOV').AsString = 'AT' then TIPO_MOV := mbcAT; // AT = Alienação ou Transferência if QryG125.FieldByName('TIPO_MOV').AsString = 'PE' then TIPO_MOV := mbcPE; // PE = Perecimento, Extravio ou Deterioração if QryG125.FieldByName('TIPO_MOV').AsString = 'OT' then TIPO_MOV := mbcOT; // OT = Outras Saídas do Imobilizado VL_IMOB_ICMS_OP := QryG125.FieldByName('VL_IMOB_ICMS_OP').AsFloat; VL_IMOB_ICMS_ST := QryG125.FieldByName('VL_IMOB_ICMS_ST').AsFloat; VL_IMOB_ICMS_FRT := QryG125.FieldByName('VL_IMOB_ICMS_FRT').AsFloat; VL_IMOB_ICMS_DIF := QryG125.FieldByName('VL_IMOB_ICMS_DIF').AsFloat; NUM_PARC := QryG125.FieldByName('NUM_PARC').AsInteger; VL_PARC_PASS := QryG125.FieldByName('VL_PARC_PASS').AsFloat; end; QryG125.Next; end; {$ENDREGION} {$REGION ' REGISTRO G126: OUTROS CRÉDITOS CIAP'} QryG126.First; { ID DT_PROCESSAMENTO DT_INI DT_FIM NUM_PARC VL_PARC_PASS VL_TRIB_OC VL_TOTAL IND_PER_SAI VL_PARC_APROP } while not QryG126.EOF do begin with RegistroG126New do begin DT_INI := QryG126.FieldByName('DT_INI').AsDateTime; DT_FIN := QryG126.FieldByName('DT_FIN').AsDateTime; NUM_PARC := QryG126.FieldByName('NUM_PARC').AsInteger; VL_PARC_PASS := QryG126.FieldByName('VL_PARC_PASS').AsFloat; VL_TRIB_OC := QryG126.FieldByName('VL_TRIB_OC').AsFloat; VL_TOTAL := QryG126.FieldByName('VL_TOTAL').AsFloat; IND_PER_SAI := QryG126.FieldByName('IND_PER_SAI').AsFloat; VL_PARC_APROP := QryG126.FieldByName('VL_PARC_APROP').AsFloat; end; QryG126.Next; end; {$ENDREGION} {$REGION ' REGISTRO G130: IDENTIFICAÇÃO DO DOCUMENTO FISCAL'} QryG130.First; { ID DT_PROCESSAMENTO IND_EMIT COD_PART COD_MOD SERIE NUM_DOC CHV_NFE_CTE DT_DOC } while not QryG130.EOF do begin with RegistroG130New do begin // Indicador do emitente do documento fiscal // IND_EMIT := QryG130.FieldByName('IND_EMIT').AsInteger; case QryG130.FieldByName('IND_EMIT').AsInteger of 0: IND_EMIT := edEmissaoPropria; // 0 - Emissão própria 1: IND_EMIT := edTerceiros; // 1 - Terceiro end; COD_PART := QryG130.FieldByName('COD_PART').AsString; COD_MOD := QryG130.FieldByName('COD_MOD').AsString; SERIE := QryG130.FieldByName('SERIE').AsString; NUM_DOC := QryG130.FieldByName('NUM_DOC').AsString; CHV_NFE_CTE := QryG130.FieldByName('CHV_NFE_CTE').AsString; DT_DOC := QryG130.FieldByName('DT_DOC').AsDateTime; end; QryG130.Next; end; {$ENDREGION} {$REGION ' REGISTRO G140: IDENTIFICAÇÃO DO ITEM DO DOCUMENTO FISCAL'} QryG140.First; { ID DT_PROCESSAMENTO NUM_ITEM COD_ITEM } while not QryG140.EOF do begin with RegistroG140New do begin NUM_ITEM := QryG140.FieldByName('NUM_ITEM').AsString; COD_ITEM := QryG140.FieldByName('COD_ITEM').AsString; end; QryG140.Next; end; {$ENDREGION} end; end; Agradeço qualquer ajuda.

Boa tarde amigos, criei uma maquina virtual, mudei meu projeto para não ter mais nenhum componente gbBoleto, instalei o acbr usando o instalador, quick report versão 5, mas o boleto infelizmente parece que não pega versão que a Juliana usa, tentei até mexer no código fonte pra ver se muda tbem no projeto, mas não acontece... Gostaria que vcs me informassem as versões de quick e boleto, boleto_fc para eu poder confrontar com o que tenho aqui... Repetindo uso delphi 2007, Quick 5, Acbr atualizado utlima versão pelo SVN e instalado pelo instalador não há referencias a versões antigas ou outras versões de quick, acbr na maquina virtual que fiz para testar esta aplicação. Outra coisa como posso fazer para debugar em tempo de projeto este componente? gostaria de ver como ele escolhe o formulário e o em que momento gera o código de barras... o vilão dessa história. Grato.

Boa tarde Juliana, você poderia mandar pra mim a sua versão do Quick_FC, estou desconfiado que devido ao numero de componentes anteriores usados para emissao de boleto (gbBoleto), os caminhos do library path estejam forçando uma versão do Quick_FC que não a sua, apesar de baixar uma versao integral do acbr em outro caminho. Estou modificando meu projeto removendo todas as referências ao gbBoleto, bem como ao Quick Report 4, vou tentar fazer um teste unitário para ter certeza. De qualquer forma, irei ficar uns dias sem incomodá-los. Att.

Bom dia, Acredito que isso possa ter acontecido antes, mas como expus no roteiro acima, refiz todo o processo, baixei novamente os componentes como sugerido pelo instalador Acbr, refiz todo o library path do delphi no que tange o Acbr, então utilizando a versão 5 do quick consegui instalar o Acbr usando o instalador. Apesar disso e como anexo, mesmo o boleto em conformidade com as versões, inclusive da Juliana, o problema da leitura do codigo de barras continua, tambem continua, a incapacidade de instalar o Fortes_FC, que teoricamente resolve o problema, assim resolvi mandar novamente todo o roteiro, quadro a quadro, com imagens e valores para que todos possam olhar com calma. Amigos, eu não me considero um programador ruim, já estou na estrada a alguns anos e normalmente resolvo os problemas com rapidez, mas desda vez, está trabalhoso, talvez se ouvesse uma intervensão mais direta, acesso remoto, ou coisa do tipo, alguém poderia ver com seus olhos meu drama. De toda forma, aqui, segue anexo o passo a passo, refeito e validado até o o Boleto gerado pelo Quick, e refeito e até a compilação do para o Fortes. Em caso de falha de versão, qual seria a correta? Se a Juliana se dispor, poderia mandar os fontes da sua versão do FC para que eu possa fazer os testes ?? Ficarei muito grato. Att. Intalador ACBR.pdf

Como no arquivo enviado anteriormente, fiz a instalação seguindo o padrão recomendado pelo instalador ACBr, mas por desencargo de conciência, qual o caminho usado pelo Tortuise para atualizar o Acbr??? não é o do forum??? svn://svn.code.sf.net/p/acbr/code/trunk E... no caso de ser versão diferente, qual seria a sua versão???? mas no ultimo arquivo que gerei não existe esta diferença mais, contudo o problema do codigo de barras continua... continuo achando que o problema está no componente que gera o código de barras. Att. MeuBoletoQuick.pdf

Boa Tarde, para tentar colocar você a par dos procedimentos anexo colocarei 2 pdfs, 1 com o roteiro da instalacao do zero do acbr, e componentes necessários, bem como compilação de codigo fonte para gerar o boleto e outro o proprio boleto gerado após o procedimento feito. Reforçando estou usando tudo do ACBr Original, sem alteração de código. MeuBoletoQuick.pdf Roteiro e codigo do Boleto.pdf

Apos restaurar o Quick 4, consegui instalar e compilar os componentes Boleto e FC, Gerei o boleto em anexo, para após a tentativa de leitura do codigo de barras, após muitas tentativas leu parcialmente o codigo, para comparar abaixo a leitura (de primeira) do codigo de barras do boleto do SAC ACbr. 0019158420000033900000000208 00194584200000120000000001343399012629091318 e acredito que agora a versao esteja compativel, pois observei os mesmos defeitos de impressao da versao mandada pela Julia. Agora eu percebo uma diferença consideravel no padrão do codigo de barras, e para que nao fique duvidas... estou usando a versão baixada pelo SVN, será que tem alguma coisa a ver com a Versão do Quick? Att. BoletoQuick.pdf

bem amigos, deletei a pasta fontes, por segurança também deletei pacotes, mandai baixair via svn pelo site endereço: https://svn.code.sf.net/p/acbr/code/trunk e após instalar a versao 5 do Quick pra Delphi 2007 com o Instalador QR501PDW322007, removi os bpls do Boleto e FC da pasta C:\Users\Public\Documents\RAD Studio\5.0\Bpl e fui reinstalar boleto e FC o resultado foi este: para boleto --------------------------- Error --------------------------- Cannot load package 'QR4RunD2007.' It contains unit 'LZW,'which is also contained in package 'QR5RunD2007' --------------------------- OK Details >> --------------------------- vou agora tentar fazer o mesmo com a versao 4 do quick.

Juliana Boa Tarde, de fato, apos realizar o procedimento, percebi diferenca no codigo fonte, dai fui compilar e reinstalar os componentes do boleto, quando fui instalar o FC deu a seguinte mensagem [Window Title] Error [Content] Error creating form: Error reading BoletoCarne.Page.Continuous: Property Continuous does not exist. [OK] qual a versão do Quick que vc usa? Att.

boletoacbrequick.pdf

Bom dia, respondo a pergunta do Isaque, SOMENTE O DELPHI 2007. Nunca usei o fortes antes, e uso o Quick porque até um tempinho atrás estava usando o gbBoleto. o link para o boleto gerado é: https://mega.co.nz/#!WdIlQBIa!DUT7BgmkvjBcEvkTKD9rWDvjkqV_cJpAA-WXJSuQHEw Grato. Att.

Boa tarde, sim já segui estas orientações mesmo antes de contratar o SAC do ACBr, contudo o problema não está em instalar o Fortes, e sim o Fortes_FC.dpk, que simplesmente não compila e não instalada, e uma vez que consegui instalar, quando tento compilar o projeto dá erro, ou seja, muito complicado, achei mais simples resolver o problema do Quick_FC que já está redondo com a pendência de gerar o código de barras adequadamente. É possível uma atendimento por telefone? Acredito ser mais proveitoso. Att.

Irei remover qualquer vestígio do Fortes no Delphi e reinstalá-lo, após, irei apagar e baixar e tentar reinstalar o ACBR_BoletoFC. Isto feito o resultado foi o seguinte: após alterar o arquivo ACBr_BoletoFC_Fortes.DPK requires rtl, vcl, dbrtl, vcldb, ACBr_Boleto, {$IFDEF VER150} RLibWinD7vcl, vcljpg;{$ENDIF} // D7 {$IFDEF VER180} RLibWinD7vcl, vcljpg;{$ENDIF} // D2K7 // linha inserida por mim, antes não compilava dando erro no requires // {$IFDEF VER200} RLibWinD2009, vclimg;{$ENDIF} // D2009 {$IFDEF VER210} RLibWinD2010, vclimg;{$ENDIF} // D2010 {$IFDEF VER220} RLibWinDXE, vclimg;{$ENDIF} // XE {$IFDEF VER230} RLibWinDXE2, vclimg;{$ENDIF} //XE2 {$IFDEF VER240} RLibWinDXE3, vclimg;{$ENDIF} //XE3 {$IFDEF VER250} RLibWinDXE4, vclimg;{$ENDIF} //XE4 {$IFDEF VER260} RLibWinDXE5, vclimg;{$ENDIF} //XE5 contains ACBrBoletoFCFortesFr in '..\..\Fontes\ACBrBoleto\ACBrBoletoFCFortesFr.pas'; end. ao compilar o DPK e instalar apresenta a seguinte mensagem: usando pacote RLibWinTW322006vcl.dpk --------------------------- Error --------------------------- Cannot load package 'RLibWinD2k7.' It contains unit 'RLDesign,'which is also contained in package 'RLibWinTW322006vcl' --------------------------- OK Details >> --------------------------- usando pacote RLibWinD7vcl.dpk --------------------------- ACBr_BoletoFC_Fortes - CodeGear Delphi for Microsoft Windows - Welcome Page --------------------------- Cannot load package 'RLibWinD2k7.' It contains unit 'RLDesign,'which is also contained in package 'RLibWinD7vcl' --------------------------- OK --------------------------- não encontrei o pacote "RLibWinD2k7" e nem referencia a este pacote em lugar nenhum será que não é isso?

Bom dia Daniel, irei tentar ser mais claro. uso delphi 2007, quick 4.07 consegui gerar com facilidade o boleto, está gerando, o problema é que o boleto gerado tem um codigo de barras que não consegue ser lido de maneira alguma pelo leitor de codigo de barras. Quanto ao Fortes baixei e tentei usar, mas toda vez que tento instalar o ACBr_BoletoFC_Fortes.dpk dá o seguinte erro: Compile: OK Install: --------------------------- Error --------------------------- Cannot load package 'RLibWinD7vcl.' It contains unit 'RLDesign,'which is also contained in package 'RLibWinD2k7' --------------------------- OK Details >> --------------------------- e não instala. então não tem como eu usar este componente por enquanto... o ideal seria, resolver o problema do QuickReport porque me poupa de usar mais um componente no projeto, mas se resolver este problema e conseguir gerar os boletos a contento, tambem posso adicioná-lo a lista de componentes já utilizados no projeto.

Olá a todos, estou com este problema que está me tirando o sono a alguns dias, Usando o ACBr Boleto e o FC_Quick, gero o boleto, o codigo digitavel funciona perfeitamente, mas o código de barras não é lido de maneira alguma. Fiz teste inclusive com o boleto gerado pelo SAC do ACBr e leu perfeitamente, as configurações do FC_Quick para gerar o boleto estão da seguinte maneira: ACBrBarCode1.Typ := bcCode_2_5_interleaved; ACBrBarCode1.Ratio := 3; ACBrBarCode1.Modul := 1; ACBrBarCode1.Text := '00194584200000120000000001343399012629091318'; // codigo gerado pela leitura do boleto do SAC do ACBr BMP := TBitmap.Create; try BMP.Width := ACBrBarCode1.Width; BMP.Height := ACBrBarCode1.Height; ACBrBarCode1.DrawBarcode(BMP.Canvas); imgBarra.Width := ACBrBarCode1.Width; imgBarra.Height := ACBrBarCode1.Height; imgBarra.Picture.Bitmap := BMP; finally BMP.Free; end; mas apesar disso o codigo gerado não é lido pela leitora, e outros códigos de barras de outras faturas são lidos normalmente. anexo imagem gerado pelo componente em tempo de projeto e a imagem gerada em tempo de execução. Desde já agradeço a atenção:

Boa noite, sou programador velho, mas novo no Acbr, e após alguma peleja estou gerando o boleto, número digitável está 100%, contudo o codigo de barras gerado não é lido por nenhum leitor e as seguintes situações foram verificadas: 1. Uso o AcbrBoleto_FC Quick; 2. Em tempo de Projeto se eu mudar o text do AcbrBarCode o codigo de barras fica compativel com outro boleto gerado pelo software do banco, mas em tempo de execução não; 3. As Variaveis de configuração estão configuradas da seguinte forma: ACBrBarCode1.Text := CodBarras; ACBrBarCode1.Width := 416; ACBrBarCode1.Height := 49; ACBrBarCode1.CheckSumMethod := csmNone; ACBrBarCode1.Typ := bcCode_2_5_interleaved; ACBrBarCode1.Ratio := 3; ACBrBarCode1.Modul := 1; BMP := TBitmap.Create; try //BMP.Width := imgBarra.Width; //BMP.Height := imgBarra.Height; BMP.Width := ACBrBarCode1.Width; BMP.Height := ACBrBarCode1.Height; ACBrBarCode1.DrawBarcode(BMP.Canvas); imgBarra4.Picture.Bitmap := BMP; finally BMP.Free; end; 3. Cheguei a tornar invisivel o componente Image mas quando compilo meu projeto ele continua aparecendo como se nada fosse feito, já instalei o componentes várias vezes para ter certeza que não estava pegando versões erradas. 4. Vi no forum casos bem sucedidos usando Fortes Report, mas no meu caso que uso D2007, quando tento compilar o ACBRBoleto_FC_FR da erro e não avança. Se alguém já passou por coisa semelhante e caso tenha piedade dessa poble alma, por favor estou aguardando suas dicas preciosas. Grato.