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