- Code: Select all Expand view
cQte3 := "SELECT A1.codcia,A1.tipdoc,A1.codprov,A1.codprod,A1.consec,A1.simbolo,A1.referencia,A1.largo,"+;
"A1.ancho,A1.ancho_m,A1.fuel_l,A1.fuel_f,A1.kilmil,A1.metros,A1.solapa,A1.calibre,A1.tara,A1.dis_fot,"+;
"A1.selle,A1.ccortcam,A1.cort_cam,A1.mman_iny,A1.man etc....."
EjeQueri(0,@oDatos,cQue1)
if oDatos:RecordCount() =0 //ADORecCount()
MsgInfo("No Hay Datos ","Informacion") // MsgAlert( "No Hay Datos ","Informacion" )
oDatos:Close()
Return (.t.)
endif
nLinea := 1 ; nHasta := oDatos:RecordCount()
oDatos:MoveFirst()
Para Report En es te caso la cuolumna Nombre_estilo esta Null
- Code: Select all Expand view
COLUMN TITLE "Sta","Item" DATA {||iif(oDatos:Fields("status"):Value=1,"Si","No")}, oDatos:Fields("consec"):Value ;
FONT 1 SIZE 6 //SHADOW GRID 1 hace la raya vertical
COLUMN TITLE "Item","Codprod" DATA oDatos:Fields("consec"):Value,oDatos:Fields("codprod"):Value;
FONT 1 SIZE 12 //SHADOW GRID 1 hace la raya vertical
COLUMN TITLE "Referencia","Simbolo" DATA oDatos:Fields("simbolo"):Value,oDatos:Fields("referencia"):Value;
FONT 1 SIZE 20 //SHADOW GRID 1 hace la raya vertical
COLUMN TITLE "Largo/Alt","Ancho.B.Menor" DATA oDatos:Fields("largo"):Value, ;
oDatos:Fields("ancho"):Value FONT 1 SIZE 8
COLUMN TITLE "Ancho/B.Menor","Solapa" DATA TRANSFORM(oDatos:Fields("ancho_m"):Value,"999.99") ,;
TRANSFORM(oDatos:Fields("solapa"):Value,"999.99") FONT 1 SIZE 10
COLUMN TITLE "Fuelle.F","Fuelle.L" DATA TRANSFORM(oDatos:Fields("fuel_f"):Value,"999.99"), ;
TRANSFORM(oDatos:Fields("fuel_l"):Value,"999.99") FONT 1 SIZE 6
COLUMN TITLE "Metros","Peso/Mil" DATA TRANSFORM(oDatos:Fields("metros"):Value,"999.99"), ;
TRANSFORM(oDatos:Fields("kilmil"):Value,"99.9999") FONT 1 SIZE 6
COLUMN TITLE "Tipo.Selle", "Tipo.Estilo" DATA oDatos:Fields("nombre_selle"):Value ,;
oDatos:Fields("nombre_estilo"):Value FONT 1 SIZE 15
Para Xbrowse En es te caso la cuolumna Nombre_estilo esta Null
- Code: Select all Expand view
REDEFINE XBROWSE oLbx ;
COLUMNS "planta","codprov","consec","nombre_clie","codprod","simbolo","referencia","largo","ancho";
,"ancho_m","fuel_l","fuel_f", "calibre","solapa","metros","kilmil","nombre_estilo","nombre_mat";
,"nombre_selle","Ruta","status" ;
HEADERS "planta","Codigo","Item", "Nombre Tercero","Producto","Simbolo","Referencia","Largo","Ancho","Ancho.May";
,"Fuelle Lat","Fuelle_Fon","Calibre","Solapa","Metros","Peso.Mil","Tipo.Estilo","Tipo.Material";
,"Tipo.Selle","Nombre_ruta","Activo" ;
PICTURES nil,nil,nil,nil,nil,nil,nil,"999.9","999.9","999.9","999.9","999.9","999.9","9999.99","9999.9999";
,nil,nil,nil,nil,nil,nil,nil;
COLSIZES 20,60,20,250,60,220,120,60,60,90,60,60,60,60,60,60,180,180,120,60 ;
JUSTIFY .F.,.F.,.F.,.F.,.F.,.F.,.F.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.F.,.F.,.F.,.F.;
OF oDlgbrow ID 4001 ;
RECORDSET oDat15
par_browse(X_TIPBROW,oLbx,aContl[20],0,oDat15 )
Como puedo controlar el Campo Null