/[papo]/papo/forms/components/nameSearch.nebc
ViewVC logotype

Diff of /papo/forms/components/nameSearch.nebc

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mhepp, Thu Apr 24 21:00:27 2003 UTC revision 1.2 by styxman, Thu May 15 14:00:49 2003 UTC
# Line 1  Line 1 
1              
2  <!-- Componente de NOMBRES -->  <!-- Componente de NOMBRES -->
3  <neb:Vars>  <neb:Vars>
4  $block  $block
# Line 15  $idField Line 15  $idField
15    {$uniqed++}    {$uniqed++}
16  </neb:Block>  </neb:Block>
17    
18    
19  <!-- triggers  -->  <!-- triggers  -->
20    
21  <!-- <trigger name="neb:'callFormTrigger_'.$uniqed" type="NAMED"> -->  <!-- <trigger name="neb:'callFormTrigger_'.$uniqed" type="NAMED"> -->
22  <!--   runForm(<neb:Inline>"'".$callForm."'"</neb:Inline>  ) -->  <!--   runForm(<neb:Inline>"'".$callForm."'"</neb:Inline>  ) -->
23  <!--   </trigger> -->  <!--   </trigger> -->
# Line 27  $idField Line 27  $idField
27     <neb:Inline>$block</neb:Inline>.firstRecord()     <neb:Inline>$block</neb:Inline>.firstRecord()
28     for index in range(<neb:Inline>$block</neb:Inline>.getRecordCount()):     for index in range(<neb:Inline>$block</neb:Inline>.getRecordCount()):
29          if str(<neb:Inline>$block</neb:Inline>.<neb:Inline>$idEntry</neb:Inline>) != "":          if str(<neb:Inline>$block</neb:Inline>.<neb:Inline>$idEntry</neb:Inline>) != "":
30              <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.processRollback()              <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.clear()
31              <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.initQuery()              <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.initQuery()
32              <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.idEntry= str(<neb:Inline>$block</neb:Inline>.<neb:Inline>$idEntry</neb:Inline>)              <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.idEntry= str(<neb:Inline>$block</neb:Inline>.<neb:Inline>$idEntry</neb:Inline>)
33              <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.processQuery()              <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.processQuery()
# Line 48  $idField Line 48  $idField
48                # busy clock                # busy clock
49                form._object.dispatchEvent(GFEvent('beginWAIT'))                form._object.dispatchEvent(GFEvent('beginWAIT'))
50                setStatusText('buscando...')                setStatusText('buscando...')
51                  
52                def setAddressType (recNo):                def setAddressType (recNo):
53                  if recNo>=0:                  if recNo>=0:
54                    <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.jumpRecord (recNo)                    <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.jumpRecord (recNo)
# Line 56  $idField Line 56  $idField
56                    <neb:Inline>$block</neb:Inline>.<neb:Inline>$nameEntry</neb:Inline>= str(<neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.nameEntry)                    <neb:Inline>$block</neb:Inline>.<neb:Inline>$nameEntry</neb:Inline>= str(<neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.nameEntry)
57    
58                # look for the name...                # look for the name...
59                <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.processRollback ()                <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.clear ()
60                <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.initQuery ()                <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.initQuery ()
61                <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.nameEntry= str(<neb:Inline>$block</neb:Inline>.addressTypeNameEntry)+'%'                <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.nameEntry= str(<neb:Inline>$block</neb:Inline>.addressTypeNameEntry)+'%'
62                <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.processQuery ()                <neb:Inline>'_TypeResultBlock_'.$uniqed</neb:Inline>.processQuery ()
# Line 83  $idField Line 83  $idField
83          x="78" y="4" width="20"  hidden=""/>          x="78" y="4" width="20"  hidden=""/>
84      </block>      </block>
85   <trigger type="Pre-Focusin" src="neb:'typeNameSearchTrigger_'.$uniqed"/>   <trigger type="Pre-Focusin" src="neb:'typeNameSearchTrigger_'.$uniqed"/>
 <!-- /Componente de NOMBRES -->  
86    <!-- /Componente de NOMBRES -->

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26