String Juntar Direita
[14:47:11] EMoreno: variable = Right("00000000" + variable, 8)
[14:47:23] EMoreno: en caso de que sea 8
--------------------------------------------------------------------------------------------------------------
Blog Relacionados
Manuseio String - Opcoes
Extrai Lado Direito - Right
Extrai Lado Esquerdo - Left
ExtractString - Separar SubString Com Separador
Funções - Functions
Numero Para String
Tamanho String - Length
Operadores
Preenche Campo - Complet
Retorna sem Branco - NoSpace
Retirar Blocos
Separador CR
--------------------------------------------------------------------------------------------------------------
terça-feira, 16 de dezembro de 2014
String - Separarar CR
String - Separarar CR
--------------------------------------------------------------------------------------------------------------
Blog Relacionados
Manuseio String - Opcoes
Extrai Lado Direito - Right
Extrai Lado Esquerdo - Left
ExtractString - Separar SubString Com Separador
Funções - Functions
Tamanho String - Length
Operadores
Preenche Campo - Complet
Retorna sem Branco - NoSpace
--------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------
Blog Relacionados
Manuseio String - Opcoes
Extrai Lado Direito - Right
Extrai Lado Esquerdo - Left
ExtractString - Separar SubString Com Separador
Funções - Functions
Tamanho String - Length
Operadores
Preenche Campo - Complet
Retorna sem Branco - NoSpace
--------------------------------------------------------------------------------------------------------------
Array Ordem Crescente
Array Ordem Crescente
Listanumeros is array of 0 int
ArrayAddLine(Listanumeros,10)
ArrayAddLine(Listanumeros,20)
ArrayAddLine(Listanumeros,5)
ArrayAddLine(Listanumeros,15)
ArraySort(Listanumeros,asAscending)
FOR x =1 TO ArrayCount(Listanumeros)
Info(Listanumeros[x])
END
Listanumeros is array of 0 int
ArrayAddLine(Listanumeros,10)
ArrayAddLine(Listanumeros,20)
ArrayAddLine(Listanumeros,5)
ArrayAddLine(Listanumeros,15)
ArraySort(Listanumeros,asAscending)
FOR x =1 TO ArrayCount(Listanumeros)
Info(Listanumeros[x])
END
segunda-feira, 15 de dezembro de 2014
facebook, gmail, twitter
facebook, gmail, twitter
la LST 92 esta explicado como integrar con facebook, gmail, twitter
la LST 92 esta explicado como integrar con facebook, gmail, twitter
Looper
Looper
LOOPER
[05/12/2014 15:28:40] trionika: este codigo te ayudara. gnRecClie = LooperSelect(LOOP_Clientes)
HReadSeekFirst(clientes,cod_cliente,LOOP_Clientes[gnRecClie].EDT_CodClie)
[05/12/2014 15:29:21] trionika: es asi como vas a obtener la posicion (registro) dentro del LOOPER para tomar un campo de èl
LOOPER
[05/12/2014 15:28:40] trionika: este codigo te ayudara. gnRecClie = LooperSelect(LOOP_Clientes)
HReadSeekFirst(clientes,cod_cliente,LOOP_Clientes[gnRecClie].EDT_CodClie)
[05/12/2014 15:29:21] trionika: es asi como vas a obtener la posicion (registro) dentro del LOOPER para tomar un campo de èl
sábado, 13 de dezembro de 2014
Enter - Trocar Tab Por Enter Windev
Enter - Trocar Tab Por Enter Windev
Para trocar Tab por Enter
Entre nas Propriedades do Botal Gravar
Na Guia Gui
Type
Troque de Validate para Normal
Para trocar Tab por Enter
Entre nas Propriedades do Botal Gravar
Na Guia Gui
Type
Troque de Validate para Normal
quarta-feira, 10 de dezembro de 2014
TIMERSYS
TIMERSYS
=============================================
TimerSys("matos_timer",100)
// CHAMA A PROCEDURE MATOS_TIMER
// E EXECUTA DE TANTO EM TANTO TEMPO
=============================================
PROCEDURE matos_timer()
xml_arquivo is string = "c:\importa\964-env-loterps-ret.xml"
IF fLoadText(xml_arquivo)="" THEN
EDT_criaXml="Aguarde....."
// CASO NAO ACHAR O ARQUIVO, AGUARDAR
ELSE
EDT_criaXml=fLoadText(xml_arquivo)
EndTimerSys()
// CASO ACHO OU ARQUIVO TERMINE O PROCESSO , TIMER
END
=============================================
TimerSys("matos_timer",100)
// CHAMA A PROCEDURE MATOS_TIMER
// E EXECUTA DE TANTO EM TANTO TEMPO
=============================================
PROCEDURE matos_timer()
xml_arquivo is string = "c:\importa\964-env-loterps-ret.xml"
IF fLoadText(xml_arquivo)="" THEN
EDT_criaXml="Aguarde....."
// CASO NAO ACHAR O ARQUIVO, AGUARDAR
ELSE
EDT_criaXml=fLoadText(xml_arquivo)
EndTimerSys()
// CASO ACHO OU ARQUIVO TERMINE O PROCESSO , TIMER
END
Assinar:
Postagens (Atom)
Teste

teste