Mostra valor en un combobox en visual fox
Tengo el siguiente codigo en el init del formulario y quiero que en un combo me muestre los siguientes valores:
*********************************************************************
Init
SELECT di_folio, di_fechai, di_fechaf, di_linea, di_estilo, di_corrida, di_fecorig, di_feclluv, di_fecpull,;
di_fecvirt, di_fecalta, di_fecprot, di_fecsolm, di_fecesc, di_fecrev, di_fecred, di_fecprci, di_feccorr, di_fecprcf,;
di_fecmold, di_fecsuaj;
FROM proyectos ;
UNION all;
SELECT di_folio, di_fechai, di_fechaf, di_linea, di_estilo, di_corrida, di_fecorig, di_feclluv, di_fecpull,;
di_fecvirt, di_fecalta, di_fecprot, di_fecsolm, di_fecesc, di_fecrev, di_fecred, di_fecprci, di_feccorr, di_fecprcf,;
di_fecmold, di_fecsuaj;
FROM proydet ;
INTO CURSOR csr_union
SELECT pp.*, c.descorrid, c.detcorrida, c.cvecorr, l.ap_deslin, l.ap_linprod, o.di_folio, f.ap_desfam, f.ap_famprod,;
pe.di_folio, temp.di_desctem, temp.di_idcvete;
FROM csr_union as pp;
LEFT JOIN corridas as c ON cvecorr = pp.di_corrida;
LEFT JOIN lineasprod as l ON ap_linprod = pp.di_linea;
LEFT JOIN origprod as o ON o.di_folio = pp.di_folio;
LEFT JOIN familiap as f ON ap_famprod = o.di_catego;
LEFT JOIN pulloverenc as pe ON pe.di_folio = pp.di_folio;
LEFT JOIN temporadas as temp ON di_idcvete = pe.di_temp;
GROUP BY pp.di_folio, pp.di_estilo;
ORDER BY pp.di_folio, pp.di_estilo;
INTO CURSOR c_p
**********************************************************************
Combo
en el rowsource del combo tengo la siguiente instruccion
select c_p.ap_famprod + " " + c_p.ap_desfam, c_p.ap_famprod from c_p group by c_p.ap_famprod order by c_p.ap_famprod into cursor c_cat
***********************************************************************
y quiero que me muestre asi en el fomulario, es uno de la primer opcion y uno de la ultima
IF EMPTY(thisform.cboCategoIni.Value) .and. EMPTY(THISFORM.cboCategoFin.Value)
SELECT c_cat
GO top
thisform.cboEstIni.Value = ap_famprod
GO bott
thisform.cboEstFin.Value = ap_famprod
ENDIF
*********************************************************************
Init
SELECT di_folio, di_fechai, di_fechaf, di_linea, di_estilo, di_corrida, di_fecorig, di_feclluv, di_fecpull,;
di_fecvirt, di_fecalta, di_fecprot, di_fecsolm, di_fecesc, di_fecrev, di_fecred, di_fecprci, di_feccorr, di_fecprcf,;
di_fecmold, di_fecsuaj;
FROM proyectos ;
UNION all;
SELECT di_folio, di_fechai, di_fechaf, di_linea, di_estilo, di_corrida, di_fecorig, di_feclluv, di_fecpull,;
di_fecvirt, di_fecalta, di_fecprot, di_fecsolm, di_fecesc, di_fecrev, di_fecred, di_fecprci, di_feccorr, di_fecprcf,;
di_fecmold, di_fecsuaj;
FROM proydet ;
INTO CURSOR csr_union
SELECT pp.*, c.descorrid, c.detcorrida, c.cvecorr, l.ap_deslin, l.ap_linprod, o.di_folio, f.ap_desfam, f.ap_famprod,;
pe.di_folio, temp.di_desctem, temp.di_idcvete;
FROM csr_union as pp;
LEFT JOIN corridas as c ON cvecorr = pp.di_corrida;
LEFT JOIN lineasprod as l ON ap_linprod = pp.di_linea;
LEFT JOIN origprod as o ON o.di_folio = pp.di_folio;
LEFT JOIN familiap as f ON ap_famprod = o.di_catego;
LEFT JOIN pulloverenc as pe ON pe.di_folio = pp.di_folio;
LEFT JOIN temporadas as temp ON di_idcvete = pe.di_temp;
GROUP BY pp.di_folio, pp.di_estilo;
ORDER BY pp.di_folio, pp.di_estilo;
INTO CURSOR c_p
**********************************************************************
Combo
en el rowsource del combo tengo la siguiente instruccion
select c_p.ap_famprod + " " + c_p.ap_desfam, c_p.ap_famprod from c_p group by c_p.ap_famprod order by c_p.ap_famprod into cursor c_cat
***********************************************************************
y quiero que me muestre asi en el fomulario, es uno de la primer opcion y uno de la ultima
IF EMPTY(thisform.cboCategoIni.Value) .and. EMPTY(THISFORM.cboCategoFin.Value)
SELECT c_cat
GO top
thisform.cboEstIni.Value = ap_famprod
GO bott
thisform.cboEstFin.Value = ap_famprod
ENDIF
{"Lat":21.0229825464274,"Lng":-101.854248046875}
1 respuesta
Respuesta de tigrefox
1