GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
Windev - Set Procedure Combox Cliente e Array Matriz
Windev - Set Procedure Combox Cliente e Array Matriz
Iniciado por amarildo, fev., 26 2015 11:52 PM - Sem resposta
Conecte-se…
amarildo
#1
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em fevereiro, 26 2015 - 11:52 PM
http://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
_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
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
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto