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

Boa noite, Fiz algumas alterações no componente AcbrECFVirtualNFCe não sei se esta no padrão utilizado pelo projeto resolveu meu problema gostaria que desem uma olhada se possível melhorar ou dar uma dica em fim estou a disposição. desde já agradeço. ACBrECFVirtualNFCe.pas

Recebi sim obrigado!

Ok, É o seguinte quando imprimimos um cupom fiscal de um produtos com ST informamos a alíquota FF nesse caso minha duvida é como fazer em uma NFCe?

Mim escrevi mesmo assim nada.

Boa tarde, Alguém poderia mim ajudar como proceder para emitir NFCe com substituição tributaria estou utilizando AcbrECF+AcbrNFE+AcbrECFVirtualNFCe?

Não consigo acessar diz que meu e-mail não esta autorizado.

Italo, Muito obrigado consegui resolver realmente tava perdido mais as coisas agora estão mais claras.

Boa tarde italo, Entendi o que não estou entendendo é qual valor é colocado nele tipo ultimoNSU quantidade de consultas para poder adaptar a meu código!

Boa tarde Estou com uma duvida no código abaixa não consegui identificar o qual valor desse componente [edtConsultas.ValueInt] para poder adaptar o meu código alguem pode mim ajudar? desde já agradeço. procedure TfrmMovManifestacao.btnLocalizarClick(Sender: TObject); var CNPJ, Impresso, sChave, sEmissao, sCNPJ, sNome, sNumero, sSerie, sIEst, sNSU, sTipoNFe: String; Valor: Double; i, j, k: integer; begin // ======== Dados do Emitente ============================================= DM_CTA.Empresa.Close; DM_CTA.Empresa.SQL.Clear; DM_CTA.Empresa.SQL.Add('Select * From Sis_Empresa'); DM_CTA.Empresa.SQL.Add('Where Codigo = :xCodigo'); DM_CTA.Empresa.Params[0].AsString:=DM_CTA.ParamDFeEmitente.AsString; DM_CTA.Empresa.Active:=True; DM_CTA.Empresa.Open; if copy(DM_CTA.EmpresaCNPJ.AsString,10,4) <> '0000' then CNPJ := Copy(DM_CTA.EmpresaCNPJ.AsString, 2, 14) else CNPJ := Copy(DM_CTA.EmpresaCNPJ.AsString, 1, 9) + Copy(DM_CTA.EmpresaCNPJ.AsString, 14, 2); MemoStatus.Lines.Add('------------------------------------------------------'); MemoStatus.Lines.Add(' => Consultando NFe Destinadas'); MemoStatus.Lines.Add('------------------------------------------------------'); Memo1.Text := ''; k := 0; repeat inc(k); DMDFe.NFe.DistribuicaoDFePorUltNSU( DM_CTA.EmpresaCodigoEstado.AsInteger, CNPJ, edtUltNSU.Text ); sStat := IntToStr(DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat); sMotivo := DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo; if DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then sTemMais := 'N' else sTemMais := 'S'; sUltimoNSU := DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; GravaUltimaConsulta; if DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138 then begin MemoStatus.Lines.Add(' Documento Localizado para o Destinatário'); MemoStatus.Lines.Add(' Utilizar o número que esta no campo: Último NSU'); MemoStatus.Lines.Add(' Para uma nova pesquisa.'); MemoStatus.Lines.Add(' '); j := DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1; lstChave1.Clear; chkListaNotas.Clear; for i := 0 to j do begin sSerie := ''; sNumero := ''; sCNPJ := ''; sNome := ''; sIEst := ''; sNSU := ''; sEmissao := ''; sTipoNFe := ''; Valor := 0.0; Impresso := ' '; if DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe <> '' then begin // Conjunto de informações resumo da NF-e localizadas. // Este conjunto de informação será gerado quando a NF-e for autorizada ou denegada. sChave := DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe; sSerie := Copy(sChave, 23, 3); sNumero := Copy(sChave, 26, 9); sCNPJ := DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.CNPJCPF; sNome := DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.xNome; sIEst := DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.IE; case DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.tpNF of tnEntrada: sTipoNFe := 'E'; tnSaida: sTipoNFe := 'S'; end; sNSU := DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.NSU; sEmissao := DateToStr(DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.dhEmi); Valor := DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.vNF; case DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe of snAutorizado: Impresso := 'A'; snDenegado: Impresso := 'D'; snCancelada: Impresso := 'C'; end; end; // Registra no Banco de Dados as Notas Retornadas pela Consulta DM_VEN.Manifestacao.Close; DM_VEN.Manifestacao.SQL.Clear; DM_VEN.Manifestacao.SQL.Add('Select * From Eve_Manifestacao'); DM_VEN.Manifestacao.SQL.Add('Where Empresa = :xEmpresa'); DM_VEN.Manifestacao.SQL.Add('and Chave = :xChave'); DM_VEN.Manifestacao.Params[0].AsString:=DM_CTA.xCodEmpresa; DM_VEN.Manifestacao.Params[1].AsString:=sChave; DM_VEN.Manifestacao.Active:=True; DM_VEN.Manifestacao.Open; if not ((DM_VEN.ManifestacaoEmpresa.AsString = DM_CTA.xCodEmpresa) and (DM_VEN.ManifestacaoChave.AsString = sChave)) then begin DM_VEN.IncAltDel.SQL.Clear; DM_VEN.IncAltDel.SQL.Add('Insert into Eve_Manifestacao'); DM_VEN.IncAltDel.SQL.Add('(Empresa, Chave, CNPJ, Nome, IE, Emissao, Tipo, Valor,'); DM_VEN.IncAltDel.SQL.Add('Situacao, Confirmacao, NSU, DataEvento, Protocolo)'); DM_VEN.IncAltDel.SQL.Add('Values (:xEmpresa, :xChave, :xCNPJ, :xNome, :xIE, :xEmissao, :xTipo,'); DM_VEN.IncAltDel.SQL.Add(':xValor, :xSituacao, :xConfirmacao, :xNSU, :xDataEve, :xProtocolo)'); DM_VEN.IncAltDel.Params[0].AsString:=DM_CTA.xCodEmpresa; DM_VEN.IncAltDel.Params[1].AsString:=sChave; DM_VEN.IncAltDel.Params[2].AsString:=sCNPJ; DM_VEN.IncAltDel.Params[3].AsString:=sNome; DM_VEN.IncAltDel.Params[4].AsString:=sIEst; DM_VEN.IncAltDel.Params[5].AsDateTime:=StrToDate(sEmissao); DM_VEN.IncAltDel.Params[6].AsString:=sTipoNFe; DM_VEN.IncAltDel.Params[7].AsFloat:=Valor; DM_VEN.IncAltDel.Params[8].AsString:=Impresso; DM_VEN.IncAltDel.Params[9].AsInteger:=-1; DM_VEN.IncAltDel.Params[10].AsString:=sNSU; DM_VEN.IncAltDel.Params[11].AsDateTime:=0; DM_VEN.IncAltDel.Params[12].AsString:=''; DM_VEN.IncAltDel.ExecSQL; end; end; // Fim do For end else begin // Nenhum Documento Localizado para o Destinatário if DMDFe.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then begin MemoStatus.Lines.Add(' Nenhum Documento Localizado para o Destinatário'); MemoStatus.Lines.Add(' Utilizar o número que esta no campo: Último NSU'); MemoStatus.Lines.Add(' Para uma nova pesquisa ('+edtUltNSU.Text+').'); MemoStatus.Lines.Add(' '); end else begin MemoStatus.Lines.Add(' Falha ao realizar a consulta.'); MemoStatus.Lines.Add(' ' + sStat + ' - ' + sMotivo); MemoStatus.Lines.Add(' '); end; end; MontaChkLista; until (k = edtConsultas.ValueInt) or (sTemMais = 'S'); if sTemMais = 'S' then Memo1.Text := IntToStr(k) + ' Consultas Realizadas e tem mais Documentos.' else Memo1.Text := IntToStr(k) + ' Consultas Realizadas e não tem mais Documentos.'; AtivaBotao; end;

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!