ANTONIO: LE MANDO MI CODIGO FTE PARA QUE LO REVISE. SI ES TAN AMABLE
GRACIAS :
JOSE
Function avi601()
LOCAL oFont5
local oBtm5
local oBtm6
local oBmp6, oBmp, oBtnbmp
LOCAL oIcon3
local oBarra
local oDlg2
CNOMBRE:=space(30)
CCVECAN:=CIMPORTE:=0
FUERA:=.T.
FUERA2:=.T.
FUERA3:=.T.
OKEY:=.T.
RET:=.T.
set _3dlook on
//patres:="z:\aviores"
// USE C:\AVIO\AVIORES\maepro ALIAS maepro
USE C:\AVIO\aviores\maepro ALIAS maepro
INDEX ON MAEPRO->NOMBRE1 TO c:\AVIO\ALFA
set index to c:\AVIO\ALFA
close data
// USE C:\AVIO\AVIORES\maepro alias maepro shared new
USE C:\AVIO\aviores\maepro alias maepro shared new
set index to c:\AVIO\ALFA
VISA1()
close data
return nil
function VISA1()
DEFINE FONT oFont5 NAME "arial" SIZE 05,14 bold
DO WHILE OKEY
// DEFINE ICON oIcon3 resource "fivewin"
// DEFINE BITMAP oBmp resource "pintura5"
DEFINE DIALOG oDlg2 RESOURCE "BRWALFA" OF oWnd
// oDlg2:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp:hBitmap ) }
//MsgInfo( "definio dialogo" )
oDlg2:bGotFocus = { || SndPlaySound("c:\Windows\media\chimes.wav") }
// Odlg2:oIcon=oIcon3
// oDlg2:nClrText=nRGB(249,16,32)
//MsgInfo( "antes del get" )
REDEFINE GET oGet VAR CNOMBRE PICTURE "@!" ID 101 OF oDlg2 COLOR "R+/BG+" font oFont5;
VALID (APUNTA(CNOMBRE),FUERA2)
//MsgInfo( "antes del listbox" )
REDEFINE LISTBOX oBrow fields transform(MAEPRO->cvenva,"9/99-999"),TRANSFORM(VAL(MAEPRO->CLAVECONSO),"9/99-999"),;
OemToansi(MAEPRO->nombre1),MAEPRO->asoc,MAEPRO->pad_0607 alias "maepro" font oFont5;
ID 102 OF oDlg2 head "CLAVE","CVECON","NOMBRE DEL PRODUCTOR","ASOC","PADRON";
COLOR "R+/BG+"
//MsgInfo( "despues del listbox" )
oBrow:refresh()
oBrow:aJustify={2,2,0,2,2}
oBrow:nLinestyle=11
oBrow:nClrbackhead=nRGB(0,213,213)
oBrow:nClrforehead=nRGB(0,150,151)
oBrow:nClrforefocus=nRGB(249,216,32)
oBrow:nClrbackfocus=nRGB(249,29,83)
oBrow:nClrpane:={||iif((ordkeyno())%2==0,RGB(0,213,213),rgb(0,150,151))}
//oBrow:nClrpane:={||iif((ordkeyno())%2==0,RGB(230,230,230),rgb(190,215,190))}
// REDEFINE BUTTON oBtm5 ID 103 OF oDlg2 prompt "Salir" font oFont5 ACTION (FUERA:=.T.,oDlg2:End())
// REDEFINE BUTTON oBtm5 ID 103 OF oDlg2 prompt "Salir" font oFont5 ACTION (cancel)
//MsgInfo( "antes del boton" )
// REDEFINE BTNBMP oBtnBmp ID 103 OF oDlg2 RESOURCE "Salida" ACTION (FUERA,oDlg2:End())
REDEFINE BTNBMP oBtnBmp ID 103 OF oDlg2 RESOURCE "Salida" ACTION oDlg2:End()
oBtnBmp:nClrpane=nRGB(0,151,151)
//MsgInfo( "despues del boton" )
//oBtnBmp:nClrpane=nRGB(78,20,240)
// oBtnBmp:nClrtext=nRGB(18,190,71)
ACTIVATE DIALOG oDlg2 CENTER;
on init (sndPlaySound("c:\windows\media\notify.wav"),oGet:setfocus())
// If GetKeyState(VK_ESCAPE).or.fuera=.t.
// IF (FUERA=.T.).OR.CNOMBRE=SPACE(30)
// RETURN .F.
// ENDIF
//MsgInfo( "activo dialogo" )
RETURN RET
ENDDO
// set resources to
release font oFont5
oFont5:end()
RETURN NIL
FUNCTION APUNTA(CNOMBRE)
// MsgInfo( "antes de apuntar" )
MAEPRO->(DBSEEK(CNOMBRE,FUERA3))
//oGet:setfocus()
oBrow:upstable()
oBrow:refresh()
//MsgInfo( "despues de apuntas" )
RETURN(cnombre)
