FiveTech Software tech support forums

Code: Select all  Expand view

#include "fivewin.ch"
#include "autoget.ch"

static aCountries := {;
  {"Afghanistan", 'AF'},;
  {"Åland Islands", 'AX'},;
  {"Albania", 'AL'},;
  {"Algeria", 'DZ'},;
  {"American Samoa", 'AS'},;
  {"AndorrA", 'AD'},;
  {"Angola", 'AO'},;
  {"Anguilla", 'AI'},;
  {"Antarctica", 'AQ'},;
  {"Antigua and Barbuda", 'AG'},;
  {"Argentina", 'AR'},;
  {"Armenia", 'AM'},;
  {"Aruba", 'AW'},;
  {"Australia", 'AU'},;
  {"Austria", 'AT'},;
  {"Azerbaijan", 'AZ'},;
  {"Bahamas", 'BS'},;
  {"Bahrain", 'BH'},;
  {"Bangladesh", 'BD'},;
  {"Barbados", 'BB'},;
  {"Belarus", 'BY'},;
  {"Belgium", 'BE'},;
  {"Belize", 'BZ'},;
  {"Benin", 'BJ'},;
  {"Bermuda", 'BM'},;
  {"Bhutan", 'BT'},;
  {"Bolivia", 'BO'},;
  {"Bosnia and Herzegovina", 'BA'},;
  {"Botswana", 'BW'},;
  {"Bouvet Island", 'BV'},;
  {"Brazil", 'BR'},;
  {"British Indian Ocean Territory", 'IO'},;
  {"Brunei Darussalam", 'BN'},;
  {"Bulgaria", 'BG'},;
  {"Burkina Faso", 'BF'},;
  {"Burundi", 'BI'},;
  {"Cambodia", 'KH'},;
  {"Cameroon", 'CM'},;
  {"Canada", 'CA'},;
  {"Cape Verde", 'CV'},;
  {"Cayman Islands", 'KY'},;
  {"Central African Republic", 'CF'},;
  {"Chad", 'TD'},;
  {"Chile", 'CL'},;
  {"China", 'CN'},;
  {"Christmas Island", 'CX'},;
  {"Cocos (Keeling) Islands", 'CC'},;
  {"Colombia", 'CO'},;
  {"Comoros", 'KM'},;
  {"Congo", 'CG'},;
  {"Congo, The Democratic Republic of the", 'CD'},;
  {"Cook Islands", 'CK'},;
  {"Costa Rica", 'CR'},;
  {"Cote D'Ivoire", 'CI'},;
  {"Croatia", 'HR'},;
  {"Cuba", 'CU'},;
  {"Cyprus", 'CY'},;
  {"Czech Republic", 'CZ'},;
  {"Denmark", 'DK'},;
  {"Djibouti", 'DJ'},;
  {"Dominica", 'DM'},;
  {"Dominican Republic", 'DO'},;
  {"Ecuador", 'EC'},;
  {"Egypt", 'EG'},;
  {"El Salvador", 'SV'},;
  {"Equatorial Guinea", 'GQ'},;
  {"Eritrea", 'ER'},;
  {"Estonia", 'EE'},;
  {"Ethiopia", 'ET'},;
  {"Falkland Islands (Malvinas)", 'FK'},;
  {"Faroe Islands", 'FO'},;
  {"Fiji", 'FJ'},;
  {"Finland", 'FI'},;
  {"France", 'FR'},;
  {"French Guiana", 'GF'},;
  {"French Polynesia", 'PF'},;
  {"French Southern Territories", 'TF'},;
  {"Gabon", 'GA'},;
  {"Gambia", 'GM'},;
  {"Georgia", 'GE'},;
  {"Germany", 'DE'},;
  {"Ghana", 'GH'},;
  {"Gibraltar", 'GI'},;
  {"Greece", 'GR'},;
  {"Greenland", 'GL'},;
  {"Grenada", 'GD'},;
  {"Guadeloupe", 'GP'},;
  {"Guam", 'GU'},;
  {"Guatemala", 'GT'},;
  {"Guernsey", 'GG'},;
  {"Guinea", 'GN'},;
  {"Guinea-Bissau", 'GW'},;
  {"Guyana", 'GY'},;
  {"Haiti", 'HT'},;
  {"Heard Island and Mcdonald Islands", 'HM'},;
  {"Holy See (Vatican City State)", 'VA'},;
  {"Honduras", 'HN'},;
  {"Hong Kong", 'HK'},;
  {"Hungary", 'HU'},;
  {"Iceland", 'IS'},;
  {"India", 'IN'},;
  {"Indonesia", 'ID'},;
  {"Iran, Islamic Republic Of", 'IR'},;
  {"Iraq", 'IQ'},;
  {"Ireland", 'IE'},;
  {"Isle of Man", 'IM'},;
  {"Israel", 'IL'},;
  {"Italy", 'IT'},;
  {"Jamaica", 'JM'},;
  {"Japan", 'JP'},;
  {"Jersey", 'JE'},;
  {"Jordan", 'JO'},;
  {"Kazakhstan", 'KZ'},;
  {"Kenya", 'KE'},;
  {"Kiribati", 'KI'},;
  {"Korea, Democratic People'S Republic of", 'KP'},;
  {"Korea, Republic of", 'KR'},;
  {"Kuwait", 'KW'},;
  {"Kyrgyzstan", 'KG'},;
  {"Lao People'S Democratic Republic", 'LA'},;
  {"Latvia", 'LV'},;
  {"Lebanon", 'LB'},;
  {"Lesotho", 'LS'},;
  {"Liberia", 'LR'},;
  {"Libyan Arab Jamahiriya", 'LY'},;
  {"Liechtenstein", 'LI'},;
  {"Lithuania", 'LT'},;
  {"Luxembourg", 'LU'},;
  {"Macao", 'MO'},;
  {"Macedonia, The Former Yugoslav Republic of", 'MK'},;
  {"Madagascar", 'MG'},;
  {"Malawi", 'MW'},;
  {"Malaysia", 'MY'},;
  {"Maldives", 'MV'},;
  {"Mali", 'ML'},;
  {"Malta", 'MT'},;
  {"Marshall Islands", 'MH'},;
  {"Martinique", 'MQ'},;
  {"Mauritania", 'MR'},;
  {"Mauritius", 'MU'},;
  {"Mayotte", 'YT'},;
  {"Mexico", 'MX'},;
  {"Micronesia, Federated States of", 'FM'},;
  {"Moldova, Republic of", 'MD'},;
  {"Monaco", 'MC'},;
  {"Mongolia", 'MN'},;
  {"Montserrat", 'MS'},;
  {"Morocco", 'MA'},;
  {"Mozambique", 'MZ'},;
  {"Myanmar", 'MM'},;
  {"Namibia", 'NA'},;
  {"Nauru", 'NR'},;
  {"Nepal", 'NP'},;
  {"Netherlands", 'NL'},;
  {"Netherlands Antilles", 'AN'},;
  {"New Caledonia", 'NC'},;
  {"New Zealand", 'NZ'},;
  {"Nicaragua", 'NI'},;
  {"Niger", 'NE'},;
  {"Nigeria", 'NG'},;
  {"Niue", 'NU'},;
  {"Norfolk Island", 'NF'},;
  {"Northern Mariana Islands", 'MP'},;
  {"Norway", 'NO'},;
  {"Oman", 'OM'},;
  {"Pakistan", 'PK'},;
  {"Palau", 'PW'},;
  {"Palestinian Territory, Occupied", 'PS'},;
  {"Panama", 'PA'},;
  {"Papua New Guinea", 'PG'},;
  {"Paraguay", 'PY'},;
  {"Peru", 'PE'},;
  {"Philippines", 'PH'},;
  {"Pitcairn", 'PN'},;
  {"Poland", 'PL'},;
  {"Portugal", 'PT'},;
  {"Puerto Rico", 'PR'},;
  {"Qatar", 'QA'},;
  {"Reunion", 'RE'},;
  {"Romania", 'RO'},;
  {"Russian Federation", 'RU'},;
  {"RWANDA", 'RW'},;
  {"Saint Helena", 'SH'},;
  {"Saint Kitts and Nevis", 'KN'},;
  {"Saint Lucia", 'LC'},;
  {"Saint Pierre and Miquelon", 'PM'},;
  {"Saint Vincent and the Grenadines", 'VC'},;
  {"Samoa", 'WS'},;
  {"San Marino", 'SM'},;
  {"Sao Tome and Principe", 'ST'},;
  {"Saudi Arabia", 'SA'},;
  {"Senegal", 'SN'},;
  {"Serbia and Montenegro", 'CS'},;
  {"Seychelles", 'SC'},;
  {"Sierra Leone", 'SL'},;
  {"Singapore", 'SG'},;
  {"Slovakia", 'SK'},;
  {"Slovenia", 'SI'},;
  {"Solomon Islands", 'SB'},;
  {"Somalia", 'SO'},;
  {"South Africa", 'ZA'},;
  {"South Georgia and the South Sandwich Islands", 'GS'},;
  {"Spain", 'ES'},;
  {"Sri Lanka", 'LK'},;
  {"Sudan", 'SD'},;
  {"Suriname", 'SR'},;
  {"Svalbard and Jan Mayen", 'SJ'},;
  {"Swaziland", 'SZ'},;
  {"Sweden", 'SE'},;
  {"Switzerland", 'CH'},;
  {"Syrian Arab Republic", 'SY'},;
  {"Taiwan, Province of China", 'TW'},;
  {"Tajikistan", 'TJ'},;
  {"Tanzania, United Republic of", 'TZ'},;
  {"Thailand", 'TH'},;
  {"Timor-Leste", 'TL'},;
  {"Togo", 'TG'},;
  {"Tokelau", 'TK'},;
  {"Tonga", 'TO'},;
  {"Trinidad and Tobago", 'TT'},;
  {"Tunisia", 'TN'},;
  {"Turkey", 'TR'},;
  {"Turkmenistan", 'TM'},;
  {"Turks and Caicos Islands", 'TC'},;
  {"Tuvalu", 'TV'},;
  {"Uganda", 'UG'},;
  {"Ukraine", 'UA'},;
  {"United Arab Emirates", 'AE'},;
  {"United Kingdom", 'GB'},;
  {"United States", 'US'},;
  {"United States Minor Outlying Islands", 'UM'},;
  {"Uruguay", 'UY'},;
  {"Uzbekistan", 'UZ'},;
  {"Vanuatu", 'VU'},;
  {"Venezuela", 'VE'},;
  {"Viet Nam", 'VN'},;
  {"Virgin Islands, British", 'VG'},;
  {"Virgin Islands, U.S.", 'VI'},;
  {"Wallis and Futuna", 'WF'},;
  {"Western Sahara", 'EH'},;
  {"Yemen", 'YE'},;
  {"Zambia", 'ZM'},;
  {"Zimbabwe", 'ZW'} ;
}

function main()
   local oDlg, oGet, cName, cName1, cName2
   cName := space(20)
   cName1 := space(20)
   cName2 := space(20)

   define dialog oDlg title "Test Autoget" size 600, 180 pixel

   @ 1,2 autoget oGet var cName of oDlg ;
         DATASOURCE aCountries;
         FILTER ListFilter1( uDataSource, cData, Self );          
         COLUMN 1 ;
         HEIGHTLIST 500
                   
   @ 2,2 autoget cName1 of oDlg ;
         DATASOURCE aCountries;
         FILTER ListFilter2( uDataSource, cData, Self );          
         COLUMN 1 ;
         HEIGHTLIST 100

   @ 3,2 autoget cName2 of oDlg ;
         DATASOURCE aCountries;
         FILTER ListFilter3( uDataSource, cData, Self );          
         COLUMN 1 ;
         HEIGHTLIST 100        


   @ 3,2 BUTTON "ok" OF odlg ACTION msgalert("Get 1:"+cName)
   @ 3,20 BUTTON "cancel" OF odlg ACTION odlg:end()

   activate dialog oDlg centered

return nil

//---------------------------------------------------------------------------//
// match case without case sensitive
function ListFilter1( aList, cData, oSelf )
   local aNewList := { }
   local uItem
   
   for each uItem in oSelf:uOrgData

      if lower( SubStr( uItem[ 1 ], 1, Len( cData ) ) ) == Lower( cData )
         AAdd( aNewList, uItem )
      endif
     
   next

RETURN aNewList

//---------------------------------------------------------------------------//
//match case with case sensitive
function ListFilter2( aList, cData, oSelf )
   local aNewList := { }
   local uItem

   for each uItem in oSelf:uOrgData

      if SubStr( uItem[ 1 ], 1, Len( cData ) ) == cData
         AAdd( aNewList, uItem )
      endif
     
   next

RETURN aNewList

//---------------------------------------------------------------------------//
//wild case
function ListFilter3( aList, cData, oSelf )
   local aNewList := { }
   local uItem
 
   for each uItem in oSelf:uOrgData

      if Lower( cData )$ lower( uItem[ 1 ] )
         AAdd( aNewList, uItem )
      endif
     
   next

RETURN aNewList
 

AIDA wrote:Hola

algún ejemplo para usar AUTOGET desde un recurso


Gracias

Saluditos

Code: Select all  Expand view

REDEFINE autoget oApp:Mentra1 VAR oApp:McNombre2 ID 16 OF oSof DATASOURCE marcas;
         FILTER ListFilter1( uDataSource, cData, Self );
         COLUMN 1 ;
         HEIGHTLIST 500  COLOR CLR_WHITE,CLR_BLUE
oApp:Mentra1:bGotFocus  := { || oApp:Mentra1:SetColor( 0, RGB(255,242,0)) }
oApp:Mentra1:bLostFocus := { || oApp:Mentra1:SetColor( 0, CLR_WHITE  ) }
oApp:Mentra1:cTooltip :={ "Nombre de la marca del modelo", "Ingrese el",1,CLR_WHITE,CLR_BLUE }