256906_es-ES

liliconcom

Añadir gráficos en la nueva ventana

mis datos tienen 2 grupos de datos de entrada que almaceno en la columna "Tabla de origen".

Luego, escribo el bucle for para trazar gráficos y configurar el filtro local desde la tabla de origen.Los gráficos individuales resultan correctos, sin embargo, en la nueva ventana en la que trato de agregar el gráfico, los gráficos no tienen aplicado el filtro local.

 

New Window( "Plot", tb = tab Box() );
For( i = 1, i <= N Items( list ), i++, 
 obj = Graph Builder(
  Size( 1122, 1095 ),
  Variables( X( :sequence ), Y( :Data ), Group X( :Source Table), Group X(:SERIAL_NO ), Group Y( :Group ), Overlay( :Label ) ),
  Elements( Line( X, Y, Legend( 10 ) ) ),
  Local Data Filter(
  Add Filter( 
   columns( :Source Table ),
   Where( :Source Table == list [i] ),
   Display( :Source Table, Size( 181, 34 ), List Display )
  )
 ),
  SendToReport(
   Dispatch(
    {},
    "400",
    ScaleBox,
    {Legend Model(
     10,
     Properties( 0, {Line Style( "DashDot" )}, Item ID( "CTAP1", 1 ) ),
     Properties( 1, {Line Style( "DashDot" )}, Item ID( "CTAP2", 1 ) ),
     Properties( 2, {Line Color( 0 ), Line Style( "DashDot" )}, Item ID( "CTAP3", 1 ) ),
     Properties( 3, {Line Color( 9 ), Line Style( "DashDot" )}, Item ID( "CTAP4", 1 ) ),
     Properties( 4, {Line Style( "Dotted" )}, Item ID( "Inline_X", 1 ) ),
     Properties( 5, {Line Style( "Dotted" )}, Item ID( "Inline_Y", 1 ) ),
     Properties( 8, {Line Color( 5 )}, Item ID( "MZ1_L", 1 ) ),
     Properties( 9, {Line Color( 5 ), Line Style( "Dashed" )}, Item ID( "MZ1_R", 1 ) ),
     Properties( 10, {Line Color( 3 )}, Item ID( "MZ2_L", 1 ) ),
     Properties( 11, {Line Color( 3 ), Line Style( "Dashed" )}, Item ID( "MZ2_R", 1 ) ),
     Properties( 12, {Line Color( 0 )}, Item ID( "MZ3_L", 1 ) ),
     Properties( 13, {Line Color( 0 ), Line Style( "Dashed" )}, Item ID( "MZ3_R", 1 ) ),
     Properties( 14, {Line Color( 9 )}, Item ID( "MZ4_L", 1 ) ),
     Properties( 15, {Line Color( 9 ), Line Style( "Dashed" )}, Item ID( "MZ4_R", 1 ) )
    )}
   )
  )
 );
 tb << append( "Tab",Report( obj ) );
 //obj << delete;
 
);

Re: Añadir gráficos en la nueva ventana

Ahora trato de agregar otra capa creando una "pestaña" diferente por subgrupo.

En el lado de cada subgrupo será la misma parcela (por: Tabla de origen)

 

A continuación se muestra el guión. Creé la nueva pestaña, pero todos los gráficos están en la pestaña "???"

 

Summarize( unique_value = by( :SubGroup) );
list1 = unique_value;

Summarize( unique_value = by( :Source Table ) );
list2 = unique_value;


New Window( "Plot", Tab Box( "The Results", tb = Tab Box(), vlb = V List Box() ) );
For( j = 1, j <= N Items( list1 ), j++,
 tb << Add(
  "Group" || list1[j], 

  For( i = 1, i <= N Items( list2 ), i++,
   tb << append(
    vlb << append(
     obj = Graph Builder(
      Size( 1122, 1095 ),
      Variables(
       X( :sequence ),
       Y( :Data ),
       Group X( :Source Table ),
       Group X( :SERIAL_NO ),
       Group Y( :Group ),
       Overlay( :Label )
      ),
      Elements( Line( X, Y, Legend( 10 ) ) ),
      Local Data Filter(
       Add Filter(
        columns( :Source Table, :SubGroup ),
        Where( :Source Table == list2[i] ),
        Where( :SubGroup == list1[j] ),
        Display( :Source Table, Size( 181, 34 ), List Display )
       )
      ),
      SendToReport(
       Dispatch(
        {},
        "400",
        ScaleBox,
        {Legend Model(
         10,
         Properties( 0, {Line Style( "DashDot" )}, Item ID( "CTAP1", 1 ) ),
         Properties( 1, {Line Style( "DashDot" )}, Item ID( "CTAP2", 1 ) ),
         Properties( 2, {Line Color( 0 ), Line Style( "DashDot" )}, Item ID( "CTAP3", 1 ) ),
         Properties( 3, {Line Color( 9 ), Line Style( "DashDot" )}, Item ID( "CTAP4", 1 ) ),
         Properties( 4, {Line Style( "Dotted" )}, Item ID( "Inline_X", 1 ) ),
         Properties( 5, {Line Style( "Dotted" )}, Item ID( "Inline_Y", 1 ) ),
         Properties( 8, {Line Color( 5 )}, Item ID( "MZ1_L", 1 ) ),
         Properties( 9, {Line Color( 5 ), Line Style( "Dashed" )}, Item ID( "MZ1_R", 1 ) ),
         Properties( 10, {Line Color( 3 )}, Item ID( "MZ2_L", 1 ) ),
         Properties( 11, {Line Color( 3 ), Line Style( "Dashed" )}, Item ID( "MZ2_R", 1 ) ),
         Properties( 12, {Line Color( 0 )}, Item ID( "MZ3_L", 1 ) ),
         Properties( 13, {Line Color( 0 ), Line Style( "Dashed" )}, Item ID( "MZ3_R", 1 ) ),
         Properties( 14, {Line Color( 9 )}, Item ID( "MZ4_L", 1 ) ),
         Properties( 15, {Line Color( 9 ), Line Style( "Dashed" )}, Item ID( "MZ4_R", 1 ) )
        )}
       )
      )
     )
    )
   
   )
  )
 )
  
);

 

Re: Añadir gráficos en la nueva ventanagracias.Re: Añadir gráficos en la nueva ventana

Cambié ligeramente su secuencia de comandos y parece estar ejecutándose sin errores.Los Filtros Locales están haciendo las diferentes selecciones.Aquí está mi guión

Names Default To Here( 1 );
dt = Current Data Table();

Summarize( unique_value = by( :Source Table ) );
list = unique_value;

New Window( "Plot", Tab Box( "The Results", tb = H List Box() ) );
For( i = 1, i <= N Items( list ), i++,
 tb << append(
  obj = Graph Builder(
   Size( 1122, 1095 ),
   Variables(
    X( :sequence ),
    Y( :Data ),
    Group X( :Source Table ),
    Group X( :SERIAL_NO ),
    Group Y( :Group ),
    Overlay( :Label )
   ),
   Elements( Line( X, Y, Legend( 10 ) ) ),
   Local Data Filter(
    Add Filter(
     columns( :Source Table ),
     Where( :Source Table == list[i] ),
     Display( :Source Table, Size( 181, 34 ), List Display )
    )
   ),
   SendToReport(
    Dispatch(
     {},
     "400",
     ScaleBox,
     {Legend Model(
      10,
      Properties( 0, {Line Style( "DashDot" )}, Item ID( "CTAP1", 1 ) ),
      Properties( 1, {Line Style( "DashDot" )}, Item ID( "CTAP2", 1 ) ),
      Properties( 2, {Line Color( 0 ), Line Style( "DashDot" )}, Item ID( "CTAP3", 1 ) ),
      Properties( 3, {Line Color( 9 ), Line Style( "DashDot" )}, Item ID( "CTAP4", 1 ) ),
      Properties( 4, {Line Style( "Dotted" )}, Item ID( "Inline_X", 1 ) ),
      Properties( 5, {Line Style( "Dotted" )}, Item ID( "Inline_Y", 1 ) ),
      Properties( 8, {Line Color( 5 )}, Item ID( "MZ1_L", 1 ) ),
      Properties( 9, {Line Color( 5 ), Line Style( "Dashed" )}, Item ID( "MZ1_R", 1 ) ),
      Properties( 10, {Line Color( 3 )}, Item ID( "MZ2_L", 1 ) ),
      Properties( 11, {Line Color( 3 ), Line Style( "Dashed" )}, Item ID( "MZ2_R", 1 ) ),
      Properties( 12, {Line Color( 0 )}, Item ID( "MZ3_L", 1 ) ),
      Properties( 13, {Line Color( 0 ), Line Style( "Dashed" )}, Item ID( "MZ3_R", 1 ) ),
      Properties( 14, {Line Color( 9 )}, Item ID( "MZ4_L", 1 ) ),
      Properties( 15, {Line Color( 9 ), Line Style( "Dashed" )}, Item ID( "MZ4_R", 1 ) )
     )}
    )
   )
  )
 )
);

Re: Añadir gráficos en la nueva ventana

Hola,

 

perdon por no haberme aclarado. Intento crear 2 parcelas basadas en la columna "Tabla de origen". En los datos sin procesar, hay 2 categorías (interna y externa).

 

Probé su secuencia de comandos, pero cambié la lista de nuevo al tipo de tabla de origen.

Ahora el gráfico se muestra en la nueva ventana, pero ambos gráficos muestran el filtro local Source Table = internal.

 

quiero que se muestre

- primer gráfico: filtro local Tabla de origen = interior.

- 2º gráfico: filtro local Source Table = outter.

 

 

Names Default To Here( 1 );
dt = Current Data Table();

Summarize( unique_value = by( :Source Table ) );
list = unique_value;

New Window( "Plot",
 tb = Tab Box(),
 For( i = 1, i <= N Items( list ), i++,
  tb << append(
   obj = Graph Builder(
    Size( 1122, 1095 ),
    Variables(
     X( :sequence ),
     Y( :Data ),
     Group X( :Source Table ),
     Group X( :SERIAL_NO ),
     Group Y( :Group ),
     Overlay( :Label )
    ),
    Elements( Line( X, Y, Legend( 10 ) ) ),
    Local Data Filter(
     Add Filter(
      columns( :Source Table ),
      Where( :Source Table == list[i] ),
      Display( :Source Table, Size( 181, 34 ), List Display )
     )
    ),
    SendToReport(
     Dispatch(
      {},
      "400",
      ScaleBox,
      {Legend Model(
       10,
       Properties( 0, {Line Style( "DashDot" )}, Item ID( "CTAP1", 1 ) ),
       Properties( 1, {Line Style( "DashDot" )}, Item ID( "CTAP2", 1 ) ),
       Properties( 2, {Line Color( 0 ), Line Style( "DashDot" )}, Item ID( "CTAP3", 1 ) ),
       Properties( 3, {Line Color( 9 ), Line Style( "DashDot" )}, Item ID( "CTAP4", 1 ) ),
       Properties( 4, {Line Style( "Dotted" )}, Item ID( "Inline_X", 1 ) ),
       Properties( 5, {Line Style( "Dotted" )}, Item ID( "Inline_Y", 1 ) ),
       Properties( 8, {Line Color( 5 )}, Item ID( "MZ1_L", 1 ) ),
       Properties( 9, {Line Color( 5 ), Line Style( "Dashed" )}, Item ID( "MZ1_R", 1 ) ),
       Properties( 10, {Line Color( 3 )}, Item ID( "MZ2_L", 1 ) ),
       Properties( 11, {Line Color( 3 ), Line Style( "Dashed" )}, Item ID( "MZ2_R", 1 ) ),
       Properties( 12, {Line Color( 0 )}, Item ID( "MZ3_L", 1 ) ),
       Properties( 13, {Line Color( 0 ), Line Style( "Dashed" )}, Item ID( "MZ3_R", 1 ) ),
       Properties( 14, {Line Color( 9 )}, Item ID( "MZ4_L", 1 ) ),
       Properties( 15, {Line Color( 9 ), Line Style( "Dashed" )}, Item ID( "MZ4_R", 1 ) )
      )}
     )
    )
   )
  );
 );
);

 

Re: Añadir gráficos en la nueva ventana

Agregué una lista llamada "lista", y tuve que mover el cierre ")" desde la declaración de Nueva ventana hasta el final del código.Y ahora funciona en sus datos de muestra

names default to here(1);
dt=current data table();
list={"data"};

New Window( "Plot", tb = Tab Box() ,
For( i = 1, i <= N Items( list ), i++,
 tb << append(
  obj = Graph Builder(
   Size( 1122, 1095 ),
   Variables(
    X( :sequence ),
    Y( :Data ),
    Group X( :Source Table ),
    Group X( :SERIAL_NO ),
    Group Y( :Group ),
    Overlay( :Label )
   ),
   Elements( Line( X, Y, Legend( 10 ) ) ),
   Local Data Filter(
    Add Filter(
     columns( :Source Table ),
     Where( :Source Table == list[i] ),
     Display( :Source Table, Size( 181, 34 ), List Display )
    )
   ),
   SendToReport(
    Dispatch(
     {},
     "400",
     ScaleBox,
     {Legend Model(
      10,
      Properties( 0, {Line Style( "DashDot" )}, Item ID( "CTAP1", 1 ) ),
      Properties( 1, {Line Style( "DashDot" )}, Item ID( "CTAP2", 1 ) ),
      Properties( 2, {Line Color( 0 ), Line Style( "DashDot" )}, Item ID( "CTAP3", 1 ) ),
      Properties( 3, {Line Color( 9 ), Line Style( "DashDot" )}, Item ID( "CTAP4", 1 ) ),
      Properties( 4, {Line Style( "Dotted" )}, Item ID( "Inline_X", 1 ) ),
      Properties( 5, {Line Style( "Dotted" )}, Item ID( "Inline_Y", 1 ) ),
      Properties( 8, {Line Color( 5 )}, Item ID( "MZ1_L", 1 ) ),
      Properties( 9, {Line Color( 5 ), Line Style( "Dashed" )}, Item ID( "MZ1_R", 1 ) ),
      Properties( 10, {Line Color( 3 )}, Item ID( "MZ2_L", 1 ) ),
      Properties( 11, {Line Color( 3 ), Line Style( "Dashed" )}, Item ID( "MZ2_R", 1 ) ),
      Properties( 12, {Line Color( 0 )}, Item ID( "MZ3_L", 1 ) ),
      Properties( 13, {Line Color( 0 ), Line Style( "Dashed" )}, Item ID( "MZ3_R", 1 ) ),
      Properties( 14, {Line Color( 9 )}, Item ID( "MZ4_L", 1 ) ),
      Properties( 15, {Line Color( 9 ), Line Style( "Dashed" )}, Item ID( "MZ4_R", 1 ) )
     )}
    )
   )
  )
 );
);
);

Re: Añadir gráficos en la nueva ventana

aquí está la muestra. Gracias.

Re: Añadir gráficos en la nueva ventanaSi adjunta algunos datos de muestra, le echaré un vistazo. El método que utilicé es un método probado, sospecho que hay algo menor que va mal.Re: Añadir gráficos en la nueva ventanaHola. txnelson

gracias por tu pronta respuesta pero no funciona. Ahora no agrega nada en la nueva ventana y para cada gráfico, obtuve 2 gráficos.Re: Añadir gráficos en la nueva ventana

Pruebe esto... No tengo los datos para probar esto, sin embargo, mover el anexo para incluir la plataforma real debería proporcionarle el filtro de datos local.

New Window( "Plot", tb = Tab Box() );
For( i = 1, i <= N Items( list ), i++,
 tb << append(
  obj = Graph Builder(
   Size( 1122, 1095 ),
   Variables(
    X( :sequence ),
    Y( :Data ),
    Group X( :Source Table ),
    Group X( :SERIAL_NO ),
    Group Y( :Group ),
    Overlay( :Label )
   ),
   Elements( Line( X, Y, Legend( 10 ) ) ),
   Local Data Filter(
    Add Filter(
     columns( :Source Table ),
     Where( :Source Table == list[i] ),
     Display( :Source Table, Size( 181, 34 ), List Display )
    )
   ),
   SendToReport(
    Dispatch(
     {},
     "400",
     ScaleBox,
     {Legend Model(
      10,
      Properties( 0, {Line Style( "DashDot" )}, Item ID( "CTAP1", 1 ) ),
      Properties( 1, {Line Style( "DashDot" )}, Item ID( "CTAP2", 1 ) ),
      Properties( 2, {Line Color( 0 ), Line Style( "DashDot" )}, Item ID( "CTAP3", 1 ) ),
      Properties( 3, {Line Color( 9 ), Line Style( "DashDot" )}, Item ID( "CTAP4", 1 ) ),
      Properties( 4, {Line Style( "Dotted" )}, Item ID( "Inline_X", 1 ) ),
      Properties( 5, {Line Style( "Dotted" )}, Item ID( "Inline_Y", 1 ) ),
      Properties( 8, {Line Color( 5 )}, Item ID( "MZ1_L", 1 ) ),
      Properties( 9, {Line Color( 5 ), Line Style( "Dashed" )}, Item ID( "MZ1_R", 1 ) ),
      Properties( 10, {Line Color( 3 )}, Item ID( "MZ2_L", 1 ) ),
      Properties( 11, {Line Color( 3 ), Line Style( "Dashed" )}, Item ID( "MZ2_R", 1 ) ),
      Properties( 12, {Line Color( 0 )}, Item ID( "MZ3_L", 1 ) ),
      Properties( 13, {Line Color( 0 ), Line Style( "Dashed" )}, Item ID( "MZ3_R", 1 ) ),
      Properties( 14, {Line Color( 9 )}, Item ID( "MZ4_L", 1 ) ),
      Properties( 15, {Line Color( 9 ), Line Style( "Dashed" )}, Item ID( "MZ4_R", 1 ) )
     )}
    )
   )
  )
 );
);