46360_es-ES

liliconcom

Anotar gráfico circular (de Graph Builder) con JSL

He escrito JSL para crear un gráfico circular (de Graph Builder):

Me gustaría anotar este gráfico circular (bajo su leyenda) con un texto que dice "Respuestas: 14", por ejemplo:

 

¿Hay una manera de hacer esto con JSL? Mi script actual se adjunta como un archivo.

Re: Anotar gráfico circular (de Graph Builder) con JSL

He reelaborado el guión, mostrando cómo se puede incorporar la forma de imagen del gráfico circular en la pantalla final

/* Scorecard with Annotated Pie */

ClearLog();
NamesDefaultToHere(1);

dt1 = NewTable( "Table1", AddRows(5),
 NewColumn( "Channel", Character, Nominal,
  SetValues({"Call","Email","Facebook","Twitter","Visit"}) ),
 NewColumn( "Pct of Customers", Continuous, Format("Percent"),
  SetValues({.1, .05, .4, .35, .08}) )
);
dt2 = NewTable( "Table2", AddRows(5),
 NewColumn( "Team Member", Character, Nominal,
  SetValues({"Sales Asst A","Sales Asst B","Sales Asst C","Sales Asst D","Sales Asst E"}) ),
 NewColumn( "Rating", Character, Nominal,
  SetValues({"Excellent","Very Good","Excellent","Excellent","Excellent"}) )
);
dt = New Table( "Responses",
 AddRows( 4 ),
 New Column( "Status", Character( 7 ), "Nominal", Set Values( {"Late", "N/A", "On Time", "Pending"} ) ),
 New Column( "Count", Numeric, "Continuous", Format( "Fixed Dec", 12, 0 ), Set Values( [2, 0, 11, 1] ) )
);
gb = dt << GraphBuilder(invisible,
        Size( 150, 180 ),
        ShowControlPanel( 0 ),
        Variables( X( :Status ), Y( :Name( "Count" ) ) ),
        Elements( Pie( X, Y, Legend( 2 ), Label( "Label by Value" ) ) ),
        SendToReport(
          Dispatch({}, "400", ScaleBox, {LegendModel( 2,
              Properties( 0, {FillColor({247, 150, 70})} ),
              Properties( 1, {FillColor({200, 200, 200})} ),
              Properties( 2, {FillColor({155, 187, 89})} ),
              Properties( 3, {FillColor({192, 80, 77})} )
            )}
          ),
          Dispatch({}, "", GraphBuilderContainerBox, AddTextAnnotation(
            Text("Responses 14"), TextBox({157, 102, 232, 135}), BackgroundColor("White")
          )),
          Dispatch( {}, "Graph Builder", OutlineBox, {SetTitle("Survey Responses")} ),
          Dispatch( {}, "graph title", TextEditBox, {SetText("")} ),
          Dispatch( {}, "X title", TextEditBox, {SetText("John Doe (pending)")} ),
          Dispatch( {}, "Y title", TextEditBox, {SetText("")} ),
          Dispatch( {}, "400", LegendBox, {SetTitle("")} )
        )
      );
thepicture = report(gb) << GetPicture;

win = NewWindow( "Customer Service Scorecard",
  TextBox( "Customer Service Scorecard", <<SETFONTSIZE></SETFONTSIZE>

Re: Anotar gráfico circular (de Graph Builder) con JSL

Gracias jim

 

OK, veo que el TextBox no es realmente parte de GraphBuilder, sino una imagen colocada encima de él.  Pude ejecutar su script con éxito para crear un diario que contenga una imagen.

 

¿Qué pasa si la imagen era parte de un cuadro de mandos 2x2?

 

Por ejemplo:

1. OutlineBox con texto
2. Gráfico de barras
3. Imagen (gráfico circular con anotación)
4. OutlineBox con tabla

 

En el guión adjunto, ¿cómo combinaría la imagen con el resto del cuadro de mandos?

 

Re: Anotar gráfico circular (de Graph Builder) con JSL

Todo lo que se debe hacer para lograr esto, es agregar la anotación al gráfico y luego obtener la secuencia de comandos con la anotación.  Una vez que tienes eso, algunos cambios menores y tienes tu guión.  El cambio principal fue que la anotación no se transferiría a la revista, sino que al copiar la salida en una estructura de imagen y luego publicar esa imagen en la revista, uno tiene los resultados finales que desea.

Clear Log();
Names Default To Here( 1 );

dt = New Table( "Responses",
 AddRows( 4 ),
 New Column( "Status", Character( 7 ), "Nominal", Set Values( {"Late", "N/A", "On Time", "Pending"} ) ),
 New Column( "Count", Numeric, "Continuous", Format( "Fixed Dec", 12, 0 ), Set Values( [2, 0, 11, 1] ) )
);

total = 14;
thetext = "Responses\!n" || char(total);
win = New Window( "Scorecard",
 gb = dt << GraphBuilder(
  Size( 150, 180 ),
  ShowControlPanel( 0 ),
  Variables( X( :Status ), Y( :Name( "Count" ) ) ),
  Elements( Pie( X, Y, Legend( 2 ), Label( "Label by Value" ) ) ),
  SendToReport(
   Dispatch(
    {},
    "400",
    ScaleBox,
    {Legend Model(
     2,
     Properties( 0, {Fill Color( {247, 150, 70} )} ),  /* Late:     orange */
     Properties( 1, {Fill Color( {200, 200, 200} )} ),  /* N/A:      grey   */
     Properties( 2, {Fill Color( {155, 187, 89} )} ),  /* On Time:  green  */
     Properties( 3, {Fill Color( {192, 80, 77} )} )   /* Pending:  red    */
    )}
   ),
   Dispatch(
   {},
   "",
   GraphBuilderContainerBox,
   Add Text Annotation(
    Text( theText ),
    Text Box( {159, 94, 232, 133} ),
    Background Color( "White" )
   )
  ),
   Dispatch( {}, "Graph Builder", OutlineBox, {SetTitle( "Survey Responses (Q3 2017)" )} ),
   Dispatch( {}, "graph title", TextEditBox, {SetText( "" )} ),
   Dispatch( {}, "X title", TextEditBox, {SetText( "John Doe (pending)" )} ),
   Dispatch( {}, "Y title", TextEditBox, {SetText( "" )} ),
   Dispatch( {}, "400", LegendBox, {SetTitle( "" )} )
  )
 )
);
thepicture=report(gb)<<GET picture=""></GET>