1c hivatali levonás esetenként. Deklináció fio. Szolgáltatás "Egy esetenkénti visszautasítás"

A teljes név ragozása az 1C-ben 8.3

Az 1C szoftverkomplexum működése során a felhasználóknak gyakran kérdéseik vannak az 1C 8.3 teljes név elhajlásával kapcsolatban. Az 1C. ábrán a vezetéknév deklinációs funkcióját egy speciális komponens hajtja végre, amelyre "NameDecl.dll"-ként hivatkozunk. Az összetevő használatának megkezdéséhez át kell másolnia az információs és műszaki támogatási lemezről abba a mappába, ahol a fő bin platform található, és regisztrálnia kell az operációs rendszerben. A másolás a "resvr32 NameDecl.dll" paranccsal történik. Ebből a célból nyissa meg a "Start" gombot, és hívja meg a "Run" direktívát, az ábrán látható módon.

Nyissa meg az ablakot, és írja be a „resvr32.exe” kifejezést, jelezve a kívánt könyvtár elérési útját. A könyvtárat a "Tallózás" gombbal lehet kiválasztani. Ezután válassza ki az „OK” lehetőséget, és erősítse meg a könyvtár regisztrációját.

A teljes név 1 másodperces deklinációja 2 paraméter szerint történik:

• Tok, típus - szám. Ez egy kötelező paraméter.
• Teljes név, típus - karakterlánc. Ez is kötelező paraméter.

Mivel hat eset van oroszul, az esethez 1-től 6-ig terjedő számot rendelünk az alábbi táblázat szerint:

A FIO 1C deklinációs komponensének egy harmadik, opcionális paramétere is megkülönböztethető - nem (típus - szám). Itt 3 lehetőség van: 0 - auto, 1 - férj, 2 - feleségek.

Service 1C 8 deklináció teljes név

Az 1C 8.3 verziójú programok speciális szolgáltatással rendelkeznek a teljes név levezetésére az 1C 8.3 esetekben, amely a konfigurátoron keresztül működik. Ezért a teljes név elutasításához nyissa meg a konfiguráló ablakot, és használja az "Elutasítás" funkciót az alábbiak szerint:

Az adatokat a címtárból adjuk meg, ahol azok névelőben jelennek meg. A dokumentumok kinyomtatása és megjelenítése már a kívánt alakzatban történik. Példaként, így néz ki szerződés formájában:

Példaként az alábbiakban egy munkafelvételi megbízást mutatunk be, ahol a szakember kártyáin vezeték-, kereszt- és családneve I.P.-ben szerepel, nyomtatott formában viszont R.P.-ben.

Az 1C automatikusan lehetővé teszi a nyomtatott formanyomtatványok és dokumentációk elkészítését, figyelembe véve az aktuális törvényi előírásokat. Az esetek, nemek és számok deklinálásának szükségességét az üzleti dokumentumkezelési szabványok határozzák meg, amelyek szerint minden dokumentum esztétikusan, hozzáértően készül, és megfelel a cég státuszának.

Az automatikus deklináció funkció használata minimálisra csökkenti a hibák valószínűségét a dokumentumok kialakítása során, ami megvéd a negatív következményektől a jövőben. Ez különösen igaz azokra az esetekre, amikor egyszerre nagy számú dokumentum jön létre. Az automatikus elutasítás leegyszerűsíti a dokumentációval végzett munkát, és időt takarít meg, ami pozitív hatással van a teljesítményre.

Elemeztük a vezetéknév, az apanév levezetésének két módját esetek, számok és nemek szerint - a teljes név 1C 8.3 speciális deklinációs komponensével és a konfigurátor szolgáltatáson keresztül. Próbálja ki mindkettőt, és döntse el, melyik a legjobb az Ön számára.

A fájl tartalmazza a 7.7 és 8.x eljárásokat. A Vezetéknév Keresztnév Apanév formátumú karakterláncot ad át az eljárásnak.

UPD 11/26/10: hálával - a funkció új verziója. Nem teszteltem! Kérdések a verzió működésével kapcsolatban - neki, valamiért nem akarja terjeszteni :)

Függvény CaseName(Értéknév,Eset=1,InitialsOnly=False, Value pDelimiter=".")
Ha TypeValue(teljes név)<>Type("String") Ezután
Show("Érvénytelen karakterlánc lett átadva a ""A teljes név kis- és nagybetűje!"""); Teljes név visszaadása;
EndIf;

// több szóköz eltávolítása
Míg 1=1 hurok
Teljes név = Rövidített LP (StrReplace(Név, " "," "));
If Find(Name," ")=0 then Abort EndIf;
EndCycle;

Ha TypeValue(Case)=Típus("String") Akkor
pad = AbbrLP(NReg(Lev(Case,1)));
Ha Find("irdwtp",pad)=0 Akkor

EndIf;
ElseIf TypeValue(Case)=Típus("Szám") Akkor
Ha (eset<1) или (Падеж>6) Akkor
Report("Helytelen kis- és nagybetű a ""teljes név esetére""!"); Teljes név visszaadása;
EndIf;
case=case-1;
EndIf;

Teljes név=AblP(НReg(teljes név)); // kényelmesebb

// saját összetételelemző
Vezetéknév="";
d=1 esetén StrLength(Name) Cycle szerint
chars=Átlag(teljes név, th, 1);

Vezetéknév=Vezetéknév+karakter;
EndCycle;
s=d+1; // áthúzott egy szóközt
Name="";

chars=Átlag(teljes név, th, 1);
If chars=" " Then Abort EndIf;
Név=Név+karakter;
EndCycle;
s=d+1; // átlépi a második szóközt
Középső név="";
y=s esetén StrLength(teljes név) szerint Ciklus
chars=Átlag(teljes név, th, 1);
If chars=" " Then Abort EndIf;
Középső név = Középső név + szimbólum;
EndCycle;

// most külön van a vezetéknév, keresztnév és apanév.
// az aktuális tartalom- és esetelemző blokk kezdődik

// visszatér, ha maga névleges. Ha a ReturnOnlyInitials be van állítva, akkor alakítsa át kezdőbetűvé
If (Left(Case,1)="És") vagy (Case=1) Akkor
Ha NEM csak kezdőbetűk vagy Find(név, ".") Akkor
Teljes név visszaadása; // vagy már konvertált karakterlánc, vagy nem kell konvertálni
EndIf;
ÚjNév = TReg(Vezetéknév) + " " + Vreg(Lev(Név,1)) + pElválasztó + Vreg(Lev(Középső név,1)) + pElválasztó;
Return SokrLP (Új teljes név); // abban az esetben, ha az elválasztó szóköz. Utolsó vágás
EndIf;

// nem elemzése M/F
If Right(Patronymic,1)="a" Then Gender="F" Else Gender="M" EndIf;

// létrehozza a szóvégződéseket tároló táblázat szerkezetét
jelenlegi=Új értéktábla;
StringType=NewTypeDescription("String",NewStringQualifers(3));
NumberType=NewTypeDescription("Szám",ÚjSzámminősítők(1,0));
current.Columns.Add("StarOk",StringType); // régi befejezés 2 karakter
// új szóvégződéseket tároló oszlopok
aktuális.Oszlopok.Add("p"); // szülő
aktuális.Oszlopok.Add("d"); // datuvus
current.Columns.Add("in"); // accusative
aktuális.Oszlopok.Add("t"); // kreatív
aktuális.Oszlopok.Add("n"); // elöljárószó
// annak megadása, hogy a szó végétől hány betűt kell levágni,
current.Columns.Add("Számszelet",SzámTípus); // vágott betűk száma

Magánhangzók="aeeouiyyayu"; // magánhangzók listája karakterláncként

// ======== feldolgozza a vezetéknevet ==========
// töltse ki a táblázatot a vezetéknévre vonatkozó adatokkal

Ha gender="M" Akkor
string=current.Add(); // Ivanov
string.StarOk="*s";

rows.CountSlice=0;

Sor=aktuális.Hozzáadás(); // krasinsky
string.StarOk="*th";
string.r="wow"; string.d="mu"; line.in="th"; string.t="im"; string.p="ohm";
rows.CountSlice=2;

Sor=aktuális.Hozzáadás(); // mindenható
line.Starok="sch";
string.r="ő"; string.d="neki"; string.in="ő"; string.t="im"; string.p="enni";
rows.CountSlice=2;

Sor=aktuális.Hozzáadás(); // fehér
string.StarOk="th";
string.r="wow"; string.d="mu"; line.in="th"; string.t="th"; string.p="ohm";
rows.CountSlice=2;

Sor=aktuális.Hozzáadás(); // sápadt
string.StarOk="*th";

rows.CountSlice=1;

Sor=aktuális.Hozzáadás(); // rabinovics
string.StarOk="*h";

rows.CountSlice=0;

Sor=aktuális.Hozzáadás(); // javítások, zaliznyak
string.StarOk="*k";
string.r="ka"; string.d="ku"; line.in="ka"; string.t="com"; string.p="ke";
rows.CountSlice=2;

Sor=aktuális.Hozzáadás(); // shinkar
string.StarOk="*b";
string.r="i"; string.d="u"; string.in="i"; string.t="enni"; string.p="e";
rows.CountSlice=1;

Sor=aktuális.Hozzáadás(); // perelman, oganesyan
string.StarOk="*n";

rows.CountSlice=0;

Sor=aktuális.Hozzáadás(); // Bárány
string.StarOk="in";
string.r="a"; string.d="y"; line.in="a"; string.t="th"; string.p="e";
rows.CountSlice=0;

ElseIf Gender="F" Akkor
string=current.Add(); // Szklodovskaya
line.StarOk="th";
string.r="hoppá"; string.d="hoppá"; line.in="th"; string.t="hoppá"; string.p="hoppá";
rows.CountSlice=2;

Sor=aktuális.Hozzáadás(); // ivanova
string.StarOk="*a";
string.r="hoppá"; string.d="hoppá"; line.in="y"; string.t="hoppá"; string.p="hoppá";
rows.CountSlice=1;
EndIf;

Ha nem EmptyString(Vezetéknév) Akkor
pb=Jobb(Vezetéknév,3); count="StarOk"; // nézz utána
newLastName=Vezetéknév; // ha semmi nem változik, hát legyen
stro=current.Find(pb, count);
Ha szigorúan<>


Másképp
// szigorúan nem találja az utolsó három karakter, csak az utolsónál keresünk két karaktert
pb=Jobb(Vezetéknév,2);
stro=current.Find(pb, count);
Ha szigorúan<>Undefined Akkor
Stem=Lev(Vezetéknév, StrLength(Vezetéknév)-stro.CountSlice);
newLastName=Base+Abb(stro[pad]);
Egyébként // ha kettőt nem találunk, akkor egyet keresünk
pb="*"+Jobbra(pb,1);
stro=current.Find(pb, count);
Ha szigorúan<>
Stem=Lev(Vezetéknév, StrLength(Vezetéknév)-stro.CountSlice);
newLastName=Base+Abb(stro[pad]);


stro=current.Find(pb, count);
Ha szigorúan<>Undefined Majd // látás alapján találva
Stem=Lev(Vezetéknév, StrLength(Vezetéknév)-stro.CountSlice);
newLastName=Base+Abb(stro[pad]);
EndIf;
EndIf;
EndIf;
EndIf;
Másképp
newLastname="";
EndIf;

// ======== feldolgozza a nevet ==========
// töltse ki a táblázatot a névhez tartozó adatokkal
aktuális.Clear();

Ha Gender="M" Akkor
// kivételek kezelése
If Name="oroszlán" Then Name="oroszlán" EndIf;
If Name="paul" Then Name="paul" EndIf;

Sor=aktuális.Hozzáadás(); // Szergej
string.starok="*th";
string.r="i"; string.d="u"; string.in="i"; string.t="enni"; string.p="e";
sor.cutoff=1;

Sor=aktuális.Hozzáadás(); // Ivan + Lev + Pavel
string.starok="*s";
string.r="a"; string.d="y"; line.in="a"; string.t="ohm"; string.p="e";
sor.cutoff=0;

Sor=aktuális.Hozzáadás(); // nikita
string.starok="*a";

sor.cutoff=1;

Sor=aktuális.Hozzáadás(); // íj
string.starok="ka";

sor.cutoff=1;

Sor=aktuális.Hozzáadás(); // Jeremiás
string.starok="ia";

sor.cutoff=1;

Sor=aktuális.Hozzáadás(); // ilya
string.starok="*i";

sor.cutoff=1;

Sor=aktuális.Hozzáadás(); // igor
string.starok="*ь";
string.r="i"; string.d="u"; string.in="i"; string.t="enni"; string.p="e";
sor.cutoff=1;

ElseIf Gender="F" Akkor
// kivételek kezelése
//If Name="olga" Then Name="olga" EndIf;

Sor=aktuális.Hozzáadás(); // Irina
string.starok="*a";
string.r="s"; string.d="e"; line.in="y"; string.t="hoppá"; string.p="e";
sor.cutoff=1;

Sor=aktuális.Hozzáadás(); // Inga, Olga
string.starok="ha";
string.r="és"; string.d="e"; line.in="y"; string.t="hoppá"; string.p="e";
sor.cutoff=1;

Sor=aktuális.Hozzáadás(); // észter
string.starok="*ь";
string.r="és"; string.d="és"; line.in="b"; string.t="w"; string.p="és";
sor.cutoff=1;

Sor=aktuális.Hozzáadás(); // maria
string.starok="ia";
string.r="és"; string.d="és"; line.in="u"; string.t="her"; string.p="és";
sor.cutoff=1;

Sor=aktuális.Hozzáadás(); // Sophia
string.starok="*i";
string.r="és"; string.d="e"; line.in="u"; string.t="her"; string.p="e";
sor.cutoff=1;
EndIf;

// a táblázat megtelt. számolja meg az utolsó 2 betűt, és keresse meg őket
Ha nem EmptyString(Name) Akkor
pb=Jobb(név,2); count="StarOk"; // nézz utána
newName=Név; // ha semmi nem változik, hát legyen
stro=current.Find(pb, count);
Ha szigorúan<>Undefined Akkor // azonnal szigorúnak talált


Egyébként // nem található szigorúan, csak az utolsót keressük
pb="*"+Jobbra(pb,1);
stro=current.Find(pb, count);
Ha szigorúan<>Undefined Akkor // megtalálta az utolsó
Base=Lev(Név, StrLength(Name)-str. Count Slice);
newName=alap+abbrlp(stro[pad]);
Egyébként // az utolsó nem található, betűket keresünk típus szerint
pb="*"+?(Find(Vowers,Right(pb,1))=0,"s","g");
stro=current.Find(pb, count);
Ha szigorúan<>Undefined=1 Ekkor // típus szerint található
Base=Lev(Név, StrLength(Name)-str. Count Slice);
newName=alap+abbrlp(stro[pad]);
EndIf;
EndIf;
EndIf;
Másképp
newName="";
EndIf;

// ======== Feldolgozzuk a patronimát, itt könnyebb ==========
aktuális.Clear();

Ha Gender="M" Akkor
string=current.Add();
string.r="a"; string.d="y"; line.in="a"; string.t="enni"; string.p="e";
sor.cutoff=0;
ElseIf Gender="F" Akkor
string=current.Add();
string.r="s"; string.d="e"; line.in="y"; string.t="hoppá"; string.p="e";
sor.cutoff=1;
EndIf;
Ha nem EmptyString(Patronymic) Akkor
Base \u003d Leo (Patronymic, StrLength (Patronymic) - aktuális. Szeletek száma);
newPatronymic name = Base + Rövidített LP (aktuális [pad]);
Másképp
új apanév="";
EndIf;

IfOnlyInitials Akkor
newName=Oroszlán(újNév,1); newPatronymic=Lion(newPatronymic,1);
EndIf;

// az első betűk nagybetűvé tétele
newLastName=ВReg(Lev(újVezetéknév,1))+Mid(újVezetéknév,2);
newName=ВReg(Lev(újNév,1))+Átlag(újNév,2);
newPatronymic=ВReg(Lev(newPatronymic,1))+Mid(newPatronymic,2);

// és most minden együtt van
If InitialsOnly Akkor // ha a kezdőbetűk formátuma meg van adva
newName=newLastName+" "+newName+pSeparator+newPatronymic+pSeparator;
Másképp
newName=újVezetéknév+" "+újNév+" "+újPatronymic;
EndIf;

If Find(teljes név, ".") Akkor // Abban az esetben, ha a bemeneti paraméter Vezetéknév kezdőbetűkkel. Ne érintse meg a kezdőbetűket
newName = újVezetéknév + " " + TReg(Keresztnév) + Treg(Apanév);
EndIf;

Return SokrLP (új teljes név);
EndFunctions

Az 1C-ben végzett munka során a felhasználó szembesül azzal a kérdéssel, hogy az alkalmazott vezetéknevét vagy beosztását a dokumentumok nyomtatott formáiban leírják, vagyis olyan helyzettel, amikor szükség van a vezetéknevek elválasztására.

A teljes név deklinációjához az 1C programokban egy külső összetevőt biztosítanak - NameDecl.dll, amely tartalmazza a deklinációs függvényt. Az ITS lemezre viheti, és a telepített 1C-bin platformmal rendelkező mappába másolva regisztrálhatja az operációs rendszerben. Ez az eljárás a resvr32 NameDecl.dll paranccsal hajtható végre (a rendszergazdai fiók alatt). Ehhez meg kell hívnia a "Futtatás" parancsot a "Start" gombon keresztül a keresés vagy a Windows + R billentyűparancs segítségével.

1. ábra Keresőablak. A "Futtatás" parancs keresése

A megjelenő ablakban írja be a resvr32.exe parancsot, és adja meg a beépülő modul könyvtárának elérési útját a "Tallózás" gombbal.

2. ábra „Futtatás” parancsablak

Az OK gombra kattintás után megjelenik egy üzenet, amely jelzi, hogy a könyvtár sikeresen regisztrálva lett.

3. ábra Üzenetablak

A deklinációs módszer leírása az 1C-ben

Elutasítás (név, eset, nem) a paraméterek szerint:

• Teljes név (kötelező), típus - string
• Case (kötelező), típus - szám

Azt az esetet, amikor a teljes nevet be kell írni, egy 1-től 6-ig terjedő szám adja.

Esettábla: kérdések, elöljárószavak és jelentésük a programkódban

Előfordul, hogy kétértelmű helyzet adódik, amikor a programnak meg kell határoznia a vezetéknév nemét, például Sigida, Chepko, Sushko, Oganezyan stb.

Ebben az esetben egy további paramétert használnak:

• Nem (nem kötelező), típus - szám

Megmutatja, hogy elutasítja-e a vezetéknevet. Más esetekben ez a paraméter kimarad, vagy a 0 („auto”) értéket használja, mert a nem helytelen feltüntetése befolyásolhatja a helyes deklinációt. Íme a lehetséges értékek: 0 - automatikus, 1 - férfi, 2 - nő.

Szolgáltatás "Egy esetenkénti visszautasítás"

Az 1C 8.3 programok már tartalmaznak egy szolgáltatást a munkavállalók vagy a szerződő felek adatainak a dokumentumban használt eseteknek megfelelően történő visszavonására.

1. töredék

#Region ProgrammingInterface // Dönthető név // Csak Windows operációs rendszeren való munkához. // // Paraméterek: // Teljes név - Karakterlánc - A deklináció teljes nevét tartalmazó karakterlánc. // Case - Number - az az eset, amikor el kell utasítani az objektum reprezentációját. // 1 - Névnév. // 2 - Genitív. // 3 - Dative. // 4 - Akuzatív. // 5 - Kreatív. // 6 - Előszó. // Objektum - DeclensionSubject - Hivatkozás az objektumra, amelynek attribútuma ragozott // Nem - Szám - Szám - a fizikai vezető neme, // 1 - férfi, // 2 - nő. // // Visszatérési érték: // Karakterlánc - A teljes név deklinációjának eredménye az esetben. // Funkció DeclineFullName(Name, Case, Object = Undefined, Gender = Undefined) Export // Elutasítja az objektum reprezentációját. Függvény InflecRepresentation(ábrázolás, eset, objektum = Undefined) Export // Elvégzi a Declension alrendszer és az űrlap összekapcsolásához szükséges műveleteket.

4. ábra Konfigurátor ablak

2. töredék

// Az objektum reprezentációjának elutasítása. Funkció DeclineView(View, Case, Object = Undefined) Export Return Decline(View, Case, Object); Funkció vége // Olyan műveleteket hajt végre az űrlapon, amelyek a Declension alrendszer csatlakoztatásához szükségesek. OnCreateAtServerProcedure(Form, View, FormMasterAttributeName = "Object") Export // A felügyelt objektum űrlap OnWriteAtServer eseménykezelője a deklináláshoz OnWriteAtServerProcedure(Object, Form, View, ThisName = False , Gender = Undefined) Export // Beállítja a Declension szolgáltatás elérhetőségének jelzőjét Procedure SetInclinationServiceAccessibility(Availability) Export SetPrivilegedMode(True); CurrentParameters = New Match(SessionParameters.ClientParametersOnServer); CurrentParameters.Insert("Elérhető DeclinationService", Elérhetőség); SessionParameters.ClientParametersOnServer = NewFixedMatch(CurrentParameters); SetPrivilegedMode(False); Vége eljárás

5. ábra Az Elutasítás funkció használata

A dokumentumban szereplő adatok felhasználásával, amelyek abból a referenciakönyvből vannak kiválasztva, amelyben névelőben szerepelnek, ezek a dokumentum nyomtatott formában, a kívánt deklinációval jelennek meg.

Tekintsük a deklinációs függvényt egy szerződés példájával az 1C: Számvitel 3.0-ban. (1C: Enterprise 8.3). Előírja a teljes név és a beosztás lefordítását.

6. ábra Szerződés űrlap ablak. A vezetéknév és a beosztás elhatározásának beállítása

A program automatikusan beírja a megfelelő verziót a nyomtatott űrlapba.

7. ábra Programablak - "Eltérés esetenként"

Az esetmeghatározás példája a foglalkoztatási rendeletben látható. Az alkalmazotti igazolványon a teljes neve a Nominative-ben, nyomtatott formában pedig a Genitive-ben szerepel.

8. ábra Példa a teljes név ragozására nyomtatott formában "Munkavállalási megbízás"

Az 1C program, figyelembe véve a jogszabályok és szabványok követelményeit, lehetővé teszi, hogy megfeleljen a dokumentáció feldolgozására és a nyomtatott űrlapok előállítására vonatkozó jóváhagyott eljárásnak.

Az ügyek elutasítása az üzleti forgalom normáiból is adódik, amelyek előírják, hogy minden dokumentumot nemcsak szakszerűen, hanem esztétikailag is szakszerűen kell elkészíteni, ami tükrözi a szervezet állapotát.

Ezen túlmenően, az ilyen funkciók használata a programban, mint az automatikus visszavonás, jelentősen csökkenti a hibák valószínűségét a dokumentumok elkészítésében.