415521_es-ES

liliconcom

Dividir una columna y transponerla como encabezado

Hola,

Tengo problemas para dividir columnas y transponerlas como encabezado y valor. Necesito ayuda aquí sobre cómo escribir el código.

Mi tabla de datos tiene cuatro columnas, artículo, número de pieza, número de pedido y cantidad.

Necesito dividir el Número de pedido y transponerlo como encabezado en una nueva columna y dividir la columna Cantidad y transponerlo a la celda respectiva.

Adjunto mi tabla de datos aquí y el resultado requerido para su referencia.

</CODE></PRE><P><SPAN class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="Capture.PNG" style="width: 999px;"><IMG src="https://us.v-cdn.net/6038925/uploads/images/35536i8BFFBFE73DC658B5/Capture.PNG" role="button" title="Capture.PNG" alt="Capture.PNG" /></SPAN></P><P>&nbsp;&nbsp;</P></LINGO-BODY><LINGO-LABS id="lingo-labs-415521" slang="en-US"><LINGO-LABEL>Scripting</LINGO-LABEL></LINGO-LABS><LINGO-SUB id="lingo-sub-415536" slang="en-US">Re: dividir una columna y transponerla como encabezado</LINGO-SUB><LINGO-BODY id="lingo-body-415536" slang="en-US"><P>Lo que desea se puede lograr utilizando el</P>
<P>Tablas => Dividir</P>
<P><SPAN class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="txnelson_0-1630733183189.png" style="width: 400px;"><IMG src="https://us.v-cdn.net/6038925/uploads/images/35537i8E626CF1FE4F430D/txnelson_0-1630733183189.png" role="button" title="txnelson_0-1630733183189.png" alt="txnelson_0-1630733183189.png" /></SPAN></P>
<P>&nbsp;</P>
<P>A continuación se muestra un script simple que toma el JSL proporcionado desde la plataforma dividida y luego simplemente agrega el JSL tomado de la función Recode</P>
<PRE><CODE class=" language-jsl">Names Default To Here( 1 );
dt = Current Data Table();

// Get the column names that will need to recoded to 0 if missing
Summarize( dt, colnames = by( :Order Number ) );

// Do the simple split to transform the data table
dtSplit = dt << Split(
 Split By( :Order Number ),
 Split( :Quantity ),
 Group( :Item, :Part Number ),
 Sort by Column Property
);

// Loop across all split columns and recode missing values to zeros
For( i = 1, i <= N Items( colnames ), i++,
 dtSplit << Begin Data Update;
 dtSplit << Recode Column(
  As Column( dtSplit, colnames[i] ),
  {Map Value( _rcOrig, {., 0}, Unmatched( _rcNow ) )},
  Update Properties( 1 ),
  Target Column( As Column( dtSplit, colnames[i] ) )
 );
 dt << End Data Update;
);