This website uses cookies. By clicking Accept, you consent to the use of cookies. Click Here to learn more about how we use cookies.
Accept
Reject
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Show  only  | Search instead for 
Did you mean: 
rohricht
Level 3
‎Feb 12, 2010 07:37 AM

Problem with ListAddList Method

Hi! I did create a second .rul (out of setup.rul) that return a list; then, in the setup.rul I need insert it to another list. I try to use the method ListAddList, but it's don't work. The method don't add the info into the other list, and don't show any error. Do anyone knows a possible explanation to this? A bit of code used is:

ListGetFirstString( lBancosProgress, sBanco );
   		for i = 0 to nNumBD - 1
   			lCfg = _conmgrConfiguraProgress( sBanco, sDirBD, sPortaBancosProgress( i ) );
   			SdShowInfoList( "lCfg", "Configurações do arquivo:", lCfg );   		
   			nResult = ListAddList( lConmgr, lCfg, AFTER );
   			if (nResult < ISERR_SUCCESS) then
   				MessageBox( "ListAddList retornou insucesso na operação.", WARNING );
   			endif;
   			SdShowInfoList( "lConmgr", "Configurações do arquivo:", lConmgr );   			
   			ListGetNextString( lBancosProgress, sBanco );
   		endfor;


Thank you all for your attention (and sorry my bad english :o).
Labels (1)
Labels
0 Kudos
(2) Replies
Johannes_T
Level 6
‎Feb 17, 2010 01:56 AM

How do you call this piece of code? Is this a function or do you include the other rul file in setup.rul?
0 Kudos
rohricht
Level 3
‎May 20, 2010 01:33 PM

I did include the other rul. I did create another own method to fix my problem. 

//////////////////////////////////////////////////////////////////////////////////
//  Função....: ListaParaLista                                      		    //
//  Objetivo..: Insere uma lista dentro de outra, conforme os parâmetros.  		//
//  Parâmetros: 1 - Lista que possui informações a serem utilizadas				//
//				2 - Lista para a qual as informações serão copiadas				//
//				3 - Modo de cópia da lista, sendo 0 = AFTER e 1 = REPLACE		//
//////////////////////////////////////////////////////////////////////////////////
function LIST ListaParaLista( lOrigem, lDestino, nModo )
	NUMBER nResult, nCount_lOrigem, i;
	STRING slOrigem;

	begin
	
		nResult = ListGetType( lOrigem );
		if (nResult != STRINGLIST) then
			MessageBoxEx( 'A lista origem não é uma lista de strings!', 'Concat Lista falhou. (eLpL001)', SEVERE );
		endif;                                                                 
		nResult = ListGetType( lDestino );
		if (nResult != STRINGLIST) then
			MessageBoxEx( 'A lista destino não é uma lista de strings!', 'Concat Lista falhou. (eLpL002)', SEVERE );
		endif;
		
		if (nModo = 0) then nModo = AFTER; endif;
		if (nModo = 1) then nModo = REPLACE; endif;
		
		nCount_lOrigem = ListCount( lOrigem );
		ListGetFirstString( lOrigem, slOrigem );
		for i = 1 to nCount_lOrigem
			ListAddString( lDestino, slOrigem, nModo );
			ListGetNextString( lOrigem, slOrigem );
		endfor;                                 
		
		return lDestino;
		
	end;


This work fine to me, and I thank so much your interest. But the original method (ListToList) realy don't work. It just return nothing, no error, no data.
0 Kudos