Duda
¿Cómo utilizar el ExecAuto para la Modificación de reglas de descuento. FATA080?
Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) MI - Facturación (SIGAFAT) - Todas las versiones 12
Todos lo paises.
Solución
Función utilizada para incluir, modificar o eliminar reglas de descuento a través de la rutina automática (ExecAuto).
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"
User Function U_MYFATA080()
Local cCodReg := "000002" // Código de la regla
Local cB1Cod := "0101001" // Código del producto
Local cMsgLog := ""
Local cFilSB1 := ""
Local nOpcX := 4 // Modificación
Local aCabec := {}
Local aItens := {}
Local aLinha := {}
Local lOk := .T.
Private lMsErroAuto := .F. // Indica si hubo error al ejecutar la rutina automática
Private lMsHelpAuto := .T. // Indica si hubo error al ejecutar la rutina automática
//****************************************************************
//* Apertura del entorno
//****************************************************************
ConOut("Inicio: " + Time())
ConOut(Repl("-",80))
ConOut(PadC("Proceso de cambio de reglas de descuento", 80))
//PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "FAT" TABLES "ACO","ACP","SA1","SBM"
//****************************************************************
//* Verifica si el producto existe
//****************************************************************
SB1->(dbSetOrder(1))
cFilSB1 := xFilial("SB1")
If SB1->(! MsSeek(cFilSB1 + cB1Cod))
cMsgLog += "Registrar el producto: " + cB1Cod + CRLF
lOk := .F.
EndIf
If lOk
//|---------------------------------|
//| ENCABEZADO |
//|---------------------------------|
aCabec := {}
aadd(aCabec, {"ACO_CODREG", cCodReg, Nil})
aadd(aCabec, {"ACO_DESCRI", "MODIFICACIÓN DE REGLA DE DESCUENTO", Nil})
//|---------------------------------|
//| ÍTEMS |
//|---------------------------------|
aLinha := {}
aadd(aLinha,{"LINPOS", "ACP_ITEM", '001'})
aadd(aLinha,{"AUTDELETA", "N", Nil})
aadd(aLinha,{"ACP_CODPRO", cB1Cod, Nil})
aadd(aLinha,{"ACP_PERDES", 50, Nil})
aadd(aItens, aLinha)
MSExecAuto({|a, b, c| FATA080(a, b, c)}, aCabec, aItens, nOpcX, .F.)
If !lMsErroAuto
ALERT("MODIFICADO CON EXITO")
ConOut("¡Modificada con éxito! " + cCodReg)
Else
ALERT("NO SE PUDO MODIFICAR")
ConOut("¡Error al modificar!")
EndIf
Else
ConOut(cMsgLog)
EndIf
ConOut("Fin: " + Time())
RESET ENVIRONMENT
Return
Conozca más.
FATA080 - Reglas de descuento (ExecAuto)
0 Comentarios