Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

Seja-Profissional-Saiba-mais.png Beneficios_banner.png

 

SUFRAMA - registro 0150


  • Este tópico foi criado há 3891 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

Thiago Dornelas

Analista de Sistemas
e-mail: [email protected]
Belo Horizonte/MG

Link to comment
Share on other sites

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.

Thiago Dornelas

Analista de Sistemas
e-mail: [email protected]
Belo Horizonte/MG

Link to comment
Share on other sites

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;

Thiago Dornelas

Analista de Sistemas
e-mail: [email protected]
Belo Horizonte/MG

Link to comment
Share on other sites

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

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

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 Dornelas

Analista de Sistemas
e-mail: [email protected]
Belo Horizonte/MG

Link to comment
Share on other sites

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

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

  • Este tópico foi criado há 3891 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.