// / J210 - Layout 2 a partir da escritura??o ano calend?rio 2013
private void WriteRegistroJ210(TRegistroJ005 RegJ005)
{
int intFor;
if (Assigned(RegJ005.RegistroJ210))
{
for (intFor = 0; intFor <= RegJ005.RegistroJ210.Count - 1; intFor++)
{
using (RegJ005.RegistroJ210.Items[intFor]){
// /
Check(((IND_TIP == "0") || (IND_TIP == "1")), "(J-J210) No Indicador do tipo de demonstra??o, deve ser informado o n?mero 0 ou 1!");
Check(((IND_DC_CTA == "D") || (IND_DC_CTA == "C")), "(J-J210) No Indicador da situa??o do saldo final informado no campo anterior, deve ser informado: D ou C!");
Check(((IND_DC_CTA_INI == "D") || (IND_DC_CTA_INI == "C")), "(J-J210) Indicador da situa??o do saldo inicial informado no campo anterior, deve ser informado: D ou C!");
// /
AppendText(LFill("J210") +
LFill(IND_TIP) +
LFill(COD_AGL) +
LFill(DESCR_COD_AGL) +
LFill(VL_CTA, 19, 2) +
LFill(IND_DC_CTA) +
LFill(VL_CTA_INI, 19, 2) +
LFill(IND_DC_CTA_INI)
);
}
WriteRegistroJ215(RegJ005.RegistroJ210.Items[intFor]);
FRegistroJ990.QTD_LIN_J = FRegistroJ990.QTD_LIN_J + 1;
}
FRegistroJ210Count = FRegistroJ210Count + RegJ005.RegistroJ210.Count;
}
}
private void WriteRegistroJ150(TRegistroJ005 RegJ005)
{
int intFor;
if (Assigned(RegJ005.RegistroJ150))
{
for (intFor = 0; intFor <= RegJ005.RegistroJ150.Count - 1; intFor++)
{
using (RegJ005.RegistroJ150.Items[intFor]){
Check(((IND_VL == "D") || (IND_VL == "R") || (IND_VL == "P") || (IND_VL == "N")), "(J-J150) No Indicador da situa??o do valor, deve ser informado: D ou R ou P ou N!");
Check(((IND_VL_ULT_DRE == "D") || (IND_VL_ULT_DRE == "R") || (IND_VL_ULT_DRE == "P") || (IND_VL_ULT_DRE == "N")), "(J-J150) No Indicador da situa??o do saldo valor inicial, deve ser informado: D ou R ou P ou N!");
// /
AppendText(LFill("J150") +
LFill(COD_AGL) +
LFill(NIVEL_AGL) +
LFill(DESCR_COD_AGL) +
LFill(VL_CTA, 19, 2) +
LFill(IND_VL, 1) +
LFill(VL_CTA_ULT_DRE, 19, 2) +
LFill(IND_VL_ULT_DRE, 1)
);
}
FRegistroJ990.QTD_LIN_J = FRegistroJ990.QTD_LIN_J + 1;
}
FRegistroJ150Count = FRegistroJ150Count + RegJ005.RegistroJ150.Count;
}
}
private void WriteRegistroJ100(TRegistroJ005 RegJ005)
{
int intFor;
if (Assigned(RegJ005.RegistroJ100))
{
for (intFor = 0; intFor <= RegJ005.RegistroJ100.Count - 1; intFor++)
{
using (RegJ005.RegistroJ100.Items[intFor]){
// /
Check(((IND_GRP_BAL == "1") || (IND_GRP_BAL == "2")), "(J-J100) No Indicador de grupo do balan?o, deve ser informado o n?mero 1 ou 2!");
Check(((IND_DC_BAL == "D") || (IND_DC_BAL == "C")), "(J-J100) No Indicador da situa??o do saldo, deve ser informado: D ou C!");
// / Layout 2 a partir da escritura??o ano calend?rio 2013
if (DT_INI >= EncodeDate(2013, 01, 01))
{
Check(((IND_DC_BAL_INI == "D") || (IND_DC_BAL_INI == "C")), "(J-J100) No Indicador da situa??o do saldo inicial do c?digo de aglutina??o no Balan?a Patrimonial, deve ser informado: D ou C!");
}
// /
// / Layout 2 a partir da escritura??o ano calend?rio 2013
if (DT_INI >= EncodeDate(2013, 01, 01))
{
AppendText(LFill("J100") +
LFill(COD_AGL) +
LFill(NIVEL_AGL) +
LFill(IND_GRP_BAL, 1) +
LFill(DESCR_COD_AGL) +
LFill(VL_CTA, 19, 2) +
LFill(IND_DC_BAL, 1) +
LFill(VL_CTA_INI, 19, 2) +
LFill(IND_DC_BAL_INI)
);
}
else
{
AppendText(LFill("J100") +
LFill(COD_AGL) +
LFill(NIVEL_AGL) +
LFill(IND_GRP_BAL, 1) +
LFill(DESCR_COD_AGL) +
LFill(VL_CTA, 19, 2) +
LFill(IND_DC_BAL, 1)
);
}
}
FRegistroJ990.QTD_LIN_J = FRegistroJ990.QTD_LIN_J + 1;
}
FRegistroJ100Count = FRegistroJ100Count + RegJ005.RegistroJ100.Count;
}
}
// Registro inclu?do a partir do layout 2
private void WriteRegistroJ200(TRegistroJ005 RegJ005)
{
int intFor;
if (Assigned(RegJ005.RegistroJ200))
{
for (intFor = 0; intFor <= RegJ005.RegistroJ200.Count - 1; intFor++)
{
using (RegJ005.RegistroJ200.Items[intFor]){
// /
Check(((COD_HIST_FAT != "")), "(J-J200) C?digo do hist?rico do fato cont?bil deve ser informado!");
Check(((DESC_FAT != "")), "(J-J200) Descri??o do fato cont?bil deve ser informado!");
AppendText(LFill("J200") +
LFill(COD_HIST_FAT) +
LFill(DESC_FAT)
);
}
FRegistroJ990.QTD_LIN_J = FRegistroJ990.QTD_LIN_J + 1;
}
FRegistroJ200Count = FRegistroJ200Count + RegJ005.RegistroJ200.Count;
}
}
