Nuevamente molestando.
Tengo algo muy extraño con ComboBox, tengo un dialogo conde debo poner un Say y luego en la misma fila, poner un ComboBox, para seleccion de un dato.
El Problema que el ComboBox, no se muestra Dentro del Dialogo, menos en la posición de la linea del Say.
Lo extraño que en otros dialogos, otros combobox funcionan muy bien.
Como siempre esperando de su ayuda, les saluda muy atte.
Antonio.
Les dejo el Código:
Code: Select all
#include "FiveWin.ch"
#include "xbrowse.ch"
REQUEST HB_LANG_ESWIN
REQUEST HB_CODEPAGE_ESWIN // Para establecer código de página a Español (Ordenación, etc..)
Function Actu_Conve()
local oDlg, oBrw, oFont, oCol,otitu,oFont1,otitu1 ,oFont7 ,otitu2,oMedicos,nMedicos,Cod_Pro1
Public aMedicos := {}
If !file("Convenio.DBF")
// Creo Base de Datos de Pacientes Atendidos del dia
aStru :={{"Cod_Pro" ,"C",4,0 },; // Codigo Profesional
{"Tip_Pag" , "C",4,0 },; // Tipo de Pago
{"Val_Bon" , "N",10,0 }} // Valor Bono
Dbcreate("Convenio.dbf",aStru)
Endif
Abre_dbf("Medicos",1,.f.,"")
set inde to Medicos
DbSetorder(2)
DbGoTop()
Do While !Eof()
Aadd(aMedicos, { a->Cod_Pro,a->Nom_Pro})
DbSkip()
EndDo
Dbclosearea()
If !file("Convenio.CDX")
Abre_dbf("Convenio",1,.t.,"")
inde on Cod_Pro+Tip_Pag tag Conv1 to Convenio
DbClosearea()
Endif
Abre_dbf("Convenio",1,.f.,"")
set inde to Convenio
Abre_dbf("Tpagos",2,.f.,"")
set inde to Tpagos
Sele a
Set Rela to Tip_Pag Into Tpagos
go top
cAlias = "Convenio"
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14 BOLD
DEFINE FONT oFont1 NAME 'TAHOMA' SIZE 0,24 BOLD
DEFINE FONT oFont7 NAME "TAHOMA" SIZE 0,-18 BOLD
DEFINE DIALOG oDlg SIZE 385,570 PIXEL FONT oFont STYLE nOr( WS_POPUP, WS_VISIBLE, WS_DLGFRAME )
@ 00,50 SAY otitu PROMPT " CONVENIOS POR MEDICO" PIXEL OF oDlg COLORS RGB(12, 135, 27) FONT oFont1
@ 20,10 SAY "Medico:" SIZE 50,10 PIXEL OF oDlg RIGHT COLORS RGB(0, 60, 179) FONT oFont7 // <==== Aqui Debo Poner El ComboBox
@ 20,20 COMBOBOX oMedicos VAR nMedicos ITEMS ArrTranspose(aMedicos)[2] OF oDlg COLORS nRGB(9, 11, 10), nRGB(73, 250, 202);
ON CHANGE ((Cod_Pro1:=ArrTranspose(aMedicos)[1][oMedicos:nAt]),IF(!Busca_Pagos(Cod_Pro1),(MsgStop("HOLA"),oBrw:Setfocus(),.F.), (oBrw:Refresh(), .T.) )) // <==== ComboBox que debe
@ 255,110 BTNBMP SIZE 30,30 PROMPT "SALIR" OF oDlg PIXEL 2007 Resource "#8101" FONT oFont ;
ToolTip "SALIR DEL SISTEMA";
ACTION oDlg:End()
@ 255,30 BTNBMP SIZE 30,30 PROMPT "BUSCAR" OF oDlg 2007 Resource "#8104" FONT oFont ;
ToolTip "BUSCAR TIPOS DE PAGOS"
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont,oFont7,oFont1
Close all
return nil
Function Busca_Pagos(tt)
......
........
Return
