...
{ 127 ;Label ;16650;423 ;2400 ;1692 ;HorzAlign=Center;
VertAlign=Center;
FontSize=7;
FontBold=Yes;
MultiLine=Yes;
CaptionML=RUS=10 }
{ 125 ;Label ;19050;423 ;2850 ;1692 ;HorzAlign=Center;
VertAlign=Center;
FontSize=7;
FontBold=Yes;
MultiLine=Yes;
CaptionML=RUS=8 }
...
...
{ 127 ;Label ;16650;423 ;2400 ;1692 ;HorzAlign=Center;
VertAlign=Center;
FontSize=7;
FontBold=Yes;
MultiLine=Yes;
CaptionML=RUS=Сумма налога }
{ 125 ;Label ;19050;423 ;2850 ;1692 ;HorzAlign=Center;
VertAlign=Center;
FontSize=7;
FontBold=Yes;
MultiLine=Yes;
CaptionML=RUS=Стоимость товара (работ, услуг), имущественного права, всего с учетом налога
}
...
...
Header - OnAfterGetRecord()
…
AddConditionCurrency2 :=
COPYSTR(STRSUBSTNO(AddConditionCurrency,
LOWERCASE(COPYSTR(Currency.Description,1,1)) + COPYSTR(Currency.Description,2)),1,MAXSTRLEN(AddConditionCurrency2));
END;
// Delete the following lines.
DocHeader :=
STRSUBSTNO(Text005,"No.",
LocMgt.Date2Text("Document Date"));
// End of the deleted lines.
IF AmountInvoiceCurrent = AmountInvoiceCurrent::LCY THEN
CurrencyWrittenAmount := ''
ELSE
...
...
Header - OnAfterGetRecord()
…
AddConditionCurrency2 :=
COPYSTR(STRSUBSTNO(AddConditionCurrency,
LOWERCASE(COPYSTR(Currency.Description,1,1)) + COPYSTR(Currency.Description,2)),1,MAXSTRLEN(AddConditionCurrency2));
END;
IF AmountInvoiceCurrent = AmountInvoiceCurrent::LCY THEN
CurrencyWrittenAmount := ''
ELSE
...
...
CopyCycle - OnPreDataItem()
…
WITH Header DO BEGIN
…
MODIFY;
END;
END;
...
...
CopyCycle - OnPreDataItem()
…
WITH Header DO BEGIN
…
MODIFY;
END;
// Add the following lines.
DocHeader :=
STRSUBSTNO(Text102,"Posting No.",
LocMgt.Date2Text("Document Date"));
// End of the added lines.
END;]
...