amauridebarros
Membros-
Total de ítens
126 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que amauridebarros postou
-
Ao que está parecendo a informação produção só serve pra mensagem sair ou não na nota, quando coloco em homologação a nfse sai com a informação (nota emitida em ambiente de homologação. e quando esta em produção a mensagem não sai mas a nota vai pra homologação do mesmo jeito. o meu exemplo não esta funcionando estou arrumando pra tentar testar nele.
-
UntM005HK.txt
-
Favor Anexar o arquivo
-
No demo eu só reproduzi na base de homologação não testei enviando pra produção não.
-
Bom dia pessoal Estou com um probleminha aqui veja se voces podem me dar o caminhos das pedras pra resolver Estou emitindo uma nfse para guarulhos e estou direcionando o ambiente para produção Producao := snSim; porem ele manda a nota para o ambiente de homologação... O que eu posso estar fazendo de errado? segue abaixo a rotina alimentecomponente. ****************************************************************** ****************************************************************** procedure TFrmM005HK.AlimentaComponente(NumNFSe, NumLote: String); var ValorISS: Double; ValorNfs: Double; VsCnpj : String; begin with ACBrNFSe do begin // Provedor ISSNet sem certificado Configuracoes.Geral.Emitente.WebChaveAcesso := 'A001.B0001.C0001-1'; with Configuracoes.Geral.Emitente.DadosSenhaParams.Add do begin Param := 'ChaveAutorizacao'; Conteudo := 'A001.B0001.C0001-1'; end; NotasFiscais.NumeroLote := NumLote; NotasFiscais.Transacao := True; with NotasFiscais.Add.NFSe do begin NumeroLote := NumLote; IdentificacaoRps.Numero := FormatFloat('#########0', StrToInt(NumNFSe)); // Para o provedor ISS.NET em ambiente de Homologação mudar a série para '8' IdentificacaoRps.Serie := 'NF'; // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom ); IdentificacaoRps.Tipo := trRPS; DataEmissao := Now; DataEmissaoRPS := Now; (* TnfseNaturezaOperacao = ( no1, no2, no3, no4, no5, no6, no7, no50, no51, no52, no53, no54, no55, no56, no57, no58, no59, no60, no61, no62, no63, no64, no65, no66, no67, no68, no69, no70, no71, no72, no78, no79, no101, no111, no121, no201, no301, no501, no511, no541, no551, no601, no701 ); *) NaturezaOperacao := no1; // TnfseRegimeEspecialTributacao = ( retNenhum, retMicroempresaMunicipal, retEstimativa, retSociedadeProfissionais, retCooperativa, retMicroempresarioIndividual, retMicroempresarioEmpresaPP ); RegimeEspecialTributacao := retMicroempresarioEmpresaPP; // TnfseSimNao = ( snSim, snNao ); OptanteSimplesNacional := snSim; // TnfseSimNao = ( snSim, snNao ); IncentivadorCultural := snNao; // TnfseSimNao = ( snSim, snNao ); // snSim = Ambiente de Produção // snNao = Ambiente de Homologação Producao := snSim; // TnfseStatusRPS = ( srNormal, srCancelado ); Status := srNormal; // Somente Os provedores Betha, FISSLex e SimplISS permitem incluir no RPS // a TAG: OutrasInformacoes os demais essa TAG é gerada e preenchida pelo // WebService do provedor. OutrasInformacoes := 'Pagamento a Vista'; // Usado quando o RPS for substituir outro // RpsSubstituido.Numero := FormatFloat('#########0', i); // RpsSubstituido.Serie := 'UNICA'; // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom ); /// RpsSubstituido.Tipo := trRPS; ValorISS:=0; ValorNfs:=0; VdAtbNse.fvcitense.First; while Not VdAtbNse.fvcitense.Eof do Begin ValorNfs:=ValorNfs + VdAtbNse.fvcitense.FieldByName('basecalculo').AsFloat; ValorISS:=ValorISS + VdAtbNse.fvcitense.FieldByName('issretido').AsFloat; VdAtbNse.fvcitense.next; End; Servico.Valores.ValorServicos := ValorNfs; Servico.Valores.ValorDeducoes := 0.00; Servico.Valores.ValorPis := 0.00; Servico.Valores.ValorCofins := 0.00; Servico.Valores.ValorInss := 0.00; Servico.Valores.ValorIr := 0.00; Servico.Valores.ValorCsll := 0.00; // TnfseSituacaoTributaria = ( stRetencao, stNormal, stSubstituicao ); // stRetencao = snSim // stNormal = snNao if VdAtbNse.fVicmuemi = VdAtbNse.fvicodmun then Begin Servico.Valores.IssRetido:= stNormal; Servico.Valores.Aliquota := 0; ValorISS:=0; End Else Begin Servico.Valores.IssRetido:= stNormal; Servico.Valores.Aliquota := 0; ValorISS:=0; End; Servico.Valores.ValorIssRetido := ValorISS; Servico.Valores.OutrasRetencoes := 0.00; Servico.Valores.DescontoIncondicionado := 0.00; Servico.Valores.DescontoCondicionado := 0.00; Servico.Valores.BaseCalculo := Servico.Valores.ValorServicos - Servico.Valores.ValorDeducoes - Servico.Valores.DescontoIncondicionado; // No caso do provedor Ginfes devemos informar a aliquota já dividida por 100 // para outros provedores devemos informar por exemplo 3, mas ao fazer o calculo // do valor do ISS devemos dividir por 100 // Valor do ISS calculado multiplicando-se a base de calculo pela aliquota ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota / 100; // A função RoundTo5 é usada para arredondar valores, sendo que o segundo // parametro se refere ao numero de casas decimais. // exemplos: RoundTo5(50.532, -2) ==> 50.53 // exemplos: RoundTo5(50.535, -2) ==> 50.54 // exemplos: RoundTo5(50.536, -2) ==> 50.54 Servico.Valores.ValorISS := RoundTo5(ValorISS, -2); Servico.Valores.ValorLiquidoNfse := Servico.Valores.ValorServicos - Servico.Valores.ValorPis - Servico.Valores.ValorCofins - Servico.Valores.ValorInss - Servico.Valores.ValorIr - Servico.Valores.ValorCsll - Servico.Valores.OutrasRetencoes - Servico.Valores.ValorIssRetido - Servico.Valores.DescontoIncondicionado - Servico.Valores.DescontoCondicionado; // TnfseResponsavelRetencao = ( ptTomador, rtPrestador ); Servico.ResponsavelRetencao := ptTomador; Servico.ItemListaServico := '01.07'; // Servico.CodigoCnae := '852010'; // Usado pelo provedor de Goiania Servico.CodigoTributacaoMunicipio := '951180001'; // Para o provedor ISS.NET em ambiente de Homologação // o Codigo CNAE tem que ser '6511102' // Servico.CodigoCnae := '123'; // Informação Opcional //Servico.CodigoTributacaoMunicipio := '3314799'; Servico.Discriminacao := 'Pestação de serviços'; // Para o provedor ISS.NET em ambiente de Homologação // o Codigo do Municipio tem que ser '999' Servico.CodigoMunicipio := '3518800'; //01 // Informar A Exigibilidade ISS para fintelISS [1/2/3/4/5/6/7] Servico.ExigibilidadeISS := exiExigivel; // Informar para Saatri Servico.CodigoPais := 1058; // Brasil Servico.MunicipioIncidencia := 3518800; // Somente o provedor SimplISS permite infomar mais de 1 serviço with Servico.ItemServico.Add do begin Descricao := 'SERVICO 1'; Quantidade := 1; ValorUnitario := 15.00; end; VsCnpj:=floattostr(VdAtbNse.fVfcnpemi); VsCnpj:=StringOfChar('0',(14-Length(VsCnpj))) + VsCnpj; Prestador.CNPJ := VsCnpj; Prestador.InscricaoMunicipal := '224780'; // Para o provedor ISSDigital deve-se informar também: // Prestador.Senha := edtSenhaWeb.Text; // Prestador.FraseSecreta := edtFraseSecWeb.Text; // Prestador.cUF := 33; PrestadorServico.Endereco.CodigoMunicipio := '3518800'; //02 PrestadorServico.RazaoSocial := VdAtbNse.fVsnomemi; VsCnpj:=floattostr(VdAtbNse.fVfcnpdes); VsCnpj:=StringOfChar('0',(14-Length(VsCnpj))) + VsCnpj; Tomador.IdentificacaoTomador.CpfCnpj := VsCnpj; Tomador.IdentificacaoTomador.InscricaoMunicipal := VdAtbNse.fVsimudes; Tomador.RazaoSocial := VdAtbNse.fVsnomdes; Tomador.Endereco.Endereco := VdAtbNse.fVsenddes; Tomador.Endereco.Numero := VdAtbNse.fVsnroend; Tomador.Endereco.Complemento := VdAtbNse.fVscpldes; Tomador.Endereco.Bairro := VdAtbNse.fVsbaides; Tomador.Endereco.CodigoMunicipio := IntToStr(VdAtbNse.fvicodmun); Tomador.Endereco.UF := VdAtbNse.fVsestcli; Tomador.Endereco.CodigoPais := 1058; // Brasil Tomador.Endereco.CEP := IntToStr(VdAtbNse.fVicepdes); // Provedor Equiplano é obrigatório o pais e IE Tomador.Endereco.xPais := 'BRASIL'; Tomador.IdentificacaoTomador.InscricaoEstadual := FloatToStr(VdAtbNse.fVfiesdes); Tomador.Contato.Telefone := VdAtbNse.fVsteldes; Tomador.Contato.Email := VdAtbNse.fvsemades; // Usado quando houver um intermediario na prestação do serviço // IntermediarioServico.RazaoSocial := 'razao'; // IntermediarioServico.CpfCnpj := '00000000000'; // IntermediarioServico.InscricaoMunicipal := '12547478'; // Usado quando o serviço for uma obra // ConstrucaoCivil.CodigoObra := '88888'; // ConstrucaoCivil.Art := '433'; end; end; end; ****************************************************************** ******************************************************************
-
Por favor alguem sabe como eu mudo o layout do ACBRBoleto eu não consegui entender direito pelo modelo em que momento ele muda o layout, eu quero emitir o boleto conforme a imagem 02 - Detalhado mas ele só emite conforme a imagem 01 boletopadrao. eu vi que no exemplo ele muda quando eu mudo o layout na caixa cbxLayOut mas não consegui entender quando ele joga esta opção para o relatório eu estou tentando isto DmAtbCadRec.ACBrBoleto.ACBrBoletoFC.LayOut :=lFaturaDetal; DmAtbCadRec.ACBrBoletoReport.LayOut :=lFaturaDetal; mas não esta funcionando.
-
Erro no método ACBrBoleto.GerarRemessa
amauridebarros replied to amauridebarros's tópico in ACBrBoleto
==R E S O L V I D O == Bom dia pessoal não sei se este resultado chega a ser de interesse de todos mas de qualquer forma segue a solução pra gente fechar o tópico. O Código do Banco estava errado. Obrigado a todos. -
Erro no método ACBrBoleto.GerarRemessa
amauridebarros replied to amauridebarros's tópico in ACBrBoleto
Segue abaixo a rotina que está configurando o componente: ////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////////// procedure TFrmM005HK.SB_GerBolClick(Sender: TObject); Var Titulo : TACBrTitulo; Vsdesser: String; VLinha, logo : string; Vsdeschm:String; Vsatdchm:String; Vsperatd:String; begin Application.CreateForm(TDmAtbCadRec, DmAtbCadRec); DmAtbCadRec.ACBrBoleto.ListadeBoletos.Clear; DmAtbCadRec.ACBrBoleto.Cedente.FantasiaCedente :='xyz - informatica'; DmAtbCadRec.ACBrBoleto.Cedente.Nome :='xyz - informatica'; DmAtbCadRec.ACBrBoleto.Cedente.Logradouro :='Rua x'; DmAtbCadRec.ACBrBoleto.Cedente.Bairro :='Bairo xyz'; DmAtbCadRec.ACBrBoleto.Cedente.Cidade :='Cidade XYZ'; DmAtbCadRec.ACBrBoleto.Cedente.CEP :='07569-999'; DmAtbCadRec.ACBrBoleto.Cedente.Telefone :='(11) 9999-9999'; DmAtbCadRec.ACBrBoleto.Cedente.Modalidade :='01'; DmAtbCadRec.ACBrBoleto.LayoutRemessa :=c240; DmAtbCadRec.ACBrBoleto.Cedente.CodigoCedente :='999999-9'; DmAtbCadRec.ACBrBoleto.Cedente.CodigoTransmissao:=''; DmAtbCadRec.ACBrBoleto.Cedente.Agencia :='9999'; DmAtbCadRec.ACBrBoleto.Cedente.AgenciaDigito :='0'; DmAtbCadRec.ACBrBoleto.Cedente.Modalidade :='01'; DmAtbCadRec.ACBrBoleto.Cedente.Convenio :=''; DmAtbCadRec.ACBrBoleto.Cedente.TipoCarteira :=tctRegistrada; DmAtbCadRec.ACBrBoleto.Cedente.ResponEmissao :=tbCliEmite; DmAtbCadRec.ACBrBoleto.Cedente.TipoInscricao :=pJuridica; DmAtbCadRec.ACBrBoleto.Cedente.IdentDistribuicao:=tbClienteDistribui; DmAtbCadRec.ACBrBoleto.Cedente.CaracTitulo :=tcSimplesRapComReg; DmAtbCadRec.ACBrBoleto.Cedente.Conta :='0000000123456'; DmAtbCadRec.ACBrBoleto.Cedente.ContaDigito :='0'; DmAtbCadRec.ACBrBoleto.Cedente.CNPJCPF :='27.285.127/0001-50'; Titulo := DmAtbCadRec.ACBrBoleto.CriarTituloNaLista; with Titulo do begin Vencimento := StrToDate('16/05/2021'); DataDocumento := StrToDate('16/05/2021'); NumeroDocumento := '2'; EspecieDoc := 'DM'; Aceite := atNao; DataProcessamento := StrToDate('16/05/2021'); Carteira := '9'; NossoNumero := '2'; ValorDocumento := 5.37; Sacado.NomeSacado := 'Sacado e cia'; Sacado.CNPJCPF := '44.316.298/0001-19'; Sacado.Logradouro := 'Rua bcd'; Sacado.Numero := '1234'; Sacado.Bairro := 'Bairro bcd'; Sacado.Cidade := 'Cidade Bcd'; Sacado.UF := 'SP'; Sacado.CEP := '08893-000'; ValorAbatimento := 0; LocalPagamento := 'Pagar preferêncialmente nas agências do Sicoob'; ValorMoraJuros := 0; ValorDesconto := 0; DataMoraJuros := 0; // DataDesconto := ; // DataAbatimento := ; // DataProtesto := ; // PercentualMulta := ; // DataMulta := ; //Mensagem.Text := memMensagem.Text; // OcorrenciaOriginal.Tipo := toRemessaBaixar; OcorrenciaOriginal.Tipo :=toRemessaRegistrar; // Instrucao1 := VdBoleto.TInstrucao01; // Instrucao2 := VdBoleto.TInstrucao02; QtdePagamentoParcial:= 1; TipoPagamento:= tpNao_Aceita_Valor_Divergente; PercentualMinPagamento:= 0; PercentualMaxPagamento:= 0; ValorMinPagamento:= 0; ValorMaxPagamento:= 0; // dm.ACBrBoleto.AdicionarMensagensPadroes(Titulo,Mensagem); { ViLinhas:=1; Vsdesser:='Nro.OS' + stringOfChar(' ',10-Length('Nro.OS')) + 'Data' + stringOfChar(' ',12-Length('Data')) + 'Descrição do Chamado' + stringOfChar(' ',40-Length('Descrição do Chamado')) + 'Tipo'; Detalhamento.Add(Vsdesser); VdBoleto.TDetalhamento.First; while ((not VdBoleto.TDetalhamento.Eof) and (ViLinhas <= 27)) do Begin Vsatdchm:=VdBoleto.TDetalhamento.FieldByName('dataChamado').AsString; Vsdeschm:=VdBoleto.TDetalhamento.FieldByName('Descricao').AsString; Vsdesser:=VdBoleto.TDetalhamento.FieldByName('NumeroOS').AsString + stringOfChar(' ',10-Length(VdBoleto.TDetalhamento.FieldByName('numeroOS').AsString)) + Vsatdchm + stringOfChar(' ',20-Length(Copy(Vsatdchm,1,20))) + Vsdeschm + stringOfChar(' ',40-Length(Vsdeschm)) + ' ' + VdBoleto.TDetalhamento.FieldByName('tipo').AsString; Detalhamento.Add(Vsdesser); if (ViLinhas = 27) then begin Detalhamento.Add(Vsdesser); end; VdBoleto.TDetalhamento.Next; Vsatdchm:=''; Vsperatd:=''; Vsdeschm:=''; Vsdesser:=''; ViLinhas := ViLinhas +1; End; } logo:= ExtractFileDir(ParamStr(0)) + 'C:\sistemas\Delphi\AcbrBoleto\Win32\Debug\Img\hks.jpg'; //ArquivoLogoEmp := logo; // logo da empresa ArquivoLogoEmp := 'C:\sistemas\Delphi\AcbrBoleto\Win32\Debug\Img\hks.jpg'; // logo da empresa //ShowMessage(logo); Verso := False; end; //////////////////////////////////////////////////////////// //// gera a remessa DmAtbCadRec.ACBrBoleto.GerarRemessa(1); end; ////////////////////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////////////////// -
Boa tarde, Por favor tem alguma forma da debugar o método ACBrBoleto.GerarRemessa(); Eu estou gerando um boleto que pelo exemplo esta funcionando certinho Porem quando eu coloco no meu sistema ao executar este método ele me retorna a mensagem abaixo '-' is not a valid integer value Eu estou conferindo o componente do exemplo com o meu isto vai me tomar bastante tempo por isso eu gostaria de saber se tem alguma forma de debugar este metodo ou se alguem sabe o que pode estar errado. Segue anexo a imagem do erro Obrigado
-
Como colocar o logo do cliente no boleto?
amauridebarros replied to amauridebarros's tópico in ACBrBoleto
RESOLVIDO ArquivoLogoEmp:='caminho do logo\nomelogo' Obrigado a todos -
Bom dia. Estou emitindo o ACBRBOLETO utilizando o layout (lFaturaDetal). Gostaria de saber se tem como colocar o logo do cliente na fatura conforme a imagem abaixo?
-
Erro no arquivo de remessa segmento R
amauridebarros replied to amauridebarros's tópico in ACBrBoleto
RESOLVIDO Muito obrigado -
Erro no arquivo de remessa segmento R
amauridebarros replied to amauridebarros's tópico in ACBrBoleto
está informado na rotina abaixo, onde eu destaquei em vermelho. A não ser que tenha que informar em outro lugar. procedure TfrmDemo.Button4Click(Sender: TObject); var Titulo : TACBrTitulo; VQtdeCarcA, VQtdeCarcB, VQtdeCarcC :Integer; VLinha, logo : string; i: Integer; begin dm.ACBrBoleto.Cedente.FantasiaCedente := 'HKS INFORMATICA E SOLUCOES LTDA - ME'; dm.ACBrBoleto.Cedente.Nome := 'HKS INFORMATICA E SOLUCOES LTDA - ME'; dm.ACBrBoleto.Cedente.Logradouro := ' R. Evaristo Rodrigues de Arruda,121'; dm.ACBrBoleto.Cedente.Bairro := 'Jardim Dourado'; dm.ACBrBoleto.Cedente.Cidade := 'Guarulhos'; dm.ACBrBoleto.Cedente.CEP := '07093-100'; dm.ACBrBoleto.Cedente.Telefone := ' (11) 4969-5235'; dm.ACBrBoleto.Cedente.Modalidade:='01'; ///00001 Titulo := dm.ACBrBoleto.CriarTituloNaLista; with Titulo do begin Vencimento := StrToDate(edtVencimento.Text); DataDocumento := StrToDate(edtDataDoc.Text); NumeroDocumento := edtNumeroDoc.Text; EspecieDoc := edtEspecieDoc.Text; if cbxAceite.ItemIndex = 0 then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; Carteira := edtCarteira.Text; NossoNumero := edtNossoNro.Text; ValorDocumento := StrToCurr(edtValorDoc.Text); Sacado.NomeSacado := edtNome.Text; Sacado.CNPJCPF := OnlyNumber(edtCPFCNPJ.Text); Sacado.Logradouro := edtEndereco.Text; Sacado.Numero := edtNumero.Text; Sacado.Bairro := edtBairro.Text; Sacado.Cidade := edtCidade.Text; Sacado.UF := edtUF.Text; Sacado.CEP := OnlyNumber(edtCEP.Text); ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text,0); LocalPagamento := edtLocalPag.Text; ValorMoraJuros := StrToCurrDef(edtMoraJuros.Text,0); ValorDesconto := StrToCurrDef(edtValorDesconto.Text,0); ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text,0); //********************************************************** DataMoraJuros := StrToDateDef(edtDataMora.Text, 0); //********************************************************** DataDesconto := StrToDateDef(edtDataDesconto.Text, 0); DataAbatimento := StrToDateDef(edtDataAbatimento.Text, 0); DataProtesto := StrToDateDef(edtDataProtesto.Text, 0); PercentualMulta := StrToCurrDef(edtMulta.Text,0); //Mensagem.Text := memMensagem.Text; //OcorrenciaOriginal.Tipo := toRemessaBaixar; OcorrenciaOriginal.Tipo:=toRemessaRegistrar; Instrucao1 := PadRight(trim(edtInstrucoes1.Text),2,'0'); Instrucao2 := PadRight(trim(edtInstrucoes2.Text),2,'0'); QtdePagamentoParcial:= 1; TipoPagamento:= tpNao_Aceita_Valor_Divergente; PercentualMinPagamento:= 0; PercentualMaxPagamento:= 0; ValorMinPagamento:= 0; ValorMaxPagamento:= 0; -
Pessoal antes peço desculpas por abrir tantos tópicos mas estou abrindo a medida em que os erros vão aparecendo no meu arquivo. O Problema agora é que os dados do segmento R do arquivo estão vindo sem as datas, e o validador está dando erro porque o arquivo está sem a data de multa. Segue abaixo a ilustração do arquivo
-
RESOLVIDO O tipo do ítulo estava sendo alterado algumas linhas abaixo. Obrigado
-
Olá Conforme eu informei anteriormente eu estou utilizando o programa exemplo do acbrboleto. Eu fui no evento onclick do button4 (Botao incluir título) onde ele ja inicializa o método CriarTituloNalista e acrescentei a linha Titulo.OcorrenciaOriginal.Tipo:=toRemessaRegistrar; Mas não alterou nada no resultado. O que eu ainda posso estar fazendo de errado? ************************************************************************************************************************** Segue abaixo o corte do código do evendo onclick do button4 ************************************************************************************************************************** procedure TfrmDemo.Button4Click(Sender: TObject); var Titulo : TACBrTitulo; VQtdeCarcA, VQtdeCarcB, VQtdeCarcC :Integer; VLinha, logo : string; i: Integer; begin dm.ACBrBoleto.Cedente.FantasiaCedente := 'HKS INFORMATICA E SOLUCOES LTDA - ME'; dm.ACBrBoleto.Cedente.Nome := 'HKS INFORMATICA E SOLUCOES LTDA - ME'; dm.ACBrBoleto.Cedente.Logradouro := ' R. Evaristo Rodrigues de Arruda,121'; dm.ACBrBoleto.Cedente.Bairro := 'Jardim Dourado'; dm.ACBrBoleto.Cedente.Cidade := 'Guarulhos'; dm.ACBrBoleto.Cedente.CEP := '07093-100'; dm.ACBrBoleto.Cedente.Telefone := ' (11) 4969-5235'; dm.ACBrBoleto.Cedente.Modalidade:='01'; ///00001 Titulo := dm.ACBrBoleto.CriarTituloNaLista; Titulo.OcorrenciaOriginal.Tipo:=toRemessaRegistrar; with Titulo do begin
-
Bom dia, Estou enviando o arquivo de remessa para validação e ele está me apresentando o seguinte erro. 6 16 a 17 2 CÓDIGO DE MOVIMENTO REMESSA INVÁLIDO Conferindo o arquivo ele está informando nas posições 16-17 o numero 02 de acordo com o manual o código 02 refere-se à '02' = Solicitação de Baixa, o arquivo deveria informar '01' = Entrada de Títulos. Como eu faço pra corrigir este campo. Segue abaixo a ilustração do arquivo com a representação do erro. Obrigado.
-
RESOLVIDO Eu estou utilizando o programa exemplo e me esqueci que as configurações estão no fonte. eu configurei o campo modalidade conforme abaixo: dm.ACBrBoleto.Cedente.Modalidade:='01'; desta forma o campo ficou correto e a linha digitavel passou pelo validador. Obrigado a todos...
-
Informei conforme a imagem abaixo... Não sei se esta correto
-
Informei conforme a imagem abaixo... Não sei se esta correto [ imagem removida a pedido do autor ]
-
Boa tarde pessoal. Estou tentando validar um boleto no banco Sicoob, gerei o boleto e ele esta gerando um erro qu conferindo o layoud é no campo Modalidade, o validador informa 01 neste campo e o ACBR está gerando 00. Eu tenho acesso por alguma configuração a alterar este campo? Como eu faço para corrigir isto? Pois aparentemente só tenho este problema para resolver. Segue as imagens do retorno do validador do banco e do boleto gerado Obrigado...
-
RESOLVIDO Bom dia Utilizei o tipo de cobrança -- cobBancoob Este banco sai certo. Obrigado a todos.
-
Olá BigWings, Muitíssimo obrigado pelo retorno. Ok entendi e a mudança funcionou, porém não tem o tipo de cobrança Sicoob, tem os tipos - cobBancoDoBrasilSICOOB, cobBradescoSICOOB e cobCaixaSicob mas eles saem com os respectivos códigos na ficha de compensação, não sai o banco 756. Segue anexo a imagem FichaCompensação para ilustrar o que eu quero dizer. Tem como resolver isto? Antecipadamente meus agradecimentos.
-
Bom dia, Estou começando a trabalhar com acbrboleto e estou com o seguinte problema. Estou utilizando o exemplo está funcionando só que eu não consigo configurar o banco para o que eu preciso. O Exemplo traz o Banco 341 Itaú. Se eu tento mudar para o banco que eu preciso ele não aceita eu coloco o Banco 756 mas quando eu dou enter ele volta novamente para o Banco 341. Alguem sabe o que eu estou fazendo de errado? Anexei o print da tela com a imagem do que eu estou tentando alterar pra ver se talvez eu esteja anexando a tela errada
-
É possível colocar o logo da minha empresa no boleto?
amauridebarros replied to amauridebarros's tópico in ACBrBoleto
Bom dia pessoal obrigado pela atenção que me dispensaram, amanhã e domingo vou trabalhar nas duas sugestões que me deram na segunda feira eu retorno o resultado.