Favor Ayuda con COMBOBOX / Actualiza XBROWSE
Posted: Mon Nov 12, 2018 12:00 am
Amigos
Muy buenas tardes, sigo molestando.
Necesito que al seleccionar un dato del ComboBox, vaya a validar y llenar un Array y luego meActualice un XBROWSE.
Adjunto el codigo que debo corregir:
Desde ya muchas gracias.
Muchos Saludos.
Antonio.
Muy buenas tardes, sigo molestando.
Necesito que al seleccionar un dato del ComboBox, vaya a validar y llenar un Array y luego meActualice un XBROWSE.
Adjunto el codigo que debo corregir:
Desde ya muchas gracias.
Muchos Saludos.
Antonio.
Code: Select all
Define Dialog oDlg Resname "#1004"
REDEFINE COMBOBOX oCod_pro1 VAR nCod_pro1 ITEMS ArrTranspose( aProfe )[ 2 ] ID 102 OF oDlg COLORS nRGB(9, 11, 10), nRGB(73, 250, 202);
ON CHANGE (cCod_pro1:=ArrTranspose( aProfe )[ 1 ][oCod_pro1:nAt]) // Aqui Necesti ir a validar y cargar Array en ([b]Carga_paci()[/b])
REDEFINE XBROWSE oPaci ID 104 OF oDlg ; // Este es el XBROWSE a Actualizar
COLUMNAS 1,2,3,4,5,6,7,9;
HEADERS "Nro. Paci","Nombre del Paciente" ,"T. Pago","Digita","Nro.Ingre","Estado";
COLSIZES 10, 380, 80, 120,120,80,80,80 ;
FONT oFont1;
ARRAY aPacientes ;
FOOTERS LINES CELL
oPaci:bClrStd := {|| { nRGB( 0, 0, 0), nRGB(255,248,220) } }
oPaci:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(137, 247, 33) } }
oCol:AddResource("#8003")
oCol:AddResource("#8002")
REDEFINE BTNBMP ID 105 Resource "#8004" OF oDlg ;
ACTION (oDlg:Close(),oDlg:END(),oWnd:Close(),oWnd:END())
Activate Dialog oDlg Centered ON INIT oCod_pro1:SetFont( oFont1 )
RELEASE FONT oFont
RELEASE FONT oFont1
return nil
Static Function Carga_paci()
Local cArchi
cArchi:='paci'+trim(cCod_pro1)
Sele 2
Use &cArchi Shared
Set Inde to &cArchi
DbGotop()
Do While !Eof()
If (ctod(fec_ate)#Fecha_hoy())
AADD( aPacientes,{ b->Cor_pac,b->Nom_pro,b->Fol_caj,b->Tip_pag,b->Val_bon,b->Cod_dig,b->Hor_dig,b->Con_pac})
Endif
DbSkip()
Enddo
Return