Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Dúvida BLOCO 0 - REGISTRO0000


djtrcprog
  • Este tópico foi criado há 3752 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 to comment
Share on other sites

  • 3 weeks later...
  • 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 to comment
Share on other sites

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