revisar esta rutina
Publicado por francisco (97 intervenciones) el 09/12/2013 13:30:22
hola colegas espero que esten bien ,tengo esta ruina que recorro con un for fila y hago pregunta por el campo columna
me inserta registro pero no todos que pasara esta mal hecho esto me pueden ayudar con este proceso
long i
string a
long s_valmes
string s_titu_valmes="CONSUMO MES"
long v_saldo_ante
string s_titu_saldo_ante="SALDO ANTERIOR"
long v_multa
string s_titu_multa="MULTA POR ATRASO"
long v_incorp
string s_titu_incorp
long v_reposicion
string s_titu_reposicion="CORTE/REPOSICION"
long v_glo_oc1
string s_titu_glo_oc1
string s_graba_glo_oc1
long v_glo_oc2
string s_titu_glo_oc2
string s_graba_glo_oc2
long v_glo_ocg1
string s_titu_glo_ocg1
long v_glo_ocg2
string s_titu_glo_ocg2
long v_subsidio
string s_titu_subsidio="SUBSIDIO RURAL"
long v_total_cance
string s_titu_cancela="ABONOS DEL MES"
long s_boleta_inicial
long s_boleta_final
long s_boleta
string s_codigo_ini,s_codigo_fin
long s_reg
long s_cuo_dei,s_cuo_hai
long s_cuo_de1,s_cuo_ha1
long s_cuo_de2,s_cuo_ha2
long ll_numcols , ll_numrows , ll_c, ll_r
////////////////////////////////////////////////////////////////////
dw_6.setTransObject (sqlca)
dw_6.AcceptText()
dw_5.setTransObject (sqlca)
ll_numrows = dw_5.RowCount()
for i=1 to ll_numrows
//campo de la tabla_mesconsumo///
a=dw_5.getitemstring(i,"codigo_arranque")
s_boleta=dw_5.getitemnumber(i,"boleta")
v_saldo_ante=dw_5.getitemnumber(i,"saldo")
v_multa=dw_5.getitemnumber(i,"wint")
v_incorp=dw_5.getitemnumber(i,"incorp")
v_reposicion=dw_5.getitemnumber(i,"reposic")
/////////////////////////////////////////////////////////////
s_cuo_dei=dw_5.getitemnumber(i,"cuo_dei")
s_cuo_hai=dw_5.getitemnumber(i,"cuo_hai")
////////////////////////////////////////////////////////////////
/////////////////////glosa oc1/////////////////////////////////
s_titu_glo_oc1=dw_5.getitemstring(i,"glo_oc1")
////////////////////////////////////////////////////////////////
s_cuo_de1=dw_5.getitemnumber(i,"cuo_de1")
s_cuo_ha1=dw_5.getitemnumber(i,"cuo_ha1")
v_glo_oc1=dw_5.getitemnumber(i,"val_oc1")
//////////////////////glosa oc2////////////////////////////////////
s_titu_glo_oc2=dw_5.getitemstring(i,"glo_oc2")
/////////////////////////////////////////////////////////////////
s_cuo_de2=dw_5.getitemnumber(i,"cuo_de2")
s_cuo_ha2=dw_5.getitemnumber(i,"cuo_ha2")
v_glo_oc2=dw_5.getitemnumber(i,"val_oc2")
//////////////////////////////////////////////////////////////////
s_titu_glo_ocg1=dw_5.getitemstring(i,"glo_ocg1")
v_glo_ocg1=dw_5.getitemnumber(i,"val_ocg1")
v_subsidio=dw_5.getitemnumber(i,"sub_rur")
v_total_cance=dw_5.object.tot_canc[i] * -1
/////////////////////////////////////////////////////////////////
//hacer pregunta
IF v_saldo_ante <>0 then
i=dw_6.insertrow(0)
//esto se graba en la tabla_Detalle boletas
LONG S_NRO_ORDEN1=1
dw_6.setitem(i,'codigo_arranque',dw_5.getitemstring(i,"codigo_arranque"))
dw_6.setitem(i,'detalle_boleta',s_titu_saldo_ante)
dw_6.setitem(i,'valores',dw_5.getitemnumber(i,"saldo"))
dw_6.setitem(i,'boleta',dw_5.getitemnumber(i,"boleta"))
dw_6.setitem(i,'n_orden',S_NRO_ORDEN1)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_multa<>0 then
LONG S_NRO_ORDEN2=7
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',dw_5.getitemstring(i,"codigo_arranque"))
dw_6.setitem(i,'detalle_boleta',s_titu_multa)
dw_6.setitem(i,'valores',dw_5.getitemnumber(i,"wint"))
dw_6.setitem(i,'boleta',dw_5.getitemnumber(i,"boleta"))
dw_6.setitem(i,'n_orden',S_NRO_ORDEN2)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_incorp<>0 then
dw_6.setTransObject (sqlca)
s_titu_incorp="INCORPORACION"+space(1)+string(s_cuo_dei,"##")+"/"+string(s_cuo_hai,"##")
LONG S_NRO_ORDEN3=2
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',dw_5.getitemstring(i,"codigo_arranque"))
dw_6.setitem(i,'detalle_boleta',s_titu_incorp)
dw_6.setitem(i,'valores',dw_5.getitemnumber(i,"incorp"))
dw_6.setitem(i,'boleta',dw_5.getitemnumber(i,"boleta"))
dw_6.setitem(i,'n_orden',S_NRO_ORDEN3)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_reposicion<>0 then
dw_6.setTransObject (sqlca)
LONG S_NRO_ORDEN4=3
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',a)
dw_6.setitem(i,'detalle_boleta',s_titu_reposicion)
dw_6.setitem(i,'valores',v_incorp)
dw_6.setitem(i,'boleta',s_boleta)
dw_6.setitem(i,'n_orden',S_NRO_ORDEN4)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_glo_oc1<>0 then
s_graba_glo_oc1=s_titu_glo_oc1+space(1)+string(s_cuo_de1,"##")+"/"+string(s_cuo_ha1,"##")
LONG S_NRO_ORDEN5=4
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',a)
dw_6.setitem(i,'detalle_boleta',s_graba_glo_oc1)
dw_6.setitem(i,'valores',v_glo_oc1)
dw_6.setitem(i,'boleta',s_boleta)
dw_6.setitem(i,'n_orden',S_NRO_ORDEN5)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_glo_oc2<>0 then
dw_6.setTransObject (sqlca)
s_graba_glo_oc2=s_titu_glo_oc2+space(1)+string(s_cuo_de2,"##")+"/"+string(s_cuo_ha2,"##")
LONG S_NRO_ORDEN6=5
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',a)
dw_6.setitem(i,'detalle_boleta',s_graba_glo_oc2)
dw_6.setitem(i,'valores',v_glo_oc2)
dw_6.setitem(i,'boleta',s_boleta)
dw_6.setitem(i,'n_orden',S_NRO_ORDEN6)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_glo_ocg1<>0 then
LONG S_NRO_ORDEN7=6
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',a)
dw_6.setitem(i,'detalle_boleta',s_titu_glo_ocg1)
dw_6.setitem(i,'valores',v_glo_ocg1)
dw_6.setitem(i,'boleta',s_boleta)
dw_6.setitem(i,'n_orden',S_NRO_ORDEN7)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_subsidio<>0 then
LONG S_NRO_ORDEN8=8
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',a)
dw_6.setitem(i,'detalle_boleta',s_titu_subsidio)
dw_6.setitem(i,'valores',v_subsidio)
dw_6.setitem(i,'boleta',s_boleta)
dw_6.setitem(i,'n_orden',S_NRO_ORDEN8)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_total_cance<>0 then
dw_6.setTransObject (sqlca)
LONG S_NRO_ORDEN9=9
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',a)
dw_6.setitem(i,'detalle_boleta',s_titu_cancela)
dw_6.setitem(i,'valores',v_total_cance)
dw_6.setitem(i,'boleta',s_boleta)
dw_6.setitem(i,'n_orden',S_NRO_ORDEN9)
dw_6.setitem(i,'NUMERO',i)
End if
dw_6.update()
next
commit;
me inserta registro pero no todos que pasara esta mal hecho esto me pueden ayudar con este proceso
long i
string a
long s_valmes
string s_titu_valmes="CONSUMO MES"
long v_saldo_ante
string s_titu_saldo_ante="SALDO ANTERIOR"
long v_multa
string s_titu_multa="MULTA POR ATRASO"
long v_incorp
string s_titu_incorp
long v_reposicion
string s_titu_reposicion="CORTE/REPOSICION"
long v_glo_oc1
string s_titu_glo_oc1
string s_graba_glo_oc1
long v_glo_oc2
string s_titu_glo_oc2
string s_graba_glo_oc2
long v_glo_ocg1
string s_titu_glo_ocg1
long v_glo_ocg2
string s_titu_glo_ocg2
long v_subsidio
string s_titu_subsidio="SUBSIDIO RURAL"
long v_total_cance
string s_titu_cancela="ABONOS DEL MES"
long s_boleta_inicial
long s_boleta_final
long s_boleta
string s_codigo_ini,s_codigo_fin
long s_reg
long s_cuo_dei,s_cuo_hai
long s_cuo_de1,s_cuo_ha1
long s_cuo_de2,s_cuo_ha2
long ll_numcols , ll_numrows , ll_c, ll_r
////////////////////////////////////////////////////////////////////
dw_6.setTransObject (sqlca)
dw_6.AcceptText()
dw_5.setTransObject (sqlca)
ll_numrows = dw_5.RowCount()
for i=1 to ll_numrows
//campo de la tabla_mesconsumo///
a=dw_5.getitemstring(i,"codigo_arranque")
s_boleta=dw_5.getitemnumber(i,"boleta")
v_saldo_ante=dw_5.getitemnumber(i,"saldo")
v_multa=dw_5.getitemnumber(i,"wint")
v_incorp=dw_5.getitemnumber(i,"incorp")
v_reposicion=dw_5.getitemnumber(i,"reposic")
/////////////////////////////////////////////////////////////
s_cuo_dei=dw_5.getitemnumber(i,"cuo_dei")
s_cuo_hai=dw_5.getitemnumber(i,"cuo_hai")
////////////////////////////////////////////////////////////////
/////////////////////glosa oc1/////////////////////////////////
s_titu_glo_oc1=dw_5.getitemstring(i,"glo_oc1")
////////////////////////////////////////////////////////////////
s_cuo_de1=dw_5.getitemnumber(i,"cuo_de1")
s_cuo_ha1=dw_5.getitemnumber(i,"cuo_ha1")
v_glo_oc1=dw_5.getitemnumber(i,"val_oc1")
//////////////////////glosa oc2////////////////////////////////////
s_titu_glo_oc2=dw_5.getitemstring(i,"glo_oc2")
/////////////////////////////////////////////////////////////////
s_cuo_de2=dw_5.getitemnumber(i,"cuo_de2")
s_cuo_ha2=dw_5.getitemnumber(i,"cuo_ha2")
v_glo_oc2=dw_5.getitemnumber(i,"val_oc2")
//////////////////////////////////////////////////////////////////
s_titu_glo_ocg1=dw_5.getitemstring(i,"glo_ocg1")
v_glo_ocg1=dw_5.getitemnumber(i,"val_ocg1")
v_subsidio=dw_5.getitemnumber(i,"sub_rur")
v_total_cance=dw_5.object.tot_canc[i] * -1
/////////////////////////////////////////////////////////////////
//hacer pregunta
IF v_saldo_ante <>0 then
i=dw_6.insertrow(0)
//esto se graba en la tabla_Detalle boletas
LONG S_NRO_ORDEN1=1
dw_6.setitem(i,'codigo_arranque',dw_5.getitemstring(i,"codigo_arranque"))
dw_6.setitem(i,'detalle_boleta',s_titu_saldo_ante)
dw_6.setitem(i,'valores',dw_5.getitemnumber(i,"saldo"))
dw_6.setitem(i,'boleta',dw_5.getitemnumber(i,"boleta"))
dw_6.setitem(i,'n_orden',S_NRO_ORDEN1)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_multa<>0 then
LONG S_NRO_ORDEN2=7
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',dw_5.getitemstring(i,"codigo_arranque"))
dw_6.setitem(i,'detalle_boleta',s_titu_multa)
dw_6.setitem(i,'valores',dw_5.getitemnumber(i,"wint"))
dw_6.setitem(i,'boleta',dw_5.getitemnumber(i,"boleta"))
dw_6.setitem(i,'n_orden',S_NRO_ORDEN2)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_incorp<>0 then
dw_6.setTransObject (sqlca)
s_titu_incorp="INCORPORACION"+space(1)+string(s_cuo_dei,"##")+"/"+string(s_cuo_hai,"##")
LONG S_NRO_ORDEN3=2
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',dw_5.getitemstring(i,"codigo_arranque"))
dw_6.setitem(i,'detalle_boleta',s_titu_incorp)
dw_6.setitem(i,'valores',dw_5.getitemnumber(i,"incorp"))
dw_6.setitem(i,'boleta',dw_5.getitemnumber(i,"boleta"))
dw_6.setitem(i,'n_orden',S_NRO_ORDEN3)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_reposicion<>0 then
dw_6.setTransObject (sqlca)
LONG S_NRO_ORDEN4=3
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',a)
dw_6.setitem(i,'detalle_boleta',s_titu_reposicion)
dw_6.setitem(i,'valores',v_incorp)
dw_6.setitem(i,'boleta',s_boleta)
dw_6.setitem(i,'n_orden',S_NRO_ORDEN4)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_glo_oc1<>0 then
s_graba_glo_oc1=s_titu_glo_oc1+space(1)+string(s_cuo_de1,"##")+"/"+string(s_cuo_ha1,"##")
LONG S_NRO_ORDEN5=4
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',a)
dw_6.setitem(i,'detalle_boleta',s_graba_glo_oc1)
dw_6.setitem(i,'valores',v_glo_oc1)
dw_6.setitem(i,'boleta',s_boleta)
dw_6.setitem(i,'n_orden',S_NRO_ORDEN5)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_glo_oc2<>0 then
dw_6.setTransObject (sqlca)
s_graba_glo_oc2=s_titu_glo_oc2+space(1)+string(s_cuo_de2,"##")+"/"+string(s_cuo_ha2,"##")
LONG S_NRO_ORDEN6=5
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',a)
dw_6.setitem(i,'detalle_boleta',s_graba_glo_oc2)
dw_6.setitem(i,'valores',v_glo_oc2)
dw_6.setitem(i,'boleta',s_boleta)
dw_6.setitem(i,'n_orden',S_NRO_ORDEN6)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_glo_ocg1<>0 then
LONG S_NRO_ORDEN7=6
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',a)
dw_6.setitem(i,'detalle_boleta',s_titu_glo_ocg1)
dw_6.setitem(i,'valores',v_glo_ocg1)
dw_6.setitem(i,'boleta',s_boleta)
dw_6.setitem(i,'n_orden',S_NRO_ORDEN7)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_subsidio<>0 then
LONG S_NRO_ORDEN8=8
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',a)
dw_6.setitem(i,'detalle_boleta',s_titu_subsidio)
dw_6.setitem(i,'valores',v_subsidio)
dw_6.setitem(i,'boleta',s_boleta)
dw_6.setitem(i,'n_orden',S_NRO_ORDEN8)
dw_6.setitem(i,'NUMERO',i)
End if
IF v_total_cance<>0 then
dw_6.setTransObject (sqlca)
LONG S_NRO_ORDEN9=9
i=dw_6.insertrow(0)
dw_6.setitem(i,'codigo_arranque',a)
dw_6.setitem(i,'detalle_boleta',s_titu_cancela)
dw_6.setitem(i,'valores',v_total_cance)
dw_6.setitem(i,'boleta',s_boleta)
dw_6.setitem(i,'n_orden',S_NRO_ORDEN9)
dw_6.setitem(i,'NUMERO',i)
End if
dw_6.update()
next
commit;
Valora esta pregunta
0