Estimados. Buenas tardes.
les comento brevemente.
tengo en un dialogo 2 xbrowse desplegados cada uno con su barra de botones. mi problema es que en uno de los browse estoy relacionando una dbf de precios con 2 dbf una de clientes y otra de articulos.
el nombre de los articulos los muestra correctamente pero jo logro que muestre el nombre del cliente. si alguien ve en que le estoy errando agradecere su ayuda. gracias
aca el prg.
local oDlg, oBrw, cAlias := cGetNewAlias( "PRECFOR" )
local oBr, oFont
local titgral := 'Precios de FORMULARIOS'
local oBrw2, cAlias2 := cGetNewAlias( "PRECBAR" )
local titgral2 := 'Precios de BAR'
aBotones := { {"Work Area.bmp","Agrego Registro " , "Agregar" , {|| (oBrw:SetFocus(),oBrw:refresh()) },VK_INSERT,"<Insert>",.f.},;
{"Editar.bmp" ,"Modifico Registro" , "Modificar" , {|| (oBrw:refresh()),oBrw:SetFocus() },VK_RETURN,"<Return>",.f.},;
{"Exit.bmp" ,"Sale de Browse " , "Salir" , {|| oDlg:end() },VK_ESCAPE,"<Escape>",.t.} ;
}
aBotones2 := { {"Work Area.bmp","Agrego Registro " , "Agregar" , {|| (oBrw2:SetFocus(),oBrw2:refresh()) },VK_INSERT,"<Insert>",.f.},;
{"Editar.bmp" ,"Modifico Registro" , "Modificar" , {|| (oBrw2:refresh()),oBrw2:SetFocus() },VK_RETURN,"<Return>",.f.},;
{"Exit.bmp" ,"Sale de Browse " , "Salir" , {|| oDlg:end() },VK_ESCAPE,"<Escape>",.t.} ;
}
SET DATE ITALIAN
SET CENTURY ON
XBrNumFormat( 'E', .t. )
SetBalloon( .t. )
dbcloseall()
use colorfw new
use tecnico new
use corregir index corregi1 new
use acciones index accione1 new
use rubFor index rubFor1 , rubFor2 new
use rubBar index rubBar1 , rubBar2 new
use barrios index barrios1, barrios2 new
use localid index localid1, localid2 new
use ramBar index ramBar1, ramBar2 new
use ramFor index ramFor1, ramFor2 new
use pcias index pcias1 , pcias2 new
use condiva index condiva1,condiva2 new
use artfor index artfor1, artfor2,artfor3, artfor4, artfor5 new
use artBar index artBar1, artBar2,artBar3, artBar4, artBar5 new
use CliFor index CliFor1, CliFor2 new
use CliBar index CliBar1, CliBar2 new
use precBar index precBar1, precBar2, precBar3 new
set relation to Cliente into CliBar,;
to Articulo into ArtBar
use precFor index precFor1, precFor2, precFor3 new
set relation to Cliente into CliFor,;
to Articulo into ArtFor
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15
DEFINE BRUSH oBr RESOURCE "beige2"
DEFINE DIALOG oDlg FROM 1, 30 TO 650, 1050 FONT oFont TITLE 'Precios' PIXEL
@ 35, 3 GROUP oGrp TO 160, 507 PROMPT "De Formularios" of oDlg pixel transparent
@ 43,5 XBROWSE oBrw ;
COLUMNS "Cliente", "CliFor->ApeNom", "Articulo", "ArtFor->Detalle", "Costo","GanOri","Precio","Ganancia" ;
HEADERS "C贸d.", "Cliente", "C贸d", "Art铆culo", "Costo","Gan.Orig","Precio","Ganancia";
COLSIZES -10,-10,-10,-10,-10,-10,-10,-10 OF oDlg ;
SIZE 500,115 PIXEL ;
JUSTIFY .T.,.f.,.t.,.f.,.t.,.t.,.t.,.t. ;
ALIAS cAlias AUTOSORT LINES CELL NOBORDER ;
BACKGROUND aGrad VERTICAL
oBrw:nStretchCol := 2
oBrw:nRowHeight := 30
oBrw:nMarqueeStyle := 4
// anulo el doble color d los registros
oBrw:lContrastClr := .f.
// quitar barra horizontal
oBrw:lHScroll := .F.
oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)}
oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|oBrw:Refresh()}
oBrw:CreateFromCode()
cGrad := PadR( GradStr( BrwGrad( oBrw ) ), 128 )
// segundo xbrowse
@ 161, 3 GROUP oGrp TO 285, 507 PROMPT "De Bar" of oDlg pixel transparent
@ 170,5 XBROWSE oBrw2 ;
COLUMNS "Cliente", "CliBar->ApeNom", "Articulo", "ArtBar->Detalle", "Costo","GanOri","Precio","Ganancia" ;
HEADERS "C贸d.", "Cliente", "C贸d", "Art铆culo", "Costo","Gan.Orig","Precio","Ganancia";
COLSIZES -10,-10,-10,-10,-10,-10,-10,-10 OF oDlg ;
SIZE 500,115 PIXEL ;
JUSTIFY .T.,.f.,.t.,.f.,.t.,.t.,.t.,.t. ;
ALIAS cAlias2 AUTOSORT LINES CELL NOBORDER ;
BACKGROUND aGrad2 VERTICAL
oBrw2:nStretchCol := 2
oBrw2:nRowHeight := 30
oBrw2:nMarqueeStyle := 4
// anulo el doble color d los registros
oBrw2:lContrastClr := .f.
// quitar barra horizontal
//oBrw2:lHScroll := .F.
oBrw2:bKeyDown:={|nKey2,nFlag2|iif(veo2(@nApu2,@oBrw2,aBotones2,nKey2),eval(aBotones2[nApu2,4]),NIL)}
oBrw2:bLDblClick := { |nRow,nCol,nKeyFlags|oBrw2:Refresh()}
oBrw2:CreateFromCode()
cGrad2 := PadR( GradStr( BrwGrad( oBrw2 ) ), 128 )
ACTIVATE DIALOG oDlg CENTERED on INIT (BtnBarNew11( oBrw, @oDlg, aBotones),BtnBarNew22( oBrw2, @oDlg, aBotones2))
RELEASE BRUSH oBr
RELEASE FONT oFont
dbcloseall()
return nil
//-------------------------------------------------------------------------------------------------------------------------------------------------------------//