Duda
¿Cómo utilizar el ExecAuto para Inclusió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 generar 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 := 3 // 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())
//===============================================================//
// INCLUSIÓN //
//===============================================================//
If lOk .and. nOpcao == 3
ConOut(PadC("Prueba de inclusión de la previsión de ventas",80))
aadd(aDados,{"C4_PRODUTO" ,"PROD01" ,Nil}) //Campo B1_COD
aadd(aDados,{"C4_LOCAL" ,"01" ,Nil})
aadd(aDados,{"C4_DOC" ,"PROD01" ,Nil}) //Campo B1_DESC
aadd(aDados,{"C4_QUANT" ,1 ,Nil})
aadd(aDados,{"C4_VALOR" ,1 ,Nil})
//Se puede utilizar de la siguiente manera [ Date() +10 ] para sumar la fecha actual hasta alcanzar la deseada
aadd(aDados,{"C4_DATA" ,Date() ,Nil})
aadd(aDados,{"C4_OBS" ,"TESTE" ,Nil})
MATA700(aDados,3)
If !lMsErroAuto
ALERT("Inclusión realizada con exito")
ConOut("¡Inclusión realizada con éxito!")
Else
ALERT("No se pudo realizar la inclusión")
aErro := GetAutoGRLog()
cErro := "No se pudo realizar la inclusión"
Conout( cErro )
EndIf
Conozca más.
MATA700 - Previsión de ventas (ExecAuto)
0 Comentarios