private void WriteRegistroI155(TRegistroI150 RegI150)
{
int intFor;
if (Assigned(RegI150.RegistroI155))
{
for (intFor = 0; intFor <= RegI150.RegistroI155.Count - 1; intFor++)
{
using (RegI150.RegistroI155.Items[intFor]){
Check(((IND_DC_INI == "D") || (IND_DC_INI == "C") || (IND_DC_INI == "")), "(I-I155) No Indicador da situa??o do saldo inicial, deve ser informado: D ou C ou nulo!");
Check(((IND_DC_FIN == "D") || (IND_DC_FIN == "C") || (IND_DC_FIN == "")), "(I-I155) No Indicador da situa??o do saldo inicial, deve ser informado: D ou C ou nulo!");
// /
AppendText(LFill("I155") +
LFill(COD_CTA) +
LFill(COD_CCUS) +
LFill(VL_SLD_INI, 19, 2) +
LFill(IND_DC_INI, 0) +
LFill(VL_DEB, 19, 2) +
LFill(VL_CRED, 19, 2) +
LFill(VL_SLD_FIN, 19, 2) +
LFill(IND_DC_FIN, 0)
);
}
FRegistroI990.QTD_LIN_I = FRegistroI990.QTD_LIN_I + 1;
}
FRegistroI155Count = FRegistroI155Count + RegI150.RegistroI155.Count;
}
}
private void WriteRegistroI151(TRegistroI150 RegI150)
{
int intFor;
if (Assigned(RegI150.RegistroI151))
{
for (intFor = 0; intFor <= RegI150.RegistroI151.Count - 1; intFor++)
{
using (RegI150.RegistroI151.Items[intFor]){
// /
AppendText(LFill("I151") +
LFill(ASSIM_DIG)
);
}
FRegistroI990.QTD_LIN_I = FRegistroI990.QTD_LIN_I + 1;
}
FRegistroI151Count = FRegistroI151Count + RegI150.RegistroI151.Count;
}
}
