unit blVarList;

{$mode objfpc}{$H+}

interface

uses
  SysUtils, Classes, StrUtils, variants, bslStrings, IniFiles,  VarConsts, bslDBUtils, bslDateUtils;

type
  tTipVarList = (lsNone, lsDOC, lsFirma, lsPartner, lsGrPol, lsGrOtpr,
    lsPP, lsNal, lsNakl, lsGrPerevoz, lsTABNom, lsFactur);

  tTipDateVar =(
    tdCurMY, tdCurM, tdCurY,
    tdPredMY, tdPredM, tdPredY,
    tdCurPeriod, tdCurKV,
    tdFDCurMonth, tdLDCurMonth,
    tdFDNextMonth, tdLDNextMonth,
    tdFDPriorMonth, tdLDPriorMonth,
    tdCurDate,
    tdFDCurPeriod, tdLDCurPeriod,
    tdFDNextPeriod, tdLDPriorPeriod,
    tdFDCurPeriod_Int, tdLDCurPeriod_Int, tdCurPeriod_Int,
    tdFDCurPeriod_DateTime, tdLDCurPeriod_DateTime, tdCurPeriod_DateTime,
    tdDatePrn, tdDateSostavlen, tdBegDateBankOplat, tdEndDateBankOplat,
    tdBegDateBankRasPeriod, tdEndDateBankRasPeriod,
    td1_MCurKV, td2_MCurKV, td3_MCurKV,
    tdRasPeriodBegYear,
    tdBegRasPeriodDate, tdEndRasPeriodDate);

const

DateVars: array[TTipDateVar] of String =(
    'ТекМесГод', 'ТекМес', 'ТекГод',
    'ПредМесГод', 'ПредМес', 'ПредГод',
    'ТекПериод', 'ТекКвартал',
    'НачТекМесДата', 'КонТекМесДата',
    'НачСледМесДата', 'КонСледМесДата',
    'НачПредМесДата', 'КонПредМесДата',
    'ТекДата',
    'НачТекПериодДата', 'КонТекПериодДата',
    'НачСледПериодДата', 'КонПредПериодДата',
    'BegPeriodIntDate', 'EndPeriodIntDate', 'PeriodIntDate',
    'BegPeriodDate', 'EndPeriodDate', 'PeriodDate',
    'ДатаПечати', 'ДатаСоставления', 'НачСрокОплат', 'КонСрокОплат',
    'НачПериодРасПлат', 'КонПериодРасПлат',
    '1_МесТекКВ', '2_МесТекКВ', '3_МесТекКВ',
    'РасчетПериодНачГод',
    'НачРасчетПериодДата', 'КонРасчетПериодДата');
    
implementation    
    
Function GetPosDateVars(const varName: string): integer;
var
    s: string;
begin
  s := DateVars[tdCurMY];
  result := AnsiIndexText(VarName, DateVars);
end;