Pom22: Porovnání verzí
Z Prirucky
| Řádek 10: | Řádek 10: | ||
| '''3. V případě nejistoty konzultujte použití s tvůrci programu.''' | | '''3. V případě nejistoty konzultujte použití s tvůrci programu.''' | ||
|} | |} | ||
[[Image: Parametry-byly-nastaveny-jednorazova-funkce-50.png]] | |||
<!-- by Tomáš V., 07/2016 | |||
las_Par[]={"*pomucky_privyd","*pomucky_cispr","*pomucky_sklady","*pomucky_cena","*pomucky_exp","*pomucky_ediper","*pomucky_zpvyd","pomucky_evidvel","pomucky_beznar"} | |||
if not gf_Modul("POMUCKY") then | |||
Oznameni("Oznámení","Nemáte přístup k modulu 'Pracovní pomůcky'. Nastavení se neprovede.") | |||
return | |||
end if | |||
if Zakaznik("BONATRANS") then | |||
las_Hod[1]="n" //*pomucky_privyd | |||
las_Hod[2]="a" //*pomucky_cispr | |||
las_Hod[3]="a" //*pomucky_sklady | |||
las_Hod[4]="n" //*pomucky_cena | |||
las_Hod[5]="n" //*pomucky_exp | |||
las_Hod[6]="n" //*pomucky_ediper | |||
las_Hod[7]="1" //*pomucky_zpvyd | |||
las_Hod[8]="n" //pomucky_evidvel | |||
las_Hod[9]="n" //pomucky_beznar | |||
elseif Zakaznik("GILLETTE") then | |||
las_Hod[1]="n" //*pomucky_privyd | |||
las_Hod[2]="n" //*pomucky_cispr | |||
las_Hod[3]="n" //*pomucky_sklady | |||
las_Hod[4]="n" //*pomucky_cena | |||
las_Hod[5]="n" //*pomucky_exp | |||
las_Hod[6]="n" //*pomucky_ediper | |||
las_Hod[7]="2" //*pomucky_zpvyd | |||
las_Hod[8]="a" //pomucky_evidvel | |||
las_Hod[9]="n" //pomucky_beznar | |||
elseif Zakaznik("SAINT-GOBAIN") then | |||
las_Hod[1]="n" //*pomucky_privyd | |||
las_Hod[2]="n" //*pomucky_cispr | |||
las_Hod[3]="n" //*pomucky_sklady | |||
las_Hod[4]="n" //*pomucky_cena | |||
las_Hod[5]="n" //*pomucky_exp | |||
las_Hod[6]="n" //*pomucky_ediper | |||
las_Hod[7]="1" //*pomucky_zpvyd | |||
las_Hod[8]="a" //pomucky_evidvel | |||
las_Hod[9]="n" //pomucky_beznar | |||
elseif Zakaznik("DSV") then //TV 27.7.2012 | |||
update atributy set | |||
dddw='dddw_pomucky', | |||
datacolumn='cis_pomucky', | |||
displaycolumn='zobr_text', | |||
printcolumn='zobr_text' | |||
where cis_atributu=67; | |||
if SQLCA.SQLCode<0 then | |||
Oznameni("SQL Chyba - update atributy (67)",string(SQLCA.SQLDBCode)+" - "+SQLCA.SQLErrText) | |||
end if | |||
las_Hod[1]="a" //*pomucky_privyd | |||
las_Hod[2]="n" //*pomucky_cispr | |||
las_Hod[3]="a" //*pomucky_sklady | |||
las_Hod[4]="n" //*pomucky_cena | |||
las_Hod[5]="n" //*pomucky_exp | |||
las_Hod[6]="n" //*pomucky_ediper | |||
las_Hod[7]="1" //*pomucky_zpvyd | |||
las_Hod[8]="a" //pomucky_evidvel | |||
las_Hod[9]="a" //pomucky_beznar | |||
else | |||
las_Hod[1]="n" //*pomucky_privyd | |||
las_Hod[2]="n" //*pomucky_cispr | |||
las_Hod[3]="n" //*pomucky_sklady | |||
las_Hod[4]="n" //*pomucky_cena | |||
las_Hod[5]="n" //*pomucky_exp | |||
las_Hod[6]="n" //*pomucky_ediper | |||
las_Hod[7]="1" //*pomucky_zpvyd | |||
las_Hod[8]="a" //pomucky_evidvel | |||
las_Hod[9]="a" //pomucky_beznar | |||
end if | |||
for ll_Ind=1 to UpperBound(las_Par[]) | |||
if left(las_Par[ll_Ind],1)="*" then li_SysKod=0 else li_SysKod=1 | |||
if parametr_pis(las_Par[ll_Ind],las_Hod[ll_Ind]) = false then | |||
DBRollBack() | |||
return | |||
end if | |||
DBCommit() | |||
next | |||
--> | |||
Verze z 29. 7. 2016, 11:58
Nastavení parametrů pro pracovní pomůcky (jednorázová funkce 50)
|
| 1. Před spuštěním vybrané funkce se ujistěte o vhodnosti použití pro vaše konkrétní podmínky. |
| 2. Všechny jednorázové funkce jsou více či méně rizikové. Rizika vyplývají především z hromadné změny dat v databázi. |
| 3. V případě nejistoty konzultujte použití s tvůrci programu. |
