; Vytisteni samolepek na baliky, PPL
; verze z 1.12.2005
; Autor: WinDUO Team (Milan Slíva)

Name('Samolepky PPL')
Designed('BALMAN')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Vytiskne samolepky PPL k balíkům')
WNSType(2);

DeclareRec('Balik');
BalikHlavicka:Balik;

DlgFollowMouse(True);

if(ExistVariable('MultiMode'))
  begin
    ReadRec(BalikHlavicka,VetaB);
  end else
  begin
    MultiMode:Boolean
    Oznaceno:LongInt
    GetBindRec(BalikHlavicka);
  end;

if(not ExistVariable('DatumOdeslani'))
  begin
    DatumOdeslani:Word
  end;

DeclareRec('Program');
DeclareRec('KeyBalik2');

Veta:LongInt
Zasilek:Word
LocStr:String
LocStr2:String
LocW:Word
Zasilka:Word
Counter:Word
Castka:Real
Dobirka:Boolean
LocBo:Boolean

InfoText:Array[1..5] of String[64];
InfoText[1]=GetDataINI('PPL','Info(1)')
InfoText[2]=GetDataINI('PPL','Info(2)')
InfoText[3]=GetDataINI('PPL','Info(3)')
InfoText[4]=GetDataINI('PPL','Info(4)')
InfoText[5]=GetDataINI('PPL','Info(5)')

if(BalikHlavicka.Dobirka<>0)
  begin
    Castka=BalikHlavicka.Dobirka;
    Dobirka=True
  end else
  begin
    Dobirka=False
  end;

KeyBalik2.Length=6
KeyBalik2.Doklad=SwapL(BalikHlavicka.Doklad)
KeyBalik2.Zasilka=Swap(BalikHlavicka.Zasilka)
LocBo:Boolean=SearchKey(KeyBalik2,Veta)
While((LocBo) and (KeyBalik2.Doklad=SwapL(BalikHlavicka.Doklad)) and (KeyBalik2.Zasilka=Swap(BalikHlavicka.Zasilka)))
  begin
    ReadRec(Balik,Veta);
    if(Balik.Balik<>0)
      begin

        UpravDatumOdeslani;

        Inc(Counter)

        FontSize(3)
        FontFace(Bold)

        BarCode(bc_Code2of5iM10,2,30,58,44,Balik.CisloB,True,True);
        BarCode(bc_Code2of5iM10,2,89,36,6,Balik.CisloB,False,True);
        BarCode(bc_Code2of5iM10,77,89,36,6,Balik.CisloB,False,True);

        FontSize(3)
        FontFace(Normal)
        ClearFontIndex()
        GetFontIndex(50,InfoText[1]);
        GetFontIndex(50,InfoText[2]);
        GetFontIndex(50,InfoText[3]);
        GetFontIndex(50,InfoText[4]);
        GetFontIndex(50,InfoText[5]);
        FontIndex()
        Text(4,12,TA_LEFT,InfoText[1]);
        Text(4,15,TA_LEFT,InfoText[2]);
        Text(4,18,TA_LEFT,InfoText[3]);
        Text(4,21,TA_LEFT,InfoText[4]);
        Text(4,24,TA_LEFT,InfoText[5]);

        FontSize(3.5)
        FontFace(Normal)
        Text(26,77,TA_CENTER,'Balík č./CELKEM: '+Str(Balik.Balik)+'/'+Str(Balik.BalikC));

        Text(70,4,TA_LEFT,Balik.Nazev);
        Text(70,8,TA_LEFT,Balik.Rozsireni);
        Text(70,12,TA_LEFT,Balik.Ulice);
        Text(70,16,TA_LEFT,Balik.Mesto);

        if(Length(Balik.Telefon)<>0)
            Text(70,20,TA_LEFT,'Tel.: '+Balik.Telefon);

        Text(70,43,TA_LEFT,Program.Firma);
        Text(70,47,TA_LEFT,Program.Rozsireni);
        Text(70,51,TA_LEFT,Program.Ulice);
        Text(70,55,TA_LEFT,Program.Mesto);
        Text(70,59,TA_LEFT,Program.PSC);

        FontSize(10)
        FontFace(Bold)

        Text(70,24,TA_LEFT,Balik.PSC);

        FontSize(7)
        FontFace(Bold)
        if((Castka=0)or(Balik.Balik<>1))
          begin
            if(Dobirka)
              Text(103,72,TA_RIGHT,StrFinanc(0,2,True))
            else
              Text(103,72,TA_RIGHT,'XXXXXXX')
          end else
          begin
            Text(103,72,TA_RIGHT,StrFinanc(Castka,2,True))
          end;

        FontSize(3)
        FontFace(Bold)
        Text(40,92,TA_LEFT,Balik.CisloB);
        Text(115,92,TA_LEFT,Balik.CisloB);
        NextPage;
      end else
      begin
        UpravDatumOdeslani;
      end;
    LocBo=NextKey(KeyBalik2,Veta);
  end;

Procedure UpravDatumOdeslani;
  if(Balik.DatumO=0)
    begin
      if(DatumOdeslani=0)
        begin
          DatumOdeslani=GetDate()
          LocBo=True
          DefDialog('Doplnění data odeslaní',384,132)
          DlgShade(-1,'',4,4,374,60)
          DlgCheckBox(101,LocBo,16,12,352,,'Dosazovat níže uvedené datum do balíků bez data');
          DlgStatic(-1,'Datum odeslání',16,38,108)
          DlgEditDate(102,DatumOdeslani,128,34,,24);
          DlgButton(id_OK,,132,66);
          DlgButton(id_Cancel,,198,66);
          if(DlgExecute()<>id_OK)
            Halt;
          if((not LocBo) or (DatumOdeslani=0))
            DatumOdeslani=$FFFF
        end;
      if((DatumOdeslani>0) and (DatumOdeslani<$FFFF))
        begin
          ModifyMode(True);
          Balik.DatumO=DatumOdeslani;
          ModifyRec(Balik,Veta);
        end;
    end;
end;

END