Histórico da Página

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

#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
User Function TMata010()
Local aVetor := {}
private lMsErroAuto := .F.
 
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "EST"
 
//--- Exemplo: Inclusao --- //
aVetor:= { {"B1_COD" ,"9994" ,NIL},;
 {"B1_DESC" ,"PRODUTO TESTE - ROTINA AUTOMATICA" ,NIL},;
 {"B1_TIPO" ,"PA" ,Nil},;
 {"B1_UM" ,"UN" ,Nil},;
 {"B1_LOCPAD" ,"01" ,Nil},;
 {"B1_PICM" ,0 ,Nil},;
 {"B1_IPI" ,0 ,Nil},;
 {"B1_CONTRAT" ,"N" ,Nil},;
 {"B1_LOCALIZ" ,"N" ,Nil}}
  
MSExecAuto({|x,y| Mata010(x,y)},aVetor,3)
 
//--- Exemplo: Alteracao --- //
aVetor:= { {"B1_COD" ,"9994" ,NIL},;
 {"B1_DESC" ,"PRODUTO TESTE - ALTERADO" ,NIL}}
  
MSExecAuto({|x,y| Mata010(x,y)},aVetor,4)
 
//--- Exemplo: Exclusao --- //
aVetor:= { {"B1_COD" ,"9994" ,NIL},;
 {"B1_DESC" ,"PRODUTO TESTE - ROTINA AUTOMATICA" ,NIL}}
  
MSExecAuto({|x,y| Mata010(x,y)},aVetor,5)
 
If lMsErroAuto
 MostraErro()
Else
 Alert("Ok")
Endif
 
Return