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 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.