FoxPro/Visual FoxPro - agregar datos a una tabla temporal

   
Vista:

agregar datos a una tabla temporal

Publicado por Sebastian (253 intervenciones) el 23/07/2008 21:10:41
Hola programadores tengo este codigo funciona me muestra los datos que necesito, pero necesito agregar estos datos programas.pro_nombre, total y acumulados a una sola tabla no puedo hacerlo ayuda gracias

winiac = thisform.text13.value
wini = thisform.text1.value
wfin = thisform.text2.value

************************************* totales
SELECT Conlima.pf_afil, Programas.pro_nombre,Conlima.pf_hospi, COUNT(Conlima.pf_servi)as total ;
FROM analisis!programas INNER JOIN analisis!conlima ;
ON Programas.pf_afil = Conlima.pf_afil ;
where betw(dtoc(conlima.pf_fecha,1),dtoc(wini,1),dtoc(wfin,1)) ;
GROUP BY Conlima.pf_afil;
ORDER BY Conlima.pf_afil;
into cursor compara
brow

select distin(pf_afil) as pro_codi, 0 as total0, 0 as acumu0 ;
from compara into table tabla
**brow

sele tabla
go top
scan
xprograma = alltrim(pro_codi)
sele compara
do while pf_afil = alltrim(xprograma)
do case

case pf_servi = '0'
xhospi = '0'
xtotal0 = total
endcase

sele tabla
do case
case xhospi = '0'
repla total0 with xtotal0
endcase
sele compara
skip
endd
sele tabla
ends
**brow
************************************* fin totales ************************************* acumulados

SELECT Conlima.pf_afil, Programas.pro_nombre,Conlima.pf_hospi, COUNT(Conlima.pf_servi)as acumu ;
FROM analisis!programas INNER JOIN analisis!conlima ;
ON Programas.pf_afil = Conlima.pf_afil ;
where betw(dtoc(conlima.pf_fecha,1),dtoc(winiac,1),dtoc(wfin,1)) ;
GROUP BY Conlima.pf_afil;
ORDER BY Conlima.pf_afil;
into cursor compara
brow

sele tabla
go top
scan
xprograma = alltrim(pro_codi)
sele compara
do while pf_afil = alltrim(xprograma)
do case

case pf_servi = '0'
xhospi = '0'
xacumu0 = acumu
endcase

sele tabla
do case
case xhospi = '0'
repla acumu0 with xacumu0
endcase
sele compara
skip
endd
sele tabla
ends
**brow
******************************* fin de acumulados
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder