Ir para conteúdo
  • Cadastre-se

dev botao

CEF posição 72 a 73 conforme Validador


Ver Solução Respondido por Leao,
  • Este tópico foi criado há 2414 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

 

Conforme analisador: Na posição 72 é uso exclusivo CAIXA,  e preencheu o "R" que o nome inicial do meu cliente Rolante, na posição 73

começa o nome da Empresa Começa o nome da empresa mas pegou "O". to com os fontes atualizados. Alguém já passou por isso?

 

image.thumb.png.8264b51a29ab547ff4737aa41168ef42.png

Postado
1 hora atrás, Leao disse:

 

Conforme analisador: Na posição 72 é uso exclusivo CAIXA,  e preencheu o "R" que o nome inicial do meu cliente Rolante, na posição 73

começa o nome da Empresa Começa o nome da empresa mas pegou "O". to com os fontes atualizados. Alguém já passou por isso?

 

image.thumb.png.8264b51a29ab547ff4737aa41168ef42.png

Conforme manual folha 42, 9(001) Na posição é código 0(zero), como preencher-lo, na CAIXA e outros bancos?

Postado
25 minutos atrás, Leao disse:

Conforme:

function TACBrCaixaEconomica.GerarRegistroHeader240(NumeroRemessa : Integer): String;
var
  ATipoInscricao: string;
  AMensagemReservada: String;
begin

   with ACBrBanco.ACBrBoleto.Cedente do
   begin
      case TipoInscricao of
         pFisica  : ATipoInscricao := '1';
         pJuridica: ATipoInscricao := '2';
      end;

      if ACBrBanco.ACBrBoleto.Homologacao then
        AMensagemReservada := 'REMESSA-TESTE'
      else
        AMensagemReservada := 'REMESSA-PRODUCAO';

          { GERAR REGISTRO-HEADER DO ARQUIVO }

      Result:= IntToStrZero(ACBrBanco.Numero, 3)       + //1 a 3 - Código do banco
               '0000'                                  + //4 a 7 - Lote de serviço
               '0'                                     + //8 - Tipo de registro - Registro header de arquivo
               PadRight('', 9, ' ')                        + //9 a 17 Uso exclusivo FEBRABAN/CNAB
               ATipoInscricao                          + //18 - Tipo de inscrição do cedente
               PadLeft(OnlyNumber(CNPJCPF), 14, '0')      + //19 a 32 -Número de inscrição do cedente
               PadRight('',20, '0')                               +  //33 a 52 - Código do convênio no banco  [ Alterado conforme instruções da CSO Brasília ] 27-07-09
               PadLeft(OnlyNumber(Agencia), 5, '0')       + //53 a 57 - Código da agência do cedente
               PadRight(AgenciaDigito, 1 , '0')            + //58 - Dígito da agência do cedente
               PadLeft(CodigoCedente, 6, '0')             + //59 a 64 - Código Cedente (Código do Convênio no Banco)
               PadRight('', 7, '0')                        + //65 a 71 - Uso Exclusivo CAIXA
               '0'                                     + //72 - Uso Exclusivo CAIXA         mas não gera com "0" no arquivo remessa

               PadRight(Nome, 30, ' ')                     + //73 a 102 - Nome do cedente
               PadRight('CAIXA ECONOMICA FEDERAL', 30, ' ') + //103 a 132 - Nome do banco
               PadRight('', 10, ' ')                       + //133 a 142 - Uso exclusivo FEBRABAN/CNAB
               '1'                                     + //143 - Código de Remessa (1) / Retorno (2)
               FormatDateTime('ddmmyyyy', Now)         + //144 a 151 - Data do de geração do arquivo
               FormatDateTime('hhmmss', Now)           + //152 a 157 - Hora de geração do arquivo
               PadLeft(IntToStr(NumeroRemessa), 6, '0')   + //158 a 163 - Número seqüencial do arquivo
               '050'                                   + //164 a 166 - Número da versão do layout do arquivo
               PadRight('',  5, '0')                       + //167 a 171 - Densidade de gravação do arquivo (BPI)
               Space(20)                               + // 172 a 191 - Uso reservado do banco
               PadRight(AMensagemReservada, 20, ' ')       + // 192 a 211 - Uso reservado da empresa
               PadRight('', 4, ' ')                        + // 212 a 215 - Versao Aplicativo Caixa
               PadRight('', 25, ' ');                        // 216 a 240 - Uso Exclusivo FEBRABAN / CNAB

          { GERAR REGISTRO HEADER DO LOTE }
 

 

Postado

Olá Amarildo, pois o componente deveria iniciar na coluna 73 nome da empresa, estranho que o fonte tá lá "0", mas não processa corretamente

 '0'                                     + //72 - Uso Exclusivo CAIXA         mas não gera com "0" no arquivo remessa

function TACBrCaixaEconomica.GerarRegistroHeader240(NumeroRemessa : Integer): String;

 

Alguém se habilita?

Obrigado, Leão

Postado
26 minutos atrás, Leao disse:

Olá Amarildo, pois o componente deveria iniciar na coluna 73 nome da empresa, estranho que o fonte tá lá "0", mas não processa corretamente

 '0'                                     + //72 - Uso Exclusivo CAIXA         mas não gera com "0" no arquivo remessa

function TACBrCaixaEconomica.GerarRegistroHeader240(NumeroRemessa : Integer): String;

Alguém já homologou na CEF? Se sim por favor, da  uma olhado no fonte e ou arquivo gerado.txt.

Alguém se habilita?

Obrigado, Leão

 

Postado

Olá Amarildo, conforme acima, a coluna 72, é Uso Exclusivo da CAiXA, essa coluna tá sendo preenchida com a primeiro caractere do nome da empresa(cliente),

tá bem claro. 

Alguém que tá usando gerando o arquivo remessa por favor verifique e poste aqui.

Obrigado,

  • Administradores
Postado

Bom dia.

Você reproduz a mesma situação com o demo?

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Postado (editado)

Olá Juliana, no demo não consigo gerar o arquivo remessa, ou não descobrir em que pasta gera o mesmo.

conseguir gerar a pasta e nome do arquivo remessa, mas tá banco Itaú 341

Editado por Leao
Postado
3 horas atrás, Leao disse:

Olá Juliana, no demo não consigo gerar o arquivo remessa, ou não descobrir em que pasta gera o mesmo.

conseguir gerar a pasta e nome do arquivo remessa, mas tá banco Itaú 341

Olá Juliana, conseguir gerar o arquivo no demo, ao gerar o arquivo remessa.txt, sai correto veja:

10400000         2054813360001370000000000000000000000284542664400000000TodaObra Materias p/ ConstrucaCAIXA ECONOMICA FEDERAL                 11007201814500000000105000000                    REMESSA-PRODUCAO          

como faço para corrigir isso no meu fonte?

                      

  • Administradores
Postado

Boa tarde.

Faça o teste no demo passando as mesmas informações que passa em seu sistema. 

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Postado (editado)

Olá Juliana, informei os dados no demo e saiu correto, não entendo porque no meu fonte não dar certo, veja os detalhes, conseguir identificar alguma coisa veja:

 

function TACBrCaixaEconomica.GerarRegistroHeader240(NumeroRemessa : Integer): String;
var
  ATipoInscricao: string;
  AMensagemReservada: String;
begin

   with ACBrBanco.ACBrBoleto.Cedente do
   begin
      case TipoInscricao of
         pFisica  : ATipoInscricao := '1';
         pJuridica: ATipoInscricao := '2';
      end;

      if ACBrBanco.ACBrBoleto.Homologacao then
        AMensagemReservada := 'REMESSA-TESTE'
      else
        AMensagemReservada := 'REMESSA-PRODUCAO';

          { GERAR REGISTRO-HEADER DO ARQUIVO }

      Result:= IntToStrZero(ACBrBanco.Numero, 3)       + //1 a 3 - Código do banco
               '0000'                                  + //4 a 7 - Lote de serviço
               '0'                                     + //8 - Tipo de registro - Registro header de arquivo
               PadRight('', 9, ' ')                        + //9 a 17 Uso exclusivo FEBRABAN/CNAB
               ATipoInscricao                          + //18 - Tipo de inscrição do cedente
               PadLeft(OnlyNumber(CNPJCPF), 14, '0')      + //19 a 32 -Número de inscrição do cedente
               PadRight('',20, '0')                               +  //33 a 52 - Código do convênio no banco  [ Alterado conforme instruções da CSO Brasília ] 27-07-09
               PadLeft(OnlyNumber(Agencia), 5, '0')       + //53 a 57 - Código da agência do cedente
               PadRight(AgenciaDigito, 1 , '0')            + //58 - Dígito da agência do cedente
               PadLeft(CodigoCedente, 6, '0')             + //59 a 64 - Código Cedente (Código do Convênio no Banco)
               PadRight('', 7, '0')                        + //65 a 71 - Uso Exclusivo CAIXA
               '0'                                     + //72 - Uso Exclusivo CAIXA    esse zero não é inserido
               PadRight(Nome, 30, ' ')                     + //73 a 102 - Nome do cedente
               PadRight('CAIXA ECONOMICA FEDERAL', 30, ' ') + //103 a 132 - Nome do banco
 

O zero em negrito não é inserido, era para ser na coluna 72, e na mesma é inserido o primeiro nome do cliente. Veja abaixo:

image.thumb.png.f8a08c63a0ffe79b4812026ee26e1893.png

Veja que na primeira linha o nome da empresa(cliente) é Mercearia, a letra M, fica na coluna 72, e informa valor M, e Nome da Empresa fica ERCEARIA FREITAS C, faltando justamente a letra "M". Alguém pode ajudar agradeço.

Obrigado

Leão

Editado por Leao
Postado

PadRight(Nome, 30, ' ')                     + //73 a 102 - Nome do cedente

Bom dia.. eu nao entendo de Delphi, mas acredito que o comando que esta usando, nao esta correto, pois right quer dizer a direita, e no caso tu tem de pegar 30 a partir da esquerda. se fosse em windev, eu fazeria nome[[1 to 30]].

blz

 

  • Administradores
Postado

Bom dia.

Se com os mesmos dados passados em sua aplicação o demo está gerando o arquivo de forma correta, só resta entender que a passagem das informações tem alguma diferença,, procure comparar este trecho do seu código e ver se nada está passando despercebido.

Att.

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Postado

já comparei tá igual, o banco bradesco funciona a vários anos, conforme 

PadRight('', 7, '0')                        + //65 a 71 - Uso Exclusivo CAIXA
               '0'                                     + //72 - Uso Exclusivo CAIXA    esse zero não é inserido
               PadRight(Nome, 30, ' ')                     + //73 a 102 - Nome do cedente :

veja no meu fonte:

Titulow := ACBrBoleto1.CriarTituloNaLista;

if XNumEdit3_cx_ba.Value=1 then
ACBrBoleto1.Banco.TipoCobranca:=cobBancoDoBrasil;
if XNumEdit3_cx_ba.Value=4 then
ACBrBoleto1.Banco.TipoCobranca:=cobBancoDoNordeste;
if XNumEdit3_cx_ba.Value=104 then
ACBrBoleto1.Banco.TipoCobranca:=cobCaixaEconomica;
if XNumEdit3_cx_ba.Value=341 then
ACBrBoleto1.Banco.TipoCobranca:=cobItau;
if XNumEdit3_cx_ba.Value=008 then
ACBrBoleto1.Banco.TipoCobranca:=cobSantander;
if XNumEdit3_cx_ba.Value=033 then
ACBrBoleto1.Banco.TipoCobranca:=cobSantander;
if XNumEdit3_cx_ba.Value=353 then
ACBrBoleto1.Banco.TipoCobranca:=cobSantander;
if XNumEdit3_cx_ba.Value=389 then
ACBrBoleto1.Banco.TipoCobranca:=cobBancoMercantil;
if XNumEdit3_cx_ba.Value=399 then
ACBrBoleto1.Banco.TipoCobranca:=cobHSBC;
if XNumEdit3_cx_ba.Value=237 then
ACBrBoleto1.Banco.TipoCobranca:=cobBradesco;


ACBrBoleto1.Banco.Numero:=StrToInt(XNumEdit3_cx_ba.Text); //237;
ACBrBoleto1.Banco.Nome:=CamposResultado_banco1[0];     //'Bradesco';
if not VarIsNull(CamposResultado_banco1[3]) then
ACBrBoleto1.Banco.Digito:=StrToInt(CamposResultado_banco1[3]);


if CamposResultado_banco1[20]=0 then
ACBrBoleto.LayoutRemessa:=c240
else
ACBrBoleto.LayoutRemessa:=c400;
    
if CamposResultado_banco1[20]=0 then
 ACBrBoleto1.LayoutRemessa:=c240
else
ACBrBoleto1.LayoutRemessa:=c400;


if CamposResultado_banco1[32]='P' then ACBrBoletoFCFortes1.LayOut:=lPadraoEntrega;
if CamposResultado_banco1[32]='F' then ACBrBoletoFCFortes1.LayOut:=lFatura;
if CamposResultado_banco1[32]='C' then ACBrBoletoFCFortes1.LayOut:=lCarne;


ACBrBoleto1.Cedente.Agencia:=iif(not VarIsNull(CamposResultado_banco1[2]),CamposResultado_banco1[2],'');
ACBrBoleto1.Cedente.AgenciaDigito:=iif(not VarIsNull(CamposResultado_banco1[3]),CamposResultado_banco1[3],0);
ACBrBoleto1.Cedente.Bairro:=Sistema.BairroUsr;

//ACBrBoleto1.Cedente.CaracTitulo:=tcSimples;

//ACBrBoleto1.Cedente.CaracTitulo:=ComboBox2_carac.ItemIndex;

if ComboBox2_carac.ItemIndex=0 then
    ACBrBoleto1.Cedente.CaracTitulo:=tcCaucionada;

if ComboBox2_carac.ItemIndex=1 then
    ACBrBoleto1.Cedente.CaracTitulo:=tcDescontada;

if ComboBox2_carac.ItemIndex=2 then
    ACBrBoleto1.Cedente.CaracTitulo:=tcSimples;

if ComboBox2_carac.ItemIndex=3 then
    ACBrBoleto1.Cedente.CaracTitulo:=tcVendor;

if ComboBox2_carac.ItemIndex=4 then
    ACBrBoleto1.Cedente.CaracTitulo:=tcVinculada;


ACBrBoleto1.Cedente.ResponEmissao:=tbCliEmite;

ACBrBoleto1.Cedente.CEP:=Sistema.CEPUsr;
ACBrBoleto1.Cedente.Cidade:=Sistema.CidadeUsr;
ACBrBoleto1.Cedente.CNPJCPF:=Sistema.CNPJUsr;
ACBrBoleto1.Cedente.CodigoCedente:=iif(not VarIsNull(CamposResultado_banco1[7]),CamposResultado_banco1[7],''); //conveio

ACBrBoleto1.Cedente.Conta:=iif(not VarIsNull(CamposResultado_banco1[4]),CamposResultado_banco1[4],'');
ACBrBoleto1.Cedente.ContaDigito:=iif(not VarIsNull(CamposResultado_banco1[5]),CamposResultado_banco1[5],'');
if CamposResultado_banco1[7]<>'' then
ACBrBoleto1.Cedente.Convenio:=iif(not VarIsNull(CamposResultado_banco1[7]),Trim(CamposResultado_banco1[7]),'');

ACBrBoleto1.Cedente.Logradouro:=Sistema.EnderecoUsr;
// 26/03/2013 ACBrBoleto1.Cedente.Modalidade:=iif(not VarIsNull(CamposResultado_banco1[23]),CamposResultado_banco1[23],'1');
ACBrBoleto1.Cedente.Modalidade:=iif(not VarIsNull(CamposResultado_banco1[34]),CamposResultado_banco1[34],'');

ACBrBoleto1.Cedente.Nome:=iif(not VarIsNull(CamposResultado_banco1[15]),CamposResultado_banco1[15],'FALTA INFORMAR O NOME DA EMPRESA');
ACBrBoleto1.Cedente.TipoInscricao:=iif(not VarIsNull(CamposResultado_banco1[21]),CamposResultado_banco1[21],'1');
ACBrBoleto1.Cedente.UF:=Sistema.UfUsr;
ACBrBoleto1.ACBrBoletoFC.DirLogo:=sistema.Pasta+'\'+'Bancos\'; // 'D:\Acbr\Fontes\ACBrBoleto\Logos\Colorido\';


if CamposResultado_banco1[6]='11' then
ACBrBoleto1.Cedente.ResponEmissao:=tbBancoEmite
else
ACBrBoleto1.Cedente.ResponEmissao:=tbCliEmite;


wletra:=DReceber.STATUS.Conteudo;
SpeedButton1_pdf.Enabled:=true;
BtnVisualizar.Enabled:=false;
BtnCancelar.Enabled:=false;
DReceber.First;
while not DReceber.eof do
begin
wnome_cliente:=RemoveAcentos(DReceber.NOME_CLIENTE.Conteudo);

    PTabela(TabGlobal.DClientes,['CODIGO'],[DReceber.COD_CLIENTE.Conteudo],
              ['FANTASIA','COB_ENDERECO','COB_BAIRRO','COB_CIDADE','COB_ESTADO',
               'COB_CEP','PESSOA','CNPJ','CPF','NOME','FONE','INSC_EST','COB_NR_END'], CamposResultado);

     with Titulow do
     begin
        Vencimento        := StrToDate(DReceber.VENCTO.ValorString); //StrToDate(edtVencimento.Text);
        DataDocumento     := StrToDate(DReceber.EMISSAO.ValorString);
        Carteira          := iif(not VarIsNull(CamposResultado_banco1[6]),CamposResultado_banco1[6],'');  //  edtCarteira.Text;
        if ComboBox1.ItemIndex = 0 then
        NumeroDocumento   := XNumEdit1.Text+'/'+XNumEdit2.Text+'A'
        else if ComboBox1.ItemIndex = 1 then
        NumeroDocumento   := XNumEdit1.Text+'/'+XNumEdit2.Text+'M'
        else if ComboBox1.ItemIndex = 2 then
        NumeroDocumento   := XNumEdit1.Text+'/'+XNumEdit2.Text+'O'
        else if ComboBox1.ItemIndex = 3 then
        NumeroDocumento   := XNumEdit1.Text+'/'+XNumEdit2.Text+'G';


        EspecieDoc        := iif(not VarIsNull(CamposResultado_banco1[14]),CamposResultado_banco1[14],'');   //edtEspecieDoc.Text;
        Aceite            := iif(CamposResultado_banco1[13]='S',atSim,atNao);   //atSim ou atNao;
        DataProcessamento := Now;
        NossoNumero       := Edit1.Text;  //edtNossoNro.Text;

        ValorDocumento    := StrToCurr(DReceber.VALOR_RESTANTE.ValorString)+iif(CamposResultado_banco1[30]>0,CamposResultado_banco1[30],0); 


        if RadioGroup2_fantasia.ItemIndex=0 then
        Sacado.NomeSacado := iif(not VarIsNull(Camposresultado[0]),RemoveAcentos(CamposResultado[0]),'SEM NOME FANTASIA')   //edtNome.Text;
        else
        Sacado.NomeSacado := iif(not VarIsNull(Camposresultado[9]),RemoveAcentos(CamposResultado[9]),'SEM NOME');
        Sacado.CNPJCPF    := iif(CamposResultado[6]='J',CamposResultado[7],CamposResultado[8]);  //RemoveStrings(edtCPFCNPJ.Text,AString);
        Sacado.Pessoa     := iif(CamposResultado[6]='J',pJuridica,pFisica);
        Sacado.Logradouro := iif(not VarIsNull(CamposResultado[1]),RemoveAcentos(CamposResultado[1]),'S/END.');   //edtEndereco.Text;
        Sacado.Numero     := iif(not VarIsNull(CamposResultado[12]),CamposResultado[12],''); //'1';  //edtNumero.Text;
        Sacado.Bairro     := iif(not VarIsNull(CamposResultado[2]),RemoveAcentos(CamposResultado[2]),''); //edtBairro.Text;
        Sacado.Cidade     := iif(not VarIsNull(CamposResultado[3]),RemoveAcentos(CamposResultado[3]),'');  //edtCidade.Text;
        Sacado.UF         := iif(not VarIsNull(CamposResultado[4]),CamposResultado[4],'');  //edtUF.Text;
        Sacado.CEP        := iif(not VarIsNull(CamposResultado[5]),CamposResultado[5],'');

        ValorAbatimento   := 0;   //StrToCurrDef(edtValorAbatimento.Text,0);

        if (RadioGroup1.ItemIndex=0) and
           (not VarIsNull(CamposResultado_banco1[16])) then
        LocalPagamento    :=CamposResultado_banco1[16]   //edtLocalPag.Text;
        else
        LocalPagamento    :='';

        if CamposResultado_banco1[8]>0 then
        ValorMoraJuros    :=DReceber.VALOR_RESTANTE.Conteudo*(CamposResultado_banco1[8]/100/30)    //StrToCurrDef(edtMoraJuros.Text,0);
        else
        ValorMoraJuros    := 0;

        if CamposResultado_banco1[26]>0 then
        ValorDesconto     := CamposResultado_banco1[26]  //StrToCurrDef(edtValorDesconto.Text,0);
        else
        ValorDesconto     :=0;
        ValorAbatimento   := 0;  //StrToCurrDef(edtValorAbatimento.Text,0);
        DataMoraJuros     := 0;  //StrToDateDef(edtDataMora.Text, 0);

        if CamposResultado_banco1[31]>0 then
        DataDesconto      :=(DReceber.VENCTO.Conteudo-CamposResultado_banco1[31])   //StrToDateDef(edtDataDesconto.Text, 0);
        else
        DataDesconto      := 0;

        DataAbatimento    := 0;  //StrToDateDef(edtDataAbatimento.Text, 0);
        if CamposResultado_banco1[27]>0 then
        DataProtesto      := (DReceber.VENCTO.Conteudo+CamposResultado_banco1[27]);  //StrToDateDef(edtDataProtesto.Text, 0);

        if CamposResultado_banco1[30]>0 then
        PercentualMulta   := CamposResultado_banco1[30]    //StrToCurrDef(edtMulta.Text,0);
        else
        PercentualMulta   := 0;

         Mensagem.Add(iif(XNumEdit3_nf.Value>0,('NF-e '+XNumEdit3_nf.Text),'')); //memMensagem.Text;
         if XEdit2.Text<>EmptyStr then
         Mensagem.Add(XEdit2.Text);
         if not VarIsNull(CamposResultado_banco1[10]) then
         Mensagem.Add(CamposResultado_banco1[10]);
         if not VarIsNull(CamposResultado_banco1[11]) then
         Mensagem.Add(CamposResultado_banco1[11]);
         if not VarIsNull(CamposResultado_banco1[12]) then
         Mensagem.Add(CamposResultado_banco1[12]);


        OcorrenciaOriginal.Tipo :=iif(not VarIsNull(CamposResultado_banco1[22]),CamposResultado_banco1[22],''); //toRemessaBaixar;
        Instrucao1        :='';
        Instrucao2        :='';

     end;
DReceber.Next;
end;

 

 

Alguém pode ajudar.... Obrigado

Postado

Olha..eu nao entendo de Delphi. mas tente fazer assim:

PadRight('', 7, '0')                        + //65 a 71 - Uso Exclusivo CAIXA
               '0'                                     + //72 - Uso Exclusivo CAIXA    esse zero não é inserido
               PadRight(Nome, 30, ' ')    

=====

crie uma variavel _valor_zero_string = '0'

e depois coloque

PadRight(_valor_zero_string, 1, ' ') 

no lugar do '0'

nao sei se vai funcionar. mas tente ver se vai dar certo..  Valeu

 

Postado

Olá Amarildo, testei não deu certo continua com o mesmo erro. Na posição 72 padrão é 0 zero, e tá sendo preenchido com a primeira letra do nome do cliente no caso Mercearia, tá ficando M, e na posição 73 Nome do Banco tá ficando AIXA ECONOMICA FEDERAL, o C de CAIXA ficou na linha acima 72 no final.

Alguém se habilita a resolver?

veja acima o que tô falando.

Obrigado,

Leão

  • Solution
Postado

Olá, agradeço Juliana e Amarildo, conseguir descobrir na verdade faltava o Tipo de inscrição do cedente 1-Pessoa Fisíca e 2-Juridica.

Obrigado

Leão

 

corrigido.png

  • Curtir 1
  • Este tópico foi criado há 2414 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...