Tiempo aproximado de lectura 00:05:00 min
Duda
¿Cuál es el execauto de la rutina TECA200?
Entorno
Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Gestión de servicios (SIGATEC) - A partir de la versión 12.1.2310
Solución
Ejemplo de Uso Execauto TECA200
|
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
|
#INCLUDE "TOTVS.CH"#INCLUDE "TBICONN.CH" User Function MyTeca200()Local aCabec := {}Local aItens := {}Local aItem := {}Local cContrato := ""Local lOk := .T. PRIVATE lMsErroAuto := .F. ConOut(Repl("-",80))ConOut(PadC("Teste de Inclusao de 2 chamado tecnico com 1 itens cada",80))//Verificar a empresa e filial corretas para inicialização do ambiente para a inclusãoPREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "TEC" TABLES "SA1","SB1","SE4","AA3","AAH"
DbSelectArea("SA1")SA1->(DbSetOrder(1))If !SA1->(DbSeek(xFilial("SA1")+"00000501")) lOk := .F. ConOut("Cadastrar cliente: 00000501")EndIfAA3->(dbSetOrder(4))If !AA3->(DbSeek(xFilial("AA3")+ Space( Len( AA3->AA3_CODFAB ) ) + Space( Len( AA3->AA3_LOJAFA ) ) + "AGRUPRH " + "JHJSHDJHKJHDKAHKJDS " )) //Verifique o tamanho do campo AA3_CODPRO e AA3_NUMSER
lOk := .F. ConOut("Cadastrar base instalada: Produto : " + Padr( "AGRUPRH",LEN( AA3->AA3_CODPRO ) ) + " - Identificador : " + Padr( "JHJSHDJHKJHDKAHKJDS",LEN( AA3->AA3_NUMSER ) ) )
EndIf If !AA3->(DbSeek(xFilial("AA3")+ Space( Len( AA3->AA3_CODFAB ) ) + Space( Len( AA3->AA3_LOJAFA ) ) + "FLDPCA00 " + "ID 20231124-11 " )) //Verifique o tamanho do campo AA3_CODPRO e AA3_NUMSER
lOk := .F. ConOut("Cadastrar base instalada: Produto : " + Padr( "PA2",LEN( AA3->AA3_CODPRO ) ) + " - Identificador : " + Padr( "002",LEN( AA3->AA3_NUMSER ) ) )
EndIf SB1->(DbSetOrder(1))If !SB1->(DbSeek(xFilial("SB1")+ "AGRUPRH " )) //VERIFICAR TAMANHO DO CAMPO B1_COD
lOk := .F. ConOut("Cadastrar produto: " + Padr( "AGRUPRH ",15 ) )
EndIf If !SB1->(DbSeek(xFilial("SB1")+"FLDPCA00 ")) //VERIFICAR TAMANHO DO CAMPO B1_COD lOk := .F. ConOut("Cadastrar produto: " + Padr( "FLDPCA00 ",15 ) )
EndIf SE4->(DbSetOrder(1))If !SE4->(DbSeek(xFilial("SE4")+"001") ) lOk := .F. ConOut("Cadastrar condicao de pagto : 001" )
EndIf If lOk ConOut("Inicio inclusao : "+Time()) cContrato := "000000000000007" //informa o numero do contrato, VERIFICAR A NUMERAÇÃO DO CAMPO AAH_CONTRT
aCabec := {} aItens := {} aAdd(aCabec,{"AAH_CONTRT" ,cContrato ,Nil})
aAdd(aCabec,{"AAH_CODCLI" ,"000005" ,Nil}) // O CODIGO DO CLIENTE DEVE SER O MESMO QUE ESTÁ NA BASE DE ATENDIMENTO
aAdd(aCabec,{"AAH_LOJA" ,"01" ,Nil})
aAdd(aCabec,{"AAH_TPCONT" ,"1" ,Nil})
aAdd(aCabec,{"AAH_CONPAG" ,"001" ,Nil})
aAdd(aCabec,{"AAH_INIVLD" ,dDataBase ,Nil})
aAdd(aCabec,{"AAH_CPAGPV" ,"001" ,Nil})
aAdd(aCabec,{"AAH_CODPRO" ,"AGRUPRH ",Nil}) //O Valor atribuido nessa linha deve ter o mesmo tamanho do campo AAH_CODPRO, VERIFIQUE SE ELE ESTÁ COM O MESMO TAMANHO DO CAMPO B1_COD
//informa a base de atendimento para o contrato aItem := {} aAdd(aItem,{"AA3_CODFAB" , " " } )
aAdd(aItem,{"AA3_LOJAFA" , " " } )
aAdd(aItem,{"AA3_CODPRO" , "AGRUPRH "} ) //O Valor atribuido nessa linha deve ter o mesmo tamanho do campo AAH_CODPRO, VERIFIQUE SE ELE ESTÁ COM O MESMO TAMANHO DO CAMPO B1_COD
aAdd(aItem,{"AA3_NUMSER" , "JHJSHDJHKJHDKAHKJDS " } ) // o valor atribuido deve ter o mesmo tamanho da linha AA3_NUMSER
aAdd(aItem,{"M_A_R_K_" , .T. } )
aAdd(aItens,aItem) aItem := {} aAdd(aItem,{"AA3_CODFAB" , " " } )
aAdd(aItem,{"AA3_LOJAFA" , " " } )
aAdd(aItem,{"AA3_CODPRO" , "FLDPCA00 "} ) ////O Valor atribuido nessa linha deve ter o mesmo tamanho do campo AAH_CODPRO, VERIFIQUE SE ELE ESTÁ COM O MESMO TAMANHO DO CAMPO B1_COD
aAdd(aItem,{"AA3_NUMSER" , "ID 20231124-11 " } ) // o valor atribuido deve ter o mesmo tamanho da linha AA3_NUMSER
aAdd(aItem,{"M_A_R_K_" , .T. } )
aAdd(aItens,aItem) //Teste de Inclusao TECA200(NIL,aCabec,aItens,3) If !lMsErroAuto ConOut("Incluido com sucesso! " + cContrato )
Else ConOut("Erro na inclusao!") EndIf ConOut("Fim inclusao : "+Time()) ConOut("Inicio alteração : "+Time()) aCabec := {} aItens := {} aAdd(aCabec,{"AAH_CONTRT" ,cContrato ,Nil})
aAdd(aCabec,{"AAH_CODCLI" ,"000005" ,Nil})
aAdd(aCabec,{"AAH_LOJA" ,"01" ,Nil})
aAdd(aCabec,{"AAH_TPCONT" ,"1" ,Nil})
aAdd(aCabec,{"AAH_CONPAG" ,"001" ,Nil})
aAdd(aCabec,{"AAH_INIVLD" ,dDataBase ,Nil})
aAdd(aCabec,{"AAH_CPAGPV" ,"001" ,Nil})
aAdd(aCabec,{"AAH_CODPRO" ,"AGRUPRH ",Nil}) //O Valor atribuido nessa linha deve ter o mesmo tamanho do campo AAH_CODPRO, VERIFIQUE SE ELE ESTÁ COM O MESMO TAMANHO DO CAMPO B1_COD
aItem := {} aAdd(aItem,{"AA3_CODFAB" , " " } )
aAdd(aItem,{"AA3_LOJAFA" , " " } )
aAdd(aItem,{"AA3_CODPRO" , "AGRUPRH "} ) //O Valor atribuido nessa linha deve ter o mesmo tamanho do campo AAH_CODPRO, VERIFIQUE SE ELE ESTÁ COM O MESMO TAMANHO DO CAMPO B1_COD
aAdd(aItem,{"AA3_NUMSER" , "JHJSHDJHKJHDKAHKJDS " } ) // o valor atribuido deve ter o mesmo tamanho da linha AA3_NUMSER
aAdd(aItem,{"M_A_R_K_" , .T. } )
aAdd(aItens,aItem) aItem := {} aAdd(aItem,{"AA3_CODFAB" , " " } )
aAdd(aItem,{"AA3_LOJAFA" , " " } )
aAdd(aItem,{"AA3_CODPRO" , "FLDPCA00 "} ) ////O Valor atribuido nessa linha deve ter o mesmo tamanho do campo AAH_CODPRO, VERIFIQUE SE ELE ESTÁ COM O MESMO TAMANHO DO CAMPO B1_COD
aAdd(aItem,{"AA3_NUMSER" , "ID 20231124-11 " } ) // o valor atribuido deve ter o mesmo tamanho da linha AA3_NUMSER
aAdd(aItem,{"M_A_R_K_" , .T. } )
aAdd(aItens,aItem) // Teste de Inclusao TECA200(NIL,aCabec,aItens,4) If !lMsErroAuto ConOut("Alterado com sucesso ! " + cContrato )
Else ConOut("Erro na alteração !") EndIf ConOut("Fim alteração : "+Time()) EndIf RESET ENVIRONMENT Return(.T.) |
Mas información: https://tdn.totvs.com/pages/releaseview.action?pageId=838695498
0 Comentarios