Histórico da Página

#-------------------------------------#
FUNCTION wfman002_alterar_componentes()
#-------------------------------------#
    DEFINE lr_return RECORDgrade_5,
                           qtd_necessaria   LIKE estrut_grade.qtd_necessaria,
                           dat_validade_ini LIKE estrut_grade.dat_validade_ini,
                           dat_validade_fim LIKE estrut_grade.dat_validade_fimstatus SMALLINT,
                         msg  num_sequencia    LIKE estrut_grade.num_sequencia
    CHAR(300)
                     END RECORD

    DEFINE l_justificativa CHAR(300)lr_comp_orig,
           llr_comp_acaodest RECORD
         CHAR(001),
           l_altera_item   CHAR(001)

    DEFINE l_ind,
cod_item_compon           lLIKE estrut_grade.cod_item_indcompon,
           l_item_count SMALLINT

    IF  LOG_initApp("MANENG") > 0 THEN
        LET lr_return.status = FALSE
cod_grade_comp_1 LIKE estrut_grade.cod_grade_comp_1,
                LET lr_return.msg    = "Usuário ",p_user CLIPPED," sem permissão para acessar a rotina."
 cod_grade_comp_2 LIKE estrut_grade.cod_grade_comp_2,
         RETURN lr_return
    END IF

    LET lr_comp_orig.cod_item_compon  = _ADVPL_WfGetParameterValue("componentes","cod_item_compon_orig")
    LET lr_comp_orig.cod_grade_comp_13 =LIKE _ADVPL_WfGetParameterValue("componentes","estrut_grade.cod_grade_comp_1_orig")
3,
                           LET lr_comp_orig.cod_grade_comp_24 =LIKE _ADVPL_WfGetParameterValue("componentes","estrut_grade.cod_grade_comp_2_orig")4,
    LET lr_comp_orig.cod_grade_comp_3 = _ADVPL_WfGetParameterValue("componentes","cod_grade_comp_3_orig")
                       LET lr_comp_orig.cod_grade_comp_45 =LIKE _ADVPL_WfGetParameterValue("componentes","estrut_grade.cod_grade_comp_4_orig")5
                        END RECORD

    DEFINE la_item_pai ARRAY[100] OF RECORD
    LET lr_comp_orig.cod_grade_comp_5 = _ADVPL_WfGetParameterValue("componentes","cod_grade_comp_5_orig")

                      LET lr_comp_dest.cod_item_componpai     =LIKE _ADVPL_WfGetParameterValue("componentes","estrut_grade.cod_item_compon_dest")pai,
    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","1      LIKE estrut_grade.cod_grade_comp_3_dest")
1,
     LET lr_comp_dest.cod_grade_comp_4 = _ADVPL_WfGetParameterValue("componentes","cod_grade_comp_4_dest")
                      cod_grade_2      LETLIKE lrestrut_comp_destgrade.cod_grade_comp_5 = _ADVPL_WfGetParameterValue("componentes","cod_grade_comp_5_dest")

2,
                           cod_grade_3      LIKE estrut_grade.cod_grade_3,
          LET l_justificativa = _ADVPL_WfGetParameterValue("componentes","justificativa")
    LET l_acao          = _ADVPL_WfGetParameterValue("componentes","slct_acao")

cod_grade_4      LIKE estrut_grade.cod_grade_4,
               #Verifica os códigos da grade de origem.
    IF  lr_comp_orig.cod_grade_comp_1 IS NULL THEN
5      LIKE   LET lr_comp_origestrut_grade.cod_grade_comp_1 = " "
5,
        END IF

    IF  lr_comp_orig.cod_grade_comp_2 IS NULL THEN
        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_comp_3 = " "
validade_ini,
        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 NULL THEN
   END RECORD

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

    IF  lr_comp_dest.cod_grade_comp_2 IS NULL THEN
 CHAR(001),
          LET lrl_comp_dest.cod_grade_comp_2 = " "altera_item   CHAR(001)

    END IF

DEFINE l_ind,
    IF  lr_comp_dest.cod_grade_comp_3 IS NULL THEN
  l_item_ind,
      LET lr_comp_dest.cod_grade_comp_3 = " "
    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
    END IF

   LET IF  lr_comp_dest.cod_grade_comp_5 IS NULL THENreturn.msg    = "Usuário ",p_user CLIPPED," sem permissão para acessar a rotina."

        LETRETURN lr_comp_dest.cod_grade_comp_5 = " "return
    END IF

    LET llr_item_ind   = 0
    LET lcomp_orig.cod_item_countcompon  = _ADVPL_WfGetParameterLengthWfGetParameterValue("componentes"item_pai")

    FOR l_ind = 1 TO l_item_count,"cod_item_compon_orig")
        LET l_altera_itemlr_comp_orig.cod_grade_comp_1 = _ADVPL_WfGetParameterValue("item_paicomponentes","altera_item",l_ind)
cod_grade_comp_1_orig")
        IF  l_altera_item = "S" THENLET lr_comp_orig.cod_grade_comp_2 = _ADVPL_WfGetParameterValue("componentes","cod_grade_comp_2_orig")
            LET l_item_ind = l_item_ind + 1

            LET la_item_pai[l_item_ind].cod_item_pai    LET lr_comp_orig.cod_grade_comp_3 = _ADVPL_WfGetParameterValue("componentes","cod_grade_comp_3_orig")
    LET lr_comp_orig.cod_grade_comp_4 = _ADVPL_WfGetParameterValue("item_paicomponentes","cod_item_pai",l_ind)
     grade_comp_4_orig")
       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]lr_comp_dest.cod_gradeitem_2compon      = _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_3",l_ind)
         comp_1_dest")
   LET la_item_pai[l_item_ind] LET lr_comp_dest.cod_grade_4      comp_2 = _ADVPL_WfGetParameterValue("item_paicomponentes","cod_grade_comp_4",l_ind2_dest")
            LET lalr_item_pai[l_item_ind]comp_dest.cod_grade_5      comp_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

    IF  lalr_item_pai[l_item_ind]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
         NULL THEN
        LET lalr_item_pai[l_item_ind]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  lr_comp_orig.cod_grade_comp_5 IS NULL THEN
       IF LET lalr_item_pai[l_item_ind]comp_orig.cod_grade_comp_5 IS= NULL" THEN"
    END IF

    #Verifica os códigos da grade de destino.
   LET IF  lalr_item_pai[l_item_ind]comp_dest.cod_gradegrade_comp_51 =IS "NULL "THEN
        LET lr_comp_dest.cod_grade_comp_1 = " END IF"
        END IF

    ENDIF FOR

    { lr_comp_dest.cod_grade_comp_2 IS NULL THEN
        Regra de negócio 4GL.
    }

    LET lr_return.status = TRUELET lr_comp_dest.cod_grade_comp_2 = " "
    END IF

    IF LET lr_return.msg    = "Item componente alterado com sucesso."

    RETURN lr_return
END FUNCTION

{
    "cod_grade_5_destsuccess": ""true|false,
            "justificativamsg": "ALTERACAOMensagem DOretornada COMPONENTE ITEM-TESTE-NOVO PRETO PARA ITEM-TESTE BRANCO."
        }
    ]pela rotina."
}