Duda
¿Cómo utilizar el ExecAuto para la Eliminación de una Previsión de Venta MATA700?
Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) MI - Facturación (SIGAFAT) - Todas las versiones 12
Solución
Función utilizada para eliminar una previsión de ventas a través de la rutina automática (ExecAuto)
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"
User Function MATA700()
Local lOk := .T.
Local aDados := {}
Local nOpcao := 4 // Inclusión = 3 // Modificación = 4 // Borrado = 5
PRIVATE lMsErroAuto := .F.
PRIVATE lAutoErrNoFile := .T.
//===============================================================//
// Apertura del entorno //
//===============================================================//
ConOut(Repl("-",80))
//===============================================================//
// Verificación del entorno para prueba //
//===============================================================//
dbSelectArea("SB1")
dbSetOrder(1)
//Campo B1_COD - Verifica se o produto existe.
If !SB1->(MsSeek(xFilial("SB1")+"PROD01"))
lOk := .F.
ConOut("Necesario registrar producto: Cod_Produto")
EndIf
ConOut("Inicio: "+Time())
//===============================================================//
// BORRADO //
//===============================================================//
ElseIf lOk .and. nOpcao == 5
aDados := {}
ConOut(PadC("Prueba de eliminación de la previsión de ventas",80))
//Es necesario que el campo esté exactamente igual al de la base.
aadd(aDados,{"C4_PRODUTO" ,"PROD01" ,Nil}) //Campo B1_COD
//Es necesario colocar fecha, porque pueden existir varias previsiones de venta del mismo producto con fechas diferentes.
aadd(aDados,{"C4_DATA" ,20241107 ,Nil})
MATA700(aDados,5)
If !lMsErroAuto
ALERT("Prevision eliminada con exito")
ConOut("¡Eliminación realizada con éxito! ")
Else
ALERT("No se pudo eliminar la Prevision")
aErro := GetAutoGRLog()
cErro := "¡No se pudo realizar la eliminación!"
Conout( cErro )
EndIf
EndIf
ConOut("Fim : "+Time())
RESET ENVIRONMENT
Return(.T.)
Conozca más.
MATA700 - Previsión de ventas (ExecAuto)
0 Comentarios