; DDT pro objednávku WinDUO - slovenská verze
; verze z 19/08/2002
; Autor: WinDUO Team

Name('Objednávka WinDUO')
FileName('ObjWD.WNS')
Designed('winduo')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Objednávka WinDUO Slovensko')
IF(Version()<5)
   Error('Tento soubor nelze zpracovat ve Vaší verzi WinDUO'+#13+#13+'Zajistěte si vyšší verzi...',mb_IconStop)

;{definice promennych}
DeclareRec('Program')
; zrusit True:
DlgFollowMouse(False)
INI:String=DataPath+'ObjWD.INI'

ValidDatum:String='0123456789.'
ValidCislo:String='0123456789-+,./()'
SetDecimalSize(2)
Result:Integer=999
Result2:Integer=999
DatumObj:Word
PoziceY:Integer=60
SumaObj:Real=0

;cenik:
WDminiNesitCena:Word=7000
WDminiSitCena:Word=10500
WDStandNesitCena:Word=8000
WDStandSitCena:Word=12000
WDPlusNesitCena:Word=12000
WDPlusSitCena:Word=18000
WDMultiNesitCena:Word=17500
WDMultiSitCena:Word=26250
WDMulti5NesitCena:Word=12500
WDMulti5SitCena:Word=18750
WDSMultiNesitCena:Word=21000
WDSMultiSitCena:Word=31500
WDSMulti5NesitCena:Word=15000
WDSMulti5SitCena:Word=22500


;{definice uvodniho dialogu}

DefDialog('Objednávka programu WinDUO',360,182)
DlgShade(-1,'',4,20,350,28)
DlgStatic(-1,'Táto funkcia vytlačí objednávku programu WinDUO',14,25,330)
DlgButton(id_OK,'OK',180,110);
DlgOnLineHelp(id_OK,'Pokračuje ve zpracování')
DlgButton(id_Cancel,'Zpět',260,110);
DlgOnLineHelp(id_Cancel,'Ukončí bez zpracování')

IF(DlgExecute()<>ID_OK)
  Halt

;{definice promennych}

;{definice a nacteni promennych z INI}

begin
  ;{nacteni adresy}
  NazevFirmy:String[50]=GetFromIni('OBJ','NazevFirmy',INI)
  NazevFirmy2:String[50]=GetFromIni('OBJ','NazevFirmy2',INI)
  KontaktOsoba:String[50]=GetFromIni('OBJ','KontaktOsoba',INI)
  Adresa1:String[50]=GetFromIni('OBJ','Adresa1',INI)
  Adresa2:String[50]=GetFromIni('OBJ','Adresa2',INI)
  ICOobj:String[8]=GetFromIni('OBJ','ICOobj',INI)
  DICobj:String[14]=GetFromIni('OBJ','DICobj',INI)
  Telefon:String[50]=GetFromIni('OBJ','Telefon',INI)
  DatumObj:Word=ValDate(GetFromIni('OBJ','DatumObj',INI))

  ;{nacteni voleb}
  WDminiNesit:Boolean=GetBoolean(GetFromIni('OBJ','WDminiNesit',INI))
  WDminiSit:Boolean=GetBoolean(GetFromIni('OBJ','WDminiSit',INI))
  WDStandNesit:Boolean=GetBoolean(GetFromIni('OBJ','WDStandNesit',INI))
  WDStandSit:Boolean=GetBoolean(GetFromIni('OBJ','WDStandSit',INI))
  WDPlusNesit:Boolean=GetBoolean(GetFromIni('OBJ','WDPlusNesit',INI))
  WDPlusSit:Boolean=GetBoolean(GetFromIni('OBJ','WDPlusSit',INI))
  WDMultiNesit:Boolean=GetBoolean(GetFromIni('OBJ','WDMultiNesit',INI))
  WDMultiSit:Boolean=GetBoolean(GetFromIni('OBJ','WDMultiSit',INI))
  WDMulti5Nesit:Boolean=GetBoolean(GetFromIni('OBJ','WDMulti5Nesit',INI))
  WDMulti5Sit:Boolean=GetBoolean(GetFromIni('OBJ','WDMulti5Sit',INI))
  WDSMultiNesit:Boolean=GetBoolean(GetFromIni('OBJ','WDSMultiNesit',INI))
  WDSMultiSit:Boolean=GetBoolean(GetFromIni('OBJ','WDSMultiSit',INI))
  WDSMulti5Nesit:Boolean=GetBoolean(GetFromIni('OBJ','WDSMulti5Nesit',INI))
  WDSMulti5Sit:Boolean=GetBoolean(GetFromIni('OBJ','WDSMulti5Sit',INI))
  WDPausal:Boolean=GetBoolean(GetFromIni('OBJ','WDPausal',INI))

end


;{definice prvniho dialogu - volby}
DefDialog('Objednávka plnej verzie programu WinDUO',620,450)
;{vykreslení uvodu}
DlgShade(-1,'',4,4,610,420)

DlgStatic(-1,'WinDUO mini',10,10,200)
DlgStatic(-1,'- denník, závierky, DPH, pohžadávky vr. tlače faktúr, závazky, pokladňa',110,10,494)
DlgStatic(-1,'a banka, majetky (daňové a účtovné odpisy), adresár obchodných',110,26,494)
DlgStatic(-1,'partnerov, Súvahy a Výkazy ziskov a strát, homebanking, export dát do DBF:',110,42,498)
DlgCheckBox(101,WDminiNesit,100,60,210,,'nesieová verzia - ' + STR(WDminiNesitCena,0,0)+',-')
DlgOnLineHelp(101,'Objednat / Neobjednat')
DlgCheckBox(102,WDminiSit,360,60,200,,'sieová verzia - ' + STR(WDminiSitCena,0,0)+',-')
DlgOnLineHelp(102,'Objednat / Neobjednat')

DlgDivider(60,82,500,0)

DlgStatic(-1,'WinDUO standard',10,88,120)
DlgStatic(-1,'- WinDUO mini + sklady:',138,88,165)
DlgCheckBox(103,WDStandNesit,100,106,210,,'nesieová verzia  - ' + STR(WDStandNesitCena,0,0)+',-')
DlgOnLineHelp(103,'Objednat / Neobjednat')
DlgCheckBox(104,WDStandSit,360,106,200,,'sieová verzia - ' + STR(WDStandSitCena,0,0)+',-')
DlgOnLineHelp(104,'Objednat / Neobjednat')

DlgDivider(60,128,500,0)

DlgStatic(-1,'WinDUO plus',10,134,120)
DlgStatic(-1,'- WinDUO standard + tlače zostáv za strediská a zákazky',138,134,430)
DlgStatic(-1,'sklad vrátane výrobkov a evidencie výrobných čísiel:',138,150,430)
DlgCheckBox(105,WDPlusNesit,100,168,210,,'nesieová verzia  - ' + STR(WDPlusNesitCena,0,0)+',-')
DlgOnLineHelp(105,'Objednat / Neobjednat')
DlgCheckBox(106,WDPlusSit,360,168,200,,'sieová verzia - ' + STR(WDPlusSitCena,0,0)+',-')
DlgOnLineHelp(106,'Objednat / Neobjednat')

DlgDivider(60,190,500,0)

DlgStatic(-1,'WinDUO multi',10,196,120)
DlgStatic(-1,'- účtovanie pre neobmedzený počet firiem v rozsahu WinDUO Standard:',138,196,470)
DlgCheckBox(107,WDMultiNesit,100,214,210,,'nesieová verzia  - ' + STR(WDMultiNesitCena,0,0)+',-')
DlgOnLineHelp(107,'Objednat / Neobjednat')
DlgCheckBox(108,WDMultiSit,360,214,200,,'sieová verzia - ' + STR(WDMultiSitCena,0,0)+',-')
DlgOnLineHelp(108,'Objednat / Neobjednat')
DlgStatic(-1,'- obmedzenie na 5 firiem:',138,234,180)
DlgCheckBox(109,WDMulti5Nesit,100,250,210,,'nesieová verzia  - ' + STR(WDMulti5NesitCena,0,0)+',-')
DlgOnLineHelp(109,'Objednat / Neobjednat')
DlgCheckBox(110,WDMulti5Sit,360,250,200,,'sieová verzia - ' + STR(WDMulti5SitCena,0,0)+',-')
DlgOnLineHelp(110,'Objednat / Neobjednat')

DlgDivider(60,272,500,0)

DlgStatic(-1,'WinDUO S-multi',10,278,120)
DlgStatic(-1,'- účtovanie pre neobmedzený počet firiem v rozsahu WinDUO Plus:',138,278,470)
DlgCheckBox(111,WDSMultiNesit,100,296,210,,'nesieová verzia  - ' + STR(WDSMultiNesitCena,0,0)+',-')
DlgOnLineHelp(111,'Objednat / Neobjednat')
DlgCheckBox(112,WDSMultiSit,360,296,200,,'sieová verzia - ' + STR(WDSMultiSitCena,0,0)+',-')
DlgOnLineHelp(112,'Objednat / Neobjednat')
DlgStatic(-1,'- obmedzenie na 5 firiem:',138,316,180)
DlgCheckBox(113,WDSMulti5Nesit,100,332,210,,'nesieová verzia  - ' + STR(WDSMulti5NesitCena,0,0)+',-')
DlgOnLineHelp(113,'Objednat / Neobjednat')
DlgCheckBox(114,WDSMulti5Sit,360,332,200,,'sieová verzia - ' + STR(WDSMulti5SitCena,0,0)+',-')
DlgOnLineHelp(114,'Objednat / Neobjednat')

DlgDivider(60,354,500,0)

DlgStatic(-1,'Ročný paušálny poplatok za upgrade:',10,362,260)
DlgCheckBox(115,WDPausal,100,380,240,,'20% zo zvolenej verze programu')
DlgOnLineHelp(115,'Objednat / Neobjednat')
DlgStatic(-1,'(Ceny sú uvedené v Sk a bez DPH)',10,400,260)

DlgButton(id_OK,'OK',415,380);
DlgOnLineHelp(id_OK,'Označte verziu, o ktorú máte záujem, zašlite nám objednávku na adresu, popr. e-mailom, faxom alebo telefonicky')

DlgButton(id_Cancel,'Zpět',536,380);
DlgOnLineHelp(id_Cancel,'Ukončí práci bez výpočtu sestavy')



;{zpracovani dialogu (read):}
;{===========================================================================}
Result:Integer=DlgExecute()


IF(Result=287)
  GoTo(Ulozeni1)

IF(Result=ID_Cancel)
  begin
   Halt
  end



Ulozeni1:
  ;{ulozeni hodnot 1. obrazovky}

  SetToIni('OBJ','WDminiNesit',WDminiNesit,INI)
  SetToIni('OBJ','WDminiSit',WDminiSit,INI)
  SetToIni('OBJ','WDStandNesit',WDStandNesit,INI)
  SetToIni('OBJ','WDStandSit',WDStandSit,INI)
  SetToIni('OBJ','WDPlusNesit',WDPlusNesit,INI)
  SetToIni('OBJ','WDPlusSit',WDPlusSit,INI)
  SetToIni('OBJ','WDMultiNesit',WDMultiNesit,INI)
  SetToIni('OBJ','WDMultiSit',WDMultiSit,INI)
  SetToIni('OBJ','WDMulti5Nesit',WDMulti5Nesit,INI)
  SetToIni('OBJ','WDMulti5Sit',WDMulti5Sit,INI)
  SetToIni('OBJ','WDSMultiNesit',WDSMultiNesit,INI)
  SetToIni('OBJ','WDSMultiSit',WDSMultiSit,INI)
  SetToIni('OBJ','WDSMulti5Nesit',WDSMulti5Nesit,INI)
  SetToIni('OBJ','WDSMulti5Sit',WDSMulti5Sit,INI)
  SetToIni('OBJ','WDPausal',WDPausal,INI)


;{definice druheho dialogu - adresa}
DefDialog('Objednávka plnej verzie programu WinDUO',620,450)
;{vykreslení adresy}
DlgShade(-1,'',4,4,610,420)

DlgStatic(-1,'Názov firmy, ktorá objednává program WinDUO:',36,23,380)
DlgEdit(201,NazevFirmy,36,40,540,,50)
DlgOnLineHelp(201,'Názov firmy, ktorá objednává program WinDUO')
DlgEdit(202,NazevFirmy2,36,64,540,,50)
DlgOnLineHelp(202,'Názov firmy - 2. část')
DlgStatic(-1,'Kontaktná osoba:',36,89,120)
DlgEdit(203,KontaktOsoba,36,106,540,,50)
DlgOnLineHelp(203,'Osoba')
DlgStatic(-1,'Adresa:',36,133,60)
DlgEdit(204,Adresa1,36,150,540,,50)
DlgOnLineHelp(204,'Adresa - ulica, kam program WinDUO zasla')
DlgEdit(205,Adresa2,36,174,540,,50)
DlgOnLineHelp(205,'Adresa - 2. část - PSČ, město')
DlgStatic(-1,'IČO:',36,199,30)
DlgEdit(206,ICOobj,36,216,100,,8)
DlgOnLineHelp(206,'IČO firmy')
DlgStatic(-1,'DIČ:',168,199,30)
DlgEdit(207,DICobj,168,216,124,,14)
DlgOnLineHelp(207,'DIČ firmy')
DlgStatic(-1,'Telefon/Fax:',324,199,80)
DlgEdit(208,Telefon,324,216,250,,38)
DlgOnLineHelp(208,'Telefonné spojenie')

DlgDivider(60,252,500,0)

DlgStatic(-1,'Vyplňte adresu a zašlite nám objednávku na níže uvedenu adresu,',36,268,538)
DlgStatic(-1,'popr. e-mailom, faxom alebo telefonicky,',36,286,538)
DlgStatic(-1,'A-CORY, s.r.o.',36,304,538)
DlgStatic(-1,'Ul. slobody 1106',36,322,538)
DlgStatic(-1,'022 01 Čadca,',36,340,538)
DlgStatic(-1,'tel/fax: 0824/43 248 34, 0905 563803, e-mail: a-cory@mail.viapvt.sk',36,358,538)

DlgStatic(-1,'Dátum objednávky:',36,376,80)
DlgEditDate(209,DatumObj,136,376,78,,10,,ValidDatum)
;DlgEditDate(103,DatumDodat,160,52,78,,10,,ValidDatum) ;je-li promenna string nebo cislena, osetri
DlgOnLineHelp(209,'Dátum')


DlgButton(id_OK,'OK',415,380);
DlgOnLineHelp(id_OK,'Vyplňte identifikačné údaje a zašlite nám objednávku na adresu, popr. e-mailom, faxom alebo telefonicky')

DlgButton(id_Cancel,'Zpět',536,380);
DlgOnLineHelp(id_Cancel,'Ukončí práci bez výpočtu sestavy')



;{zpracovani dialogu (read):}
;{===========================================================================}

Result:Integer=DlgExecute()

IF(Result=287)
  GoTo(Ulozeni2)

IF(Result=ID_Cancel)
  begin
   Halt
  end

Ulozeni2:
  ;{ulozeni hodnot 2. obrazovky}

  SetToIni('OBJ','NazevFirmy',NazevFirmy,INI)
  SetToIni('OBJ','NazevFirmy2',NazevFirmy2,INI)
  SetToIni('OBJ','KontaktOsoba',KontaktOsoba,INI)
  SetToIni('OBJ','Adresa1',Adresa1,INI)
  SetToIni('OBJ','Adresa2',Adresa2,INI)
  SetToIni('OBJ','ICOobj',ICOobj,INI)
  SetToIni('OBJ','DICobj',DICobj,INI)
  SetToIni('OBJ','Telefon',Telefon,INI)
  SetToIni('OBJ','DatumObj',StrDate(DatumObj),INI)


  ;{tisk}

TabFontScale:Double
FontSize(7)
FontFace(Bold)
Text(180,0,TA_RIGHT,'Objednávka')
;PaintMetaFile(0,0,30,20,Program.Logo);
FontSize(5)
;Brush(UserBrush)
;Pen(ps_Null,0.1)
;BoxA(91,50,109,57)
Pen(0,0.3)
;BoxA(145,9,180,16)
;LineA(115,27,58,27)
;LineA(58,27,58,20)
;LineA(58,20,117,20)
;Brush($FFFFFF)
Pen(0,0.7)

RoundBoxA(115,20,180,57,4,4)
Brush(NullBrush)

LineA(2,57,176,57)
ArcA(0,53,4,57,0,55,2,57);
LineA(0,52,0,55)
ArcA(0,54,4,50,2,50,0,52);
LineA(2,50,115,50);

Pen(0,0.1)
;LineA(115,50,180,50)
;LineA(0,59,180,59);


FontFace(Bold|Italic)
FontSize(4)
Text(5,7,TA_LEFT,'Objednávajúci:')
Text(118,22,TA_LEFT,'Dodávatež:')
FontFace(Bold);

Text(7,16,TA_LEFT,NazevFirmy)
Text(125,29,TA_LEFT,'A-CORY, s.r.o.')
Text(7,20,TA_LEFT,NazevFirmy2)
FontFace(Normal);
Text(125,37,TA_LEFT,'Ul. slobody 1106')
Text(7,28,TA_LEFT,Adresa1)
Text(125,41,TA_LEFT,'Čadca')
Text(125,45,TA_LEFT,'022 01')
Text(7,34,TA_LEFT,Adresa2)

Text(7,45,TA_LEFT,'IČO: '+NULL(ICOObj,8,True)+'   DIČ: '+DICObj)

FontSize(3.5)
Text(7,51.5,TA_Left,'Datum: '+StrDate(DatumObj))
Text(37,51.5,TA_Left,'Jméno: '+KontaktOsoba)

Text(7,PoziceY,TA_Left,'Objednáváme dodávku software WinDUO v rozsahu:')
PoziceY=PoziceY+6

IF(WDminiNesit)
  begin
    Text(17,PoziceY,TA_Left,'WinDUO Mini - nesíová verze')
    Text(157,PoziceY,TA_Right,'......'+STR(WDminiNesitCena,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=SumaObj+WDminiNesitCena
  end
IF(WDminiSit)
  begin
    Text(17,PoziceY,TA_Left,'WinDUO Mini - síová verze')
    Text(157,PoziceY,TA_Right,'......'+STR(WDminiSitCena,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=SumaObj+WDminiSitCena
  end
IF(WDStandNesit)
  begin
    Text(17,PoziceY,TA_Left,'WinDUO Standard - nesíová verze')
    Text(157,PoziceY,TA_Right,'......'+STR(WDStandNesitCena,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=SumaObj+WDStandNesitCena
  end
IF(WDStandSit)
  begin
    Text(17,PoziceY,TA_Left,'WinDUO Standard - síová verze')
    Text(157,PoziceY,TA_Right,'......'+STR(WDStandSitCena,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=SumaObj+WDStandSitCena
  end
IF(WDPlusNesit)
  begin
    Text(17,PoziceY,TA_Left,'WinDUO Plus - nesíová verze')
    Text(157,PoziceY,TA_Right,'......'+STR(WDPlusNesitCena,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=SumaObj+WDPlusNesitCena
  end
IF(WDPlusSit)
  begin
    Text(17,PoziceY,TA_Left,'WinDUO Plus - síová verze')
    Text(157,PoziceY,TA_Right,'......'+STR(WDPlusSitCena,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=SumaObj+WDPlusSitCena
  end
IF(WDMultiNesit)
  begin
    Text(17,PoziceY,TA_Left,'WinDUO Multi - nesíová verze')
    Text(157,PoziceY,TA_Right,'......'+STR(WDMultiNesitCena,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=SumaObj+WDMultiNesitCena
  end
IF(WDMultiSit)
  begin
    Text(17,PoziceY,TA_Left,'WinDUO Multi - síová verze')
    Text(157,PoziceY,TA_Right,'......'+STR(WDMultiSitCena,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=SumaObj+WDMultiSitCena
  end
IF(WDMulti5Nesit)
  begin
    Text(17,PoziceY,TA_Left,'WinDUO Multi - nesíová verze - obmedzenie na 5 firiem')
    Text(157,PoziceY,TA_Right,'......'+STR(WDMulti5NesitCena,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=SumaObj+WDMulti5NesitCena
  end
IF(WDMulti5Sit)
  begin
    Text(17,PoziceY,TA_Left,'WinDUO Multi - síová verze - obmedzenie na 5 firiem')
    Text(157,PoziceY,TA_Right,'......'+STR(WDMulti5SitCena,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=SumaObj+WDMulti5SitCena
  end
IF(WDSMultiNesit)
  begin
    Text(17,PoziceY,TA_Left,'WinDUO S Multi - nesíová verze')
    Text(157,PoziceY,TA_Right,'......'+STR(WDSMultiNesitCena,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=SumaObj+WDSMultiNesitCena
  end
IF(WDSMultiSit)
  begin
    Text(17,PoziceY,TA_Left,'WinDUO S Multi - síová verze')
    Text(157,PoziceY,TA_Right,'......'+STR(WDSMultiSitCena,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=SumaObj+WDSMultiSitCena
  end
IF(WDSMulti5Nesit)
  begin
    Text(17,PoziceY,TA_Left,'WinDUO S Multi - nesíová verze - obmedzenie na 5 firiem')
    Text(157,PoziceY,TA_Right,'......'+STR(WDSMulti5NesitCena,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=SumaObj+WDSMulti5NesitCena
  end
IF(WDSMulti5Sit)
  begin
    Text(17,PoziceY,TA_Left,'WinDUO S Multi - síová verze - obmedzenie na 5 firiem')
    Text(157,PoziceY,TA_Right,'......'+STR(WDSMulti5SitCena,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=SumaObj+WDSMulti5SitCena
  end
IF(WDPausal)
  begin
    Text(17,PoziceY,TA_Left,'Ročný paušálny poplatok za upgrade - 20%')
    Text(157,PoziceY,TA_Right,'......'+STR(SumaObj*0.2,0,0)+',- Sk')
    PoziceY=PoziceY+4
    SumaObj=(1.2)*SumaObj
  end

FontFace(Bold)
Text(17,PoziceY+3,TA_LEFT,'Celkem')
Text(157,PoziceY+3,TA_Right,'......'+Str(SumaObj,0,0)+',- Sk')
Text(137,PoziceY+14,TA_Right,'Podpis:')



Exit;
End