Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Stock y Costos (SIGAEST) - ExecAuto para reestablecer las reservas de una orden producción (MATA381) – Central de Atención TOTVS

Tiempo aproximado de lectura: 00:05:00 min

Duda
Ejemplo de ExecAuto para reestablecer las reservas de una orden producción

Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Stock y Costos (SIGAEST) - Todas las versiones 12

Solución

Ejemplo para resetear los compromisos de una orden de producción

En el array de encabezado es necesario enviar el número de orden de producción y la clave INDEX con el valor 2 para que el sistema cambie la orden de producción correcta. Nota : la clave ÍNDICE debe ser el último elemento de la matriz.
En la matriz de artículos no es necesario enviar ninguna información. Incluso si la información del compromiso se envía en la matriz Artículos, esta información no se tendrá en cuenta en el procesamiento del restablecimiento de compromisos.

La función de restablecer compromisos se realiza de la siguiente manera:

1 - Ejecute MATA381 ExecAuto usando la opción Cambiar (4);
2 - En la información del Encabezado enviar el identificador AUTZARAEMP con el valor .T.

No es posible restablecer solo un compromiso en la orden de producción. Siempre que se ejecute esta opción, se restablecerán todos los compromisos de OP.
Para restablecer los compromisos, envíe el tercer parámetro de MATA381 con el valor 4.

Ejemplo para resetear las reservas de una orden de producción

User Function Zera381Aut()
    Local aCab   := {}
    Local aItens := {}
 
    PRIVATE lMsErroAuto := .F.
 
    //Monta o cabeçalho com as informações da ordem de produção que terá os empenhos zerados.
    //O parâmetro AUTZERAEMP identifica que será realizado o processo de zerar empenhos.
    aCab := {{"D4_OP","00130301001",NIL},;
            {"AUTZERAEMP",.T.,Nil},;
            {"INDEX",2,Nil}}
 
    //Executa o MATA381 com a operação 4, e o indicador para zerar os empenhos.
    MSExecAuto({|x,y,z| mata381(x,y,z)},aCab,aItens,4)
    If lMsErroAuto
        //Se ocorrer erro.
        MostraErro()
    Else
        //Processamento realizado com sucesso
        Alert("Empenhos zerados com sucesso.")
    EndIf
Return

Olá,

Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Stock y Costos (SIGAEST) - ExecAuto para reestablecer las reservas de una orden producción (MATA381)

0 Comentarios

Olá ,

Olá ,

Olá ,

Olá,