GpStructuredStorage file  &7 '()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~sqli.vtd sqliForm.vtdKsqliFormName.vtd. sqliStep.vtd ^sqliStepFile.vtd8sqliStepStr.vtd 6sqliStepStrEvent.vtd! sqliVar.vtd"2 sqliVer.vtd#sqliReports.vtd$sqliTranslation.vtd%rACKEYACNAMEd ACISDEBUGACTYPE ACVARININI ACAUTOSTART ACAUTOCLOSE ACENDMESSAGEACLOCALIZATION2ACFORMNAMEAUTHORACACTIVE ANVERSION ACLOGTYPE ACINSTCODEd ANUSERCHG ANUSERINS ADTIMECHG ADTIMEINS ACISLOCALIZEDACRUNONINSTALL ACRUNONUPDATE ACRUNONDELETE ANOLDVERSION ACCRYPTPASSACCOMPILEDSCRIPTACNOTEADL0051Popravilo davnih stopenjFAFFFTRT0;BBFFFF ACKEY ACFORMNAME2 ACDOCTYPE ACOBJECTNAME2ACTYPE ACKEYSHORTCUT2ACTABSHEETNAME2 ACFORMTYPE ANUSERCHG ANUSERINS ADTIMECHG ADTIMEINS ADL0051SifMSD1;BB ACFORMNAME2ACNAME2ACKEYANNOACVIEWACSETOFACDESCRACREPORTACFILECREATETABLEANFILEDELIMITER ACFILENAMEACFILETABLENAME ACFILEDEST ACFILETYPE ACFILETYPEXML ACSHOWIFEMPTYACTITLEBUTTONS ANTITLELINESANBEGINFROMRECORD ANUSERCHG ANUSERINS ADTIMECHG ADTIMEINS ACCHARSET2 ACSTYLESHEET ACUNITNAMEd ACNEWTHREADACDFMACPAS ACSQLEXPORT2ACSQLEXPACNOTE ADL0051GPFAENF;B0)aB windows-1250Popravilo davnih stopenjF:Program AresScript; uses sysutils, classes, forms, dialogs, FForm1; procedure MyExecuteUnit(id: integer); begin ares.nextstep := -1; ares.executeStep(id); if (ares.GetSetOf(id) IN ['I','D','R']) and (ares.NextStep > 0) then MyExecuteUnit(ares.NextStep); end; procedure MyFullExecuteUnit(AJumpTo: string); var AacKey: string; AanNo: integer; begin RepairAcKeyAndAnNo(AJumpTo, AacKey, AanNo); if AanNo > 0 then MyExecuteUnit(Aanno); end; begin ares.executeStep(10); Form1 := tForm1.create(ares); ares.run; end. ADL0051GFFAENF;B0)aB windows-1250FForm1Fsobject Form1: TForm Tag = 99 Left = 208 Top = 233 Caption = 'Popravilo dav'#269'nih stopenj' ClientHeight = 321 ClientWidth = 320 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesigned PixelsPerInch = 96 TextHeight = 13 object cxGrid1: TcxGrid Left = 0 Top = 51 Width = 320 Height = 270 Align = alClient TabOrder = 0 ExplicitTop = 30 ExplicitWidth = 306 ExplicitHeight = 291 object cxGrid1DBTableView1: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = DataSourceVAT DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsData.Appending = True OptionsView.GroupByBox = False object cxGrid1DBTableView1Column1: TcxGridDBColumn Caption = #352'ifra iz' DataBinding.FieldName = 'acVATfrom' PropertiesClassName = 'TdlcxLookupComboBoxProperties' Properties.ClearKey = 46 Properties.DropDownAutoSize = True Properties.GridMode = True Properties.ImmediatePost = True Properties.IncrementalFiltering = False Properties.KeyFieldNames = 'acVATCode' Properties.ListColumns = <> Properties.ListOptions.SyncMode = True Properties.PostPopupValueOnTab = True Properties.ShowFieldNameValue = True Properties.LookupType = ltTarSt Properties.VisibleButtons = [lbDropDown, lbEllipsisButton] Width = 139 end object cxGrid1DBTableView1Column2: TcxGridDBColumn Caption = #352'ifra na' DataBinding.FieldName = 'acVATto' PropertiesClassName = 'TdlcxLookupComboBoxProperties' Properties.ClearKey = 46 Properties.DropDownAutoSize = True Properties.GridMode = True Properties.ImmediatePost = True Properties.IncrementalFiltering = False Properties.KeyFieldNames = 'acVATCode' Properties.ListColumns = <> Properties.ListOptions.SyncMode = True Properties.PostPopupValueOnTab = True Properties.ShowFieldNameValue = True Properties.LookupType = ltTarSt Properties.VisibleButtons = [lbDropDown, lbEllipsisButton] Width = 146 end end object cxGrid1Level1: TcxGridLevel GridView = cxGrid1DBTableView1 end end object dlcxPanel1: TdlcxPanel Left = 0 Top = 0 Width = 320 Height = 51 Align = alTop TabOrder = 1 ExplicitWidth = 306 object fBase: TdlcxLabeledImageComboBox Left = 80 Top = 6 AutoSize = False EditValue = 'M' Properties.Items = < item Description = 'Cena brez davka' Value = 'M' end item Description = 'Cena z davkom' ImageIndex = 0 Value = 'P' end> Properties.ReadOnly = False Properties.ClearValue = Null Style.BorderStyle = ebsFlat Style.Color = 15065304 Style.LookAndFeel.Kind = lfFlat Style.LookAndFeel.NativeStyle = False Style.Shadow = False Style.ButtonStyle = btsSimple Style.ButtonTransparency = ebtAlways Style.PopupBorderStyle = epbsDefault StyleDisabled.LookAndFeel.Kind = lfFlat StyleDisabled.LookAndFeel.NativeStyle = False StyleFocused.Color = 14347503 StyleFocused.LookAndFeel.Kind = lfFlat StyleFocused.LookAndFeel.NativeStyle = False StyleHot.LookAndFeel.Kind = lfFlat StyleHot.LookAndFeel.NativeStyle = False TabOrder = 0 LabelPosition = lpoLeft LabelSpacing = 3 LabelVisible = True EditLabel.Left = 40 EditLabel.Top = 9 EditLabel.Width = 37 EditLabel.Height = 13 EditLabel.Caption = 'Osnova' EditLabel.FocusControl = fBase EditLabel.Transparent = True ComponentSize = csSmall Templatable = False Caption = 'Osnova' ReadOnly = False Height = 19 Width = 110 end object bStart: TdlcxButton Left = 224 Top = 5 Width = 75 Height = 22 Caption = 'Po'#382'eni' Default = True TabOrder = 1 end object cbVPPrice: TdlcxCheckBox Left = 42 Top = 26 Caption = 'Sprememba VP1 in VP2' State = cbsChecked TabOrder = 2 Transparent = True Visible = False Width = 136 end end object lbMsg2: TdlcxLabel Left = 198 Top = 277 Caption = 'Ni podatkov!' Visible = False end object lbMsg1: TdlcxLabel Left = 198 Top = 259 Caption = 'Operacija kon'#269'ana!' Visible = False end object _evsaver: TEventCom events = 'fBase.Properties.OnEditValueChanged=fBasePropertiesEditValueChan' + 'ged'#13#10 end object tbVAT: TdlDataset SQL.Strings = ( 'select * from #lHE_VATchg') FieldNamesToUpperCase = False AutoCalcFields = False Cached = False LocateInsert = False Editable = True RequestLive = False KeyFields = 'acVATfrom' QueryRecCount = False DetailDelay = 0 LocalMasterDetail = False StrictUpdate = False TrimFixedChar = True TrimVarChar = True AddRowidToSQL = False ORACompatibility = True Left = 130 Top = 137 end object DataSourceVAT: TDataSource DataSet = tbVAT Left = 181 Top = 133 end end J unit FForm1; interface uses Forms, Controls, StdCtrls, SysUtils, Classes, Graphics, dlComponents, Dialogs, cxGrid, dlDatabase, db; type TForm1 = class(TarForm) cxGrid1: TcxGrid; cxGrid1DBTableView1: TcxGridDBTableView; cxGrid1Level1: TcxGridLevel; dlcxPanel1: TdlcxPanel; fBase: TdlcxLabeledImageComboBox; cxGrid1DBTableView1Column1: TcxGridDBColumn; cxGrid1DBTableView1Column2: TcxGridDBColumn; tbVAT: TdlDataset; DataSourceVAT: TDataSource; bStart: TdlcxButton; lbMsg2: TdlcxLabel; lbMsg1: TdlcxLabel; cbVPPrice: TdlcxCheckBox; procedure fBasePropertiesEditValueChanged(Sender: TObject); procedure bStartClick(Sender: TObject); private public constructor Create(AOwner: TComponent); override; end; var Form1: TForm1; implementation constructor TForm1.Create(AOwner: TComponent); begin inherited Create(AOwner); ares.AssignObjectsToForm('FForm1',Self); cxGrid1 := FindComponent('cxGrid1'); cxGrid1DBTableView1 := FindComponent('cxGrid1DBTableView1'); cxGrid1Level1 := FindComponent('cxGrid1Level1'); dlcxPanel1 := FindComponent('dlcxPanel1'); fBase := FindComponent('fBase'); cxGrid1DBTableView1Column1 := FindComponent('cxGrid1DBTableView1Column1'); cxGrid1DBTableView1Column2 := FindComponent('cxGrid1DBTableView1Column2'); tbVAT := FindComponent('tbVAT'); DataSourceVAT := FindComponent('DataSourceVAT'); tbVAT.Open; bStart := FindComponent('bStart'); bStart.OnClick := bStartClick; lbMsg2 := FindComponent('lbMsg2'); lbMsg1 := FindComponent('lbMsg1'); AresFindComponent(cbVPPrice, 'cbVPPrice', Self); TdlcxImageComboBoxProperties(fBase.Properties).OnEditValueChanged := fBasePropertiesEditValueChanged; end; procedure TForm1.bStartClick(Sender: TObject); var ds: TdlDataSet; i: integer; begin if (tbVat.State = dsInsert) or (tbVat.State = dsEdit) then tbVat.Post; ds := TdlDataset.create(nil); try ds.sql.text := 'select count(*) from tHE_SetItem M, #lHE_VATchg T where M.acVATCode = T.acVATfrom'; ds.open; if not ds.eof then i:= ds.Fields[0].AsInteger else i:= 0; ds.close; finally ds.free; end; if i > 0 then begin ares.executeStep(30); dlReopenTable('SifMS.tbMS'); dlReopenTable('SifMS.tbMSCenaSklad'); dlMessageDlg(lbMsg1.Caption, mtInformation, [mbOK], 0); //ShowMessage(lbMsg1.Caption); end else dlMessageDlg(lbMsg2.Caption, mtInformation, [mbOK], 0); //ShowMessage(lbMsg2.Caption); dlReopenTable('SifMS.tbMS'); end; procedure TForm1.fBasePropertiesEditValueChanged(Sender: TObject); begin if fBase.ItemIndex = 1 then cbVPPrice.Visible := True else cbVPPrice.Visible := False; end; end. ADL0051 GITEAENF;BNB windows-125010FZbegin delete lHE_VATchg; end; ADL0051GETEAENF;BNB windows-1250F-select * from ~P~UpdateTarSt~P~ order by TSIzADL0051GITEAENFx1hBNB windows-125030F.DECLARE cbankacenik VARCHAR2 (32); cnasavaluta VARCHAR2 (3); nroundt NUMBER (19, 4); cident VARCHAR2 (16); cvaluta VARCHAR2 (3); cizracunkalk VARCHAR2 (1); nnabacena FLOAT (53); cts VARCHAR2 (2); ndavek FLOAT (53); nprodcena FLOAT (53); nmpcena FLOAT (53); ncena FLOAT (53); nmpcenap FLOAT (53); ntecaj FLOAT (53); ddatum DATE; cskladisce VARCHAR2(30); cVPPrice VARCHAR2(10); nWSPrice FLOAT (53); nWSPrice2 FLOAT (53); nChPricePercent FLOAT (53); nMpCenaG FLOAT (53); nWSPriceP FLOAT (53); nWSPrice2P FLOAT (53); CURSOR crms IS SELECT m.acident, m.accurrency, m.acmakecalc, m.anbuyprice, t.acvatcode, t.anvat, m.ansaleprice, m.anrtprice, m.anprice, m.anwsprice, m.anwsprice2 FROM the_setitem m, lHE_VATchg p, the_settax t WHERE m.acvatcode = p.acVATfrom AND t.acvatcode = p.acVATto; CURSOR crms2 IS SELECT M.acIdent, M.acCurrency, M.acMakeCalc, M.anBuyPrice, T.acVATCode, T.anVat, M2.anSalePrice, M2.anRTPrice, M.anPrice, M2.acWarehouse, M2.anWSPrice, M2.anWSPrice2 FROM tHE_SetItem M JOIN tHE_SetItemPriceForWrh M2 ON M.acIdent = M2.acIdent JOIN lHE_VATchg P ON M.acVATCode = P.acVATfrom JOIN tHE_SetTax T ON T.acVATCode = P.acVATto; uf1_rowid ROWID; uf1_oval1 the_setitemcateg.acvatcode%TYPE; CURSOR uf1_cursor IS SELECT the_setitemcateg.ROWID, the_settax.acvatcode FROM the_setitemcateg, lHE_VATchg, the_settax WHERE the_setitemcateg.acvatcode = lHE_VATchg.acVATfrom AND the_settax.acvatcode = lHE_VATchg.acVATto FOR UPDATE OF the_setitemcateg.acvatcode; uf2_rowid ROWID; uf2_oval1 the_setitem.acvatcode%TYPE; uf2_oval2 the_setitem.anvat%TYPE; CURSOR uf2_cursor IS SELECT the_setitem.ROWID, the_settax.acvatcode, the_settax.anvat FROM the_setitem, lHE_VATchg, the_settax WHERE the_setitem.acvatcode = lHE_VATchg.acVATfrom AND the_settax.acvatcode = lHE_VATchg.acVATto FOR UPDATE OF the_setitem.acvatcode, the_setitem.anvat; stoo_sqlstatus INTEGER; stoo_fetchstatus INTEGER; stoo_rowcnt INTEGER; BEGIN cVPPrice := '#cbVPPrice#'; FOR rec IN (SELECT acbankprice, acprimcurrency, anroundt FROM vPA_SysParam) LOOP cbankacenik := rec.acbankprice; cnasavaluta := rec.acprimcurrency; nroundt := rec.anroundt; END LOOP; ddatum := (substring (RPAD (TO_CHAR (SYSDATE, 'yyyy/mm/dd'), 10, ' '), 1, 10) ); OPEN crms; FETCH crms INTO cident, cvaluta, cizracunkalk, nnabacena, cts, ndavek, nprodcena, nmpcena, ncena, nwsprice, nwsprice2; IF crms%NOTFOUND THEN stoo_sqlstatus := 2; stoo_fetchstatus := -1; ELSE stoo_sqlstatus := 0; stoo_fetchstatus := 0; END IF; <> WHILE (stoo_fetchstatus = 0) LOOP BEGIN IF UPPER ('#fBase#') = 'P' THEN BEGIN nMPCenaG := nMPCena; ppa_searchfxrate (cbankacenik, cvaluta, ddatum, ntecaj); nmpcena := nprodcena / (1 + (ndavek / 100)); nmpcenap := 0; IF (nnabacena <> 0) AND (ntecaj <> 0) THEN BEGIN IF cizracunkalk = 'B' THEN nmpcenap := 100 * ( (nmpcena - (ncena * ntecaj)) / (nnabacena * ntecaj) ); ELSE nmpcenap := 100 * ( (nmpcena - (nnabacena * ntecaj)) / (nnabacena * ntecaj) ); END IF; END; END IF; UPDATE the_setitem SET --acvatcode = cts, --anvat = ndavek, anrtprice = nmpcena, anrtpricep = nmpcenap WHERE acident = cident; IF cVPPrice = 'True' THEN BEGIN nChPricePercent := case when IsNull(nMPCenaG, 0) = 0 then 0 else 100 * (nMPCena - nMPCenaG) / nMPCenaG end; nWSPrice := nWSPrice * (1+(nChPricePercent/100)); nWSPrice2 := nWSPrice2 * (1+(nChPricePercent/100)); nWSPriceP := 0; nWSPrice2P := 0; IF (nnabacena <> 0) AND (ntecaj <> 0) THEN BEGIN IF cizracunkalk = 'B' THEN nWSPriceP := 100 * ((nWSPrice - (ncena * ntecaj)) / (nnabacena * ntecaj)); nWSPrice2P := 100 * ((nWSPrice2 - (ncena * ntecaj)) / (nnabacena * ntecaj)); ELSE nWSPriceP := 100 * ((nWSPrice - (nnabacena * ntecaj)) / (nnabacena * ntecaj)); nWSPrice2P := 100 * ((nWSPrice2 - (nnabacena * ntecaj)) / (nnabacena * ntecaj)); END IF; END; END IF; UPDATE tHE_SetItem SET anWSPrice = nWSPrice, anWSPrice2 = nWSPrice2, anWSPriceP = nWSPriceP, anWSPrice2P = nWSPrice2P WHERE acIdent = cIdent; END; END IF; END; ELSE BEGIN nprodcena := nmpcena * (1 + (ndavek / 100)); pPa_RoundFin (nprodcena, nroundt, nprodcena); UPDATE the_setitem SET --acvatcode = cts, --anvat = ndavek, ansaleprice = nprodcena WHERE acident = cident; END; END IF; FETCH crms INTO cident, cvaluta, cizracunkalk, nnabacena, cts, ndavek, nprodcena, nmpcena, ncena, nwsprice, nwsprice2; IF crms%NOTFOUND THEN stoo_sqlstatus := 2; stoo_fetchstatus := -1; ELSE stoo_sqlstatus := 0; stoo_fetchstatus := 0; END IF; END; END LOOP; CLOSE crms; OPEN crms2; FETCH crms2 INTO cident, cvaluta, cizracunkalk, nnabacena, cts, ndavek, nprodcena, nmpcena, ncena, cskladisce, nwsprice, nwsprice2; IF crms2%NOTFOUND THEN stoo_sqlstatus := 2; stoo_fetchstatus := -1; ELSE stoo_sqlstatus := 0; stoo_fetchstatus := 0; END IF; <> WHILE (stoo_fetchstatus = 0) LOOP BEGIN IF UPPER ('#fBase#') = 'P' THEN BEGIN nMPCenaG := nMPCena; ppa_searchfxrate (cbankacenik, cvaluta, ddatum, ntecaj); nmpcena := nprodcena / (1 + (ndavek / 100)); nmpcenap := 0; IF (nnabacena <> 0) AND (ntecaj <> 0) THEN BEGIN IF cizracunkalk = 'B' THEN nmpcenap := 100 * ( (nmpcena - (ncena * ntecaj)) / (nnabacena * ntecaj) ); ELSE nmpcenap := 100 * ( (nmpcena - (nnabacena * ntecaj)) / (nnabacena * ntecaj) ); END IF; END; END IF; UPDATE tHE_SetItemPriceForWrh SET anrtprice = nmpcena, anrtpricep = nmpcenap WHERE acident = cident AND acwarehouse = cskladisce; IF cVPPrice = 'True' THEN BEGIN nChPricePercent := case when IsNull(nMPCenaG, 0) = 0 then 0 else 100 * (nMPCena - nMPCenaG) / nMPCenaG end; nWSPrice := nWSPrice * (1+(nChPricePercent/100)); nWSPrice2 := nWSPrice2 * (1+(nChPricePercent/100)); nWSPriceP := 0; nWSPrice2P := 0; IF (nnabacena <> 0) AND (ntecaj <> 0) THEN BEGIN IF cizracunkalk = 'B' THEN nWSPriceP := 100 * ((nWSPrice - (ncena * ntecaj)) / (nnabacena * ntecaj)); nWSPrice2P := 100 * ((nWSPrice2 - (ncena * ntecaj)) / (nnabacena * ntecaj)); ELSE nWSPriceP := 100 * ((nWSPrice - (nnabacena * ntecaj)) / (nnabacena * ntecaj)); nWSPrice2P := 100 * ((nWSPrice2 - (nnabacena * ntecaj)) / (nnabacena * ntecaj)); END IF; END; END IF; UPDATE tHE_SetItemPriceForWrh SET anWSPrice = nWSPrice, anWSPrice2 = nWSPrice2, anWSPriceP = nWSPriceP, anWSPrice2P = nWSPrice2P WHERE acIdent = cIdent AND acwarehouse = cskladisce; END; END IF; END; ELSE BEGIN nprodcena := nmpcena * (1 + (ndavek / 100)); pPa_RoundFin (nprodcena, nroundt, nprodcena); UPDATE tHE_SetItemPriceForWrh SET ansaleprice = nprodcena WHERE acident = cident AND acwarehouse = cskladisce; END; END IF; FETCH crms2 INTO cident, cvaluta, cizracunkalk, nnabacena, cts, ndavek, nprodcena, nmpcena, ncena, cskladisce, nwsprice, nwsprice2; IF crms2%NOTFOUND THEN stoo_sqlstatus := 2; stoo_fetchstatus := -1; ELSE stoo_sqlstatus := 0; stoo_fetchstatus := 0; END IF; END; END LOOP; CLOSE crms2; OPEN uf1_cursor; LOOP FETCH uf1_cursor INTO uf1_rowid, uf1_oval1; EXIT WHEN uf1_cursor%NOTFOUND; UPDATE the_setitemcateg SET acvatcode = uf1_oval1 WHERE ROWID = uf1_rowid; stoo_rowcnt := SQL%ROWCOUNT; END LOOP; CLOSE uf1_cursor; OPEN uf2_cursor; LOOP FETCH uf2_cursor INTO uf2_rowid, uf2_oval1, uf2_oval2; EXIT WHEN uf2_cursor%NOTFOUND; UPDATE the_setitem SET acvatcode = uf2_oval1, anvat = uf2_oval2 WHERE ROWID = uf2_rowid; stoo_rowcnt := SQL%ROWCOUNT; END LOOP; CLOSE uf2_cursor; END; ADL0051(G0KomentarTEAENF;BNB windows-125040FADL00512G0KomentarTEAENF;BNB windows-125050FADL0051<G0KomentarTEAENF;BNB windows-125060FADL0051FG0KomentarTEAENF;BPB windows-125070FADL0051PG0KomentarTEAENF;BPB windows-125080FADL0051ZG0KomentarTEAENF;BPB windows-125090FACKEYANNOANSEQNOACHFIELD2ACHTYPE ANHLENGTHANHDECACPFIELD2ACPTYPEANPLEGTHANPDEC ACPFORMAT ACPSEPARATOR ANUSERCHG ANUSERINS ADTIMECHG ADTIMEINS ACKEYANNOANSEQNO ACFIELDNAME2 ANFIELDSIZE ACFIELDTITLEACFIELDREADONLY ACEDITTYPE ACFIELDCONST ACFIELDFORMATACFIELDDEFAULT ANUSERCHG ANUSERINS ADTIMEINS ADTIMECHG  ACKEYANNO ACDATAEVENTACDATARETURNVALUE ACKEYANDNO ANUSERCHG ANUSERINS ADTIMECHG ADTIMEINS ACKEY ACWHEREKEYANNO ACFIELDNAME ACPARAMVAR ACFIELDTYPE ACFIELDREQACFIELDCAPTION2 ACDEFAULTEXPACDEFAULTVALUE ACLOOKUPSQL ACOPERATOR ACVARHINT2 ACADDAPOSTROF ACPRTCRIT ANUSERCHG ANUSERINS ADTIMECHG ADTIMEINS ADL0051Osnova OsnovaTCF+Osnova je P-Cena z davkom/M-Cena brez davka0MFT;BB ACKEY ANVERSIONANNOACSQLEXPACNOTE ADTIMECHG ANUSERCHG ADTIMEINS ANUSERINSACREPORTACLANGIDACLOCALIZATION2 ACFORMNAMEdACNAMEdACDEFAULTPRINTER ACPREVIEWANMAXPRSTLEVELACSUBSTITUTESIGNACPRINTIFEMPTY ACPRINTTOTEXT ANNOOFCOPY ACORDERBY ACREGUSERCODEACACTIVE ACKEYSHORTCUT2 ANUSERINS ADTIMEINS ANUSERCHG ADTIMECHG ACTEXT1ACTEXT2ACTEXT3ACNOTE ACREPORTDATAACKEY ACUNITNAME ACOBJECTNAME ACTRANSLATIONACLOCALISATION