private void WriteRegistroI052(TRegistroI050 RegI050)
{
int intFor;
if (Assigned(RegI050.RegistroI052))
{
for (intFor = 0; intFor <= RegI050.RegistroI052.Count - 1; intFor++)
{
using (RegI050.RegistroI052.Items[intFor]){
// /
AppendText(LFill("I052") +
LFill(COD_CCUS) +
LFill(COD_AGL)
);
}
FRegistroI990.QTD_LIN_I = FRegistroI990.QTD_LIN_I + 1;
}
FRegistroI052Count = FRegistroI052Count + RegI050.RegistroI052.Count;
}
}
private void WriteRegistroI053(TRegistroI050 RegI050)
{
int intFor;
if (Assigned(RegI050.RegistroI053))
{
for (intFor = 0; intFor <= RegI050.RegistroI053.Count - 1; intFor++)
{
using (RegI050.RegistroI053.Items[intFor]){
// /
AppendText(LFill("I053") +
LFill(COD_IDT) +
LFill(COD_CNT_CORR) +
LFill(NAT_SUB_CNT)
);
}
FRegistroI990.QTD_LIN_I = FRegistroI990.QTD_LIN_I + 1;
}
FRegistroI053Count = FRegistroI053Count + RegI050.RegistroI053.Count;
}
}
private void WriteRegistroI051(TRegistroI050 RegI050)
{
int intFor;
if (Assigned(RegI050.RegistroI051))
{
for (intFor = 0; intFor <= RegI050.RegistroI051.Count - 1; intFor++)
{
using (RegI050.RegistroI051.Items[intFor]){
// /
AppendText(LFill("I051") +
LFill(COD_PLAN_REF, 1) +
LFill(COD_CCUS) +
LFill(COD_CTA_REF)
);
}
FRegistroI990.QTD_LIN_I = FRegistroI990.QTD_LIN_I + 1;
}
FRegistroI051Count = FRegistroI051Count + RegI050.RegistroI051.Count;
}
}
