* --- 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
]
obj='Case
pag=1
sons=[
Icpitembatch.CPItemSon
instr=Icpitembatch.CPWrite
arch='POLOIDOC_MAST
father=O12
fatherSonIndex=0
next=Icpitembatch.CPVarDecl
frm_calc='"Ordine approvato" + x.AZIENDA + x.MVSERIAL
name='res
obj='Var
pag=1
prev=O17
var_op='asgn
I
obj='Write
pag=1
rd_kfield=[
'MVSERIAL
]
rd_kop=[
'=
]
rd_kvar=[
'x.MVSERIAL
]
wr_field=[
'MVFLPROV
]
wr_op=[
'=
]
wr_var=[
''N'
]
I
I
Icpitembatch.CPItemSon
instr=Icpitembatch.CPWrite
arch='METRIDOC_MAST
father=O12
fatherSonIndex=1
obj='Write
pag=1
rd_kfield=[
'MVSERIAL
]
rd_kop=[
'=
]
rd_kvar=[
'x.MVSERIAL
]
wr_field=[
'MVFLPROV
]
wr_op=[
'=
]
wr_var=[
''N'
]
I
I
Icpitembatch.CPItemSon
instr=Icpitembatch.CPWrite
arch='FCONNDOC_MAST
father=O12
fatherSonIndex=2
obj='Write
pag=1
rd_kfield=[
'MVSERIAL
]
rd_kop=[
'=
]
rd_kvar=[
'x.MVSERIAL
]
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-18
dic_name='plan
ev_class='SPBatchEvents
modcnt=4
result_type='C
runtime_filters=2
tpl_name='Function
work_file=[
'POLOIDOC_MAST
'METRIDOC_MAST
'FCONNDOC_MAST
]
work_filter=[
'
'
'
]
I
*--*
*----*