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 | #Include "totvs.ch"
#Include 'Protheus.ch'
#Include "TBICONN.CH"
User Function ExMATA620()
Local aVetor
Local nOpc := 3 //-Opção de execução da rotina || 3- INCLUSAO || 4- ALTERACAO || 5- EXCLUSAO
//Para alteracao e exclusao, condiderar espacos em branco dos campos do Banco de Dados.
Local cCodigo := "001" //Código da ferramenta
Local cDescricao := "DESCRIÇÃO 001" //Descrição da ferramenta
Local cTipovid := "D" //D=Dias; H=Horas; M=Mes; A=Ano
Local dAquis := Date() //Data da aquisição da ferramenta
Local nValid := 30 //Vida útil da ferramenta
Private lMsErroAuto := .F.
prepare environment empresa '99' filial '01' modulo 'PCP'
aVetor := {}
if nOpc == 3
aVetor := {{"H4_CODIGO" , cCodigo , NIL},;
{"H4_DESCRI" , cDescricao , NIL},;
{"H4_VIDAUTI", nValid , NIL},;
{"H4_TIPOVID", cTipovid , NIL},;
{"H4_DTAQUIS", dAquis , NIL}}
ElseIf nOpc == 4 //Considerar os espaços em branco de cada campo do Banco de Dados.
aVetor := {{"H4_CODIGO" , cCodigo , NIL},;
{"H4_DESCRI" , cDescricao , NIL},;
{"H4_VIDAUTI", nValid , NIL},;
{"H4_TIPOVID", cTipovid , NIL},;
{"H4_DTAQUIS", dAquis , NIL}}
ElseIf nOpc == 5 //Considerar os espaços em branco de cada campo do Banco de Dados.
aVetor := {{"H4_CODIGO" , cCodigo , NIL}}
Endif
MSExecAuto({|x,y,z| mata620(x,y,z)},aVetor,nOpc)
If lMsErroAuto
CONOUT("Erro")
mostraErro()
Else
CONOUT("Operacao realizada com sucesso")
Endif
Return nil |
