Summary

The Magic synchronisation custom type is used to import Cost Centre codes.

Fields

The Magic custom type deals with the following fields:

iCOLUMNTYPE = 0;

iCOLUMNCONTRACT = 1;

Note: These fields are used to determine the other fields.

iCOLUMNCONTRACTDESC = 2;

iCOLUMNCOSTCODE = 3;

iCOLUMNCOSTCODEDESC = 4;

iCOLUMNGLCODE = 5;

Fields Sizes

lsColumns.Add(AllTrim(SubStr(sNewRecord, 1, 1)));

lsColumns.Add(AllTrim(SubStr(sNewRecord, 2, 6)));

lsColumns.Add(AllTrim(SubStr(sNewRecord, 8, 30)));

lsColumns.Add(AllTrim(SubStr(sNewRecord, 38, 6)));

lsColumns.Add(AllTrim(SubStr(sNewRecord, 44, 30)));

lsColumns.Add(AllTrim(SubStr(sNewRecord, 73, 6)));

CostCentreCode

CostCentreCode is determined by:

sCostCentreCode := lsColumns[iCOLUMNCONTRACT] + lsColumns[iCOLUMNCOSTCODE];

The following fields are used:

• CostCentreCode
• Description
• GeneralLedgerCode
• GeneralLedgerDescription

Description

Description is determined by:

FieldByName('Description').AsString := ifx(lsColumns[iCOLUMNTYPE] = 'D', '*** Deleted ***', lsColumns[iCOLUMNCONTRACTDESC] + '/' + lsColumns[iCOLUMNCOSTCODEDESC]);

See also

Synchronisation