FiveTech Support Forums

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

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