Favor Ayuda con COMBOBOX / Actualiza XBROWSE

[remtec]

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.

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

 

[VitalJavier]

Buen Dia
Lo único que hago para que actualice el Array es :
Al Final de tu "Carga_paci"

Code: Select all

  oPaci:SetArray( aPacientes )
  oPaci:GoTop()
  oPaci:Refresh()  
 

Espero y te funcione.

[remtec]

Hola Javier

Muchas gracias por responder.

No encuentro la forma de mandar a la Function "Carga_paci()", desde el Combobox, esto es lo que me tiene complicado.

Muchos Saludos.

Antonio.

[VitalJavier]

Cada vez que cambia:
ON CHANGE Carga_paci()

Al Final (Cuando sales del combobox)
VALID Carga_paci()

[remtec]

Hola Javier

Muchas gracias, Sigo molestando.

Al mandar desde el Combobox a la Function Carga_paci, debo pasar el Codigo del Profesional Elegido en el Combobox, por Ej.

Cod="BUST" y Descripcion = "ARTURO BUSTIOS", la variable cCod_pro1, debe llegar con "BUST" y al hacerlo ON CHANGE Carga_paci(), llega vacia.

Saludos.

Antonio.

[remtec]

Solucionado