Correzioni all' editor dei form
git-svn-id: svn://10.65.10.50/trunk@2650 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
		
							parent
							
								
									83ec7ad783
								
							
						
					
					
						commit
						1fe163e2b4
					
				@ -667,9 +667,9 @@ bool TForm_editor::ask_profile()
 | 
			
		||||
        rfr.zero(); 
 | 
			
		||||
        rfr.put("TIPOPROF", fform);
 | 
			
		||||
        rfr.put("CODPROF",  format("%05ld",fcode));
 | 
			
		||||
        if (rfr.read() == NOERR)
 | 
			
		||||
        if (rfr.read(_isgteq) == NOERR)
 | 
			
		||||
        {
 | 
			
		||||
          for ( ; atol(rfr.get("CODPROF")) == fcode && rfr.get("TIPOPROF") == fform; rfr.next())
 | 
			
		||||
          for ( ; rfr.status() == NOERR && atol(rfr.get("CODPROF")) == fcode && rfr.get("TIPOPROF") == fform; rfr.next())
 | 
			
		||||
            rfr.remove();
 | 
			
		||||
        }
 | 
			
		||||
        _m->set(F_CODE,"");
 | 
			
		||||
 | 
			
		||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user