Base de conhecimento
Encontre respostas para suas dúvidas em quatro fontes de conhecimento diferentes ao mesmo tempo, simplificando o processo de pesquisa.
  1. Central de Atención TOTVS
  2. Cross Segmentos
  3. TOTVS Backoffice (Línea Protheus) - MI
  4. Stock y Costos (SIGAEST)
  5. Movimientos
Central do Cliente

Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Stock y Costos (SIGAEST) - ExecAuto Inclusión Reservas con Integración PIMS (MATA381)

time.png Tiempo aproximado de lectura: 00:05:00 min

Duda
Ejemplo ExecAuto Inclusión Reservas con Integración PIMS (MATA381)


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

Solución

En el array con la información del encabezado solo es necesario enviar el número de orden de producción.
En la matriz de ítems es necesario informar toda la información sobre la reserva que se incluirá. La información de la dirección se puede enviar utilizando la opción AUT_D4_END según el ejemplo.

En la matriz de ítems es necesario informar toda la información sobre la reserva que se incluirá. La información sobre la integración con PIMS se puede enviar utilizando la opción AUT_D4_AGR según el ejemplo.

Cuando la reserva tiene control de lote y el lote se envía para generar la reserva, no es necesario enviar la fecha de vencimiento del lote. El programa MATA381 completa automáticamente la fecha de vencimiento del lote.
Para incluir compromisos, envíe el tercer parámetro de MATA381 con el valor 3.

Ejemplo de Inclusión de reservas con integración PIMS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
User Function Inc381Auto()
    Local aCab       := {}
    Local aLine      := {}
    Local aItens     := {}
    Local aEnder     := {}
    Local aLineEnder := {}
 
    PRIVATE lMsErroAuto := .F.
 
    //Monta o cabeçalho com o número da OP que será utilizada para inclusão dos empenhos.
    aCab := {{"D4_OP","00130301001",NIL}}
     
    //Adiciona novo empenho
    aLine := {}
    aAdd(aLine,{"D4_OP"     ,"00130301001"     ,NIL})
    aAdd(aLine,{"D4_COD"    ,"MP01"            ,NIL})
    aAdd(aLine,{"D4_LOCAL"  ,"01"              ,NIL})
    aAdd(aLine,{"D4_DATA"   ,CtoD("18/09/2018"),NIL})
    aAdd(aLine,{"D4_QTDEORI",10                ,NIL})
    aAdd(aLine,{"D4_QUANT"  ,10                ,NIL})
    aAdd(aLine,{"D4_TRT"    ,"001"             ,NIL})
 
 
 
    //Adiciona informações referente a integração com o PIMS
    aLineNLI := {}
    aAdd( aLineNLI, { "NLI_CLVAL", "02", Nil } )
    aAdd( aLineNLI, { "NLI_FAZ", "001", NIL } )
    aAdd( aLineNLI, { "NLI_QTCOMP", 20, NIL } )
    aAdd( aLineNLI, { "NLI_PMSQTD", 15, NIL } )
    aAdd( aLineNLI, { "NLI_PGQTD", 25, NIL } )
    aAdd( aLineNLI, { "NLI_POPQTD", 35, NIL } )
    aAdd( aLineNLI, { "NLI_NUMPEN", 01, NIL } )
    aAdd( aLineNLI, { "NLI_QTDPAR", 5000, NIL } )
    aAdd( aLineNLI, { "NLI_CULTRA", "01", NIL } )
    aAdd( aLineNLI, { "NLI_CC", "0010" , NIL } )
    aAdd( aLineNLI, { "NLI_FITSSA", "10", NIL } )
    aAdd( aLineNLI, { "NLI_REQCOD", "admin", NIL } )
    aAdd( aLineNLI, { "NLI_REQNOM", "admin", NIL } )
 
 
    aAdd(aLine,{"AUT_D4_AGR",aLineNLI,NIL})
 
 
    //Adiciona a linha do empenho no array de itens.
    aAdd(aItens,aLine)
 
 
    //Adiciona novo empenho com utilização de Lote.
    //A data de validade do lote é preenchida automaticamente pelo programa e não precisa ser enviada no array.
    aLine := {}
    aAdd(aLine,{"D4_OP"     ,"00130301001"     ,NIL})
    aAdd(aLine,{"D4_COD"    ,"MP02"            ,NIL})
    aAdd(aLine,{"D4_LOCAL"  ,"01"              ,NIL})
    aAdd(aLine,{"D4_DATA"   ,CtoD("18/09/2018"),NIL})
    aAdd(aLine,{"D4_QTDEORI",3                 ,NIL})
    aAdd(aLine,{"D4_QUANT"  ,3                 ,NIL})
    aAdd(aLine,{"D4_LOTECTL","L1"              ,NIL})
    aAdd(aLine,{"D4_TRT"    ,"002"             ,NIL})
 
 
    //Adiciona informações referente a integração com o PIMS
    aLineNLI := {}
    aAdd( aLineNLI, { "NLI_CLVAL", "02", Nil } )
    aAdd( aLineNLI, { "NLI_FAZ", "001", NIL } )
    aAdd( aLineNLI, { "NLI_QTCOMP", 20, NIL } )
    aAdd( aLineNLI, { "NLI_PMSQTD", 15, NIL } )
    aAdd( aLineNLI, { "NLI_PGQTD", 41, NIL } )
    aAdd( aLineNLI, { "NLI_POPQTD", 60, NIL } )
    aAdd( aLineNLI, { "NLI_NUMPEN", 01, NIL } )
    aAdd( aLineNLI, { "NLI_QTDPAR", 7000, NIL } )
    aAdd( aLineNLI, { "NLI_CULTRA", "01", NIL } )
    aAdd( aLineNLI, { "NLI_CC", "0010" , NIL } )
    aAdd( aLineNLI, { "NLI_FITSSA", "10", NIL } )
    aAdd( aLineNLI, { "NLI_REQCOD", "admin", NIL } )
    aAdd( aLineNLI, { "NLI_REQNOM", "admin", NIL } )
 
 
    aAdd(aLine,{"AUT_D4_AGR",aLineNLI,NIL})
    //Adiciona a linha do empenho no array de itens.
    aAdd(aItens,aLine)
 
    //Adiciona novo empenho com endereço e lote
    aLine := {}
    aAdd(aLine,{"D4_OP"     ,"00130301001"     ,NIL})
    aAdd(aLine,{"D4_COD"    ,"MP03"            ,NIL})
    aAdd(aLine,{"D4_LOCAL"  ,"01"              ,NIL})
    aAdd(aLine,{"D4_DATA"   ,CtoD("17/09/2018"),NIL})
    aAdd(aLine,{"D4_QTDEORI",10                ,NIL})
    aAdd(aLine,{"D4_QUANT"  ,10                ,NIL})
    aAdd(aLine,{"D4_LOTECTL","L1"              ,NIL})
    aAdd(aLine,{"D4_TRT"    ,"003"             ,NIL})
    aAdd(aLine,{"D4_ROTEIRO","01"              ,NIL})
 
    //Informações do endereço
    aEnder     := {}
    aLineEnder := {}
    aAdd(aLineEnder,{"DC_LOCALIZ","END01",Nil})
    aAdd(aLineEnder,{"DC_QUANT"  ,5      ,Nil})
    //Primeiro endereço que será utilizado
    aAdd(aEnder,aLineEnder)
 
    aLineEnder := {}
    aAdd(aLineEnder,{"DC_LOCALIZ","END02",Nil})
    aAdd(aLineEnder,{"DC_QUANT"  ,5      ,Nil})
    //Segundo endereço que será utilizado
    aAdd(aEnder,aLineEnder)
 
    //Adiciona os endereços na linha do empenho
    aAdd(aLine,{"AUT_D4_END",aEnder,Nil})
 
 
    //Adiciona informações referente a integração com o PIMS
    aLineNLI := {}
    aAdd( aLineNLI, { "NLI_CLVAL", "02", Nil } )
    aAdd( aLineNLI, { "NLI_FAZ", "001", NIL } )
    aAdd( aLineNLI, { "NLI_QTCOMP", 20, NIL } )
    aAdd( aLineNLI, { "NLI_PMSQTD", 15, NIL } )
    aAdd( aLineNLI, { "NLI_PGQTD", 25, NIL } )
    aAdd( aLineNLI, { "NLI_POPQTD", 40, NIL } )
    aAdd( aLineNLI, { "NLI_NUMPEN", 01, NIL } )
    aAdd( aLineNLI, { "NLI_QTDPAR", 900, NIL } )
    aAdd( aLineNLI, { "NLI_CULTRA", "01", NIL } )
    aAdd( aLineNLI, { "NLI_CC", "0010" , NIL } )
    aAdd( aLineNLI, { "NLI_FITSSA", "10", NIL } )
    aAdd( aLineNLI, { "NLI_REQCOD", "admin", NIL } )
    aAdd( aLineNLI, { "NLI_REQNOM", "admin", NIL } )
    aAdd(aLine,{"AUT_D4_AGR",aLineNLI,NIL})
    //Adiciona a linha do empenho no array de itens.
    aAdd(aItens,aLine)
 
 
    //Executa o MATA381, com a operação de Inclusão.
    MSExecAuto({|x,y,z| mata381(x,y,z)},aCab,aItens,3)
    If lMsErroAuto
        //Se ocorrer erro.
        MostraErro()
    Else
        Alert("Incluído com sucesso.")
    EndIf
Return

 

¿Fue útil este artículo?
Usuarios a los que les pareció útil: 0 de 0

0 Comentarios

Inicie sesión para dejar un comentario.
Como podemos ajudar?
Entre em contato e fale conosco!
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Rellene los campos siguientes para iniciar el chat:

Chat _

NC#o encontrou o que procura?