Ir para conteúdo
  • Cadastre-se

dev botao

SUFRAMA - registro 0150


  • Este tópico foi criado há 4686 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.