FiveTech Support Forums

FUNCTION ALTA_A()

local oSof, Nnobre,oGET,osTA,CLA,CCOL,oBrush,oBitmap,obmp,Nnobrecp,oSkin,oSkinB
local nfl:=.f.
local xix:=.f.
LOCAL cCp :=SPACE(7)
Local Cnobre, Mnobre,oDirec
Local   cLogo:= "ima\AUTO1.BMP"

SET 3DLOOK ON

SkinButtons( oSkinB )

DEFINE DIALOG oSof RESOURCE "AUTO_A"  PIXEL STYLE  WS_POPUP  TRANSPARENT

REDEFINE GET Nnobre VAR oApp:cNombre       ID 101 OF oSof  PICTURE "@!"
Nnobre:bGotFocus  := { || Nnobre:SetColor( 0, RGB(245,245,220)) }
Nnobre:bLostFocus := { || Nnobre:SetColor( 0, CLR_WHITE  ) }
Nnobre:bKeyDown:={|nKey| If(nKey=VK_RETURN ,Cnobre:SetFocus(),)}     // aquí intento  que salte al siguiente get pero no funciona

REDEFINE GET Cnobre VAR oApp:cPaterno      ID 102 OF oSof  PICTURE "@!"
Cnobre:bGotFocus  := { || Cnobre:SetColor( 0, RGB(245,245,220)) }
Cnobre:bLostFocus := { || Cnobre:SetColor( 0, CLR_WHITE  ) }

REDEFINE GET Mnobre VAR oApp:cMaterno      ID 103 OF oSof  PICTURE "@!"
Mnobre:bGotFocus  := { || Mnobre:SetColor( 0, RGB(245,245,220)) }
Mnobre:bLostFocus := { || Mnobre:SetColor( 0, CLR_WHITE  ) }


REDEFINE GET Nnobre VAR oApp:cRFC          ID 104 OF oSof  PICTURE "@!"
REDEFINE GET Nnobre VAR oApp:cCURP         ID 105 OF oSof  PICTURE "@!"


REDEFINE GET oDirec VAR oApp:cDireccion    ID 106 OF oSof  PICTURE "@!"
oDirec:bGotFocus  := { || oDirec:SetColor( 0, RGB(245,245,220)) }
oDirec:bLostFocus := { || oDirec:SetColor( 0, CLR_WHITE  ) }

oApp:cCp2:="0000000"
REDEFINE BTNGET cCp ID 107 OF oSof PICTURE "99999"  RESOURCE "ima\preview.bmp" ACTION (oApp:cCp2:= cCp,BUSCP(cCp),cCol:refresh(),CCOL:SetItems(oApp:cPoitem) )      //lola

oApp:cCOLONIA:=oApp:cPoitem[1]
REDEFINE COMBOBOX CCOL VAR oApp:cCOLONIA ITEMS oApp:cPoitem ID 108 OF oSof

REDEFINE BTNGET oApp:cCiudad  ID 109 OF oSof  PICTURE "@!" RESOURCE "ima\16x16\search.bmp" ACTION (BUSCPE(oApp:cCiudad),osTA:refresh(),osTA:SetItems(oApp:ePoitem))

oApp:cEstado:=oApp:ePoitem[1]
REDEFINE COMBOBOX osTA VAR oApp:cEstado  ITEMS oApp:ePoitem  ID 110 OF oSof

REDEFINE GET Nnobre VAR oApp:cTelefona  ID 111 OF oSof  PICTURE "999-99-99(999999)"
REDEFINE GET Nnobre VAR oApp:cTelefonb  ID 112 OF oSof  PICTURE "999-99-99(999999)"
REDEFINE GET oApp:aEmail  VAR oApp:cEmail  ID 113 OF oSof
REDEFINE GET oApp:aPagina VAR oApp:cPagina ID 114 OF oSof

REDEFINE GET Nnobre VAR oApp:cFICHA     ID 115 OF oSof  PICTURE "9999999"
REDEFINE GET Nnobre VAR oApp:cCENTRO    ID 116 OF oSof  PICTURE "@!"

REDEFINE BITMAP    oBitmap     ID 117 FILE cLogo  TRANSPARENT   OF oSof

REDEFINE BUTTON ID 119 OF oSof  ACTION  SALIR_DE_A(nfl,osof)
REDEFINE BUTTON ID 118 OF oSof  ACTION (IF(Empty(oApp:cNombre),nMsgBox("Deve dar de alta el nombre del cliente", OemToAnsi( "Atenci¢n" )),(nfl:=.t., oSof:End())) )


ACTIVATE DIALOG  oSof CENTERED ON INIT oSof:Shadow()