Hola tengo una pregunta algo basica, estoy viendo un requerimiento del submodulo FM donde debo obtener la suma de los distintos campos pertenecientes al mismo registro de la tabla.
ejemplo:
x x 3 4 5 6 y=18
x x 4 5 6 7 y=22
x x 7 8 9 3 y=27
en la ultima columna de la tabla de tipo CURR se guarda los subtotales por registros pero en mi caso guarda el valor de cero, espero me puedan orientar ya que estoy perdidazo.
"""""""""""""""""""""""""""""""""""""""""""""
select MONT0101 MONT0201 MONT0301 MONT0401 MONT0501 MONT0601 MONT0701
MONT0801 MONT0901 MONT1001 MONT1101 MONT1201 from ZFMPREPAC
into table it_subtota
where VERSI eq s_verm and
ANNO eq s_eje and
CRP eq s_cg
LOOP AT it_rancege.
SELECT mont0101 mont0201 mont0301 mont0401 mont0501 mont0601 mont0701
mont0801 mont0901 mont1001 mont1101 mont1201 FROM zfmprepac
INTO it_subtota
WHERE versi EQ s_verm AND
anno EQ s_eje AND
crp EQ it_rancege-fictr.
it_subtota-sum = it_subtota-mont0101 + it_subtota-mont0201 +
it_subtota-mont0301 + it_subtota-mont0401 + it_subtota-mont0501 +
it_subtota-mont0601 + it_subtota-mont0701 +
it_subtota-mont0801 + it_subtota-mont0901 + it_subtota-mont1001 +
it_subtota-mont1101 + it_subtota-mont1201.
ENDSELECT.
WRITE'suma ', it_subtota-sum.
ENDLOOP.
LOOP AT it_subtota.
it_subtota-sum = it_subtota-mont0101 + it_subtota-mont0201 +
it_subtota-mont0301 + it_subtota-mont0401 + it_subtota-mont0501 +
it_subtota-mont0601 + it_subtota-mont0701 +
it_subtota-mont0801 + it_subtota-mont0901 + it_subtota-mont1001 +
it_subtota-mont1101 + it_subtota-mont1201.
ENDLOOP.
WRITE'suma ', it_subtota-sum.
LOOP AT it_ranpopre.
ejemplo:
x x 3 4 5 6 y=18
x x 4 5 6 7 y=22
x x 7 8 9 3 y=27
en la ultima columna de la tabla de tipo CURR se guarda los subtotales por registros pero en mi caso guarda el valor de cero, espero me puedan orientar ya que estoy perdidazo.
"""""""""""""""""""""""""""""""""""""""""""""
select MONT0101 MONT0201 MONT0301 MONT0401 MONT0501 MONT0601 MONT0701
MONT0801 MONT0901 MONT1001 MONT1101 MONT1201 from ZFMPREPAC
into table it_subtota
where VERSI eq s_verm and
ANNO eq s_eje and
CRP eq s_cg
LOOP AT it_rancege.
SELECT mont0101 mont0201 mont0301 mont0401 mont0501 mont0601 mont0701
mont0801 mont0901 mont1001 mont1101 mont1201 FROM zfmprepac
INTO it_subtota
WHERE versi EQ s_verm AND
anno EQ s_eje AND
crp EQ it_rancege-fictr.
it_subtota-sum = it_subtota-mont0101 + it_subtota-mont0201 +
it_subtota-mont0301 + it_subtota-mont0401 + it_subtota-mont0501 +
it_subtota-mont0601 + it_subtota-mont0701 +
it_subtota-mont0801 + it_subtota-mont0901 + it_subtota-mont1001 +
it_subtota-mont1101 + it_subtota-mont1201.
ENDSELECT.
WRITE'suma ', it_subtota-sum.
ENDLOOP.
LOOP AT it_subtota.
it_subtota-sum = it_subtota-mont0101 + it_subtota-mont0201 +
it_subtota-mont0301 + it_subtota-mont0401 + it_subtota-mont0501 +
it_subtota-mont0601 + it_subtota-mont0701 +
it_subtota-mont0801 + it_subtota-mont0901 + it_subtota-mont1001 +
it_subtota-mont1101 + it_subtota-mont1201.
ENDLOOP.
WRITE'suma ', it_subtota-sum.
LOOP AT it_ranpopre.
Comentario