Agregue un segundo XBROWSE pero cuando se ejecuta el programa y le doy click en AUTOS se pinta el segundo XBROWSE que es de VIDA en lugar de AUTOS
Code: Select all
DEFINE OUTLOOK2003 oOutLook2003 OF oApp:oWnd ;
PROMPTS "POLIZARIUM","Autos", "Vida", "Daños", "Gastos Medicos", "Accidentes","" ;
BITMAPS "ima\newwin.bmp","ima\16x16\car.bmp","ima\16x16\vida.bmp", "ima\16x16\danos.bmp","ima\16x16\gmm.bmp", "ima\16x16\a21_.bmp";
ON CHANGE ShowFolder( oOutLook2003 )
oApp:oWnd:oLeft =oOutLook2003//nil // Because the splitter is going to control the resize
oExBar := TExplorerBar():New(oOutLook2003:aDialogs[ 1 ])
oExBar:lAnimate := !oExBar:lAnimate
* oExBar:CollapseAll()
DEFINE TASKPANEL oExBar
TASKGROUP "Datos usuario" SPECIAL WATERMARK "ima\Image28.bmp"
ENDTASKGROUP
ENDTASKPANEL
*oExBar:SetTheme( "XPGreen.dll" )
oExBar:AnchorLeft()
oExBar:AnchorRight()
oExBar := TExplorerBar():New(oOutLook2003:aDialogs[ 2 ])
bClick := {|| msgbeep() }
DEFINE TASKPANEL oExBar
TASKGROUP "ALTAS AUTOS" BITMAP "ima\auto.bmp" SPECIAL WATERMARK "ima\Image28.bmp" COLLAPSED
TASKITEM "Alta solicitud" BITMAP "ima\16x16\new2.bmp" TOOLTIP "Registre la solicitud individual o de flotilla" action ALTAFOL_I_F()
TASKITEM "Alta de Folio Solicitud" BITMAP "ima\16x16\mget.bmp" TOOLTIP "Registre el folio de recepcion de la compañia de seguros" action BUSCASOL1()
TASKITEM "Alta poliza" BITMAP "ima\16x16\inspect.bmp" TOOLTIP "Registre los datos de poliza individual o de flotilla" action BUSCAPOL1()
TASKITEM "Alta incisos" BITMAP "ima\16x16\inspect.bmp" TOOLTIP "Registre el numero de inciso dado por la compañia" action BUSCASOLINC()
TASKITEM "Modificaciones" BITMAP "ima\16x16\source.bmp" TOOLTIP "Modulo de modificaciones de datos de solicitud" action MODIFICAPOLIZA()
TASKITEM "Pagos" BITMAP "ima\16x16\Image1.bmp" TOOLTIP "Modulo de ingresos a la compañia" action PAGOSAUTOS()
ENDTASKGROUP
TASKGROUP "BAJAS AUTOS" BITMAP "ima\auto2_.bmp" SPECIAL WATERMARK "ima\cancelar.bmp" COLLAPSED //COLLAPSABLE
TASKITEM "Cancelaciones" BITMAP "ima\16x16\stop.bmp" action CACELA()
TASKITEM "Rehabilitaciónes" BITMAP "ima\16x16\favorite.bmp" action EXCACELA()
TASKITEM "Baja Total Poliza" BITMAP "ima\16x16\delete.bmp" action BUSCABORRAS()
TASKITEM "Baja Total Solicitud" BITMAP "ima\16x16\delete.bmp" action BUSCABORRASF()
ENDTASKGROUP
TASKGROUP "CONSULTAS" BITMAP "ima\16x16\find2.bmp" SPECIAL WATERMARK "ima\Image15.bmp" COLLAPSED
TASKITEM "No. de poliza" BITMAP "ima\16x16\find3.bmp" action BUSCAPOLIZA1()
TASKITEM "Nombre" BITMAP "ima\16x16\find3.bmp" action Lista_clientes() //ShowPopup()
ENDTASKGROUP
*TASKGROUP "Detalles" NO COLLAPSABLE
* TASKITEM "<b>TTaskPanel()</b>" + ;
* "<p>Clase para la creacion de paneles de tareas</p>"+;
* "<p><b>Autor</b></p>" +;
* "<p>Andres Reyes Hernandez</p>" INFO
*ENDTASKGROUP
oExBar:lAnimate := !oExBar:lAnimate
* oExBar:CollapseAll()
ENDTASKPANEL
*oExBar:SetTheme( "XPGreen.dll" )
oExBar:AnchorLeft()
oExBar:AnchorRight()
*oPanel:AddLink("Mis sitios de red",bClick,"sitiosred")
oExBar := TExplorerBar():New(oOutLook2003:aDialogs[ 3 ])
* oExBar := TExplorerBar():New( 0, 600, 200, 800, oOutLook2003:aDialogs[ 2 ])
* @ 0, 0 EXPLORERBAR oExBar OF oOutLook2003:aDialogs[ 2 ] ;
* SIZE oOutLook2003:aDialogs[ 2 ]:nWidth, oOutLook2003:aDialogs[ 2 ]:nHeight
* oOutLook2003:aDialogs[2]: setcolor( CLR_WHITE, CLR_BLUE )
oOutLook2003:aDialogs[2]:Disable()
oPanel = oExBar:AddPanel("G.M.M." )
oPanel:lSpecial = .T.
oPanel:AddLink("Alta solicitud", bClick ,"ima\16x16\new2.bmp")
oPanel:AddLink("Alta de Folio Solicitud",bClick ,"ima\16x16\mget.bmp")
oPanel:AddLink("Alta poliza", bClick ,"ima\16x16\inspect.bmp")
oPanel:AddLink("Modificaciones", bClick ,"ima\16x16\source.bmp")
oPanel:AddLink("Pagos", bClick ,"ima\16x16\Image1.bmp")
oPanel = oExBar:AddPanel("BAJAS VIDA" )
oPanel:AddLink("Cancelaciones" ,bClick,"ima\16x16\stop.bmp")
oPanel:AddLink("Rehabilitaciónes",bClick,"ima\16x16\favorite.bmp")
oPanel:AddLink("Baja Total" ,bClick,"ima\16x16\delete.bmp")
oPanel = oExBar:AddPanel("CONSULTAS" )
oPanel:AddLink("No. de poliza",bClick,"ima\16x16\find3.bmp")
oPanel:AddLink("Nombre" ,bClick,"ima\16x16\find3.bmp")
oExBar:AnchorLeft()
oExBar := TExplorerBar():New(oOutLook2003:aDialogs[4])
*oExBar := TExplorerBar():New( 0, 600, 200, 800, oOutLook2003:aDialogs[ 3 ])
oOutLook2003:aDialogs[3]:setcolor( CLR_WHITE, CLR_BLUE )
oOutLook2003:aDialogs[3]:Disable()
#ifndef __CLIPPER__
* DEFINE STATUSBAR oStatusBar PROMPT "Polozarium 2010" OF oApp:oWnd
#else
* DEFINE MESSAGE oStatusBar PROMPT "Polozarium 2010" OF oApp:oWnd
#endif
oApp:oWnd:oClient = nil
DIITA := DAY(DATE())
oApp:dfecha:= CMONTH(DATE())
ANITO := YEAR(DATE())
DIITA:=STR(DIITA)
ANITO:=STR(ANITO)
MESITO:=tmes(oApp:dfecha)
SET MESSAGE OF oApp:oWnd TO "Polizarium 2016" CENTERED CLOCK KEYBOARD 2007
* BLA:="\Spd=120\Este es el control de polizas POLIZARIUM tienes 30 dias para activar tu copia!! " MAXIMIZED
* BLA:="HOLA"
WndCenter( oApp:oWnd:hWnd )
*playfile("data\archeryrange.mp3")
// oAgent := TMsAgent():New( "MsAgent",.T.)
BLA:="HOLA"
ACTIVATE WINDOW oApp:oWnd ;
ON INIT(oAgent:Show(), oAgent:Move( 100,100 ),oAgent:Say("\Spd=120\Hoy es"+DIITA+" "+"de"+" "+MESITO+" "+"del"+" "+ANITO+BLA),oAgent:Stop() ) ;
ON PAINT DrawBitmap( hDC, oBmpx:hBitmap,0,0, oApp:oWnd:oWndClient:nWidth(), oApp:oWnd:oWndClient:nHeight() )
//ON PAINT DrawBitmap( hDC, oBmpx:hBitmap,0,0, oApp:oWnd:oWndClient:nWidth(), oApp:oWnd:oWndClient:nHeight() ) ;
oAgent:Hide()
oAgent:End() // End the agent
oBrush:End()
oBmpx:End()
// ON INIT ( oAgent:Show(), oAgent:Move( 600,400 ) ) ;
//
oRBar:End()
DeleteObject( hBitmap )
oFont:End()
SET RESOURCES TO
DBCLOSEALL()
resallfree() //por si quedan recursos en memoria....
memory(-1)
PostQuitMessage( 0 )
return nil
//----------------------------------------------------------------------------//
//----------------------------------------------------------------------------//
function ShowFolder( oOutLook2003 )
static aFolders,fl2,cfile,aselgrad,arowgrad,nrecsel,cimage
local oBrush,oBrush1,oBtn,oBrush2,oBrush3
//-------------------------------------------------------------------------------------
DEFINE BRUSH oBrush RESOURCE "BLANCOS"
DEFINE BRUSH oBrush1 FILENAME "sea2.bmp"
DEFINE BRUSH oBrush2 RESOURCE "ECHO1"
DEFINE BRUSH oBrush3 RESOURCE "GRAD"
dbselectarea( "autos" )
autos->(DbSetIndex( "DATA\AUTOS.CDX" ))
autos->(ORDSETFOCUS( "POLIZA_I" ))
*set index to POLIZA_A
* Set relation to autos->poliza into pagos
oApp:AUTOSVALOR:=10000
dbgotop()
oApp:AUTOSPOLIZA:=lastrec()
sum AUTOS->pagos_a to oApp:AUTOSVALOR
dbgotop()
oApp:OGETN :=space(60)
arowgrad := { { .5, RGB( 232, 241, 252 ), RGB( 232, 241, 252 ) }, ;
{ .5, RGB( 210, 225, 244 ), RGB( 235, 243, 253 ) } }
aselgrad := { { .5, RGB( 255, 255, 251 ), RGB( 255, 237, 178 ) }, ;
{ .5, RGB( 255, 218, 103 ), RGB( 255, 233, 162 ) } }
XbrNumFormat( 'E', .t. )
oApp:novoz:="si"
if aFolders == nil
aFolders = Array( 4 )
@ 0, oOutLook2003:nWidth + 2 FOLDER oApp:oWnd:oClient :=aFolders[ 1 ] PROMPTS "POLIZARIO " PIXEL ;
of oOutLook2003:oWnd SIZE oOutLook2003:oWnd:nWidth - oOutLook2003:nWidth, oOutLook2003:oWnd:nHeight
@ 75,oOutLook2003:nWidth + 0 FOLDEREX aFolders[ 2 ] PROMPT "A U T O S" PIXEL of oApp:oWnd SIZE 755, 697 ANIMATE SPEED 50;
BITMAPS "ima\16x16\car.bmp"
@ 00,00 XBROWSE oApp:oBrwX01 OF oApp:oWnd:oClient := aFolders[ 2 ]:aDialogs[ 1 ] ALIAS "AUTOS" ;
HEADERS "Folio", "Nombre", "Poliza", "Inciso", "Compañia", "Folio Empresa","Estatus";
FIELDS AUTOS->folio,;
ALLTRIM(AUTOS->APELLIDO_P) +" "+ ALLTRIM(AUTOS->APELLIDO_M) +" "+ ALLTRIM(AUTOS->NOMBRE) ,;
ALLTRIM(AUTOS->POLIZA) ,;
AUTOS->INCISO ,;
AUTOS->comp,;
AUTOS->folio_e,;
AUTOS->CANCELADA;
COLSIZES 50,210 , 160 , 50 , 150,100 SIZE 749,319;
JUSTIFY AL_LEFT,AL_CENTER,AL_CENTER,AL_RIGHT,AL_CENTER;
PICTURES "@!","@!","@!","@!","@!","@!";
ON CLICK (oApp:GETNOM:=ALLTRIM(AUTOS->NOMBRE) +" "+ ALLTRIM(AUTOS->APELLIDO_P) +" "+ ALLTRIM(AUTOS->APELLIDO_M),oApp:OGETN:Refresh(),;
oApp:GETT:=AUTOS->TEL1,oApp:oGETT:Refresh(),oApp:gett2:=AUTOS->TEL2,oApp:oGETT2:Refresh(),oApp:GETDIREC:=ALLTRIM(AUTOS->DIRECCION) +" Col. " + ALLTRIM(AUTOS->COLONIA) +" Cp. " +;
ALLTRIM(AUTOS->cod_postal), oApp:oGETDIREC:Refresh(),oApp:cEmail:=AUTOS->email,oApp:aEmail:Refresh(),oApp:cPagina:=AUTOS->pagina,oApp:aPagina:Refresh(),oApp:gETCIU:=AUTOS->poblacion,;
oApp:oGETCIU:Refresh(),oApp:MeMiTo:=AUTOS->comentario,oApp:mCOmmENtS:Refresh(),oApp:gETPOL:=AUTOS->Poliza,;
oApp:oGETPOL:Refresh(),oApp:gETINC:=AUTOS->inciso,oApp:oGETINC:Refresh(),oApp:RAMO:="AUTOS",oApp:oRAMOS:Refresh(),oApp:rFICHA:=AUTOS->ficha,oApp:oFICHA:Refresh(),oApp:cTpago:=AUTOS->cobertura,oApp:oTpago:Refresh(),;
oApp:cFichero:=AUTOS->PDF,IIF(AUTOS->CANCELADA="S", playfile("data\cancelada.mp3"),playfile(cfile) ),oApp:pEsTA:=alltrim(AUTOS->POLIZA),saltopaago(oApp:pEsTA,oApp:novoz),oApp:oBrwX01:Refresh())
oApp:oBrwX01:cTooltip :={ "POLIZAS DE AUTOS (C)Copyright 2010 - Por Aida Sistemas S.A.", "POLIZARIUM",1,CLR_WHITE,CLR_HBLUE }
oApp:oBrwX01:nMarqueeStyle := MARQSTYLE_HIGHLWIN7
oApp:oBrwX01:nFreeze := 2
oApp:oBrwX01:l2007 := (.t.)
oApp:oBrwX01:bClrStd:= { || If( ( (oApp:oBrwX01:cAlias)->(OrdKeyNo()) % 2 ) == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
oApp:oBrwX01:bRClicked := { | nRow, nCol | ShowPopup( nRow, nCol, oApp:oBrwX01 ) }
oApp:oBrwX01:lFastEdit := .f.
oApp:oBrwX01:aCols[ 1 ]:nDataStrAlign:= AL_LEFT
oApp:oBrwX01:aCols[ 2 ]:nDataStrAlign:= AL_LEFT
oApp:oBrwX01:aCols[ 3 ]:nDataStrAlign:= AL_LEFT
oApp:oBrwX01:aCols[ 5 ]:nDataStrAlign:= AL_LEFT
XbrStyles( oApp:oBrwX01 )
oApp:oBrwX01:bClrHeader := {|| { nRGB(140, 0, 0), nRGB( 231, 242, 255 ), } }
oApp:oBrwX01:lFooter := .T.
oApp:oBrwX01:aCols[ 2 ]:bFooter := { || "Registro->"+""+ tran(autos->(OrdKeyNo()),'@E 999,999')+" / "+tran(autos->(OrdKeyCount()),'@E 999,999') }
oApp:oBrwX01:aCols[ 3 ]:bFooter :={ ||"Total de primas pagadas--->" }
oApp:oBrwX01:aCols[ 5 ]:bFooter := { || TRANSFORM(oApp:AUTOSVALOR,"$9,999,999,999.99") }
oApp:oBrwX01:aCols[1]:bLClickHeader := {|r,c,f,o| (MiAccion1(),oApp:oBrwX01:refresh())}
oApp:oBrwX01:aCols[2]:bLClickHeader := {|r,c,f,o| (MiAccion2(),oApp:oBrwX01:refresh())}
oApp:oBrwX01:aCols[3]:bLClickHeader := {|r,c,f,o| (MiAccion3(),oApp:oBrwX01:refresh())}
oApp:oBrwX01:aCols[5]:bLClickHeader := {|r,c,f,o| (MiAccion5(),oApp:oBrwX01:refresh())}
oApp:oBrwX01:nStretchCol = STRETCHCOL_LAST
oApp:oBrwX01:SetRDD()
WITH OBJECT oApp:oBrwX01:Estatus
: AddBitmap( 'ima\16x16\set.bmp' ) // non-alpha bitmap
: AddBitmap( 'ima\16x16\close.bmp' ) // non-alpha bitmap
: bBmpData := { || if(autos->cancelada == "S" , 2, 1) }
END
WITH OBJECT oApp:oBrwX01:poliza
: AddBitmap( 'ima\16x16\key_f.bmp' )
: AddBitmap( 'ima\16x16\key_inc.bmp' )
: AddBitmap( 'ima\16x16\key_i.bmp' ) // non-alpha bitmap
: bBmpData := { || if(autos->flotilla == "SI" , 1, if(autos->flotilla == "NO" ,2, 3)) }
END
WITH OBJECT oApp:oBrwX01
:nStretchCol := 1
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:bClrSelFocus := { || { CLR_HBLUE, aselgrad } }
:bClrRowFocus := { || { CLR_BLUE, arowgrad } }
:bClrGrad := { | lInvert | If( lInvert, ;
{ { 1/3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
{ 2/3, nRGB( 255, 215, 84 ), nRGB( 255, 233, 162 ) } ;
}, ;
{ { 1/3, nRGB( 219, 230, 244 ), nRGB( 207, 221, 239 ) }, ;
{ 2/3, nRGB( 201, 217, 237 ), nRGB( 231, 242, 255 ) } ;
} ) }
END
oApp:oBrwX01:Setcolor( RGB( 30,144,255 ), RGB( 16, 78, 139 ) )
AEval( oApp:oBrwX01:aCols, { |oCol| ;
oCol:bPaintText := { |oCol, hDC, cData, aRect | ;
PaintCol2( oCol, hDC, cData, aRect, nrecsel ) } ;
} )
oApp:oBrwX01:SetBackGround( cimage )
*oApp:oWnd:oClient := aFolders[ 2 ]:aDialogs[ 1 ]
oApp:oBrwX01:CreateFromCode()
oApp:oBrwX01:oclient := oApp:oWnd
DEFINE BRUSH oBrush FILE "fondos\red2.bmp"
DEFINE BRUSH oBrush1 FILE "fondos\tapiz5.bmp"
@ 28.450, 40.50 FOLDEREX oApp:oWnd:oClient :=aFolders[ 2 ] PROMPTS "&Datos del cliente ", "&Poliza ","&Primas pagadas ","&Datos del Vehiculo " OF oApp:oWnd SIZE 753, 305 ANIMATE SPEED 50 ;
BITMAPS "ima\16x16\id_card2.bmp","ima\16x16\poliza.bmp" ,"ima\16x16\dinero.bmp" , "ima\16x16\sportscar.bmp"
oApp:osay := array(6)
@ 1.07,1 SAY oApp:osay[1] PROMPT "NOMBRE :" OF aFolders[ 2 ]:aDialogs[ 1 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0) //FONT oTextFont//Transparent //COLOR nRgb(253,253,253 ),nRgb( 132, 112, 255)
@ 1.07,10 get oApp:OGETN var oApp:GETNOM size 350,18 OF aFolders[ 2 ]:aDialogs[ 1 ] COLOR nRgb(0, 0, 0 ),nRgb( 240, 250, 255)
@ 1.07,73 SAY oApp:osay[2] PROMPT "TELEFONOS :" OF aFolders[ 2 ]:aDialogs[ 1 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0)
@ 1.07,65 get oApp:oGETT var oApp:gett size 100,18 OF aFolders[ 2 ]:aDialogs[ 1 ] COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255) //SHADOW
@ 1.07,80.1 get oApp:oGETT2 var oApp:GETT2 size 100,18 OF aFolders[ 2 ]:aDialogs[ 1 ] COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255) //SHADOW
@ 3.7,1 SAY oApp:osay[3] PROMPT "DIRECCION :" OF aFolders[ 2 ]:aDialogs[ 1 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0)
@ 4,10 get oApp:oGETDIREC var oApp:GETDIREC size 442,18 OF aFolders[ 2 ]:aDialogs[ 1 ] COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255)
@ 3.7,88 SAY oApp:osay[4] PROMPT "CIUDAD :" OF aFolders[ 2 ]:aDialogs[ 1 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0)
@ 4,73get oApp:oGETCIU var oApp:gETCIU size 156,18 OF aFolders[ 2 ]:aDialogs[ 1 ] COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255)
@ 6.5,01 SAY oApp:osay[5] PROMPT "CORREO ELECTRONICO :" OF aFolders[ 2 ]:aDialogs[ 1 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0)
@ 7,18 get oApp:aEmail var oApp:cEmail size 256,18 OF aFolders[ 2 ]:aDialogs[ 1 ] COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255)
@ 8.7,01 SAY oApp:osay[6] PROMPT "PAGINA INTERNET :" OF aFolders[ 2 ]:aDialogs[ 1 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0)
@ 10,18 get oApp:aPagina var oApp:cPagina size 256,18 OF aFolders[ 2 ]:aDialogs[ 1 ] COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255)
*aFolders[ 2 ]:aDialogs[ 1 ]:SetBrush( oBrush1 )
**AEVAL( oApp:osay, {|o| o:setbrush( oBrush1 )} )
oApp:osay := array(5)
@ 1,1 SAY oApp:osay[1] PROMPT "POLIZA :" OF aFolders[ 2 ]:aDialogs[ 2 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0)
@ 1,7 get oApp:oGETPOL var oApp:gETPOL size 150,18 OF aFolders[ 2 ]:aDialogs[ 2 ] COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255)
@ 1,36 SAY oApp:osay[2] PROMPT "INCISO :" OF aFolders[ 2 ]:aDialogs[ 2 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0)
@ 1,34 get oApp:oGETINC var oApp:gETINC size 40,18 OF aFolders[ 2 ]:aDialogs[ 2 ] COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255)
@ 2.7,01 SAY oApp:osay[3] PROMPT "RAMO : " OF aFolders[ 2 ]:aDialogs[ 2 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0)
@ 3,7 get oApp:oRAMOS var oApp:RAMO size 52,18 OF aFolders[ 2 ]:aDialogs[ 2 ] COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255)
@ 2.7,19 say oApp:osay[4] PROMPT "TIPO DE PAGO :" OF aFolders[ 2 ]:aDialogs[ 2 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0)
@ 3,25 get oApp:oTpago var oApp:cTpago size 113,18 OF aFolders[ 2 ]:aDialogs[ 2 ] COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255)
@ 4.7,01 SAY oApp:osay[5] PROMPT " FICHA :" OF aFolders[ 2 ]:aDialogs[ 2 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0)
@ 5,7 get oApp:oFICHA var oApp:rFICHA size 64,18 OF aFolders[ 2 ]:aDialogs[ 2 ] COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255)
@ 200,25 BTNBMP oBtn PROMPT "Solicitud PDF" OF aFolders[ 2 ]:aDialogs[ 2 ] SIZE 110, 30 FILE "ima\16x16\pdf.bmp" 2007 LEFT ACTION VerPDF (oApp:cFichero:=str(AUTOS->FOLIO))
oBtn:lEllipse = .T.
@ 200,200 BTNBMP oBtn PROMPT "Poliza PDF" OF aFolders[ 2 ]:aDialogs[ 2 ] SIZE 110, 30 FILE "ima\16x16\pdf.bmp" 2007 LEFT ACTION VerPDFF(oApp:cFichero:=AUTOS->poliza)
//ShowPDF()
@ 1.20,40 GET oApp:mCOmmENtS var oApp:MeMiTo size 400,200 OF aFolders[ 2 ]:aDialogs[ 2 ] MEMO MULTILINE COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255)
* aFolders[ 2 ]:aDialogs[ 2 ]:SetBrush( oBrush1 )
*AEVAL( oApp:osay, {|o| o:setbrush( oBrush1 )} )
**************************************************************************************************************************************************
*AEVAL( oApp:osay, {|o| o:setbrush( oBrush1 )} )
//-----------------------------------------------------------------------------
@ 75,oOutLook2003:nWidth + 0 FOLDEREX oApp:oWnd:oClient :=aFolders[ 3 ] PROMPT "V I D A" PIXEL of oApp:oWnd SIZE 755, 697 ANIMATE SPEED 50;
BITMAPS "ima\16x16\favorite.bmp"
dbselectarea( "vida" )
dbgotop()
oApp:vIDAPOLIZA:=lastrec()
sum vida->pagado to oApp:vIDAVALOR
dbgotop()
@ 00,00 XBROWSE oApp:oBrwX2 OF oApp:oWnd:oClient :=aFolders[ 3 ]:aDialogs[1] ALIAS "VIDA";
HEADERS " Nombre ", " Poliza VIDA ", " Inciso ","Pagado ", "Compañia";
FIELDS ALLTRIM(vida->NOMBRE) +" "+ ALLTRIM(vida->APELLIDO_P) +" "+ ALLTRIM(vida->APELLIDO_M),;
vida->R_POLIZA ,;
vida->POLIZA ,;
vida->pagado ,;
vida->comp;
COLSIZES 250 , 100 , 100 , 100,200 SIZE 749,319;
JUSTIFY AL_LEFT,AL_CENTER,AL_CENTER,AL_LEFT,AL_CENTER;
PICTURES "@!","@!","@!", "999,999,999","@!";
ON CLICK(Sndplaysound("beep1.wav"),oApp:GETNOM:=ALLTRIM(vida->NOMBRE) +" "+ ALLTRIM(vida->APELLIDO_P) +" "+ ALLTRIM(vida->APELLIDO_M),oApp:OGETN:Refresh(),;
oApp:gett:=vida->TEL1,oApp:oGETT:Refresh(),oApp:GETT2:=vida->TEL2,oApp:oGETT2:Refresh(),oApp:GETDIREC:=ALLTRIM(vida->DIRECCION) +" Col. " + ALLTRIM(vida->COLONIA),;
oApp:oGETDIREC:Refresh(),oApp:gETCIU:=vida->poblacion,oApp:oGETCIU:Refresh(),oApp:MeMiTo:=vida->comentario,oApp:mCOmmENtS:Refresh(),oApp:gETPOL:=vida->Poliza,;
oApp:oGETPOL:Refresh(),oApp:gETINC:=vida->inciso,oApp:oGETINC:Refresh(),oApp:RAMO:="VIDA",oApp:oRAMOS:Refresh(),oApp:rFICHA:=vida->ficha,oApp:oFICHA:Refresh(),oApp:cFichero:=vida->pdf)
oApp:oBrwX2:cTooltip :={ "POLIZAS DE VIDA (C)Copyright 2008 - Por Aida Sistemas S.A.", "POLIZARIUM",1,CLR_WHITE,CLR_GREEN }
oApp:oBrwX2:l2007 := (.t.)
oApp:oBrwX2:bClrStd:= {|| { IIF(vida->CANCELADA="S",Rgb(255,0,0),CLR_BLACK) , IIF(OrdKeyNo()%2=0,Rgb(193,221,255),Rgb(221,245,255)) } }
oApp:oBrwX2:bClrRowFocus := { || { CLR_BLACK, RGB(185,220,255) } }
oApp:oBrwX2:nMarqueeStyle := MARQSTYLE_HIGHLROWMS
XbrStyles( oApp:oBrwX2 )
oApp:oBrwX2:bClrRowFocus := { || { CLR_BLACK, RGB(185,220,255) } }
oApp:oBrwX2:lFooter := .T.
oApp:oBrwX2:aCols[ 1 ]:nDataStrAlign:= AL_LEFT
oApp:oBrwX2:aCols[ 1 ]:bFooter :={ ||"Total de primas pagadas--->" }
oApp:oBrwX2:aCols[ 4 ]:bFooter := { || oApp:vIDAVALOR }
*:= { |o,u,n| IF( n==13,( nStock := nStock - capitan->horas,capitan->horas := Val(u),nStock := nStock + capitan->horas, oApp:oBrwX:Refresh() ),NIL ) }
oApp:oBrwX2:lFastEdit := .F.
oApp:oBrwX2:SetRDD()
oApp:oBrwX2:lTransparent := .t.
*oApp:oBrwX:oBrw := oBrush
cImage="ima\01.jpg"
oApp:oBrwX2:SetBackGround( cImage)
oApp:oBrwX2:CreateFromCode()
oApp:oBrwX2:oclient := oApp:oWnd
@ 28.450,40.50 FOLDEREX oApp:oWnd:oClient :=aFolders[ 3 ] PROMPTS "&Datos del cliente ", "&Poliza ","&Primas pagadas " OF oApp:oWnd SIZE 753, 305 ANIMATE SPEED 50 ;
BITMAPS "ima\16x16\id_card2.bmp","ima\16x16\poliza.bmp" ,"ima\16x16\dinero.bmp"
*@ 0, oOutLook2003:nWidth + 2 FOLDER aFolders[ 3 ] PROMPTS "Four", "Five", "Six" PIXEL ;
* of oOutLook2003:oWnd SIZE oOutLook2003:oWnd:nWidth - oOutLook2003:nWidth, oOutLook2003:oWnd:nHeight
@ 0, oOutLook2003:nWidth + 2 FOLDER aFolders[ 4 ] PROMPTS "7", "8", "9" PIXEL ;
of oOutLook2003:oWnd SIZE oOutLook2003:oWnd:nWidth - oOutLook2003:nWidth, oOutLook2003:oWnd:nHeight
endif
do case
case oOutLook2003:nOption == 1
aFolders[ 1 ]:Show()
aFolders[ 2 ]:aDialogs[ 1 ]:Hide()
aFolders[ 3 ]:Hide()
aFolders[ 2 ]:Hide()
case oOutLook2003:nOption == 2
aFolders[ 4 ]:Hide()
oApp:oWnd:oClient :=aFolders[ 3 ]:aDialogs[1]:Hide()
aFolders[ 3 ]:aDialogs[ 1 ]:Hide()
aFolders[ 3 ]:Hide()
aFolders[ 1 ]:Hide()
oApp:oWnd:oClient := aFolders[ 2 ]:aDialogs[ 1 ]:Show()
aFolders[ 2 ]:aDialogs[ 1 ]:Show()
aFolders[ 2 ]:Show()
case oOutLook2003:nOption == 3
aFolders[ 2 ]:aDialogs[ 1 ]:Hide()
*aFolders[ 2 ]:aDialogs[ 2 ]:Hide()
aFolders[ 2 ]:Hide()
aFolders[ 1 ]:Hide()
aFolders[ 3 ]:aDialogs[ 1 ]:Show()
aFolders[ 3 ]:Show()
case oOutLook2003:nOption == 4
aFolders[ 2 ]:Hide()
aFolders[ 1 ]:Hide()
aFolders[ 4 ]:Show()
endcase
return nil
Espero me puedan ayuda
