Xailer & OZ Software

El entorno de desarrollo definitivo en Xbase
https://forum.xailer.com/

Richiesta di aiuto

https://forum.xailer.com/viewtopic.php?t=8956

Página 1 de 1

Richiesta di aiuto

Publicado: Vie May 28, 2010 4:36 pm
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

Richiesta di aiuto

Publicado: Vie May 28, 2010 6:38 pm
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
>
>

Richiesta di aiuto

Publicado: Lun May 31, 2010 8:38 am
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
>>
>>

Richiesta di aiuto

Publicado: Lun May 31, 2010 9:38 am
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
>>>
>>>
>
>

Richiesta di aiuto

Publicado: Lun May 31, 2010 12:11 pm
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)Â

Richiesta di aiuto

Publicado: Lun May 31, 2010 3:42 pm
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
>>>>>
>>>>>
>>>
>>>
>
>
--

Richiesta di aiuto

Publicado: Lun May 31, 2010 7:45 pm
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)Â

Richiesta di aiuto

Publicado: Mié Jun 02, 2010 3:14 pm
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
>>>>>>>
>>>>>>>
>>>>>
>>>>>
>>>
>>>
>>
>
>
--
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España