Duda
¿Cómo utilizar la rutina automática para la inclusió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 incluir grupos de aprobación en donde se podrá configurar el grupo, los aprobadores, las entidades contables y los tipos de compra vs aprobador.
#Include 'TOTVS.ch'
#Include 'FWMVCDef.ch'
User function U_Incluir1()
Local oModel := nil
//---------------------------------------------
// Abertura de ambiente para execucao sem tela
//---------------------------------------------
oModel := FwLoadModel("MATA114")
oModel:SetOperation(MODEL_OPERATION_INSERT)
oModel:Activate()
ALERT("RUTINA AUTOMATICA GRUPO DE APROBACION.")
//MASTER ModelSAL
oModel:SetValue("ModelSAL" ,"AL_COD" ,"000003" )
oModel:SetValue("ModelSAL" ,"AL_DESC" ,"TST RUTINA AUTOM" )
//DETAIL DetailSAL
oModel:SetValue("DetailSAL" ,"AL_ITEM" ,"01" )
oModel:SetValue("DetailSAL" ,"AL_APROV" ,"000002" )
oModel:SetValue("DetailSAL" ,"AL_PERFIL" ,"000001" )
oModel:SetValue("DetailSAL" ,"AL_USER" ,"000000" )
oModel:SetValue("DetailSAL" ,"AL_NIVEL" ,"01" )
//DETAIL DetailDBL
oModel:SetValue("DetailDBL" ,"DBL_GRUPO" ,"000001" )
oModel:SetValue("DetailDBL" ,"DBL_ITEM" ,"01" )
oModel:SetValue("DetailDBL" ,"DBL_CC" ,"CENTR0001")
//DETAIL DetailDHM
oModel:SetValue("DetailDHM" ,"DHM_GRUPO" , "000002" )
oModel:SetValue("DetailDHM" ,"DHM_APROV" , "000002" )
oModel:SetValue("DetailDHM" ,"DHM_TIPCOM" , "001" )
If oModel:VldData()
oModel:CommitData()
conout("Registro INCLUIDO!")
ALERT("Grupo incluido con exito!")
Else
VarInfo("Erro ao incluir",oModel:GetErrorMessage())
EndIf
oModel:DeActivate()
oModel:Destroy()
oModel := nil
//--------------------------------------------------
// Encerra o ambiente, fechando as devidas conexoes
//--------------------------------------------------
RpcClearEnv()
Return Nil
Conozca más.
0 Comentarios