Duda
¿Cómo utilizar la rutina automática para la modificación de grupos de aprobación MATA114?
Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Compras (SIGACOM) - Todas las versiones 12
País: Todos.
Solución
El siguiente ejemplo se utiliza para modificar grupos de aprobación en donde se podrá modificar el grupo, los aprobadores, las entidades contables y los tipos de compra vs aprobador.
#Include 'TOTVS.ch'
#Include 'FWMVCDef.ch'
User Function U_Alterar1()
Local oModel := nil
Local cCodSAL := "000003"
Local cItemSAL := "01"
DbSelectArea("SAL")
SAL->(DBSetOrder(1)) //AL_FILIAL+AL_COD+AL_ITEM
If SAL->(DBSeek(XFilial("SAL")+cCodSAL+cItemSAL))
oModel := FwLoadModel("MATA114")
oModel:SetOperation(MODEL_OPERATION_UPDATE)
oModel:Activate()
//MASTER ModelSAL
oModel:SetValue("ModelSAL","AL_DESC","TST MODIFICAR")
//DETAIL DetailSAL
oModel:SetValue("DetailSAL","AL_NIVEL","02")
//DETAIL DetailDBL
oModel:SetValue("DetailDBL","DBL_CC", "CENTRO002")
//DETAIL DetailDHM
oModel:SetValue("DetailDHM" , "DHM_GRUPO" , "000002")
oModel:SetValue("DetailDHM" , "DHM_APROV" , "000002")
oModel:SetValue("DetailDHM" , "DHM_TIPCOM" , "002")
If oModel:VldData()
oModel:CommitData()
conout("Registro ALTERADO!")
Else
VarInfo("Erro ao alterar",oModel:GetErrorMessage())
EndIf
oModel:DeActivate()
oModel:Destroy()
oModel := nil
EndIf
//--------------------------------------------------
// Encerra o ambiente, fechando as devidas conexoes
//--------------------------------------------------
RpcClearEnv()
Return
Conozca más.
0 Comentarios