viernes, 26 de diciembre de 2014

API Actualizar estados de Pedidos de Trabajo EAM

El API  EAM_PROCESS_WO_PUB.PROCESS_WO es un procedimiento para actualizar un pedido de trabajo del modulo de EAM. Usando esta API podemos cambiar el estado de un Pedido de trabajo de  estado Provisorio a Cancelado o de  Finalizado a Finalizar - Sin Cargos. 

A continuación dejo el siguiente script para poder actualziar un Pedido de Trabajo de Finalizado a Finalizar - Sin Cargos. 


DECLARE
  G_EAM_WO_RELATIONS_TBL0    EAM_PROCESS_WO_PUB.EAM_WO_RELATIONS_TBL_TYPE;
  G_EAM_WO_RELATIONS_REC     EAM_PROCESS_WO_PUB.EAM_WO_RELATIONS_REC_TYPE;
  G_EAM_OP_REC0              EAM_PROCESS_WO_PUB.EAM_OP_REC_TYPE;
  G_EAM_OP_REC1              EAM_PROCESS_WO_PUB.EAM_OP_REC_TYPE;
  G_EAM_OP_NETWORK_REC0      EAM_PROCESS_WO_PUB.EAM_OP_NETWORK_REC_TYPE;
  G_EAM_OP_NETWORK_REC1      EAM_PROCESS_WO_PUB.EAM_OP_NETWORK_REC_TYPE;
  G_EAM_MAT_REQ_REC0         EAM_PROCESS_WO_PUB.EAM_MAT_REQ_REC_TYPE;
  G_EAM_MAT_REQ_REC1         EAM_PROCESS_WO_PUB.EAM_MAT_REQ_REC_TYPE;
  G_EAM_DI_REC0              EAM_PROCESS_WO_PUB.EAM_DIRECT_ITEMS_REC_TYPE;
  G_EAM_DI_REC1              EAM_PROCESS_WO_PUB.EAM_DIRECT_ITEMS_REC_TYPE;
  G_EAM_RES_REC0             EAM_PROCESS_WO_PUB.EAM_RES_REC_TYPE;
  G_EAM_RES_REC1             EAM_PROCESS_WO_PUB.EAM_RES_REC_TYPE;
  G_EAM_RES_INST_REC0        EAM_PROCESS_WO_PUB.EAM_RES_INST_REC_TYPE;
  G_EAM_RES_INST_REC1        EAM_PROCESS_WO_PUB.EAM_RES_INST_REC_TYPE;
  G_EAM_OP_TBL0              EAM_PROCESS_WO_PUB.EAM_OP_TBL_TYPE;
  G_EAM_OP_TBL1              EAM_PROCESS_WO_PUB.EAM_OP_TBL_TYPE;
  G_EAM_OP_NETWORK_TBL0      EAM_PROCESS_WO_PUB.EAM_OP_NETWORK_TBL_TYPE;
  G_EAM_RES_TBL0             EAM_PROCESS_WO_PUB.EAM_RES_TBL_TYPE;
  G_EAM_RES_INST_TBL0        EAM_PROCESS_WO_PUB.EAM_RES_INST_TBL_TYPE;
  G_EAM_SUB_RES_TBL0         EAM_PROCESS_WO_PUB.EAM_SUB_RES_TBL_TYPE;
  G_EAM_RES_USAGE_TBL0       EAM_PROCESS_WO_PUB.EAM_RES_USAGE_TBL_TYPE;
  G_EAM_MAT_REQ_TBL0         EAM_PROCESS_WO_PUB.EAM_MAT_REQ_TBL_TYPE;
  G_EAM_DI_TBL0              EAM_PROCESS_WO_PUB.EAM_DIRECT_ITEMS_TBL_TYPE;
  G_OUT_EAM_WO_RELATIONS_TBL EAM_PROCESS_WO_PUB.EAM_WO_RELATIONS_TBL_TYPE;
  G_OUT_EAM_WO_REC           EAM_PROCESS_WO_PUB.EAM_WO_REC_TYPE;
  G_OUT_EAM_WO_TBL           EAM_PROCESS_WO_PUB.EAM_WO_TBL_TYPE;
  G_OUT_EAM_OP_TBL           EAM_PROCESS_WO_PUB.EAM_OP_TBL_TYPE;
  G_OUT_EAM_OP_NETWORK_TBL   EAM_PROCESS_WO_PUB.EAM_OP_NETWORK_TBL_TYPE;
  G_OUT_EAM_RES_TBL          EAM_PROCESS_WO_PUB.EAM_RES_TBL_TYPE;
  G_OUT_EAM_RES_INST_TBL     EAM_PROCESS_WO_PUB.EAM_RES_INST_TBL_TYPE;
  G_OUT_EAM_SUB_RES_TBL      EAM_PROCESS_WO_PUB.EAM_SUB_RES_TBL_TYPE;
  G_OUT_EAM_RES_USAGE_TBL    EAM_PROCESS_WO_PUB.EAM_RES_USAGE_TBL_TYPE;
  G_OUT_EAM_MAT_REQ_TBL      EAM_PROCESS_WO_PUB.EAM_MAT_REQ_TBL_TYPE;
  G_OUT_EAM_DI_TBL           EAM_PROCESS_WO_PUB.EAM_DIRECT_ITEMS_TBL_TYPE;

  G_EAM_WO_REC1 EAM_PROCESS_WO_PUB.EAM_WO_REC_TYPE;
  G_EAM_WO_REC2 EAM_PROCESS_WO_PUB.EAM_WO_REC_TYPE;
  G_EAM_WO_TBL0 EAM_PROCESS_WO_PUB.EAM_WO_TBL_TYPE;

  G_EAM_WO_RES_USG_TBL0 EAM_PROCESS_WO_PUB.EAM_RES_USAGE_TBL_TYPE;
  L_RETURN_STATUS       VARCHAR2(1);
  L_MSG_COUNT           NUMBER;

  G_EAM_WO_USG_REC1 EAM_PROCESS_WO_PUB.EAM_RES_USAGE_REC_TYPE;
  G_EAM_WO_USG_REC2 EAM_PROCESS_WO_PUB.EAM_RES_USAGE_REC_TYPE;

  MSG_INDEX     NUMBER;
  TEMP_ERR_MESG VARCHAR2(2000);

  P_WIP_ENTITY_ID   WIP_DISCRETE_JOBS.WIP_ENTITY_ID%TYPE;
  P_ORGANIZATION_ID WIP_DISCRETE_JOBS.ORGANIZATION_ID%TYPE;

  CURSOR C1 IS
    SELECT WIP_ENTITY_ID, ORGANIZATION_ID FROM WIP_DISCRETE_JOBS WHERE
    wip_entity_Id = (select WIP_ENTITY_ID  from eam_work_orders_v
     where  wip_entity_Name='&WORKORDER');
    ---STATUS_TYPE =4
BEGIN

  G_EAM_WO_REC1                  := NULL;
  G_EAM_WO_REC1.TRANSACTION_TYPE := EAM_PROCESS_WO_PVT.G_OPR_UPDATE;
  G_EAM_WO_REC1.BATCH_ID         := 2;
  G_EAM_WO_REC1.HEADER_ID        := 2;

  G_EAM_WO_REC1.DESCRIPTION := 'API Cambia Estado Pedido de Trabajo';
  G_EAM_WO_REC1.STATUS_TYPE := WIP_CONSTANTS.COMP_NOCHRG;---cambia estados
 
 /*Estados a tener en cuenta.
  UNRELEASED  CONSTANT NUMBER :=  1; -- Unreleased - no charges allowed
  SIMULATED   CONSTANT NUMBER :=  2; -- Simulated
  RELEASED    CONSTANT NUMBER :=  3; -- Released - charges allowed
  COMP_CHRG   CONSTANT NUMBER :=  4; -- Complete - charges allowed
  COMP_NOCHRG CONSTANT NUMBER :=  5; -- Complete - no charges allowed
  HOLD        CONSTANT NUMBER :=  6; -- Hold - no charges allowed
  CANCELLED   CONSTANT NUMBER :=  7; -- Cancelled - no charges allowed
  PEND_BOM    CONSTANT NUMBER :=  8; -- Pending bill of material load
  FAIL_BOM    CONSTANT NUMBER :=  9; -- Failed bill of material load
  PEND_ROUT   CONSTANT NUMBER := 10; -- Pending routing load
  FAIL_ROUT   CONSTANT NUMBER := 11; -- Failed routing load
  PEND_REPML  CONSTANT NUMBER := 13; -- Pending - repetitively mass loaded
  PEND_CLOSE  CONSTANT NUMBER := 14; -- Pending Close
  FAIL_CLOSE  CONSTANT NUMBER := 15; -- Failed Close
  PEND_SCHED  CONSTANT NUMBER := 16; -- Pending Scheduling 
  DRAFT       CONSTANT NUMBER := 17; -- Draft */
 
 
  G_EAM_WO_TBL0(1) := G_EAM_WO_REC1;

  OPEN C1;
  LOOP
    FETCH C1
      INTO P_WIP_ENTITY_ID, P_ORGANIZATION_ID;
    EXIT WHEN C1%NOTFOUND;
   
    G_EAM_WO_REC1.WIP_ENTITY_ID   := P_WIP_ENTITY_ID;
    G_EAM_WO_REC1.ORGANIZATION_ID := P_ORGANIZATION_ID;
   
    DBMS_OUTPUT.PUT_LINE('Cambiar estado para WIP_ENTITY_ID: ' ||
                         P_WIP_ENTITY_ID);
                        
EAM_PROCESS_WO_PUB.PROCESS_WO(P_BO_IDENTIFIER        => 'EAM',
                              P_API_VERSION_NUMBER   => 1.0,
                              P_INIT_MSG_LIST        => TRUE,
                              P_COMMIT               => 'Y',
                              P_EAM_WO_REC           => G_EAM_WO_REC1,
                              P_EAM_OP_TBL           => G_EAM_OP_TBL0,
                              P_EAM_OP_NETWORK_TBL   => G_EAM_OP_NETWORK_TBL0,
                              P_EAM_RES_TBL          => G_EAM_RES_TBL0,
                              P_EAM_RES_INST_TBL     => G_EAM_RES_INST_TBL0,
                              P_EAM_SUB_RES_TBL      => G_EAM_SUB_RES_TBL0,
                              P_EAM_RES_USAGE_TBL    => G_EAM_RES_USAGE_TBL0,
                              P_EAM_MAT_REQ_TBL      => G_EAM_MAT_REQ_TBL0,
                              P_EAM_DIRECT_ITEMS_TBL => G_EAM_DI_TBL0,
                              X_EAM_WO_REC           => G_EAM_WO_REC2,
                              X_EAM_OP_TBL           => G_OUT_EAM_OP_TBL,
                              X_EAM_OP_NETWORK_TBL   => G_OUT_EAM_OP_NETWORK_TBL,
                              X_EAM_RES_TBL          => G_OUT_EAM_RES_TBL,
                              X_EAM_RES_INST_TBL     => G_OUT_EAM_RES_INST_TBL,
                              X_EAM_SUB_RES_TBL      => G_OUT_EAM_SUB_RES_TBL,
                              X_EAM_RES_USAGE_TBL    => G_EAM_RES_USAGE_TBL0,
                              X_EAM_MAT_REQ_TBL      => G_OUT_EAM_MAT_REQ_TBL,
                              X_EAM_DIRECT_ITEMS_TBL => G_OUT_EAM_DI_TBL,
                              X_RETURN_STATUS        => L_RETURN_STATUS,
                              X_MSG_COUNT            => L_MSG_COUNT
                              -- , P_DEBUG => 'Y'
                              -- , P_OUTPUT_DIR => '/SQLCOM/LOG/LV115DYP'
                              -- , P_DEBUG_FILENAME => 'DIV_EAMBO22.LOG'
                              -- , P_DEBUG_FILE_MODE => 'W'
                              );

  DBMS_OUTPUT.PUT_LINE('Finalizado WIP_ENTITY_ID: ' || P_WIP_ENTITY_ID);
   DBMS_OUTPUT.PUT_LINE('Status : '||L_RETURN_STATUS);

IF L_MSG_COUNT > 0 then
DBMS_OUTPUT.PUT_LINE('Error Ocurrido : '||SQLERRM||' : '||SQLCODE);
END IF;
  
  END LOOP;
  CLOSE C1;
END;


1 comentario: