Ir para conteúdo
  • Cadastre-se

dev botao

Dúvida BLOCO 0 - REGISTRO0000


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

Recommended Posts

  • Consultores

Eu não tive prazo ainda para testar. Mas se puder fazê-lo, altere a seguinte função no arquivo ACBrEPCBloco_0_Class.pas:

procedure TBloco_0.WriteRegistro0000;
var
strCOD_VER: AnsiString;
strTIPO_ESCRIT: AnsiString;
strIND_SIT_ESP: AnsiString;
strIND_NAT_PJ: AnsiString;
strIND_ATIV: AnsiString;
strNUM_REC_ANTERIOR: AnsiString;
begin
if Assigned(Registro0000) then
begin
with Registro0000 do
begin
case COD_VER of
vlVersao100: strCOD_VER := '001'; // Código 001 - Versão 100 ADE Cofis nº 31/2010 de 01/01/2011
vlVersao101: strCOD_VER := '002'; // Código 002 - Versão 101 ADE Cofis nº 34/2010 de 01/01/2011
end;
case TIPO_ESCRIT of
tpEscrOriginal: strTIPO_ESCRIT := '0';
tpEscrRetificadora: strTIPO_ESCRIT := '1';
end;
case IND_SIT_ESP of
indSitAbertura: strIND_SIT_ESP := '0';
indSitCisao: strIND_SIT_ESP := '1';
indSitFusao: strIND_SIT_ESP := '2';
indSitIncorporacao: strIND_SIT_ESP := '3';
indSitEncerramento: strIND_SIT_ESP := '4';
indNenhum: strIND_SIT_ESP := ' ';
end;
case IND_NAT_PJ of
indNatPJSocEmpresariaGeral : strIND_NAT_PJ := '00'; //0 - Sociedade empresária geral
indNatPJSocCooperativa : strIND_NAT_PJ := '01'; //1 - Sociedade Cooperativa
indNatPJEntExclusivaFolhaSal : strIND_NAT_PJ := '02'; //2 - Entidade sujeita ao PIS/Pasep exclusivamente com base na folha de salários
end;
case IND_ATIV of
indAtivIndustrial: strIND_ATIV := '0';
indAtivPrestadorServico: strIND_ATIV := '1';
indAtivComercio: strIND_ATIV := '2';
indAtivoFincanceira: strIND_ATIV := '3';
indAtivoImobiliaria: strIND_ATIV := '4';
indAtivoOutros: strIND_ATIV := '9';
end;

if (TIPO_ESCRIT = tpEscrRetificadora) then
strNUM_REC_ANTERIOR := LFill( NUM_REC_ANTERIOR, 41 )
else
strNUM_REC_ANTERIOR := '';

Check(funChecaCNPJ(CNPJ), '(0-0000) ENTIDADE: O CNPJ "%s" digitado é inválido!', [CNPJ]);
Check(funChecaUF(UF), '(0-0000) ENTIDADE: A UF "%s" digitada é inválido!', [UF]);
Check(funChecaMUN(COD_MUN), '(0-0000) ENTIDADE: O código do município "%s" digitado é inválido!', [IntToStr(COD_MUN)]);
///
Add( LFill( '0000' ) +
LFill( strCOD_VER ) +
LFill( strTIPO_ESCRIT ) +
LFill( strIND_SIT_ESP ) +
LFill( strNUM_REC_ANTERIOR ) +
LFill( DT_INI ) +
LFill( DT_FIN ) +
LFill( NOME ) +
LFill( CNPJ ) +
LFill( UF ) +
LFill( COD_MUN, 7 ) +
LFill( SUFRAMA, 9 ) +
LFill( strIND_NAT_PJ ) +
LFill( strIND_ATIV ) );
///
Registro0990.QTD_LIN_0 := Registro0990.QTD_LIN_0 + 1;
end;
end;
end;[/code]

Obrigado pelo report.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...
  • Consultores

Essa alteração já está no SVN.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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