_ISoSS_Action

(    Mode : Integer;
     ...             ) : Byte

Vykoná akci ISoSS podle parametru Mode.

Parametry pro přihlášení

     UvazekId           : Longint; 
    Osloveni            : String; 
    Jmeno               : String; 
    Prijmeni            : String; 
    TitulPred           : String; 
    TitulZa             : String; 
    NarozDatum          : Date; 
    ObcanstviStatniId   : Longint;
    DruhDokladuId       : Longint;
    CisloDokladu        : String; 
    PrukazSluzebniCis   : String; 
    OznaceniSluzebniId  : Longint;
    OznPredst_KodId     : Longint;
    OznPredst_TrvDo     : Date;
    OznPredst_TrvDoTxt  : String;
    OznaceniZastupceId  : Longint;
    DenSluzebniVznik    : Date; 
    TypSluzebniId       : Longint; 
    TrvaniSluzebniDo    : Date; 
    TrvaniSluzebniDoTxt	: String;
dim Pusob_StatId        : Longint;
dim Pusob_RegionId      : Longint;
dim Pusob_ObecId        : Longint;
dim Pusob_ObecZahr      : String;
dim Pusob_IdPreloz      : String; 
    PlatTrida           : Integer; 
    PlatStupen          : Integer; 
    UvazekZkraceni      : Real;
    Email               : String;
dim FOborSluzby         : File;
dim FZkouskaUredni      : File;

Popis položek pro přihlášení

Popis položek pro změnu

Podívejte se na: System 

Příklady:

procedure Prihlaseni
    dim UvazekId            : Longint;
    dim Osloveni            : String;
    dim Jmeno               : String;
    dim Prijmeni            : String;
    dim TitulPred           : String;
    dim TitulZa             : String;
    dim NarozDatum          : Date;
    dim ObcanstviStatniId   : Longint;      {5.8.1430.7}
    dim DruhDokladuId       : Longint;
    dim CisloDokladu        : String;
    dim PrukazSluzebniCis   : String;
    dim OznaceniSluzebniId  : Longint;
    dim OznPredst_KodId     : Longint;      {5.8.1430.7}
    dim OznPredst_TrvDo     : Date;         {5.8.1430.7}
    dim OznPredst_TrvDoTxt  : String;       {5.8.1430.7}
    dim OznaceniZastupceId  : Longint;      {5.8.1430.7}
    {dim MistoSluzebniNazev : String;       {5.8.1430.7}
    dim DenSluzebniVznik    : Date;
    dim TypSluzebniId       : Longint;
    dim TrvaniSluzebniDo    : Date;
    dim TrvaniSluzebniDoTxt : String;
    dim Pusob_StatId        : Longint;      {5.8.1430.7}
    dim Pusob_RegionId      : Longint;      {5.8.1430.7}
    dim Pusob_ObecId        : Longint;      {5.8.1430.7}
    dim Pusob_ObecZahr      : String;       {5.8.1430.7}
    dim Pusob_IdPreloz      : String;       {5.8.1430.7}
    dim PlatTrida           : Integer;
    dim PlatStupen          : Integer;
    {dim ZastupOd           : Date;         {5.8.1430.7}
    {dim ZastupSouhlasDatum : Date;         {5.8.1430.7}
    dim UvazekZkraceni      : Real;
    dim FOborSluzby         : File;
    dim FZkouskaUredni      : File;
    dim KodChyby            : Integer;
    dim PodaniId            : Longint;
    dim FOdesli             : File;
    dim CisloBaliku         : Longint;
    dim Hlaseni             : StringZ;
	
    UvazekId            := 20;
    Osloveni            := "P";
    Jmeno               := "Jiřina";
    Prijmeni            := "Benešová";
    TitulPred           := "Ing.";
    TitulZa             := "";
    NarozDatum          := _Date(25,8,1965);
    ObcanstviStatniId   := 0;                   {5.8.1430.7}
    CisloDokladu        := "7845412";
    PrukazSluzebniCis   := "4578";
    OznaceniSluzebniId  := 0;
    OznPredst_KodId     := 0;                   {5.8.1430.7}
    OznPredst_TrvDo     := _Date(25,8,1965);    {5.8.1430.7}
    OznPredst_TrvDoTxt  := "";                  {5.8.1430.7}
    OznaceniZastupceId  := 0;                   {5.8.1430.7}
    {MistoSluzebniNazev  := "Ředitel";          {5.8.1430.7}
    DenSluzebniVznik    := _Date(1,1,2015);
    TypSluzebniId       := 0;
    TrvaniSluzebniDo    := _Date(0,0,0);
    TrvaniSluzebniDoTxt := "do nekonečna";
    Pusob_StatId        : 0;                    {5.8.1430.7}
    Pusob_RegionId      : 0;                    {5.8.1430.7}
    Pusob_ObecId        : 0;                    {5.8.1430.7}
    Pusob_ObecZahr      : "";                   {5.8.1430.7}
    Pusob_IdPreloz      : "";                   {5.8.1430.7}
    PlatTrida           := 8;
    PlatStupen          := 6;
    {ZastupOd            := _Date(0,0,0);       {5.8.1430.7}
    {ZastupSouhlasDatum  := _Date(0,0,0);       {5.8.1430.7}
    UvazekZkraceni      := 1;

    SRewrite(FOborSluzby, "", true);
    SRewrite(FZkouskaUredni, "", true);

    if(_ISoSS_Action(isossaPrihlaseni, 
            UvazekId, Osloveni, Jmeno, Prijmeni, TitulPred, TitulZa,
            NarozDatum, ObcanstviStatniId, CisloDokladu, PrukazSluzebniCis, OznaceniSluzebniId, 
            OznPredst_KodId, OznPredst_TrvDo, OznPredst_TrvDoTxt, OznaceniZastupceId,
            DenSluzebniVznik, TypSluzebniId, TrvaniSluzebniDo, TrvaniSluzebniDoTxt, 
            Pusob_StatId, Pusob_RegionId, Pusob_ObecId, Pusob_ObecZahr, Pusob_IdPreloz,
            PlatTrida, PlatStupen, UvazekZkraceni,
            FOborSluzby, FZkouskaUredni, PodaniId, KodChyby))then
        { Podání v DB vytvořeno v pořádku }
        SRewrite(FOdesli, "", true);
        SPut(FOdesli, 0, PodaniId);
        if(_ISoSS_Action(isossaOdesliPodani, FOdesli, CisloBaliku, Hlaseni))then
            _MsgBox(2, Hlaseni, 0);
            _ISoSS_Action(isossaDlgDataList, _ActDate, _ActDate, 0, CisloBaliku, 0);
        else
            _MsgBox(0, Hlaseni, 0);    
        endif
    else
        _ISoSS_Action(isossaDejTextChyby, KodChyby, Hlaseni);
        _MsgBox(0, "Chyba: " + Hlaseni, 0);    
    endif

endproc