Tiempo aproximado de lectura: 00:05:00 min
Duda
¿Cómo se ocupa el ExecAuto para la Exclusión de una Meta de Venta en la rutina FATA050?
Ambiente
Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - SIGAFAT - Todas las versiones 12
Solución
Función utilizada para la inclusión, alteración o exclusión de Objetivos de Venta a través de la rutina automática ( ExecAuto ).
Sintaxis
MSExecAuto({|a, b, c| FATA050(a, b, c)}, aCabec, aGrid, nOpcX)
Ejemplo de uso
EXCLUSION
#INCLUDE "PROTHEUS.CH"#INCLUDE "TBICONN.CH"User Function MyFATA050Local cMeta := "Meta00001"Local nOpcX := 5Local nCount := 0Local aErroAuto := {}Private lMsErroAuto := .F.Private lAutoErrNoFile := .F.//* Abertura do ambienteConOut("Inicio: " + Time()) ConOut(Repl("-",80))ConOut(PadC("Exclusão de Meta de Venda", 80)) PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "FAT" TABLES "SCT","SA3"// Verifica se o registro que sera alterado existeSCT->(DBSetOrder(1))If SCT->(! MsSeek(xFilial("SCT") + cMeta)) cMsgLog += "Não foi localizada a Meta de Venda: " + CRLF lOk := .F.EndIf//* Exclusão - INÍCIOaCabec := {}//--- Informando os dados do Cabeçalhoaadd(aCabec, {"CT_DOC", cMeta, Nil})//--- Commit da rotinaMSExecAuto({|a, b, c| FATA050(a, b, c)}, aCabec, , nOpcX)If !lMsErroAuto ConOut("Excluida com sucesso! ")Else ConOut("Erro na exclusão!") aErroAuto := GetAutoGRLog() For nCount := 1 To Len(aErroAuto) cLogErro += StrTran(StrTran(aErroAuto[nCount], "<", ""), "-", "") + " " ConOut(cLogErro) Next nCountEndIfRESET ENVIRONMENTReturn(.T.)
Conozca más
0 Comentarios