333 lines
3.3 KiB
Plaintext
333 lines
3.3 KiB
Plaintext
* --- CodePainter Revolution Batch Vers. 5.2
|
||
Icpbatch.CPBatch
|
||
Items=[
|
||
Icpitembatch.CPVarDecl
|
||
name='pSERIALE
|
||
next=Icpitembatch.CPVarDecl
|
||
name='pAZIENDA
|
||
obj='Var
|
||
pag=1
|
||
param=True
|
||
prev=O3
|
||
I
|
||
obj='Var
|
||
pag=1
|
||
param=True
|
||
x=620
|
||
y=54
|
||
I
|
||
Icpitembatch.CPVarDecl
|
||
frm_seek='pi_qord_mast.vqr
|
||
name='pDATI
|
||
next=Icpitembatch.CPVarDecl
|
||
name='res
|
||
next=Icpitembatch.CPForEach
|
||
for_variable='x
|
||
for_variable_type='pi_qord_mast.vqr
|
||
h=[
|
||
19
|
||
19
|
||
]
|
||
iterator_expr='pDATI
|
||
next=Ispitembatch.CPReturn
|
||
apiResponseContentType='application/json
|
||
frm_calc='res
|
||
obj='Return
|
||
pag=1
|
||
prev=O7
|
||
I
|
||
obj='ForEach
|
||
pag=1
|
||
prev=O6
|
||
sons=[
|
||
Icpitembatch.CPItemSon
|
||
instr=Icpitembatch.CPCase
|
||
father=O7
|
||
fatherSonIndex=0
|
||
frm_calc=[
|
||
'x.AZIENDA="POLOI"
|
||
'x.AZIENDA="METRI"
|
||
'x.AZIENDA="FCONN"
|
||
]
|
||
h=[
|
||
19
|
||
19
|
||
19
|
||
19
|
||
]
|
||
next=Icpitembatch.CPVarDecl
|
||
frm_calc='"Ordine approvato"
|
||
name='res
|
||
obj='Var
|
||
pag=1
|
||
prev=O12
|
||
var_op='asgn
|
||
I
|
||
obj='Case
|
||
pag=1
|
||
sons=[
|
||
Icpitembatch.CPItemSon
|
||
instr=Icpitembatch.CPWrite
|
||
arch='POLOIDOC_MAST
|
||
father=O12
|
||
fatherSonIndex=0
|
||
h=[
|
||
19
|
||
19
|
||
]
|
||
next=Icpitembatch.CPInsert
|
||
arch='LOGAUT
|
||
obj='Insert
|
||
pag=1
|
||
prev=O18
|
||
rd_kfield=[
|
||
'AZIENDA
|
||
'MVSERIAL
|
||
'COD_UTE
|
||
]
|
||
rd_kvar=[
|
||
'x.AZIENDA
|
||
'x.MVSERIAL
|
||
'Utilities.UserCode()
|
||
]
|
||
I
|
||
obj='Write
|
||
pag=1
|
||
rd_kfield=[
|
||
'MVSERIAL
|
||
]
|
||
rd_kop=[
|
||
'=
|
||
]
|
||
rd_kvar=[
|
||
'x.MVSERIAL
|
||
]
|
||
sons=[
|
||
Icpitembatch.CPItemSon
|
||
instr=Icpitembatch.CPVarDecl
|
||
father=O18
|
||
fatherSonIndex=0
|
||
frm_calc='"Errore approvazione ordine"+ x.AZIENDA+x.MVSERIAL
|
||
name='res
|
||
next=Icpitembatch.CPExitLoop
|
||
obj='ExitLoop
|
||
pag=1
|
||
prev=O28
|
||
I
|
||
obj='Var
|
||
pag=1
|
||
var_op='asgn
|
||
I
|
||
I
|
||
]
|
||
test_zero_rows=True
|
||
w=[
|
||
150
|
||
150
|
||
]
|
||
wr_field=[
|
||
'MVFLPROV
|
||
]
|
||
wr_op=[
|
||
'=
|
||
]
|
||
wr_var=[
|
||
''N'
|
||
]
|
||
I
|
||
I
|
||
Icpitembatch.CPItemSon
|
||
instr=Icpitembatch.CPWrite
|
||
arch='METRIDOC_MAST
|
||
father=O12
|
||
fatherSonIndex=1
|
||
h=[
|
||
19
|
||
19
|
||
]
|
||
next=Icpitembatch.CPInsert
|
||
arch='LOGAUT
|
||
obj='Insert
|
||
pag=1
|
||
prev=O35
|
||
rd_kfield=[
|
||
'AZIENDA
|
||
'MVSERIAL
|
||
'COD_UTE
|
||
]
|
||
rd_kvar=[
|
||
'x.AZIENDA
|
||
'x.MVSERIAL
|
||
'Utilities.UserCode()
|
||
]
|
||
I
|
||
obj='Write
|
||
pag=1
|
||
rd_kfield=[
|
||
'MVSERIAL
|
||
]
|
||
rd_kop=[
|
||
'=
|
||
]
|
||
rd_kvar=[
|
||
'x.MVSERIAL
|
||
]
|
||
sons=[
|
||
Icpitembatch.CPItemSon
|
||
instr=Icpitembatch.CPVarDecl
|
||
father=O35
|
||
fatherSonIndex=0
|
||
frm_calc='"Errore approvazione ordine"+ x.AZIENDA+x.MVSERIAL
|
||
name='res
|
||
next=Icpitembatch.CPExitLoop
|
||
obj='ExitLoop
|
||
pag=1
|
||
prev=O45
|
||
I
|
||
obj='Var
|
||
pag=1
|
||
var_op='asgn
|
||
I
|
||
I
|
||
]
|
||
test_zero_rows=True
|
||
w=[
|
||
150
|
||
150
|
||
]
|
||
wr_field=[
|
||
'MVFLPROV
|
||
]
|
||
wr_op=[
|
||
'=
|
||
]
|
||
wr_var=[
|
||
''N'
|
||
]
|
||
I
|
||
I
|
||
Icpitembatch.CPItemSon
|
||
instr=Icpitembatch.CPWrite
|
||
arch='FCONNDOC_MAST
|
||
father=O12
|
||
fatherSonIndex=2
|
||
h=[
|
||
19
|
||
19
|
||
]
|
||
next=Icpitembatch.CPInsert
|
||
arch='LOGAUT
|
||
obj='Insert
|
||
pag=1
|
||
prev=O52
|
||
rd_kfield=[
|
||
'AZIENDA
|
||
'MVSERIAL
|
||
'COD_UTE
|
||
]
|
||
rd_kvar=[
|
||
'x.AZIENDA
|
||
'x.MVSERIAL
|
||
'Utilities.UserCode()
|
||
]
|
||
I
|
||
obj='Write
|
||
pag=1
|
||
rd_kfield=[
|
||
'MVSERIAL
|
||
]
|
||
rd_kop=[
|
||
'=
|
||
]
|
||
rd_kvar=[
|
||
'x.MVSERIAL
|
||
]
|
||
sons=[
|
||
Icpitembatch.CPItemSon
|
||
instr=Icpitembatch.CPVarDecl
|
||
father=O52
|
||
fatherSonIndex=0
|
||
frm_calc='"Errore approvazione ordine"+ x.AZIENDA+x.MVSERIAL
|
||
name='res
|
||
next=Icpitembatch.CPExitLoop
|
||
obj='ExitLoop
|
||
pag=1
|
||
prev=O62
|
||
I
|
||
obj='Var
|
||
pag=1
|
||
var_op='asgn
|
||
I
|
||
I
|
||
]
|
||
test_zero_rows=True
|
||
w=[
|
||
150
|
||
150
|
||
]
|
||
wr_field=[
|
||
'MVFLPROV
|
||
]
|
||
wr_op=[
|
||
'=
|
||
]
|
||
wr_var=[
|
||
''N'
|
||
]
|
||
I
|
||
I
|
||
]
|
||
w=[
|
||
150
|
||
150
|
||
150
|
||
150
|
||
]
|
||
I
|
||
I
|
||
]
|
||
w=[
|
||
150
|
||
150
|
||
]
|
||
I
|
||
obj='Var
|
||
pag=1
|
||
prev=O5
|
||
I
|
||
obj='Var
|
||
obj_type='MC
|
||
pag=1
|
||
param=True
|
||
x=15
|
||
y=20
|
||
I
|
||
]
|
||
comment='Approva ordini
|
||
date_creat=#2025-03-18
|
||
date_rev=#2025-03-20
|
||
dic_name='plan
|
||
ev_class='SPBatchEvents
|
||
libraries=[
|
||
'Utilities
|
||
]
|
||
modcnt=5
|
||
result_type='C
|
||
runtime_filters=2
|
||
tpl_name='Function
|
||
work_file=[
|
||
'POLOIDOC_MAST
|
||
'METRIDOC_MAST
|
||
'FCONNDOC_MAST
|
||
'LOGAUT
|
||
]
|
||
work_filter=[
|
||
'
|
||
'
|
||
'
|
||
'
|
||
]
|
||
I
|
||
*--*
|
||
*----*
|