sábado, septiembre 16, 2006

El 'Plan Emplea' de Microsoft promoverá un Master en Consultoría de Sistemas de Gestión

Con el fin de frenar el déficit de profesionales en Microsoft Dynamics y ayudar así a las empresas de tecnología a resolver los problemas reales de sus clientes, Microsoft impulsa la formación de profesionales especializados en soluciones de gestión.

Esta iniciativa, que espera contar con el apoyo de universidades de Madrid, Cataluña, Andalucía y Castilla y León, en un principio ha sido puesta en marcha por la Escuela de Negocios CEU, Microsoft y la consultora Ability.

El Master en Consultoría de Sistemas de Gestión pretende formar a más de 500 licenciados universitarios en los próximos dos años y comprende el manejo e implantación de los productos Dynamics AX (Axapta), Dynamics NAV (Navision) y Dynamics CRM. Se dirige a recién licenciados o profesionales con escasa experiencial laboral que deseen orientar su carrera hacia la consultoría de sistemas de gestión. Se compone de 800 horas de formación teórico-práctica, que garantiza tres meses de formación en las empresas colaboradoras.

"Existe una gran oportunidad para que estos alumnos tengan mayores oportunidades porque los problemas que van a resolver no los tiene la gran empresa, sino las pequeñas y medianas, que son las que demandan los productos de Microsoft Dynamics", señala Carlos Esteve, director de la división de Pequeña, Mediana Empresa y Canal de Distribución de Microsoft.

viernes, septiembre 01, 2006

Ordenar un array

Codigo C/AL para ordenar un array.

OnRun()
myText[1] := 'Z8754';
myText[2] := 'M2532';
myText[3] := 'D1992';
myText[4] := 'A9900';

SortArrayOfText(myText);

FOR i := 1 TO ARRAYLEN(myText) DO BEGIN
 IF myText[i] <> '' THEN
  MESSAGE(myText[i]);
END;


SortArrayOfText(VAR ParamArray : ARRAY [999] OF Text[30])
COMPRESSARRAY(ParamArray);
FOR i := 1 TO ARRAYLEN(ParamArray) DO BEGIN
 IF ParamArray[i] = '' THEN
  Finish := i;
END;

REPEAT
 ToExit := TRUE;
 FOR i := 1 TO (Finish - 1) DO BEGIN
  IF ParamArray[i] > ParamArray[i + 1] THEN BEGIN
   Swap(ParamArray[i], ParamArray[i + 1]);
   ToExit := FALSE;
  END;
 END;
 Finish -= 1;
UNTIL ToExit;


Swap(VAR Param1 : Text[30];VAR Param2 : Text[30])
temp := Param2;
Param2 := Param1;
Param1 := temp;