Ir para conteúdo
  • Cadastre-se

dev botao

CEF posição 72 a 73 conforme Validador


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

Recommended Posts

 

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

Link para o comentário
Compartilhar em outros sites

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?

Link para o comentário
Compartilhar em outros sites

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 }
 

 

Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

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

 

Link para o comentário
Compartilhar em outros sites

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,

Link para o comentário
Compartilhar em outros sites

  • Administradores

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

Link para o comentário
Compartilhar em outros sites

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?

                      

Link para o comentário
Compartilhar em outros sites

  • Administradores

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

Link para o comentário
Compartilhar em outros sites

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
Link para o comentário
Compartilhar em outros sites

  • Moderadores

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

 

Link para o comentário
Compartilhar em outros sites

  • Administradores

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

Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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

 

Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2124 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.