pcsoft.br.windevCopyright 2026, PC SOFT26 Feb 2015 23:52:52 Z26 Feb 2015 23:52:52 Zhttp://windevdesenvolvimento.blogspot.com.br/2015/02/set-procedure-combox-cliente.html Nesse video , vou mostrar Fazer uma procedure para preencher combox cliente e é usada tambem array Matriz [code:wl] _lista_dados is array of 1 by 2 string _lista_dados=matos_combox_cliente(1) FOR i=1 TO _lista_dados..Occurrence/2 ListAdd(COMBO_id_empresa_cliente,_lista_dados[i,1]+gLink(_lista_dados[i,2])) END [/code] [code:wl] // Summary: <specify the procedure action> // Syntax: //[ <Result> = ] matos_combox_cliente (<_numero_empresa> is int) // Parameters: // _numero_empresa (int): <Especifique aqui o Código da Empresa> // Return Value: // array: < Uma Array para ser colocado no combox > // For instance: // Indicate an example. // Crie um Combox_id_empresa_cliente e coloque codigo Abaixo //_lista_dados is array of 1 by 2 string //_lista_dados=matos_combox_cliente(_Codigo_Empresa) //_total_lista is int = _lista_dados..Occurrence //FOR i=1 to _lista_dados..Occurrence/2 // ListAdd(COMBO_id_empresa_cliente,_lista_dados[i,1]+gLink(_lista_dados[i,2])) //END // Crie um Combox_id_empresa_cliente e coloque codigo Abaixo PROCEDURE matos_combox_cliente(_numero_empresa is int) _data_source is Data Source _sql is string _lista_dados is array of 1 by 2 string // Aqui sera armazenado Nome, e Codigo Cliente _sql = [ select cliente.id_empresa_cliente as cli_id_empresa_cliente, cliente.id_cliente,nome_fantasia as cli_nome_fantasia from cliente where id_empresa=%1 ] _sql = StringBuild(_sql,_numero_empresa) IF HExecuteSQLQuery(_data_source,hQueryDefault,_sql) THEN HReadFirst(_data_source) WHILE NOT HOut() ArrayAddLine(_lista_dados,_data_source.cli_nome_fantasia,_data_source.cli_id_empresa_cliente) HReadNext(_data_source) END HFreeQuery(_data_source) END RESULT _lista_dados [/code]30WEBDEVpt_BRhttps://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/103-windev-set-procedure-combox-cliente-array-matriz/read.awpmoderateur@pcsoft.fr (Le modérateur)webmaster@pcsoft.fr (Le Webmaster)