A better Listbox/Combobox

Creative ideas/suggestions for HMG

Moderator: Rathinagiri

User avatar
tonton2
Posts: 444
Joined: Sat Jun 29, 2013 1:26 pm
Location: Algerie
Contact:

Re: A better Listbox/Combobox

Post by tonton2 »

Voici un exemple de Grigory FILATOV que j'ai transformé , que je voudrais mettre dans la grille de l'exemple cité plus haut

Here is an example of Grigory FILATOV I transformed, I would like to put in the grid
Attachments
COMBO_LIST.rar
(4.63 KiB) Downloaded 670 times
L'Algerie vous salut
Y.TABET
User avatar
serge_girard
Posts: 3161
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Contact:

Re: A better Listbox/Combobox

Post by serge_girard »

Youcef,


Merci d'avoir partager l'exemple!


Serge/Belgique
There's nothing you can do that can't be done...
User avatar
tonton2
Posts: 444
Joined: Sat Jun 29, 2013 1:26 pm
Location: Algerie
Contact:

Re: A better Listbox/Combobox

Post by tonton2 »

serge_girard wrote:Youcef,


Merci d'avoir partager l'exemple!


Serge/Belgique
pas de quoi mon ami, je vais mettre bientôt une gestion complète d'une entreprise
L'Algerie vous salut
Y.TABET
Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México

Re: A better Listbox/Combobox

Post by Javier Tovar »

Merci pour le partage tonton2 :D
User avatar
tonton2
Posts: 444
Joined: Sat Jun 29, 2013 1:26 pm
Location: Algerie
Contact:

Re: A better Listbox/Combobox

Post by tonton2 »

Bonsoir,
cet exemple donne le même résultat que précédemment en utilisant l'option "SORT .T.
bonne suite a tous

Code: Select all

/*

   The same result is obtained with the option "SORT. T."
   ==> Explanation :you enter the first letter followed by the 2nd etc. ..  

*/

#include "minigui.ch"
static  aRefProduit := {} 
  
Procedure Main
use constart new
do while !eof()
      aadd(aRefProduit, CONSTART->REFERENCE)
      skip
   enddo
 
   DEFINE WINDOW Form_1 ;
      AT 0,0 ;
      WIDTH 400 ;
      HEIGHT 200 ;
      TITLE 'ComboBox Demo' ;
      MAIN 
/*
      DEFINE MAIN MENU
         DEFINE POPUP 'Test'
            MENUITEM 'Get Value for Combo_2' ACTION MsgInfo(Str(Form_1.Combo_2.Value))
            MENUITEM 'Set Value for Combo_2' ACTION Form_1.Text_2.Value := '1'
         END POPUP
      END MENU
*/
 DEFINE COMBOBOX combo_1
      ROW     40
      COL     160
      VALUE    1
      ITEMS aRefProduit 
      SORT .T.  // it's here the OPTION
   END COMBOBOX
 
/*
      @ 10,160 COMBOBOX combo_1 ;
         ITEMS aRefProduit ;
        value 1
       SORT .T.  
      
      @ 40,160 TEXTBOX Text_2 VALUE '' UPPER  ;
      ON CHANGE Form_1.combo_1.Value := ComboSearch(aRefProduit,Form_1.Text_2.Value)
*/
   END WINDOW

   CENTER WINDOW Form_1

   ACTIVATE WINDOW Form_1

Return

/*
Function ComboSearch( aArray, cValue )
Local nPos

   nPos := Ascan(aArray, {|x| SubStr(x, 1)  = cValue})

Return nPos 
*/
L'Algerie vous salut
Y.TABET
User avatar
tonton2
Posts: 444
Joined: Sat Jun 29, 2013 1:26 pm
Location: Algerie
Contact:

Re: A better Listbox/Combobox

Post by tonton2 »

Avant tout je remercie toute l'equipe de HMG et en particulier Mr ESGICI pour son aide et sa disponibilité sans faille.
Pour avoir realiser ce petit programme de facturation qui n'est qu'une partie de mon programme de GESTION , j'ai du copier et changer plusieures parties de vos exemples sans votre autorisation.
et je m'en execuse auprés de vous tous.
Merci
à l'ouverture le choix du client se fait par soit par un numéro de code ou d'une succesion de lettres(COMBOSEARCHGRID).
ensuite une facture est créee avec derniere facture +1.
la tva est de 0=>40 modifiable.
"INS" sert a ajouter les articles.
"SUPPR" a supprimer la ligne de la grille.
le choix du produit se fait par un combobox.
la designation et le prix de reference ne change pas,mais le prix unitaire doit etre inscrit.
Ma question est il possible de changer COMBOBOX dans la grille par une autre methode pour trouver la reference en tapant les lettres la composant , tout en gardant le meme principe a savoir
REFERENCE==>DESIGNATION==>PRIX UNITAIRE.
la traduction a été faite par google et je m'en excuse car je maitrise trés mal l'Anglais.
Bonne continuation a tous.

First of all I thank the whole team of HMG and in particular Mr ESGICI for his help and seamless availability .
To realize this small invoicing program that is only part of my program MANAGEMENT , I can copy and change several parts of your examples without your permission.
and I execuse House nearby you all.
thank you
opening the customer's choice is made by either a code or a succesion of letters ( COMBOSEARCHGRID ) .
then an invoice is created with one last bill .
vat is 0 => 40 editable.
" INS" is used to add items .
" DELETE " to delete the row of the grid.
product selection is made by a combobox .
the designation and the reference price does not change, but the price must be registered .

My question is it possible to change COMBOBOX in the grid by another method to find the reference by typing the letters composing it , while keeping the same principle, namely
REFERENCE ==> PRODUCT ==> UNIT PRICE .

the translation was made by google and I apologize because I can speak very bad English.
Good luck to all.
Attachments
INVOICE_COMBO.rar
(24.96 KiB) Downloaded 349 times
Last edited by tonton2 on Mon Nov 18, 2013 9:31 pm, edited 2 times in total.
L'Algerie vous salut
Y.TABET
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: A better Listbox/Combobox

Post by danielmaximiliano »

gracias por compartir Tonton

merci pour le partage Tonton
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: A better Listbox/Combobox

Post by esgici »

Salaam aleik Youcef

Thank you for sharing your work and nice words about me :)

Good work, nice implementation; congrats :arrow:

It's very nice, you had applied combo search grid to DBFNTX system successfully, thank and congrats again :)

maassalaam

Viva HMG :D
Viva INTERNATIONAL HMG :D
User avatar
mol
Posts: 3718
Joined: Thu Sep 11, 2008 5:31 am
Location: Myszków, Poland
Contact:

Re: A better Listbox/Combobox

Post by mol »

Fine work!
It looks it is what I was searching for :-D and I had no time to do it.

Regards, Marek
User avatar
bpd2000
Posts: 1207
Joined: Sat Sep 10, 2011 4:07 am
Location: India

Re: A better Listbox/Combobox

Post by bpd2000 »

Thank you for sharing
Regards
BPD
Convert Dream into Reality through HMG
Post Reply