HMGforum.com

danielmaximiliano wrote:Hola Gabriel :
a simple vista no veo errores en tu codigo, pero sin los datos de la tabla va a ser dificil comprobar el funcionamiento del mismo.

Javier Tovar wrote:Hola Gabriel,

danielmaximiliano wrote:Hola Gabriel :
a simple vista no veo errores en tu codigo, pero sin los datos de la tabla va a ser dificil comprobar el funcionamiento del mismo.

+1

Saludos

gabrieloq wrote:Por favor necesito una ayuda con un grid que tengo en una aplicación. NO me aparece el contenido, navega bien pero sin mostrar nada o la pantalla en negro, utilizo 3.0.46. Aveces deja ver el contenido pero la gran mayoria de veces esta oculto lo datos y si entro a las otras opciones de la aplicacion pasa lo mismo

*-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._

Code: Select all

PROCEDURE UsarPlantilla

dbSelectArea("TemPlant")
zap
INDEX ON  Servicio + Codigo + Nombre    TAG Nombre  TO \Archivo\Curarte\TemPlant.Cdx     
SET ORDER TO TAG Nombre

aCtrl_1 := {'TEXTBOX','CHARACTER'}
aCtrl_2 := {'CHECKBOX','CHARACTER'}
aCtrl_3 := {'TEXTBOX','CHARACTER'}
aCtrl_4 := {'TEXTBOX','CHARACTER'}
aCtrl_5 := {'TEXTBOX','CHARACTER'}
aCtrl_6 := {'TEXTBOX','NUMERIC','999'}

bColor := { || if ( valtype ( This.CellValue ) == 'C', if ( This.CellValue = '*' , { 41,222,237 } , { 255,255,255 } ), { 255,255,255 } ) }
 
DEFINE WINDOW W_Imp1     ;
   AT 10,10              ;
   WIDTH 1100 HEIGHT 580 ;
   TITLE "   "           ;
   MODAL      

   @ 45,10 LABEL L_Fec1 VALUE 'Plantillas' 
    
	@ 45, 110 COMBOBOX Control_1	    	  ;
			ITEMSOURCE Plantilla->Nombre	  ; 
			VALUESOURCE Plantilla->Codigo     ;
			WIDTH 250 HEIGHT 100	          ;
			FONT "Arial" SIZE 9	        	  ;
			ON LOSTFOCUS mandar( This.Value ) ;
			TOOLTIP "Codigo de la Plantilla"  
    
	@ 45, 380 BUTTON B_Man CAPTION 'Aceptar'    ACTION mandar( W_Imp1.Control_1.Value )
	
    @ 80,10 GRID Grid_P1                     ;
	    WIDTH 1070                           ;
	    HEIGHT 400                           ;
	    HEADERS { 'Selecciona','Descripción','Prescripción','Via','Cantidad'}  ;
	    WIDTHS { 50, 500, 300, 120, 80}      ;
		VALUE { 1 , 1 }                      ;
		ROWSOURCE "TemPlant"	             ;
		COLUMNCONTROLS { aCtrl_1 , aCtrl_3 , aCtrl_4 , aCtrl_5, aCtrl_6 } ;
		COLUMNFIELDS { 'Si', 'Nombre','Prescribe','Via','Cantidad' }      ;
		DYNAMICBACKCOLOR { bColor, bColor , bColor, bColor, bColor } ;
		CELLNAVIGATION ;
		EDIT           ;
		ALLOWAPPEND 
		
   @ 495, 200 BUTTON B_Agr CAPTION 'Agregar Item'    ACTION AgregaItem()
   
   @ 510, 510 BUTTON B_Ace CAPTION 'Grabar'          ACTION ImPlant()

   @ 510, 635 BUTTON B_Can CAPTION 'Salir'           ACTION W_Imp1.release
END WINDOW

CENTER WINDOW W_Imp1
ACTIVATE WINDOW W_Imp1
   
Return Nil

*-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._		

FUNCTION  mandar( cConc )

abre_ArcPl( cConc )

RETURN NIL

*-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._		

function abre_ArcPl( cConc )
aPide  := {}
aPlant := {}
nI := 0

if cConc = NIL  .or. Empty( cConc )
   return .f.
endif   

dbSelectArea("TemPlant")
zap
INDEX ON  Servicio + Codigo + Nombre    TAG Nombre  TO \Archivo\Curarte\TemPlant.Cdx     
SET ORDER TO TAG Nombre

dbSelectArea("DetPlant")
dbSeek( cConc )
while !eof()
   
   if DetPlant->Plantilla  # cConc
      dbSkip()
      loop
   endif
   
   Plantilla->( dbSeek( DetPlant->Plantilla ) )

   if DetPlant->Via  = 1
      cVia := "Oral"
   elseif DetPlant->Via  = 2
          cVia := "IntraMuscular"
   elseif DetPlant->Via  = 3
          cVia := "SubCutanea"
   else
      cVia := "            "
   endif		  

   dbSelectArea("TemPlant")
   Amplia( 5, "TemPlant", cQuien )
   TemPlant->E           := if( DetPlant->Codigo = space(7), "*", " " )
   TemPlant->Historia    := Registro->Historia
   TemPlant->Registro    := Registro->Registro
   TemPlant->Fecha       := Registro->Fecha
   TemPlant->Codigo      := DetPlant->Codigo
   TemPlant->Servicio    := DetPlant->Servicio
   TemPlant->Nombre      := if( DetPlant->Codigo = space(7), "*****  ", "" ) + ALLTRIM(DetPlant->Nombre ) + if( DetPlant->Codigo = space(7), "  *****", "" )
   TemPlant->Prescribe   := DetPlant->Prescribe
   TemPlant->Via         := cVia
   TemPlant->Cantidad    := DetPlant->Cantidad
   dbUnlock()
   
   aadd( aPlant, { .f., DetPlant->Nombre, DetPlant->Prescribe, cVia, DetPlant->Cantidad } )
   aadd( aPide, { .f., DetPlant->Nombre, DetPlant->Prescribe, cVia, DetPlant->Cantidad, Registro->Historia, Registro->Registro, Registro->Fecha, Plantilla->Codigo } )
   
   dbSelectArea("DetPlant")
   dbSkip()
end do   

dbSelectArea("TemPlant")
dbGotop()
W_Imp1.Grid_P1.Refresh

Return NIL
*-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._

De antemano gracias por la ayuda... me es urgente, gracias

danielmaximiliano wrote:Hola Gabriel :
a simple vista no veo errores en tu codigo, pero sin los datos de la tabla va a ser dificil comprobar el funcionamiento del mismo.

Google wrote:at first glance I do not see errors in your code, but without the data of the table will be difficult to check the operation.