In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Richiesta di aiuto

Foro público de Xailer en español
Responder
FRANK[1]
Mensajes: 63
Registrado: Jue May 20, 2010 11:25 am

Richiesta di aiuto

Mensaje por FRANK[1] »

Ciao a tutti,
USO ADDNEW() PER CREARE UN NUOVO RECORD
VERIFICO SE IL NUOVO DATO ESISTE DENTRO Array(CODICI_IN_USO)
GENERO UN MESSAGGIO "CODICE IN USO!!" E CANCELLO IL DATO APPENA INSERITO
CERCO POSIZIONARE IL CURSORE ::oDBEdit1:SetFocus() MA IL FOCUS SI SPOSTA
AL DBEDIT2
METHOD DBEdit1Exit( oSender, oNextCtl ) CLASS ArchivioArticoli
IF ASCAN(CODICI_IN_USO,oSender:Value,,.T.) > 0
::oMessageBox3:BEEP()
::oMessageBox3:RUN()
::oDBEdit1:Value := ""
::oDBEdit1:SetFocus()
ENDIF
RETURN Nil
GRAZIE PER AIUTO
SALUTI FRANCO
Arriba
jrcpoli-quitar
Mensajes: 558
Registrado: Mar Feb 09, 2010 2:26 pm

Richiesta di aiuto

Mensaje por jrcpoli-quitar »

El 28/05/2010 16:36, FRANK escribió:
> Ciao a tutti,
>
> USO ADDNEW() PER CREARE UN NUOVO RECORD
>
> VERIFICO SE IL NUOVO DATO ESISTE DENTRO Array(CODICI_IN_USO)
>
> GENERO UN MESSAGGIO "CODICE IN USO!!" E CANCELLO IL DATO APPENA INSERITO
>
> CERCO POSIZIONARE IL CURSORE ::oDBEdit1:SetFocus() MA IL FOCUS SI SPOSTA
> AL DBEDIT2
>
>
> METHOD DBEdit1Exit( oSender, oNextCtl ) CLASS ArchivioArticoli
Local lCorrecto := Nil
>
> IF ASCAN(CODICI_IN_USO,oSender:Value,,.T.)> 0
> ::oMessageBox3:BEEP()
> ::oMessageBox3:RUN()
> ::oDBEdit1:Value := ""
lCorrecto := .F.
//::oDBEdit1:SetFocus()
ENDIF
RETURN lCorrecto
>
> GRAZIE PER AIUTO
>
> SALUTI FRANCO
>
>
Arriba
FRANK[1]
Mensajes: 63
Registrado: Jue May 20, 2010 11:25 am

Richiesta di aiuto

Mensaje por FRANK[1] »

lCorrecto := .F.
|
|___>>>> ::oDBEdit1:SetFocus()
"COME FACCIO A METTERE CURSORE NUOVAMENTE IN oDBEdit1 ?"
GRAZIE FRANK
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> ha
scritto nel messaggio news:4bfff176$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> El 28/05/2010 16:36, FRANK escribió:
>> Ciao a tutti,
>>
>> USO ADDNEW() PER CREARE UN NUOVO RECORD
>>
>> VERIFICO SE IL NUOVO DATO ESISTE DENTRO Array(CODICI_IN_USO)
>>
>> GENERO UN MESSAGGIO "CODICE IN USO!!" E CANCELLO IL DATO APPENA INSERITO
>>
>> CERCO POSIZIONARE IL CURSORE ::oDBEdit1:SetFocus() MA IL FOCUS SI
>> SPOSTA
>> AL DBEDIT2
>>
>>
>> METHOD DBEdit1Exit( oSender, oNextCtl ) CLASS ArchivioArticoli
>
> Local lCorrecto := Nil
>>
>> IF ASCAN(CODICI_IN_USO,oSender:Value,,.T.)> 0
>> ::oMessageBox3:BEEP()
>> ::oMessageBox3:RUN()
>> ::oDBEdit1:Value := ""
> lCorrecto := .F.
> //::oDBEdit1:SetFocus()
> ENDIF
>
> RETURN lCorrecto
>>
>> GRAZIE PER AIUTO
>>
>> SALUTI FRANCO
>>
>>
Arriba
jrcpoli-quitar
Mensajes: 558
Registrado: Mar Feb 09, 2010 2:26 pm

Richiesta di aiuto

Mensaje por jrcpoli-quitar »

Saludos:
Si el DBEdit1Exit devuelve FALSE no pasa al siguiente campo y por lo
tanto el cursor deberí­a estar en el mismo campo, de todas formas la
variable oNextCtl contiene el valor del siguiente campo y por lo tanto
lo podemos usar para poner el nombre del campo al que queremos que regrese.
Ejemplo:
METHOD F_PICADAExit( oSender, oNextCtl ) CLASS TFormIndiv
LOCAL lCorrecto := Nil
*
** Fecha de Picada menor que fecha de suelta
IF ::oF_PICADA:dValue < ::oF_SUELTA:dValue
*
MsgAlert("!! La fecha de la picada no puede ser menor" + CHR(13) + ;
"que la fecha de la suelta. !!",AppData:gCaption)
*
lCorrecto := .F.
oNextCtl := ::oF_PICADA
*
ELSEIF ::oF_PICADA:dValue > ::oF_PARADA:dValue
*
MsgAlert("!! La fecha de la picada no puede ser mayor" + CHR(13) + ;
"que la fecha de cierre del reloj. !!",AppData:gCaption)
*
lCorrecto := .F.
oNextCtl := ::oF_PICADA
*
ELSE
*
::oDIA_PICADA:Value := ::oF_PICADA:dValue - ::oF_PUESTA:dValue
*
** Si el Dia de la Picada = 0
IF ::oDIA_PICADA:Value == 0
*
::oDIA_PICADA:Value := 1
*
ENDIF
*
** Si el dia de la picada es mayor que el dí­a de la suelta
IF ::oDIA_PICADA:Value > ::oDIA_SUELTA:Value
*
::PonerInactiv()
*
ELSE
*
::oHORAS_RES:Value := "0"
*
ENDIF
*
ENDIF
*
RETURN lCorrecto
José Ramón Castro.
El 31/05/2010 8:38, FRANK escribió:
> lCorrecto := .F.
> |
> |___>>>> ::oDBEdit1:SetFocus()
>
> "COME FACCIO A METTERE CURSORE NUOVAMENTE IN oDBEdit1 ?"
>
>
> GRAZIE FRANK
>
>
>
> "José Ramón Castro Polinio"<jrcpoli-quitarpara_envio]"@terra.es> ha
> scritto nel messaggio news:4bfff176$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> El 28/05/2010 16:36, FRANK escribió:
>>> Ciao a tutti,
>>>
>>> USO ADDNEW() PER CREARE UN NUOVO RECORD
>>>
>>> VERIFICO SE IL NUOVO DATO ESISTE DENTRO Array(CODICI_IN_USO)
>>>
>>> GENERO UN MESSAGGIO "CODICE IN USO!!" E CANCELLO IL DATO APPENA INSERITO
>>>
>>> CERCO POSIZIONARE IL CURSORE ::oDBEdit1:SetFocus() MA IL FOCUS SI
>>> SPOSTA
>>> AL DBEDIT2
>>>
>>>
>>> METHOD DBEdit1Exit( oSender, oNextCtl ) CLASS ArchivioArticoli
>>
>> Local lCorrecto := Nil
>>>
>>> IF ASCAN(CODICI_IN_USO,oSender:Value,,.T.)> 0
>>> ::oMessageBox3:BEEP()
>>> ::oMessageBox3:RUN()
>>> ::oDBEdit1:Value := ""
>> lCorrecto := .F.
>> //::oDBEdit1:SetFocus()
>> ENDIF
>>
>> RETURN lCorrecto
>>>
>>> GRAZIE PER AIUTO
>>>
>>> SALUTI FRANCO
>>>
>>>
>
>
Arriba
FRANK[1]
Mensajes: 63
Registrado: Jue May 20, 2010 11:25 am

Richiesta di aiuto

Mensaje por FRANK[1] »

Hola Josè,
ALLEGO ESEMPIO
a) PROVA ESEGUIRE ADDNEW()
b) INSERIRE CODICE IN USO
c) USCIRE DA MESSAGE BOX
IL FOCUS PASSA SEMPRE SU oDBEdit2 !!
SALUTI
FRANK
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> ha
scritto nel messaggio news:4c03677e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Saludos:
>
> Si el DBEdit1Exit devuelve FALSE no pasa al siguiente campo y por lo
> tanto el cursor debería estar en el mismo campo, de todas formas la
> variable oNextCtl contiene el valor del siguiente campo y por lo tanto
> lo podemos usar para poner el nombre del campo al que queremos que
> regrese.
>
> Ejemplo:
>
> METHOD F_PICADAExit( oSender, oNextCtl ) CLASS TFormIndiv
>
> LOCAL lCorrecto := Nil
> *
> ** Fecha de Picada menor que fecha de suelta
> IF ::oF_PICADA:dValue < ::oF_SUELTA:dValue
> *
> MsgAlert("!! La fecha de la picada no puede ser menor" + CHR(13) + ;
> "que la fecha de la suelta. !!",AppData:gCaption)
> *
> lCorrecto := .F.
> oNextCtl := ::oF_PICADA
> *
> ELSEIF ::oF_PICADA:dValue > ::oF_PARADA:dValue
> *
> MsgAlert("!! La fecha de la picada no puede ser mayor" + CHR(13) + ;
> "que la fecha de cierre del reloj. !!",AppData:gCaption)
> *
> lCorrecto := .F.
> oNextCtl := ::oF_PICADA
> *
> ELSE
> *
> ::oDIA_PICADA:Value := ::oF_PICADA:dValue - ::oF_PUESTA:dValue
> *
> ** Si el Dia de la Picada = 0
> IF ::oDIA_PICADA:Value == 0
> *
> ::oDIA_PICADA:Value := 1
> *
> ENDIF
> *
> ** Si el dia de la picada es mayor que el día de la suelta
> IF ::oDIA_PICADA:Value > ::oDIA_SUELTA:Value
> *
> ::PonerInactiv()
> *
> ELSE
> *
> ::oHORAS_RES:Value := "0"
> *
> ENDIF
> *
> ENDIF
> *
> RETURN lCorrecto
>
> José Ramón Castro.
> El 31/05/2010 8:38, FRANK escribió:
>> lCorrecto := .F.
>> |
>> |___>>>> ::oDBEdit1:SetFocus()
>>
>> "COME FACCIO A METTERE CURSORE NUOVAMENTE IN oDBEdit1 ?"
>>
>>
>> GRAZIE FRANK
>>
>>
>>
>> "José Ramón Castro Polinio"<jrcpoli-quitarpara_envio]"@terra.es> ha
>> scritto nel messaggio news:4bfff176$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> El 28/05/2010 16:36, FRANK escribió:
>>>> Ciao a tutti,
>>>>
>>>> USO ADDNEW() PER CREARE UN NUOVO RECORD
>>>>
>>>> VERIFICO SE IL NUOVO DATO ESISTE DENTRO Array(CODICI_IN_USO)
>>>>
>>>> GENERO UN MESSAGGIO "CODICE IN USO!!" E CANCELLO IL DATO APPENA
>>>> INSERITO
>>>>
>>>> CERCO POSIZIONARE IL CURSORE ::oDBEdit1:SetFocus() MA IL FOCUS SI
>>>> SPOSTA
>>>> AL DBEDIT2
>>>>
>>>>
>>>> METHOD DBEdit1Exit( oSender, oNextCtl ) CLASS ArchivioArticoli
>>>
>>> Local lCorrecto := Nil
>>>>
>>>> IF ASCAN(CODICI_IN_USO,oSender:Value,,.T.)> 0
>>>> ::oMessageBox3:BEEP()
>>>> ::oMessageBox3:RUN()
>>>> ::oDBEdit1:Value := ""
>>> lCorrecto := .F.
>>> //::oDBEdit1:SetFocus()
>>> ENDIF
>>>
>>> RETURN lCorrecto
>>>>
>>>> GRAZIE PER AIUTO
>>>>
>>>> SALUTI FRANCO
>>>>
>>>>
>>
>>


Attached files ProvaDBEDIT.zip (7.8 KB)Â
Arriba
jrcpoli-quitar
Mensajes: 558
Registrado: Mar Feb 09, 2010 2:26 pm

Richiesta di aiuto

Mensaje por jrcpoli-quitar »

Saludos:
Espero que te valga.
José Ramón Castro
El 31/05/2010 12:11, FRANK escribió:
> Hola Josí¨,
>
> ALLEGO ESEMPIO
>
> a) PROVA ESEGUIRE ADDNEW()
>
> b) INSERIRE CODICE IN USO
>
> c) USCIRE DA MESSAGE BOX
>
> IL FOCUS PASSA SEMPRE SU oDBEdit2 !!
>
>
> SALUTI
>
> FRANK
>
>
> "José Ramón Castro Polinio"<jrcpoli-quitarpara_envio]"@terra.es> ha
> scritto nel messaggio news:4c03677e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Saludos:
>>
>> Si el DBEdit1Exit devuelve FALSE no pasa al siguiente campo y por lo
>> tanto el cursor deberí­a estar en el mismo campo, de todas formas la
>> variable oNextCtl contiene el valor del siguiente campo y por lo tanto
>> lo podemos usar para poner el nombre del campo al que queremos que
>> regrese.
>>
>> Ejemplo:
>>
>> METHOD F_PICADAExit( oSender, oNextCtl ) CLASS TFormIndiv
>>
>> LOCAL lCorrecto := Nil
>> *
>> ** Fecha de Picada menor que fecha de suelta
>> IF ::oF_PICADA:dValue< ::oF_SUELTA:dValue
>> *
>> MsgAlert("!! La fecha de la picada no puede ser menor" + CHR(13) + ;
>> "que la fecha de la suelta. !!",AppData:gCaption)
>> *
>> lCorrecto := .F.
>> oNextCtl := ::oF_PICADA
>> *
>> ELSEIF ::oF_PICADA:dValue> ::oF_PARADA:dValue
>> *
>> MsgAlert("!! La fecha de la picada no puede ser mayor" + CHR(13) + ;
>> "que la fecha de cierre del reloj. !!",AppData:gCaption)
>> *
>> lCorrecto := .F.
>> oNextCtl := ::oF_PICADA
>> *
>> ELSE
>> *
>> ::oDIA_PICADA:Value := ::oF_PICADA:dValue - ::oF_PUESTA:dValue
>> *
>> ** Si el Dia de la Picada = 0
>> IF ::oDIA_PICADA:Value == 0
>> *
>> ::oDIA_PICADA:Value := 1
>> *
>> ENDIF
>> *
>> ** Si el dia de la picada es mayor que el dí­a de la suelta
>> IF ::oDIA_PICADA:Value> ::oDIA_SUELTA:Value
>> *
>> ::PonerInactiv()
>> *
>> ELSE
>> *
>> ::oHORAS_RES:Value := "0"
>> *
>> ENDIF
>> *
>> ENDIF
>> *
>> RETURN lCorrecto
>>
>> José Ramón Castro.
>> El 31/05/2010 8:38, FRANK escribió:
>>> lCorrecto := .F.
>>> |
>>> |___>>>> ::oDBEdit1:SetFocus()
>>>
>>> "COME FACCIO A METTERE CURSORE NUOVAMENTE IN oDBEdit1 ?"
>>>
>>>
>>> GRAZIE FRANK
>>>
>>>
>>>
>>> "José Ramón Castro Polinio"<jrcpoli-quitarpara_envio]"@terra.es> ha
>>> scritto nel messaggio news:4bfff176$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>> El 28/05/2010 16:36, FRANK escribió:
>>>>> Ciao a tutti,
>>>>>
>>>>> USO ADDNEW() PER CREARE UN NUOVO RECORD
>>>>>
>>>>> VERIFICO SE IL NUOVO DATO ESISTE DENTRO Array(CODICI_IN_USO)
>>>>>
>>>>> GENERO UN MESSAGGIO "CODICE IN USO!!" E CANCELLO IL DATO APPENA
>>>>> INSERITO
>>>>>
>>>>> CERCO POSIZIONARE IL CURSORE ::oDBEdit1:SetFocus() MA IL FOCUS SI
>>>>> SPOSTA
>>>>> AL DBEDIT2
>>>>>
>>>>>
>>>>> METHOD DBEdit1Exit( oSender, oNextCtl ) CLASS ArchivioArticoli
>>>>
>>>> Local lCorrecto := Nil
>>>>>
>>>>> IF ASCAN(CODICI_IN_USO,oSender:Value,,.T.)> 0
>>>>> ::oMessageBox3:BEEP()
>>>>> ::oMessageBox3:RUN()
>>>>> ::oDBEdit1:Value := ""
>>>> lCorrecto := .F.
>>>> //::oDBEdit1:SetFocus()
>>>> ENDIF
>>>>
>>>> RETURN lCorrecto
>>>>>
>>>>> GRAZIE PER AIUTO
>>>>>
>>>>> SALUTI FRANCO
>>>>>
>>>>>
>>>
>>>
>
>
--
Arriba
FRANK[1]
Mensajes: 63
Registrado: Jue May 20, 2010 11:25 am

Richiesta di aiuto

Mensaje por FRANK[1] »

JOSE' THE BEST!!
MOLTE GRAZIE PER TUO UTILE ESEMPIO
1) NUOVO PROBLEMA
ALLEGO TUA PROVA MODIFICATA
a) PREMO ADDNEW
b) PREMO CANCEL SENZA INSERIRE DATI
COME POSSO USCIRE?
2) ALTRO PROBLEMA
quando premo il tasto - delete sulla barra dbnavigator il record corrente
viene immediatamente DELETED mentre voglio che compaia un message box di
conferma
ho provato così :
METHOD DBNavigator1ClickDelete( oSender ) CLASS Terzisti
::oMessageBox2:BEEP()
::oMessageBox2:RUN()
IF ::oMessageBox2:nResult = 2
::oDBFDataSet1:RECALL()
ENDIF
RETURN Nil
ma non funziona !! il record rimane deleted
GRAZIE IN ANTICIPO
BUONA SERATA
FRANK
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> ha
scritto nel messaggio news:[email=4c03bcbd@svctag-j7w3v3j....]4c03bcbd@svctag-j7w3v3j....[/email]
> Saludos:
>
> Espero que te valga.
>
> José Ramón Castro
> El 31/05/2010 12:11, FRANK escribió:
>> Hola Josè,
>>
>> ALLEGO ESEMPIO
>>
>> a) PROVA ESEGUIRE ADDNEW()
>>
>> b) INSERIRE CODICE IN USO
>>
>> c) USCIRE DA MESSAGE BOX
>>
>> IL FOCUS PASSA SEMPRE SU oDBEdit2 !!
>>
>>
>> SALUTI
>>
>> FRANK
>>
>>
>> "José Ramón Castro Polinio"<jrcpoli-quitarpara_envio]"@terra.es> ha
>> scritto nel messaggio news:4c03677e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Saludos:
>>>
>>> Si el DBEdit1Exit devuelve FALSE no pasa al siguiente campo y por lo
>>> tanto el cursor debería estar en el mismo campo, de todas formas la
>>> variable oNextCtl contiene el valor del siguiente campo y por lo tanto
>>> lo podemos usar para poner el nombre del campo al que queremos que
>>> regrese.
>>>
>>> Ejemplo:
>>>
>>> METHOD F_PICADAExit( oSender, oNextCtl ) CLASS TFormIndiv
>>>
>>> LOCAL lCorrecto := Nil
>>> *
>>> ** Fecha de Picada menor que fecha de suelta
>>> IF ::oF_PICADA:dValue< ::oF_SUELTA:dValue
>>> *
>>> MsgAlert("!! La fecha de la picada no puede ser menor" + CHR(13)
>>> + ;
>>> "que la fecha de la suelta. !!",AppData:gCaption)
>>> *
>>> lCorrecto := .F.
>>> oNextCtl := ::oF_PICADA
>>> *
>>> ELSEIF ::oF_PICADA:dValue> ::oF_PARADA:dValue
>>> *
>>> MsgAlert("!! La fecha de la picada no puede ser mayor" + CHR(13)
>>> + ;
>>> "que la fecha de cierre del reloj. !!",AppData:gCaption)
>>> *
>>> lCorrecto := .F.
>>> oNextCtl := ::oF_PICADA
>>> *
>>> ELSE
>>> *
>>> ::oDIA_PICADA:Value := ::oF_PICADA:dValue - ::oF_PUESTA:dValue
>>> *
>>> ** Si el Dia de la Picada = 0
>>> IF ::oDIA_PICADA:Value == 0
>>> *
>>> ::oDIA_PICADA:Value := 1
>>> *
>>> ENDIF
>>> *
>>> ** Si el dia de la picada es mayor que el día de la suelta
>>> IF ::oDIA_PICADA:Value> ::oDIA_SUELTA:Value
>>> *
>>> ::PonerInactiv()
>>> *
>>> ELSE
>>> *
>>> ::oHORAS_RES:Value := "0"
>>> *
>>> ENDIF
>>> *
>>> ENDIF
>>> *
>>> RETURN lCorrecto
>>>
>>> José Ramón Castro.
>>> El 31/05/2010 8:38, FRANK escribió:
>>>> lCorrecto := .F.
>>>> |
>>>> |___>>>> ::oDBEdit1:SetFocus()
>>>>
>>>> "COME FACCIO A METTERE CURSORE NUOVAMENTE IN oDBEdit1 ?"
>>>>
>>>>
>>>> GRAZIE FRANK
>>>>
>>>>
>>>>
>>>> "José Ramón Castro Polinio"<jrcpoli-quitarpara_envio]"@terra.es> ha
>>>> scritto nel messaggio news:4bfff176$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>>> El 28/05/2010 16:36, FRANK escribió:
>>>>>> Ciao a tutti,
>>>>>>
>>>>>> USO ADDNEW() PER CREARE UN NUOVO RECORD
>>>>>>
>>>>>> VERIFICO SE IL NUOVO DATO ESISTE DENTRO Array(CODICI_IN_USO)
>>>>>>
>>>>>> GENERO UN MESSAGGIO "CODICE IN USO!!" E CANCELLO IL DATO APPENA
>>>>>> INSERITO
>>>>>>
>>>>>> CERCO POSIZIONARE IL CURSORE ::oDBEdit1:SetFocus() MA IL FOCUS SI
>>>>>> SPOSTA
>>>>>> AL DBEDIT2
>>>>>>
>>>>>>
>>>>>> METHOD DBEdit1Exit( oSender, oNextCtl ) CLASS ArchivioArticoli
>>>>>
>>>>> Local lCorrecto := Nil
>>>>>>
>>>>>> IF ASCAN(CODICI_IN_USO,oSender:Value,,.T.)> 0
>>>>>> ::oMessageBox3:BEEP()
>>>>>> ::oMessageBox3:RUN()
>>>>>> ::oDBEdit1:Value := ""
>>>>> lCorrecto := .F.
>>>>> //::oDBEdit1:SetFocus()
>>>>> ENDIF
>>>>>
>>>>> RETURN lCorrecto
>>>>>>
>>>>>> GRAZIE PER AIUTO
>>>>>>
>>>>>> SALUTI FRANCO
>>>>>>
>>>>>>
>>>>
>>>>
>>
>>
>


Attached files PruebaDBEDIT.zip (9.5 KB)Â
Arriba
jrcpoli-quitar
Mensajes: 558
Registrado: Mar Feb 09, 2010 2:26 pm

Richiesta di aiuto

Mensaje por jrcpoli-quitar »

Saludos:
Espero te sirva de orientación.
José Ramón Castro.
El 31/05/2010 19:45, FRANK escribió:
> JOSE' THE BEST!!
>
> MOLTE GRAZIE PER TUO UTILE ESEMPIO
>
>
> 1) NUOVO PROBLEMA
>
> ALLEGO TUA PROVA MODIFICATA
>
> a) PREMO ADDNEW
> b) PREMO CANCEL SENZA INSERIRE DATI
>
> COME POSSO USCIRE?
>
>
> 2) ALTRO PROBLEMA
>
> quando premo il tasto - delete sulla barra dbnavigator il record corrente
> viene immediatamente DELETED mentre voglio che compaia un message box di
> conferma
>
> ho provato cosí¬ :
>
> METHOD DBNavigator1ClickDelete( oSender ) CLASS Terzisti
> ::oMessageBox2:BEEP()
> ::oMessageBox2:RUN()
>
> IF ::oMessageBox2:nResult = 2
> ::oDBFDataSet1:RECALL()
> ENDIF
> RETURN Nil
>
> ma non funziona !! il record rimane deleted
>
>
> GRAZIE IN ANTICIPO
> BUONA SERATA
> FRANK
>
>
> "José Ramón Castro Polinio"<jrcpoli-quitarpara_envio]"@terra.es> ha
> scritto nel messaggio news:[email=4c03bcbd@svctag-j7w3v3j....]4c03bcbd@svctag-j7w3v3j....[/email]
>> Saludos:
>>
>> Espero que te valga.
>>
>> José Ramón Castro
>> El 31/05/2010 12:11, FRANK escribió:
>>> Hola Josí¨,
>>>
>>> ALLEGO ESEMPIO
>>>
>>> a) PROVA ESEGUIRE ADDNEW()
>>>
>>> b) INSERIRE CODICE IN USO
>>>
>>> c) USCIRE DA MESSAGE BOX
>>>
>>> IL FOCUS PASSA SEMPRE SU oDBEdit2 !!
>>>
>>>
>>> SALUTI
>>>
>>> FRANK
>>>
>>>
>>> "José Ramón Castro Polinio"<jrcpoli-quitarpara_envio]"@terra.es> ha
>>> scritto nel messaggio news:4c03677e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>> Saludos:
>>>>
>>>> Si el DBEdit1Exit devuelve FALSE no pasa al siguiente campo y por lo
>>>> tanto el cursor deberí­a estar en el mismo campo, de todas formas la
>>>> variable oNextCtl contiene el valor del siguiente campo y por lo tanto
>>>> lo podemos usar para poner el nombre del campo al que queremos que
>>>> regrese.
>>>>
>>>> Ejemplo:
>>>>
>>>> METHOD F_PICADAExit( oSender, oNextCtl ) CLASS TFormIndiv
>>>>
>>>> LOCAL lCorrecto := Nil
>>>> *
>>>> ** Fecha de Picada menor que fecha de suelta
>>>> IF ::oF_PICADA:dValue< ::oF_SUELTA:dValue
>>>> *
>>>> MsgAlert("!! La fecha de la picada no puede ser menor" + CHR(13)
>>>> + ;
>>>> "que la fecha de la suelta. !!",AppData:gCaption)
>>>> *
>>>> lCorrecto := .F.
>>>> oNextCtl := ::oF_PICADA
>>>> *
>>>> ELSEIF ::oF_PICADA:dValue> ::oF_PARADA:dValue
>>>> *
>>>> MsgAlert("!! La fecha de la picada no puede ser mayor" + CHR(13)
>>>> + ;
>>>> "que la fecha de cierre del reloj. !!",AppData:gCaption)
>>>> *
>>>> lCorrecto := .F.
>>>> oNextCtl := ::oF_PICADA
>>>> *
>>>> ELSE
>>>> *
>>>> ::oDIA_PICADA:Value := ::oF_PICADA:dValue - ::oF_PUESTA:dValue
>>>> *
>>>> ** Si el Dia de la Picada = 0
>>>> IF ::oDIA_PICADA:Value == 0
>>>> *
>>>> ::oDIA_PICADA:Value := 1
>>>> *
>>>> ENDIF
>>>> *
>>>> ** Si el dia de la picada es mayor que el dí­a de la suelta
>>>> IF ::oDIA_PICADA:Value> ::oDIA_SUELTA:Value
>>>> *
>>>> ::PonerInactiv()
>>>> *
>>>> ELSE
>>>> *
>>>> ::oHORAS_RES:Value := "0"
>>>> *
>>>> ENDIF
>>>> *
>>>> ENDIF
>>>> *
>>>> RETURN lCorrecto
>>>>
>>>> José Ramón Castro.
>>>> El 31/05/2010 8:38, FRANK escribió:
>>>>> lCorrecto := .F.
>>>>> |
>>>>> |___>>>> ::oDBEdit1:SetFocus()
>>>>>
>>>>> "COME FACCIO A METTERE CURSORE NUOVAMENTE IN oDBEdit1 ?"
>>>>>
>>>>>
>>>>> GRAZIE FRANK
>>>>>
>>>>>
>>>>>
>>>>> "José Ramón Castro Polinio"<jrcpoli-quitarpara_envio]"@terra.es> ha
>>>>> scritto nel messaggio news:4bfff176$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>>>> El 28/05/2010 16:36, FRANK escribió:
>>>>>>> Ciao a tutti,
>>>>>>>
>>>>>>> USO ADDNEW() PER CREARE UN NUOVO RECORD
>>>>>>>
>>>>>>> VERIFICO SE IL NUOVO DATO ESISTE DENTRO Array(CODICI_IN_USO)
>>>>>>>
>>>>>>> GENERO UN MESSAGGIO "CODICE IN USO!!" E CANCELLO IL DATO APPENA
>>>>>>> INSERITO
>>>>>>>
>>>>>>> CERCO POSIZIONARE IL CURSORE ::oDBEdit1:SetFocus() MA IL FOCUS SI
>>>>>>> SPOSTA
>>>>>>> AL DBEDIT2
>>>>>>>
>>>>>>>
>>>>>>> METHOD DBEdit1Exit( oSender, oNextCtl ) CLASS ArchivioArticoli
>>>>>>
>>>>>> Local lCorrecto := Nil
>>>>>>>
>>>>>>> IF ASCAN(CODICI_IN_USO,oSender:Value,,.T.)> 0
>>>>>>> ::oMessageBox3:BEEP()
>>>>>>> ::oMessageBox3:RUN()
>>>>>>> ::oDBEdit1:Value := ""
>>>>>> lCorrecto := .F.
>>>>>> //::oDBEdit1:SetFocus()
>>>>>> ENDIF
>>>>>>
>>>>>> RETURN lCorrecto
>>>>>>>
>>>>>>> GRAZIE PER AIUTO
>>>>>>>
>>>>>>> SALUTI FRANCO
>>>>>>>
>>>>>>>
>>>>>
>>>>>
>>>
>>>
>>
>
>
--
Arriba
Responder

Volver a “Xailer Spanish”