_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

// 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
fromcliente 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