edvaniojancy

Olá, estou implementando o Tipo Desconto em Percentual no Boleto do Banco do Brasil. Ao gerar a remessa, os campos correspondentes aparentemente estão corretos, porém a impressão do boleto apresenta que o desconto está em valor. O código utilizado é o seguinte: TipoDesconto := tdPercentualAteDataInformada; ValorDesconto := 10.00; O que deveria gerar 10% de desconto e não 10 reais. Na remessa, os campos de 141 a 165 estão 230112019000000000001000 , mas a impressão é a seguinte: Alguém pode me falar o que está faltando? É só a impressão que está errada? Agradeço.

Olá, tive que realizar alterações em 2 arquivos que geram Sef 2 para a inclusão de NFC-e (registros E020 e E025), pois não era incluído o código (65) e alguns registros que deveriam ficar nulos eram preenchidos com 0,00. Seguem os arquivos para análise. ACBrSEF2Conversao.pas ACBrSEF2_BlocoE_1.pas

Boa noite, Fiz algumas alterações no componente AcbrECFVirtual na verdade a implementação das rotinas de CancelamentoDescontoAcrescimoItem não sei se ficou no padrão utilizado pelo projeto nos meus testes funcionou normal segue arquivo para analise. Desde já agradeço. ACBrECFVirtual.pas

Segue arquivo com alteração necessária para homologação. Data Homologação: 30/06/2016 Anexado retorno de inconsistências encontradas pelo banco. ACBrBancoNordeste.pas boleto homologação.pdf

Segue arquivo com alteração necessária para homologação. Data Homologação: 30/06/2016 Anexado retorno de inconsistências encontradas pelo banco.ACBrBancoNordeste.pas boleto homologação.pdf

Estou tentando fazer a leitura do arquivo de retorno do banco do brasil e o mesmo esta retornando um erro ao tentar preencher o campo vencimento esta retornando uma data invalida segue arquivo em anexo para verificação. CBR6432290409201420740.txt

Essa versão com inventário já está disponível no SVN?

Bom dia EMBarbosa, foi encontrado mais alguns erros e a necessidade de fazer uma alteração na na unit de conversão segue arquivo em anexo para analise, também adicionei os arquivos do eDOC e SefII gerados depois das correções. Foi detectado um erro nos totalizadores das linhas dos registros do bloco 9900 a 9999. SEF 2.rar

OK, muito obrigado pela ajuda a partir de agora farei como explicado caso encontre mais algum desses erros e enviarei os arquivos corrigidos para agilizar o processo.

Boa tarde, esses erros foram corrigidos mas encontrei mais dois erros nas propriedades: With RegistroE080New do begin IND_TOT = 0; NUM_MR = 2; end; |E080||2D|02011900|03082013|2501,00|152,50|0,00|0,00|0,00|SP10|0|2348,50|0,00|0,00|0,00|2348,50|| A propriedade IND_TOT esta em braco e a NUM_MR esta com valor incorreto era pra ser 2.

Foi feita uma correção para que o componente possa gerar os registros E080 e E085 segue arquivo em anexo! ACBrSEF2_BlocoE_1.pas

Boa tarde, em primeiro lugar abrigado com essa atualização foi corrigido mas apos o teste o problema também está ocorrendo no registro E025 na propriedade IND_PETR. Exemplo: RegistroE025 := nil; wRegistroE025 := wRegistroE020.RegistroE025.New(wRegistroE020); with wRegistroE025 do begin IND_PETR := 1; end; |E025|8158,74|0,00|1652|0,00||0,00|0,00|0,00|0,00|8158,74|0,00|0,00|0,00||31121899|| Arquivo em Anexo: SEF.txt

With Registro0030New do begin PRF_LMC := exNao; PRF_RV := exNao; PRF_RI := exNao; IND_RT := exNao; end; Resultado no Arquivo: |0030|0|0|0|0||1|31121899|31121899|31121899|0|1|31121899|0|1|1|1|1|

Todos do Registro_030 onde temos que informar Sim ou Não tipo PRF_LMC, PRF_RV, PRF_RI, IND_RT quando coloco exNao os valores ficam errados!

Estou tendo problemas com o acbrSEFII alguém consegui validar? No Bloco_0 Registro_030 as Propriedades que deveriam conter valores inteiros estão sendo convertidas com valores errados acredito que seja na conversão dos tipos enumerados em alguns casos funciona em outros não!

Seria o do SEFIIeDoc mesmo assim obrigado!

Você poderia mim enviar o código do componente ou anexar novamente? Seria o SEFIIeDoc o arquivo em anexo está corrompido!

Valeu minha homologação esta marcada para próxima segunda fico no aguardo!

O Arquivo esta corrompido alguém poderia anexa o arquivo novamente.

Muito obrigado era isso mesmo valeu pela força.

Ao utilizar o AcbrECF em conjunto com o AcbrAAC para imprimir a Identificação PAF e os Parâmetros de Configuração do PAF o mesmo só imprimi 6 linha. Método utilizado: ACBrECF.PafMF_RelIdentificacaoPafECF(ACBrAAC.IdentPAF, 3); ACBrECF.PafMF_RelIdentificacaoPafECF( ACBrAAC1.IdentPAF, 4); procedure TACBrECF.LinhaRelatorioGerencial(const Linha: AnsiString; const IndiceBMP: Integer); Var Texto, Buffer : AnsiString ; Lin : Integer ; SL : TStringList ; Procedure TentaImprimirLinhas( Texto: AnsiString; IndiceBMP: Integer ) ; var Est : TACBrECFEstado ; OldTimeOut : LongInt ; Erro : String ; begin ComandoLOG := 'LinhaRelatorioGerencial( "'+Texto+'", '+IntToStr(IndiceBMP)+' )'; try fsECF.LinhaRelatorioGerencial( Texto, IndiceBMP ) ; except On E : Exception do begin Erro := E.Message ; // Não conseguiu imprimir ? Verifique se o relatório foi fechado pelo ECF // OldTimeOut := TimeOut; TimeOut := max(TimeOut,5); // Tenta ler o Estado por 5 seg ou mais Est := estDesconhecido; try Est := Estado; // Lendo o estado do ECF if Est = estLivre then begin // Está Livre, provavelmente foi fechado por longo tempo de // impressao... (O ECF é obrigado a fechar o Gerencial após 2 // minutos de Impressão). Vamos abrir um Novo Gerencial e Tentar // novamente AbreRelatorioGerencial(fsIndiceGerencial); fsECF.LinhaRelatorioGerencial( Texto, IndiceBMP ); end ; finally TimeOut := OldTimeOut; if Est <> estLivre then raise EACBrECFErro.Create( ACBrStrToAnsi(Erro) ); end ; end ; end ; end ; begin if MaxLinhasBuffer < 1 then begin ComandoLOG := 'LinhaRelatorioGerencial( "'+Linha+'", '+IntToStr(IndiceBMP)+' )'; fsECF.LinhaRelatorioGerencial( DecodificarTagsFormatacao( Linha ), IndiceBMP ) ; end else begin Texto := '' ; Buffer := DecodificarTagsFormatacao( Linha ); Buffer := AjustaLinhas(Buffer, Colunas) ; SL := TStringList.Create ; try SL.Text := Buffer ; neste ponto a variável SL fica apenas com 6 linhas For Lin := 0 to SL.Count - 1 do begin Texto := Texto + SL[Lin] + sLineBreak; if (Lin mod MaxLinhasBuffer) = 0 then begin TentaImprimirLinhas( Texto, IndiceBMP ) ; Texto := '' ; end ; end ; if Texto <> '' then TentaImprimirLinhas( Texto, IndiceBMP ) ; finally SL.Free ; end ; end ; {$IFNDEF CONSOLE} if MemoAssigned then begin fsMemoOperacao := 'linharelatoriogerencial' ; Buffer := AjustaLinhas( Linha, fsMemoColunas) ; MemoAdicionaLinha( Buffer ); end ; {$ENDIF} end;

Agora esta OK.

Fiz o update hoje do componente e esta dando um erros na unit pcnNFeW. [DCC Error] pcnNFeW.pas(1376): E2003 Undeclared identifier: 'DSC_COFINSST'; [DCC Error] pcnNFeW.pas(1406): E2003 Undeclared identifier: 'DSC_VBCISS';

OK, só que o numero do DAV ou da PRE-VENDA tá saindo junto com o MD5 na mesma linha e não abaixo dele!

Bom dia a todos, Estou em processo de homologação do PAF-ECF e encontrei o seguinte problema com o AcbrECF quando informamos DAV ou PRE-VENDA as informações estão saindo todas juntas o componente não esta fazendo a quebra de linha. Desde já agradeço.