FiveTech Support Forums

#include "FiveWin.ch"
#include "xbrowse.ch"
*
REQUEST dbfCDX

Function Main()
   Private oWnd, cTxt:=""
   iF !File("BASE.DBF")
        DbCreate( "BASE", { { "NINT","N",4,0 },{ "CLAVE",  "N", 4,0 },{"NOMBRE","C",25,0 },{"CENTRO","C",3,0 },;
                         { "NRO_TEL","C",15,0 },{ "FECHA",  "C", 5,0 },{"HORA","C", 5,0 },{"DONDE",  "C",15,0 },;
                         { "AQUIEN","C",20,0 },{ "TIEMPO", "C", 8,0 },{ "MONTO",  "N", 7,2 },{ "DES","C", 3,0 } }, "DBFCDX" )
   Endif
 
   SET RESOURCES TO "DATARES.DLL"
     Use BASE ALIAS TL NEW SHARED
   DATABASE oDBF
   If NINT=0
    For I=1 to 20
       oDBF:Append()
       oDBF:NINT:=I+100
       ODBF:Save()
    Next I
   Endif
DEFINE WINDOW oWnd FROM 0,0 TO 467,697 PIXEL TITLE "TELEFONIA EN LINEA" STYLE nOr(WS_SYSMENU,WS_MAXIMIZE,WS_MINIMIZEBOX);
    COLOR  CLR_BLUE, nRGB( 182,192,192 )
    
  DEFINE DIALOG oDlg RESOURCE "MUESTRA" OF oWnd 
  REDEFINE GET oGet VAR cTxt ID 101 MEMO READONLY OF oDlg 
      
   oBrw:=TXBrowse():New( oDlg )
   oBrw:nColDividerStyle:= LINESTYLE_LIGHTGRAY
   oBrw:nMarqueeStyle:=5 
   oBrw:lVScroll:=.T.
   oBrw:bClrSel:={ || {CLR_WHITE,CLR_CYAN} }
   oBrw:bClrSelFocus:={ || {CLR_WHITE,CLR_CYAN} }
   oBrw:lRecordSelector := .F.
      
   oCol:=oBrw:AddCol()
   oCol:bStrData  := { || TL->CENTRO+Trans(TL->NINT,'@9 #####') }
   oCol:nWidth:=64
   oCol:nHeadStrAlign := AL_CENTER
   oCol:cHeader   := "ORIGEN"
     
   oCol:=oBrw:AddCol()
   oCol:bStrData:= { || TL->NOMBRE}
   oCol:cHeader := "NOMBRE"
   oCol:nWidth:=208
   oCol:nHeadStrAlign := AL_CENTER
   
   oCol:=oBrw:AddCol()
   oCol:bStrData:= { || TL->HORA }
   oCol:cHeader := "HORA"
   oCol:nWidth:=43
   oCol:nHeadStrAlign := AL_CENTER
   
   oCol:=oBrw:AddCol()
   oCol:bStrData  := { || ALLTRIM(TL->NRO_TEL)+" "+TL->DONDE}
   oCol:cHeader   := "DESTINO"
   oCol:nWidth:=220
   oCol:nHeadStrAlign := AL_CENTER
   
   oCol:=oBrw:AddCol()
   oCol:bStrData  := { || TL->TIEMPO}
   oCol:cHeader   := "TIEMPO"
   oCol:nWidth:=65
   oCol:nHeadStrAlign := AL_CENTER
  
   oCol:=oBrw:AddCol()
   oCol:bStrData:= { || TRAN(TL->MONTO,"####.##")}
   oCol:cHeader := "MONTO"
   oCol:nWidth:=60
   oCol:nHeadStrAlign := AL_CENTER

   oBrw:CreateFromResource(102)
 
   ACTIVATE DIALOG oDlg NOWAIT ON INIT (oDlg:Move( 0,0))
     
 ACTIVATE WINDOW oWnd ON INIT ( oWnd:Center(),MsgBar(),oBrw:GoBottom(),oBrw:SetFocus() )   
Return Nil       
*                
Function MsgBar()
  SET MESSAGE OF oWnd TO "AcrSoft Inc."+Str(Year(Date()),4)+Chr(169) 2007
  oWnd:oMsgBar:CLOCKON()
Return Nil

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>

LANGUAGE LANG_SPANISH,SUBLANG_SPANISH_BOLIVIA

MUESTRA DIALOGEX FIXED IMPURE 6, 18, 460, 245
STYLE WS_CHILD|WS_SYSMENU|WS_VISIBLE
EXSTYLE WS_EX_CLIENTEDGE
FONT 8, "MS Sans Serif", 0, 0, 1
{
  CONTROL "", 101, "Edit", ES_MULTILINE|ES_WANTRETURN|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 0, 0, 460, 115
  CONTROL "TXBROWSE", 102, "TXBROWSE", 0x00800000, 0, 116, 460, 126 { 0xC0DE, 0x0001, 0x000C }
}