SUFRAMA - registro 0150

[ThiagoDornelas]

bom dia pessoal,

estou com um problema no campo SUFRAMA do registro 0150.

O validador está dando erro neste campo para todos os participantes estrangeiros pq está jogando neste campo "000000000" e deveria ser apenas em branco.

Gostaria de saber se alguem ja teve este problema e como posso gerar este campo em branco.

obrigado.

[Rodrigo - Digibyte]

Aqui gera normal, creio que os zeros estão retornando do seu banco de dados. Para quem é de fora informe em branco ( '' ).

[ThiagoDornelas]

cara, já deixei SUFRAMA := '' e ja deixei de informar valor para este campo e sempre gera o arquivo com |000000000|.

o seu gera este campo vazio? igual a ||?

veja como o meu está sendo gerado.

|0150|000000017241476|Basell Sales & Marketing Company B.V.|5738||||9999999|000000000|Outros Groot Handelsgebouw, Weena|737||Wena|

obrigado.

[Rodrigo - Digibyte]

O meu gera vazio, será que seu acbr está atualizado?

[ThiagoDornelas]

esta atualizado sim.

eu atualizei os fontes antes de criar o topico e tb depois que vc respondeu que o seu gerava corretamente.

dos 22 erros que ainda estou tendo, 16 são deste SUFRAMA.

[ThiagoDornelas]

Srs, achei o erro, fiz uma alteração no fonte e resolveu meu problema.

Não sei se esta é a forma correta para a atualização dos fontes, mas segue abaixo a alteração q fiz para que os responsaveis pela atualização verifiquem se procede minha alteração.

A altereção foi no fonte "ACBrEPCBloco_0_Class.pas", procedure TBloco_0.WriteRegistro0150(Reg0140: TRegistro0140), na linha 559.

hj está desta forma: LFill(SUFRAMA, 9)

minha alteração: LFill(SUFRAMA)

entao ficou assim:

procedure TBloco_0.WriteRegistro0150(Reg0140: TRegistro0140) ;

var

intFor: integer;

begin

if Assigned(Reg0140.Registro0150) then

begin

for intFor := 0 to Reg0140.Registro0150.Count - 1 do

begin

with Reg0140.Registro0150.Items[intFor] do

begin

// Check(funChecaPAISIBGE(COD_PAIS), '(0-0150) %s-%s, o código do país "%s" digitado é inválido!', [COD_PART, NOME, COD_PAIS]);

if Length(CNPJ) > 0 then Check(funChecaCNPJ(CNPJ), '(0-0150) %s-%s, o CNPJ "%s" digitado é inválido!', [COD_PART, NOME, CNPJ]);

if Length(CPF) > 0 then Check(funChecaCPF(CPF), '(0-0150) %s-%s, o CPF "%s" digitado é inválido!', [COD_PART, NOME, CPF]);

// Check(funChecaIE(IE, UF), '(0-0150) %s-%s, a Inscrição Estadual "%s" digitada é inválida!', [COD_PART, NOME, IE]);

// Check(funChecaMUN(COD_MUN), '(0-0150) %s-%s, o código do município "%s" digitado é inválido!', [COD_PART, NOME, IntToStr(COD_MUN)]);

Check(NOME <> '', '(0-0150) O nome do participante é obrigatório!');

///

Add( LFill('0150') +

LFill(COD_PART) +

LFill(NOME) +

LFill(COD_PAIS) +

LFill(CNPJ) +

LFill(CPF) +

LFill(IE) +

LFill(COD_MUN, 7) +

// LFill(SUFRAMA, 9) +

LFill(SUFRAMA) +

LFill(ENDERECO) +

LFill(NUM) +

LFill(COMPL) +

LFill(BAIRRO) ) ;

end;

Registro0990.QTD_LIN_0 := Registro0990.QTD_LIN_0 + 1;

end;

/// Variavél para armazenar a quantidade de registro do tipo.

FRegistro0150Count := FRegistro0150Count + Reg0140.Registro0150.Count;

end;

end;

[Isaque Pinheiro]

Srs, achei o erro, fiz uma alteração no fonte e resolveu meu problema.

Não sei se esta é a forma correta para a atualização dos fontes, mas segue abaixo a alteração q fiz para que os responsaveis pela atualização verifiquem se procede minha alteração.

A altereção foi no fonte "ACBrEPCBloco_0_Class.pas", procedure TBloco_0.WriteRegistro0150(Reg0140: TRegistro0140), na linha 559.

hj está desta forma: LFill(SUFRAMA, 9)

minha alteração: LFill(SUFRAMA)

entao ficou assim:

procedure TBloco_0.WriteRegistro0150(Reg0140: TRegistro0140) ;

var

intFor: integer;

begin

if Assigned(Reg0140.Registro0150) then

begin

for intFor := 0 to Reg0140.Registro0150.Count - 1 do

begin

with Reg0140.Registro0150.Items[intFor] do

begin

// Check(funChecaPAISIBGE(COD_PAIS), '(0-0150) %s-%s, o código do país "%s" digitado é inválido!', [COD_PART, NOME, COD_PAIS]);

if Length(CNPJ) > 0 then Check(funChecaCNPJ(CNPJ), '(0-0150) %s-%s, o CNPJ "%s" digitado é inválido!', [COD_PART, NOME, CNPJ]);

if Length(CPF) > 0 then Check(funChecaCPF(CPF), '(0-0150) %s-%s, o CPF "%s" digitado é inválido!', [COD_PART, NOME, CPF]);

// Check(funChecaIE(IE, UF), '(0-0150) %s-%s, a Inscrição Estadual "%s" digitada é inválida!', [COD_PART, NOME, IE]);

// Check(funChecaMUN(COD_MUN), '(0-0150) %s-%s, o código do município "%s" digitado é inválido!', [COD_PART, NOME, IntToStr(COD_MUN)]);

Check(NOME '', '(0-0150) O nome do participante é obrigatório!');

///

Add( LFill('0150') +

LFill(COD_PART) +

LFill(NOME) +

LFill(COD_PAIS) +

LFill(CNPJ) +

LFill(CPF) +

LFill(IE) +

LFill(COD_MUN, 7) +

// LFill(SUFRAMA, 9) +

LFill(SUFRAMA) +

LFill(ENDERECO) +

LFill(NUM) +

LFill(COMPL) +

LFill(BAIRRO) ) ;

end;

Registro0990.QTD_LIN_0 := Registro0990.QTD_LIN_0 + 1;

end;

/// Variavél para armazenar a quantidade de registro do tipo.

FRegistro0150Count := FRegistro0150Count + Reg0140.Registro0150.Count;

end;

end;

Seu fonte estava desatualidzado, pois essa correção já havia sido feita, olhei minha Unit aqui ultima alteração foi feita 10/03/2011.

Abs

[ThiagoDornelas]

bom dia Isaque.

cara, esta atualização foi liberada? estou te perguntando isso pq como eu disse anteriormente, eu atualizei os fontes antes de criar o topico e durante a discussão do mesmo tenho feito isso tb.

Inclusive antes de fazer esta alteração, eu desinstalei tudo, apaguei o diretorio do Sped e mandei atualizar novamente e o fonte continuou com o mesmo erro.

So pra te dar certeza do que estou dizendo, acabei de fazer isso novamente e o fonte continua com o mesmo erro.

obrigado

[Isaque Pinheiro]

bom dia Isaque.

cara, esta atualização foi liberada? estou te perguntando isso pq como eu disse anteriormente, eu atualizei os fontes antes de criar o topico e durante a discussão do mesmo tenho feito isso tb.

Inclusive antes de fazer esta alteração, eu desinstalei tudo, apaguei o diretorio do Sped e mandei atualizar novamente e o fonte continuou com o mesmo erro.

So pra te dar certeza do que estou dizendo, acabei de fazer isso novamente e o fonte continua com o mesmo erro.

obrigado

Thiago me desculpe, olhei no fonte do SPED Fiscal, la estava certo, mas acertei e subi

Abs