API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 11th, 2016
134
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PowerBuilder 9.61 KB | None | 0 0
raw download clone embed print report
  1. integer li_rc
  2. datetime ld_maso, ld_mleko
  3. datetime ld_default_datum = datetime('1.1.1900 00:00:00')
  4. ds_porizeni lds_pod
  5. integer ll_volba_msb
  6. li_rc = 1
  7. datetime ld_pom_maso, ld_pom_mleko
  8.  
  9.  
  10.  
  11.  
  12. choose case as_akce    
  13.    
  14.     case "@OK", "HROMADNE", "@NEW"      // Po kliknutí na OK, Rozkopírovat a Přidat 1 se otevře messagebox  
  15.         if idw_riz.getrow() > 0 then
  16.            
  17.         ld_maso =  datetime(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_maso"))     // Hodnota zmena_maso (největší datum ochranné lhůty pro maso, hodnota je nastavena od d3614)
  18.         ld_mleko = datetime(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_mleko"))        // Hodnota zmena_mleko (největší datum ochranné lhůty pro mléko, hodnota je nastavena od d3614)
  19.        
  20.         idw_riz.uf_getdspod( idw_riz.getrow() ,"d3614", lds_pod)                                // lds_pod
  21.         if isvalid(lds_pod) then    // Testování, zda je lds_pod validní    
  22.        
  23.             // Pokud není vyplněn lék, nebo ochranná lhůta, hláška se nezobrazuje
  24.             if not isnull(lds_pod.uf_getitem(lds_pod.getrow(), "c3611kodle")) and not isnull(lds_pod.uf_getitem(lds_pod.getrow(), "c3611nazle")) then
  25.                 if not isnull(lds_pod.uf_getitem(lds_pod.getrow(), "c3611ochlm")) or not isnull(lds_pod.uf_getitem(lds_pod.getrow(), "c3611ochll")) then
  26.                                
  27.                 /*
  28.                 Pokud se zvětší ochranná lhůta pro maso, volá se messagebox který o změně informuje.
  29.                 Po kliknutí na tlačítko OK se nová lhůta uloží.
  30.                 Po kliknutí na tlačítko Strorno - storno.
  31.                 Po kliknutí na tlačítko Pokračovat se nová hlůta neuloží.
  32.                 */ 
  33.                 if ld_maso > datetime(idw_riz.uf_getitem(idw_riz.getrow(), "d3613datom")) and isnull(ld_mleko)then
  34.                     ll_volba_msb = integer(messagebox( "Uložit?", "Nová ochranná lhůta masa je '" + nulltoempty(String(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_maso"))) +  "'. Má se změnit?", "stopsign!", "$dOK|Storno|Pokračovat", 1))
  35.  
  36.                     choose case ll_volba_msb
  37.                            
  38.                         case 1 
  39.                             idw_riz.setitem(idw_riz.getrow(), "d3613datom", datetime(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_maso")))
  40.                             li_rc = 1
  41.                         case 2
  42.                             li_rc = -1
  43.                         case 3 
  44.                             li_rc = 1
  45.                     end choose
  46.        
  47.                 /*
  48.                 Pokud se zvětší ochranná lhůta pro mléko, volá se messagebox který o změně informuje.
  49.                 Po kliknutí na tlačítko OK se nová lhůta uloží.
  50.                 Po kliknutí na tlačítko Strorno - storno.
  51.                 Po kliknutí na tlačítko Pokračovat se nová hlůta neuloží.
  52.                 */ 
  53.                 elseif ld_mleko > datetime(idw_riz.uf_getitem(idw_riz.getrow(), "d3613datol")) and isnull(ld_maso) then
  54.                     ll_volba_msb = integer(messagebox( "Uložit?", "Nová ochranná lhůta mléka je '" + nulltoempty(String(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_mleko"))) +  "'. Má se změnit?", "stopsign!", "$dOK|Storno|Pokračovat", 1))
  55.  
  56.                     choose case ll_volba_msb
  57.                            
  58.                         case 1 
  59.                             idw_riz.setitem(idw_riz.getrow(), "d3613datol", datetime(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_mleko")))
  60.                             li_rc = 1
  61.                         case 2
  62.                             li_rc = -1
  63.                         case 3 
  64.                             li_rc = 1
  65.                     end choose
  66.                    
  67.                 /*
  68.                 Pokud se zvětší ochranná lhůta pro maso, ale ne pro mléko, volá se messagebox který o změně informuje.
  69.                 Po kliknutí na tlačítko OK se nová lhůta uloží.
  70.                 Po kliknutí na tlačítko Strorno - storno.
  71.                 Po kliknutí na tlačítko Pokračovat se nová hlůta neuloží.
  72.                 */ 
  73.                
  74.                 ld_pom_maso = datetime(idw_riz.uf_getitem(idw_riz.getrow(), "d3613datom"))
  75.                
  76.                 elseif ld_maso > ld_pom_maso and ld_mleko = datetime(idw_riz.uf_getitem(idw_riz.getrow(), "d3613datol")) then
  77.                     ll_volba_msb = integer(messagebox( "Uložit?", "Nová ochranná lhůta masa je '" + nulltoempty(String(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_maso"))) + "'. Má se změnit?", "stopsign!", "$dOK|Storno|Pokračovat", 1))          
  78.                      
  79.                     choose case ll_volba_msb
  80.                            
  81.                         case 1 
  82.                             idw_riz.setitem(idw_riz.getrow(), "d3613datom", datetime(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_maso")))
  83.                             li_rc = 1
  84.                         case 2
  85.                             li_rc = -1
  86.                         case 3 
  87.                             li_rc = 1
  88.                     end choose 
  89.                    
  90.                 /*
  91.                 Pokud se zvětší ochranná lhůta pro mléko, ale ne pro maso, volá se messagebox který o změně informuje.
  92.                 Po kliknutí na tlačítko OK se nová lhůta uloží.
  93.                 Po kliknutí na tlačítko Strorno - storno.
  94.                 Po kliknutí na tlačítko Pokračovat se nová hlůta neuloží.
  95.                 */ 
  96.                
  97.                 ld_pom_mleko = datetime(idw_riz.uf_getitem(idw_riz.getrow(), "d3613datol"))
  98.                
  99.                 elseif ld_maso = datetime(idw_riz.uf_getitem(idw_riz.getrow(), "d3613datom")) and ld_mleko > ld_pom_mleko then
  100.                     ll_volba_msb = integer(messagebox( "Uložit?", "Nová ochranná lhůta mléka je '" + nulltoempty(String(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_mleko"))) + "'. Má se změnit?", "stopsign!", "$dOK|Storno|Pokračovat", 1))           
  101.                      
  102.                     choose case ll_volba_msb
  103.                            
  104.                         case 1 
  105.                             idw_riz.setitem(idw_riz.getrow(), "d3613datol", datetime(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_mleko")))
  106.                             li_rc = 1
  107.                         case 2
  108.                             li_rc = -1
  109.                         case 3 
  110.                             li_rc = 1
  111.                     end choose     
  112.                    
  113.                    
  114.                    
  115.                 /*
  116.                 Pokud se zvětší ochranná lhůta pro maso i pro mléko, volá se messagebox který o změně informuje.
  117.                 Po kliknutí na tlačítko OK se nová lhůta uloží.
  118.                 Po kliknutí na tlačítko Strorno - storno.
  119.                 Po kliknutí na tlačítko Pokračovat se nová hlůta neuloží.
  120.                 */
  121.                 elseif ld_maso > datetime(idw_riz.uf_getitem(idw_riz.getrow(), "d3613datom")) and ld_mleko > datetime(idw_riz.uf_getitem(idw_riz.getrow(), "d3613datol")) then
  122.                     ll_volba_msb = integer(messagebox( "Uložit?", "Nová ochranná lhůta masa je '" + nulltoempty(String(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_maso"))) +  "' a mléka '" + nulltoempty(String(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_mleko"))) + "'. Má se změnit?", "stopsign!", "$dOK|Storno|Pokračovat", 1))             
  123.                      
  124.                     choose case ll_volba_msb
  125.                            
  126.                         case 1 
  127.                             idw_riz.setitem(idw_riz.getrow(), "d3613datom", datetime(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_maso")))
  128.                             idw_riz.setitem(idw_riz.getrow(), "d3613datol", datetime(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_mleko")))
  129.                             li_rc = 1
  130.                         case 2
  131.                             li_rc = -1
  132.                         case 3 
  133.                             li_rc = 1
  134.                     end choose
  135.                    
  136.                 /*
  137.                 Pokud je vyplněna ochranná lhůta pouze pro maso
  138.                 */ 
  139.                 elseif not isnull(lds_pod.uf_getitem(lds_pod.getrow(), "c3611ochlm")) and isnull(lds_pod.uf_getitem(lds_pod.getrow(), "c3611ochll")) then
  140.                    
  141.                 ll_volba_msb = integer(messagebox( "Uložit?", "Nová ochranná lhůta masa je '" + nulltoempty(String(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_maso"))) + ". Má se změnit?", "stopsign!", "$dOK|Storno|Pokračovat", 1))     
  142.                
  143.                     choose case ll_volba_msb
  144.                        
  145.                         case 1 
  146.                             idw_riz.setitem(idw_riz.getrow(), "d3613datom", datetime(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_maso")))
  147.                             li_rc = 1
  148.                         case 2
  149.                             li_rc = -1
  150.                         case 3 
  151.                             li_rc = 1
  152.                     end choose
  153.                    
  154.                 /*
  155.                 Pokud je vyplněna ochranná lhůta pouze pro mléko
  156.                 */ 
  157.                 elseif isnull(lds_pod.uf_getitem(lds_pod.getrow(), "c3611ochlm")) and not isnull(lds_pod.uf_getitem(lds_pod.getrow(), "c3611ochll")) then
  158.                    
  159.                 ll_volba_msb = integer(messagebox( "Uložit?", "Nová ochranná lhůta mléka je '" + nulltoempty(String(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_mleko"))) + ". Má se změnit?", "stopsign!", "$dOK|Storno|Pokračovat", 1))      
  160.                
  161.                     choose case ll_volba_msb
  162.                        
  163.                         case 1 
  164.                             idw_riz.setitem(idw_riz.getrow(), "d3613datol", datetime(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_mleko")))
  165.                             li_rc = 1
  166.                         case 2
  167.                             li_rc = -1
  168.                         case 3 
  169.                             li_rc = 1
  170.                     end choose
  171.                
  172.                
  173.                 /*
  174.                 Pokud není ochranná lhůta u masa i u mléka vyplněna (je rovna null) opět vyskočí messagebox
  175.                 */
  176.                 elseif isnull(idw_riz.uf_getitem(idw_riz.getrow(), "d3613datom")) and isnull(idw_riz.uf_getitem(idw_riz.getrow(), "d3613datol")) then
  177.                    
  178.                    
  179.                     ll_volba_msb = integer(messagebox( "Uložit?", "Nová ochranná lhůta masa je '" + nulltoempty(String(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_maso"))) +  "' a mléka '" + nulltoempty(String(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_mleko"))) + "'. Má se změnit?", "stopsign!", "$dOK|Storno|Pokračovat", 1))       
  180.                
  181.                     choose case ll_volba_msb
  182.                        
  183.                         case 1 
  184.                             idw_riz.setitem(idw_riz.getrow(), "d3613datom", datetime(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_maso")))
  185.                             idw_riz.setitem(idw_riz.getrow(), "d3613datol", datetime(idw_riz.uf_getitem(idw_riz.getrow(), "zmena_mleko")))
  186.                             li_rc = 1
  187.                         case 2
  188.                             li_rc = -1
  189.                         case 3 
  190.                             li_rc = 1
  191.                     end choose
  192.  
  193.                
  194.                 // Pokud je lhůta null, nastavíme ld_mleko/ld_maso null, nastavíme datum
  195.                 else
  196.                    
  197.                     if isnull(idw_riz.uf_getitem(idw_riz.getrow(), "d3613datol")) and not isnull(ld_mleko) then
  198.                         idw_riz.setitem(idw_riz.getrow(), "d3613datol", ld_mleko)
  199.                     end if
  200.                     if isnull(idw_riz.uf_getitem(idw_riz.getrow(), "d3613datom")) and not isnull(ld_maso) then
  201.                         idw_riz.setitem(idw_riz.getrow(), "d3613datom", ld_maso)
  202.                     end if
  203.                     li_rc = 1
  204.                
  205.             end if                     
  206.         end if
  207.  
  208. end if
  209.     else
  210.     // Pokud neexistuje lds_pod, upozorni  
  211.     app.uf_msg( 'lds_pod neexistuje', 12)
  212.     end if     
  213.  
  214.     // Po kliknutí na "Rozkopírovat" ... 
  215.     if li_rc = 1 and as_akce = "HROMADNE"  then
  216.             if idw_riz.uf_acceptrow( ) then li_rc = of_hromadne( )
  217.             end if 
  218.        
  219.     end if
  220. end choose
  221. // Volání předka
  222. if li_rc = 1 then
  223.     li_rc = super::event e_akce_run(as_akce,as_stav, as_param)
  224. end if
  225.  
  226. return li_rc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!