ANTONIO LINARES

[Ruben]

BUENAS TARDES ANTONIO
SALUDOS A TODOS LOS DEL FORO

ALGUIEN QUE ME PUEDA ASESORAR PARA LLAMAR UNAS PANTALLAS QUE HICE EN WORKSHOP DESDE MI PRG.

Y PUES TAMBIEN PARA QUE ESA INFORMACION QUE CAPTURE EN PANTALLA SE GUARDE EN UN DBF.

SALUDOS DESDE MEXICO Y QUE TENGAN UN EXCELENTE FIN DE SEMANA

ATTE.

RUBEN

[Ramon Paredes]

Ruben :

En el directorio samples de Fivewin tienes muchos ejemmplos de todos los tipos de controles desde codigo como desde recursos,

De todas formas te adjunto este ejemplo ,

Desde Managua, Nicaragua
Ramon Paredes

//===============
FUNCTION GRABO( )
//===============

LOCAL mCODIGO,mNOMBRE,mTIPOAUX,mNATURAL,mEEFF,mVIACOMP,mDETALLE
LOCAL oCODIGO,oNOMBRE,oTIPOAUX,oNATURAL,oEEFF,oVIACOMP,oDETALLE,oBitmap1,oBtnOk

LOCAL Enllavar := .F.
LOCAL mAceptar := .F.
LOCAL nOldRec := RECNO()

PUBLIC dNatural,dEeFf[1]

LoadLibrary("BWCC32.DLL")

DEFINE BRUSH oBrush FILENAME "OSXBack.bmp"

dNatural := {"DEUDORA","ACREEDORA"}

SELECT E
IF DLk_Abre("T_EEFF",.F.) = .F.
CLOSE DATA
QUIT
ENDIF
SET INDEX TO T_EEFF
GO TOP

dEEFF[1] = E->COD_EEFF+"-"+ALLTRIM(E->CONCEPTO)
SKIP
DO WHILE .NOT. EOF()
AADD(dEEFF,E->COD_EEFF+"-"+ALLTRIM(E->CONCEPTO))
SKIP
ENDDO

SELECT A

IF SiNuevo = .T.
mCodigo := SPACE(12)
mNombre := SPACE(45)
mNatural := "DEUDORA"
mEEFF := SPACE(47)
mViacomp := .F.
mDetalle := .F.
ElSE
mCodigo := CATALOGO->CODIGO
mNombre := OemToANsi(CATALOGO->NOMBRE)
mNatural := CATALOGO->NATURAL
mEEFF := CATALOGO->EEFF
mDetalle := CATALOGO->DETALLE
mViaComp := CATALOGO->AFECTAR
ENDIF

DO WHILE .T.

DEFINE DIALOG oDlg2 RESOURCE 23 BRUSH oBrush TRANSPARENT

REDEFINE GET oCODIGO VAR mCODIGO ID 101 OF oDlg2 WHEN SiNUEVO
REDEFINE GET oNOMBRE VAR mNOMBRE ID 102 OF oDlg2 //WHEN !SiNuevo

REDEFINE COMBOBOX oNATURAL VAR mNATURAL ;
PROMPTS DNATURAL ;
ID 103 OF oDlg2 STYLE CBS_DROPDOWN

REDEFINE COMBOBOX oEEFF VAR mEEFF ;
PROMPTS DEEFF ;
ID 104 OF oDlg2

REDEFINE CHECKBOX oVIACOMP VAR mVIACOMP ID 105 OF oDlg2

REDEFINE BUTTON ID 106 OF oDlg2 action ( mAceptar := .T. , oDlg2:End() )
REDEFINE BUTTON ID 107 OF oDlg2 ACTION ( mAceptar := .F. , oDlg2:End() ) CANCEL

ACTIVATE DIALOG oDlg2 CENTERED

IF mAceptar= .F.
EXIT
ENDIF

SELECT A
IF mAceptar
IF SiNuevo
IF EMPTY(mCodigo)
MSGALERT("Codigo Esta en Blanco")
LOOP
ENDIF
SELECT Catalogo
IF DBSEEK(mCodigo)
MSGALERT("Codigo ya Existe")
LOOP
ENDIF
ENDIF
ENDIF
EXIT

ENDDO

SELECT Catalogo
IF mAceptar

IF SiNuevo
IF dlk_appen()
CATALOGO->codigo := mCODIGO
enllavar = .T.
ELSE
enllavar = .F.
ENDIF
ELSE
IF dlk_reg()
enllavar = .T.
ELSE
enllavar = .F.
ENDIF
ENDIF

IF enllavar

CATALOGO->NOMBRE := AnsiToOem(mNombre)
CATALOGO->NATURAL := mNatural
CATALOGO->EEFF := mEEFF
CATALOGO->AFECTAR := mViaComp
CATALOGO->DETALLE := mVIACOMP

IF mViaComp = .T.
nColor = CLR_HBLUE
ENDIF

COMMIT
UNLOCK

ENDIF
oLbx:Refresh()

ENDIF

RETURN NIL