Necesito obtener datos de una fila seleccionada en Xbrowse con Array, para enviarlos a una Function.
Ejemplo: Selecciona la Fila 3 del Xbrowse y necesito enviar el Contenido de la Columna 1 " Fec.Consulta" a la function para imprimir.
Desde ya muchas gracias.
Muchos Saludos
Antonio
Codigo:
- Code: Select all Expand view
@ 20,10 XBROWSE oBrw4 SIZE -10,-35 PIXEL OF oDlg4 DATASOURCE aFichas ; // aFichas Array con 2 Columnas
HEADERS 'Fec.Consulta','Diagnóstico';
COLUMNS 1, 2;
PICTURES '@d','@!';
CELL LINES AUTOSORT NOBORDER;
oBrw4:nMarqueeStyle := MARQSTYLE_HIGHLWIN7
oBrw4:nColDividerStyle := LINESTYLE_INSET
oBrw4:nRowDividerStyle := LINESTYLE_INSET
oBrw4:bClrHeader := {|| { nRGB(140, 0, 0), nRGB( 231, 242, 255 ), } }
oBrw4:nOpacity := 230
oBrw4:bClrStd := {|| { nRGB( 0, 0, 0), nRGB(255,248,220) } }
oBrw4:bClrSelFocus := {|| { nRGB( 255, 255, 255), nRGB(102, 178, 255) } }
oBrw4:lFooter := .t.
oBrw4:lHScroll := .f.
oBrw4:lIncrFilter := .f.
oBrw4:lSeekWild := .F.
oBrw4:SetStyle( 2018)
oBrw4:nColorPen := CLR_RED
oBrw4:CreateFromCode()
@ 253,90 BTNBMP SIZE 30, 30 PROMPT "FICHA" OF oDlg4 PIXEL 2007 Resource "#8068" FONT oFont11 oGroup FLAT ;
ToolTip "CONSULTA FICHA MEDICA";
ACTION Imprime_Ficha(nFicha,Ape,Nom) // <====== Aqui debo Mandar la aCols[1] Fecha a la Function Imprime()
@ 253,180 BTNBMP SIZE 30, 30 PROMPT "SALIR" OF oDlg4 PIXEL 2007 Resource "#8101" FONT oFont11 oGroup FLAT ;
ToolTip "SALIR DEL SISTEMA";
ACTION oDlg4:End()
ACTIVATE DIALOG oDlg4 CENTERED
