Duda
¿Cómo utilizar la rutina automática para borrar 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 borrar grupos de aprobación.
#Include "Protheus.ch"
#Include "RwMake.ch"
User Function Excluir1()
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_DELETE)
oModel:Activate()
If oModel:VldData()
oModel:CommitData()
conout("Registro EXCLUIDO!")
Else
VarInfo("Erro ao excluir",oModel:GetErrorMessage())
EndIf
oModel:DeActivate()
oModel:Destroy()
oModel := nil
EndIf
//--------------------------------------------------
// Encerra o ambiente, fechando as devidas conexoes
//--------------------------------------------------
RpcClearEnv()
Return
Conozca más.
0 Comentarios