Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-02-2016
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Por otro lado, si la única diferencia entre el insert y el update es el texto del mensaje, no vale la pena distinguir los dos casos. Déjalo así:

Código Delphi [-]
procedure TfPeriodosNominaNvo.cxButton1Click(Sender: TObject);
begin
  if cxComboBox2.Text='' then
    MessageDlg('Falta Ingrsar el Mes', mtError, [mbOK], 0)
  else if (DM.Q_PerNomina.Statein [dsInsert, dsEdit] then
  begin
    DM.Q_PerNomina.FieldByName('PERIODO').AsString := cxTextEdit1.Text;
    DM.Q_PerNomina.FieldByName('MES').AsInteger := cxComboBox2.ItemIndex + 1;
    DM.Q_PerNomina.FieldByName('EJERCICIO').AsString := cxComboBox1.Text;
    DM.Q_PerNomina.Post;
    Application.MessageBox('Datos Guardados Con Exito','Informacion',MB_OK);
    fPeriodosNominaNvo.Close;
  end
end;

LineComment Saludos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Convertir blob en varchar Mauro Daniel Firebird e Interbase 6 27-08-2010 13:43:05
Convertir un varchar a number nelem Oracle 1 06-05-2008 14:48:02
Convertir de varchar a decimal nelem Oracle 3 13-03-2008 08:40:58
Como convertir un campo VARCHAR a uno BLOB, si se puede? judoboy Firebird e Interbase 10 31-07-2003 17:28:45


La franja horaria es GMT +2. Ahora son las 05:39:28.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi