Duda
¿Cómo utilizar el ExecAuto para la Modificació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 modificar la 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())
//==================================================================//
// MODIFICACIÓN //
//==================================================================//
ElseIf lOk .and. nOpcao == 4
aDados := {}
ConOut(PadC("Prueba de cambio de previsión de ventas",80))
//No se puede cambiar la fecha, es necesario que la fecha sea igual a la fecha de inclusión.
//Es necesario que el campo sea exactamente igual al de la base.
aadd(aDados,{"C4_PRODUTO" ,"PROD01" ,Nil}) //Campo B1_COD
aadd(aDados,{"C4_LOCAL" ,"01" ,Nil})
//Es necesario que el campo sea exactamente igual al de la base.
aadd(aDados,{"C4_DOC" ,"PROD01" ,Nil}) //Campo B1_DESC
aadd(aDados,{"C4_QUANT" ,20 ,Nil})
aadd(aDados,{"C4_VALOR" ,20 ,Nil})
//Es necesario que la fecha sea igual al de la inclusión.
aadd(aDados,{"C4_DATA" ,Date() ,Nil})
aadd(aDados,{"C4_OBS" ,"TESTE" ,Nil})
MATA700(aDados,4)
If !lMsErroAuto
ALERT("Modificación realizada con exito")
ConOut("¡Cambio realizado con éxito! ")
Else
ALERT("No se pudo realizar la modificación")
aErro := GetAutoGRLog()
cErro := "¡No se pudo realizar la modificación!"
Conout( cErro )
EndIf
ConOut("Fim : "+Time())
RESET ENVIRONMENT
Return(.T.)
Conozca más.
MATA700 - Previsión de ventas (ExecAuto)
0 Comentarios