Re: Ayuda principiante

[jrcpoli-quitar]

Pilo:
Otra cuestión que no entiendo es porque empleas esto así­ cuando a lo
mejor no lo vas a emplear nada más que en este formulario, si quieres
que sea visible en todo el formulario puedes utilizar DATA así­:
DATA BULTOS INIT 1
DATA FECHAENVIO INIT Date()
DATA PERSONAENVIO INIT Space(36)
O mejor aún en sus Edit los inicializas con los valores que quieras y la
longitud que quieras que admitan la pones en nMaxLength por ejemplo en
PERSONAENVIO pones nMaxLength 36
José Ramón Castro.
PILO escribió:
> Los tdbedit que estan el fondo en blanco, estan con datos de un dataset del
> formulario que lo lanza
> Los que estan con fondo blanco son tedit de este formulario
> el tdbbrowse es otro dataset pero de este formulario
> Necesito si alguien me puede ayudar con ejemplos
> Quiero hacer
> Cuando pulso el boton OK
> tengo que añadir los valores que hay en los tdbedit con fondo blanco de
> dataset de formulario anterior
> al dataset1 de este formulario y ademas los valores de los tedit y
> tdateedit, estos dos ultimos me los pasa
> pero los otro me los pasa en blanco, utilizo de la siguiente forma
>
> /*
> * Proyecto: ETIQUETAR
> * Fichero: ENVIOS.prg
> * Descripción:
> * Autor:
> * Fecha: 16/11/2006
> */
>
> #include "Xailer.ch"
>
> CLASS Tenvios FROM TForm
>
> COMPONENT oDBEdit1
> COMPONENT oOK
> COMPONENT oCancel
> COMPONENT oDBEdit2
> COMPONENT oDBEdit3
> COMPONENT oDBEdit4
> COMPONENT oDBEdit5
> COMPONENT oDBEdit6
> COMPONENT oCdxDataSource1
> COMPONENT oDbfDataSet1
> COMPONENT oDBBrowse1
> COMPONENT BULTOS
> COMPONENT oLabel1
> COMPONENT oLabel2
> COMPONENT oDateEdit1
>
> PUBLIC BULTOS := 1
> PUBLIC FECHAENVIO := DATE()
> PUBLIC PERSONAENVIO := SPACE(36)
>
> METHOD CreateForm()
> METHOD fistcreater( oSender )
> METHOD OKDblClick( oSender, nKeyFlags, nPosX, nPosY )
>
> ENDCLASS
>
> #include "ENVIOS.xfm"
>
> //---------------------------------------------------------- --------------------
>
> METHOD fistcreater( oSender ) CLASS Tenvios
> oSender:oDataSet := ::oParent:oDataSet
> RETURN Nil
>
>
> //---------------------------------------------------------- --------------------
>
> METHOD OKDblClick( oSender, nKeyFlags, nPosX, nPosY ) CLASS Tenvios
> ::oDbfDataSet1:AddNew()
> if rlock()
> ::oDbfDataSet1:CODIGO := ::oDBEdit1:oDataField
> ::oDbfDataSet1:RAZONSOCI := ::oDBEdit2:oDataField
> ::oDbfDataSet1:DIRECCION := ::oDBEdit3:oDataField
> ::oDbfDataSet1:CODIPOS := ::oDBEdit4:oDataField
> ::oDbfDataSet1:POBLACION := ::oDBEdit5:oDataField
> ::oDbfDataSet1:PROVINCIA := ::oDBEdit6:oDataField
> ::oDbfDataSet1:BULTOS := ::bultos:value
> ::oDbfDataSet1:ETIQUETADO := ::oDBEdit1:oDataField
> ::oDbfDataSet1:FE_ENVIO := ::oDateEdit1:Value
> ::oDbfDataSet1:FE_PEDI := ::oDateEdit1:Value
> ::oDbfDataSet1:Update()
> unlock
> endif
> MsgInfo("boton ok pulsado")
>
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> Con esto no me funciona ni actualiza los datos
> ni tampoco me sale el msginfo
>
> Gracias de antemano
>
>

[PILO]

Gracias a los dos, voy entendiendo un poco como funciona las classes ya que
no tengo idea de ello, me
me podeis recomendar algun libro o pagina de interner para entender lo de
clases metodos y demas