* --- 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
*--*
*----*