#-------------------------------------#
FUNCTION wfman002_alterar_componentes()
#-------------------------------------#
    DEFINE lr_return RECORD
                        num_sequencia    LIKE estrut_grade.num_sequencia
                       END RECORD

    DEFINE l_justificativa CHAR(300),
           l_acao         status CHAR(001)SMALLINT,
           l_altera_item   CHAR(001)

    DEFINE l_ind,
       msg    l_item_ind,CHAR(300)
           l_item_count SMALLINT

    IF  LOG_initApp("MANENG") > 0 THEN
    END RECORD

   LET DEFINE lr_return.status = FALSE
comp_orig,
          LET lr_comp_return.msgdest RECORD
   = "Usuário ",p_user CLIPPED," sem permissão para acessar a rotina."
        RETURN lr_return
    END IF

    LET lr_comp_orig.cod_item_compon  =LIKE _ADVPL_WfGetParameterValue("componentes","estrut_grade.cod_item_compon_orig")
,
                       LET lr_comp_orig.     cod_grade_comp_1 =LIKE _ADVPL_WfGetParameterValue("componentes","estrut_grade.cod_grade_comp_1_orig")
,
                LET lr_comp_orig.            cod_grade_comp_2 =LIKE _ADVPL_WfGetParameterValue("componentes","estrut_grade.cod_grade_comp_2_orig")
,
                           LET lrcod_grade_comp_orig3 LIKE estrut_grade.cod_grade_comp_3 = _ADVPL_WfGetParameterValue("componentes","cod_grade_comp_3_orig")
,
                           LET lr_comp_orig.cod_grade_comp_4 =LIKE _ADVPL_WfGetParameterValue("componentes","estrut_grade.cod_grade_comp_4_orig")
,
                           LET lr_comp_orig.cod_grade_comp_5 =LIKE _ADVPL_WfGetParameterValue("componentes","estrut_grade.cod_grade_comp_5_orig")
                        END RECORD

    LET lr_comp_dest.cod_item_compon  = _ADVPL_WfGetParameterValue("componentes","cod_item_compon_dest")
    LET lr_comp_dest.cod_grade_comp_1 = _ADVPL_WfGetParameterValue("componentes","cod_grade_comp_1_dest")
    LET lr_comp_dest.cod_grade_comp_2 = _ADVPL_WfGetParameterValue("componentes","cod_grade_comp_2_dest")
    LET lr_comp_dest.cod_grade_comp_3 = _ADVPL_WfGetParameterValue("componentes","cod_grade_comp_3_dest")
    LET lr_comp_dest.cod_grade_comp_4 = _ADVPL_WfGetParameterValue("componentes","cod_grade_comp_4_dest")
    LET lr_comp_dest.cod_grade_comp_5 = _ADVPL_WfGetParameterValue("componentes","cod_grade_comp_5_dest")

    LET l_justificativa = _ADVPL_WfGetParameterValue("componentes","justificativa")
    LET l_acao          = _ADVPL_WfGetParameterValue("componentes","slct_acao")

    #Verifica os códigos da grade de origem.
    IF  lr_comp_orig.cod_grade_comp_1 IS NULL THEN
        LET lr_comp_orig.cod_grade_comp_1 = " "
    END IF

    IF  lr_comp_orig.cod_grade_comp_2 IS NULL THEN
DEFINE la_item_pai ARRAY[100] OF RECORD
                           cod_item_pai     LIKE estrut_grade.cod_item_pai,
                           cod_grade_1      LIKE estrut_grade.cod_grade_1,
                           cod_grade_2      LIKE estrut_grade.cod_grade_2,
                           cod_grade_3      LIKE estrut_grade.cod_grade_3,
                           cod_grade_4      LIKE estrut_grade.cod_grade_4,
                           cod_grade_5      LIKE estrut_grade.cod_grade_5,
                          LET lr_comp_orig.cod_grade_comp_2 = " "
qtd_necessaria   LIKE estrut_grade.qtd_necessaria,
        END IF

    IF  lr_comp_orig.cod_grade_comp_3 IS NULL THEN
        LET lrdat_comp_orig.codvalidade_ini LIKE estrut_grade.dat_compvalidade_3ini,
 = " "
    END IF

    IF  lr_comp_orig.cod_grade_comp_4 IS NULL THEN
              LET lrdat_comp_orig.codvalidade_fim LIKE estrut_grade.dat_comp_4 = " "
validade_fim,
        END IF

    IF  lr_comp_orig.cod_grade_comp_5 IS NULL THEN
        LET lr_comp_orig.cod_grade_comp_5 = " "num_sequencia    LIKE estrut_grade.num_sequencia
    END IF

    #Verifica os códigos da grade de destino.
    IF  lr_comp_dest.cod_grade_comp_1 IS NULLEND THENRECORD

    DEFINE l_justificativa CHAR(300),
  LET lr_comp_dest.cod_grade_comp_1 = " "
    END IF

 l_acao    IF  lr_comp_dest.cod_grade_comp_2 IS NULL THEN
    CHAR(001),
    LET lr_comp_dest.cod_grade_comp_2 = " "
    END IF       l_altera_item   CHAR(001)

    IFDEFINE  lr_comp_dest.cod_grade_comp_3 IS NULL THEN
l_ind,
          LET lrl_comp_dest.cod_grade_comp_3 = " "
item_ind,
           END IFl_item_count SMALLINT

    IF  lr_comp_dest.cod_grade_comp_4 IS NULLLOG_initApp("MANENG") > 0 THEN
        LET lr_comp_dest.cod_grade_comp_4return.status = " "
 FALSE
        LET lr_return.msg   END IF

= "Usuário ",p_user CLIPPED," IFsem  lr_comp_dest.cod_grade_comp_5 IS NULL THENpermissão para acessar a rotina."

        LETRETURN lr_comp_dest.cod_grade_comp_5 = " "return
    END IF

    LET llr_comp_orig.cod_item_indcompon   = 0_ADVPL_WfGetParameterValue("componentes","cod_item_compon_orig")
    LET l_item_countlr_comp_orig.cod_grade_comp_1 = _ADVPL_WfGetParameterLengthWfGetParameterValue("item_paicomponentes","cod_grade_comp_1_orig")

    FORLET l_ind = 1 TO l_item_count
        LET l_altera_itemlr_comp_orig.cod_grade_comp_2 = _ADVPL_WfGetParameterValue("item_paicomponentes","altera_item",l_ind)

        IF  l_altera_item = "S" THEN
        cod_grade_comp_2_orig")
    LET l_item_ind = l_item_ind + 1

    lr_comp_orig.cod_grade_comp_3 = _ADVPL_WfGetParameterValue("componentes","cod_grade_comp_3_orig")
        LET lalr_item_pai[l_item_ind]comp_orig.cod_grade_itemcomp_pai4     = _ADVPL_WfGetParameterValue("item_paicomponentes","cod_grade_comp_item4_paiorig",l_ind)
            LET lalr_item_pai[l_item_ind]comp_orig.cod_grade_1      comp_5 = _ADVPL_WfGetParameterValue("item_paicomponentes","cod_grade_comp_5_1orig",l_ind)

            LET la_item_pai[l_item_ind]LET lr_comp_dest.cod_grade_2   item_compon   = _ADVPL_WfGetParameterValue("item_paicomponentes","cod_item_gradecompon_2dest",l_ind)
            LET lalr_item_pai[l_item_ind]comp_dest.cod_grade_3      comp_1 = _ADVPL_WfGetParameterValue("item_paicomponentes","cod_grade_comp_3",l_ind)
        1_dest")
    LET lalr_item_pai[l_item_ind]comp_dest.cod_grade_4      comp_2 = _ADVPL_WfGetParameterValue("item_paicomponentes","cod_grade_4",l_ind)
      comp_2_dest")
      LET lalr_item_pai[l_item_ind]comp_dest.cod_grade_comp_5      3 = _ADVPL_WfGetParameterValue("item_paicomponentes","cod_grade_5",l_ind)
    comp_3_dest")
        LET lalr_item_pai[l_item_ind].qtd_necessaria   comp_dest.cod_grade_comp_4 = _ADVPL_WfGetParameterValue("item_paicomponentes","qtd_necessaria",l_indcod_grade_comp_4_dest")
            LET lalr_item_pai[l_item_ind].dat_validade_inicomp_dest.cod_grade_comp_5 = _ADVPL_WfGetParameterValue("item_paicomponentes","dat_validade_ini",l_ind)
cod_grade_comp_5_dest")

            LET la_item_pai[l_item_ind].dat_validade_fimjustificativa = _ADVPL_WfGetParameterValue("item_paicomponentes","dat_validade_fim",l_indjustificativa")
    LET l_acao       LET la_item_pai[l_item_ind].num_sequencia    = _ADVPL_WfGetParameterValue("item_paicomponentes","num_sequencia",l_indslct_acao")

            #Verifica os códigos da grade dode item paiorigem.
            IF  lalr_item_pai[l_item_ind]comp_orig.cod_grade_comp_1 IS NULL THEN
                LET lalr_item_pai[l_item_ind]comp_orig.cod_grade_comp_1 = " "
            END IF

            IF  la_item_pai[l_item_ind]IF  lr_comp_orig.cod_grade_comp_2 IS NULL THEN
                LET lalr_item_pai[l_item_ind]comp_orig.cod_grade_comp_2 = " "
            END IF

            IF  lalr_item_pai[l_item_ind]comp_orig.cod_grade_comp_3 IS NULL THEN
                LET la_item_pai[l_item_ind]lr_comp_orig.cod_grade_comp_3 = " "
            END IF

            IF  lalr_item_pai[l_item_ind]comp_orig.cod_grade_comp_4 IS NULL THEN
                LET lalr_item_pai[l_item_ind]comp_orig.cod_grade_comp_4 = " "
            END IF

            IF  la_item_pai[l_item_ind]lr_comp_orig.cod_grade_comp_5 IS NULL THEN
                LET lalr_item_pai[l_item_ind]comp_orig.cod_grade_comp_5 = " "
            END IF

    #Verifica os códigos da ENDgrade IF
    END FOR
de destino.
    {
IF  lr_comp_dest.cod_grade_comp_1      Regra de negócio 4GL.IS NULL THEN
    }

    LET lr_return.status = TRUEcomp_dest.cod_grade_comp_1 = " "
    END IF

    LETIF  lr_comp_return.msg    = "Item componente alterado com sucesso."

    RETURN lr_return
END FUNCTION

{
    "success": true|false,
    "msg": "Mensagem retornada pela rotina."
}