Quintiq file version 2.0
#parent: PanelSCV/CustomDrawDataLayerSCVNode_549
Response OnDrawObject (
  shadow[SCVNode] object
) id:Response_PanelSCV_CustomDrawDataLayerSCVNode_OnDrawObject
{
  #keys: '[134266.2.4979938]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebCustomDrawDataLayer_OnDrawObject'
  QuillAction
  {
    Body:
    [*
      // Draw SCVNode
      
      // Drawing parameters, node label, node title, label width, title width
      scvconfig := MacroPlan.SCVConfiguration();
      nodesize := scvconfig.NodeSize();
      
      nodetitle := ''
      nodelabel := ''
      iconimage := '';
      textformat := TextFormat::Construct( TextFormat::AlignBottom(), TextFormat::AlignCenter() ); 
      
      // Specify labels, iconimage based on draw type
      if( object.istype( shadow[SCVPISPIPNode] ) )
      {
        pisp := object.astype( shadow[SCVPISPIPNode] ).ProductInStockingPointInPeriod().ProductInStockingPoint_MP();
        nodetitle := pisp.Product_MP().Name();
        nodelabel := pisp.StockingPoint_MP().Name();
        iconimage := ifexpr( pisp.Product_MP().IconName() <> '', pisp.Product_MP().IconName(), 'PRODUCT2' );
      
      }           
      else if( object.istype( shadow[SCVRoutingStepNode] ) )
      {
        routingStep := select( object.astype( shadow[SCVRoutingStepNode] ), OperationInNode.Operation.RoutingStep, rs, true );
        nodelabel := routingStep.Name();
        iconimage := ifexpr( routingStep.Operation( relsize ) > 1, 'SIZES', 'SHAPE_SQUARE_BLUE' );
      }
      else if( object.istype( shadow[SCVLaneNode] ) )
      {
        lane := object.astype( shadow[SCVLaneNode] ).Lane();
        nodelabel := lane.Name();
        iconimage := 'DELIVERY_AMBER';
      }
      else if( object.istype( shadow[SCVISNode] ) )
      {
        nodelabel := object.Name();
        iconimage := 'HAND_TRUCK_BOX';
      }
      else if( object.istype( shadow[SCVSDNode] ) )
      {
        node := object.astype( shadow[SCVSDNode] );
        nodelabel := object.Name();
        iconimage := ifexpr( node.ProductInStockingPointInPeriod().GetAreAllAssociatedSDIPsFulfilled(), 'DOCUMENT', 'DOCUMENT_DIRTY' );
      }
      
      // Text width, derived from horizontal offset
      textWidth := floor( scvconfig.OffsetX() / 2 );
      textOffsetX := floor( ( nodesize - textWidth ) / 2 );
      textHeight := floor( scvconfig.OffsetY() / 2 );
      
      // Draw node
      if( scvconfig.IsUsingIconName() or not object.istype( shadow[SCVPISPIPNode] ) )
      {
        surface.Image( region.BoundingRect().Left(), region.BoundingRect().Top(), nodesize, nodesize, iconimage )
      }
      else
      {
        node := object.astype( shadow[SCVPISPIPNode] );
        penWidth := 2;
        
        if( node.ProductInStockingPointInPeriod().istype( ProductInStockingPointInPeriodPlanning )
            and not node.ProductInStockingPointInPeriod().astype( ProductInStockingPointInPeriodPlanning ).IsValidPlannedBalance() ) // violation, no color with red border
        {
          // Draw planning violation indicator
          surface.Pen().Color( ColorScheme.SupplyChainVisualization_NodeViolation() );    
          
          textformat_violation := TextFormat::Construct( TextFormat::AlignCentered() ); 
          surface.TextColor( ColorScheme.SupplyChainVisualization_NodeViolation() );                                                                     
          surface.TextZoom( region.BoundingRect().Left(), region.BoundingRect().Top(), nodesize, nodesize, '!', textformat_violation );
        }
        else if( object.IsRoot() ) // root color, with border
        {
          surface.Pen().Color( Color::Black() )
          surface.Brush().Color( ColorScheme.SupplyChainVisualization_RootNode() ) 
        } 
        else // normal node, node color, no border
        {
          penWidth := 0;
          surface.Brush().Color( ColorScheme.SupplyChainVisualization_Node() );  
        }
        
        surface.Pen().Width( penWidth );
        circle := Shape::Circle( region.BoundingRect().Left(), region.BoundingRect().Top(), nodesize );
        surface.Fill( circle );
        surface.Draw( circle );
      }
      
      // Update pen parameters
      surface.Font().Name( scvconfig.FontName() )
                    .Size(scvconfig.FontSize() );
      surface.TextColor( Color::Black() );
      
      // Draw text
      if( object.IsRoot() )
      {
        surface.Font().Bold( true );
       
        // Draw period below the root node
        periodStart := object.astype( shadow[SCVPISPIPNode] ).ProductInStockingPointInPeriod().Period_MP().StartDate();
        periodString := periodStart.Format( 'D-MM-YOnMax(-)OnMin(-)' );
        
        nodelabel := nodelabel + String::NewLine() + periodString;
      }
      
      // For node title, we define a region above the top of the node
      // then align it bottom, so that the text sticks to the top of the node
      // Draw node title
      surface.TextZoom( region.BoundingRect().Left() + textOffsetX, // X
                        region.BoundingRect().Top() - textHeight,   // Y
                        textWidth,                   // Width
                        textHeight,                  // Height
                        nodetitle,                   // Text
                        textformat );                // Text format
      
      // For text label, we make the draw region starts at the bottom of the node then align it top, so that
      // it sticks to the bottom of the node                      
      textformat := TextFormat::Construct( TextFormat::AlignTop(), TextFormat::AlignCenter(), TextFormat::WrapWords() ); 
      // Draw node label
      surface.TextZoom( region.BoundingRect().Left() + textOffsetX,
                        region.BoundingRect().Bottom(),             
                        textWidth,                   
                        textHeight,                  
                        nodelabel,
                        textformat );
      
      // Draw indication for stream limit hit
      isUpstreamLimitHit := object.IsUpstream() and object.IsDepthLimitMet();
      isDownstreamLimitHit := not object.IsUpstream() and object.IsDepthLimitMet();
      
      // Special handling for root
      if( object.IsRoot() )
      {
        node := object.astype( shadow[SCVPISPIPNode] );
        isUpstreamLimitHit := scvconfig.UpstreamDepthLimit() = 0 
                              and ( ( FormSupplyChainVisualization.GetInputOutputs( node.ProductInStockingPointInPeriod(), true /*isupstream*/ ).Size() > 0 )
                                      or node.ProductInStockingPointInPeriod().InventorySupplyQuantity() > 0 );
        isDownstreamLimitHit := scvconfig.DownstreamDepthLimit() = 0 
                                and ( ( FormSupplyChainVisualization.GetInputOutputs( node.ProductInStockingPointInPeriod(), false /*isupstream*/ ).Size() > 0 )
                                        or node.ProductInStockingPointInPeriod().SalesDemandInPeriodBase( relsize ) > 0 );                                                                        
      }
      
      textformat := TextFormat::Construct( TextFormat::AlignCentered() );
      
      if( isUpstreamLimitHit )
      {
        surface.Font().Bold( true );
        surface.TextColor( ColorScheme.SupplyChainVisualization_Edge() );
              
        surface.TextZoom( region.BoundingRect().Left() + 2 * -nodesize,
                          region.BoundingRect().Top(),
                          nodesize,
                          nodesize,
                          '...',
                          textformat );
      }
      
      if( isDownstreamLimitHit )
      {
        surface.Font().Bold( true );
        surface.TextColor( ColorScheme.SupplyChainVisualization_Edge() );
        
        surface.TextZoom( region.BoundingRect().Left() + 2 * nodesize,
                          region.BoundingRect().Top(),
                          nodesize,
                          nodesize,
                          '...',
                          textformat );
      }
    *]
    GroupServerCalls: false
  }
}