- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
resid := "ANeNaidenVidShortNameNA";
defval := "(Не найден вид '(ShortNameNA)')";
nenay:=@DbLookup("":"NoCache";"":"ResDB.nsf";"(Res)";lng+resid;2);
nenay:=@If(@IsError(nenay);defval;nenay);
key:=@Name([Abbreviate]; @UserName);
serv:=@GetProfileField("CommonDBProfile"; "StructServer"; @ServerName);
db:=@GetProfileField("CommonDBProfile"; "StructDB"; @ServerName);
@If (serv="" | db=""; @Do(
@Prompt([Ok];osh; vstr);
@Return(vstr)
); "");
StructServer1:=@DbLookup("":"NoCache"; serv:db; "(NAShortNamePost)"; key; "StructServer" ) ;
StructDB1:=@DbLookup("":"NoCache"; serv:db; "(NAShortNamePost)"; key; "StructDB" ) ;
@If(StructDB1 = ""; @Do(@Prompt([Ok]; vnim; vstr); @Return("")); @Success);
a := @Trim(@PickList([Custom];StructServer1 :StructDB1; "(ShortNameNA)";sel; sel1; 5));
@If(@IsError(a); @Do(@Prompt([Ok]; osh; nenay); @Return("")); @Success);
@If(a = ""; @Do(@Prompt([Ok]; vnim; vneob); @Return("")); @Success);
FIELD NamesAlias:= @Middle(a; "$"; "#");
FIELD IndDepart := @Explode(@Implode(@Trim(@Left(a;"*"));";");";");
FIELD Depart := @Middle(a; "*"; "$");
FIELD Empl := @Middle(a; "$"; "#");
FIELD EmplNotesAdr:= @Explode(@Implode(@Trim(@Middle(a; "#"; "%"));";");";");
FIELD Replacer := @Trim(@Middle(a; "%"; "?"));
FIELD ReplacerNotesAdr := @Explode(@Implode(@Trim(@Middle(a; "?"; "+"));";");";");
FIELD ServerName:=@Explode(@Implode(@Trim(@Right(a;"+"));";");";");
REM {FIELD CtrlDate:=@Adjust(@Today;0;1;0;0;0;0 )};
FIELD a3:=@Date(@Today);
FIELD a6:=@Middle(a; "$"; "#")+"<< >> " ;
FIELD IndDepart:=IndDepart ;
FIELD Depart:=Depart;
FIELD Replacer :=@Unique(Replacer );
FIELD ReplacerNotesAdr:=@Unique(@Name([Abbreviate]; ReplacerNotesAdr));
FIELD ServerName:=@Unique(@Name([Abbreviate];ServerName));
@Command([RunAgent];"(CheckWall)");
@Command([RefreshFrame];"Document")
Follow us!