VIDEO - COMBOX CLIENTE - SET PROCEDURE - ARRAY MATRIZ
Array - http://doc.windev.com
--------------------------------------------------------------------------------------------------------------------------
Senti a necessidade de fazer uma procedure de combox cliente, entao estou compartilhando essa
informação de como eu fiz.
--------------------------------------------------------------------------------------------------------------------------
_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
--------------------------------------------------------------------------------------------------------------------------
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
--------------------------------------------------------------------------------------------------------------------------
Nenhum comentário:
Postar um comentário