Klotzkopp Du bist genial ;-) der nimmt die 0 jetzt problemlos, aber die Buttons sind nach wie vor tot dh. man kann sie klicken aber er spring nicht rein ;-( auch größere Zahlen wie zb. Die 300200115 obwohl sie in DB stehen findet er nicht da der Quellcode von löschen
void CVPDlg::OnVPLoeschen()
{
CString sVPID;
CString sIdentNr;
CString sNachname;
CString sVorname;
CString sPLZ;
CString sOrt;
CString sStrasse;
CString sNummer;
CString sInstitution;
CString sAnrede;
CString sTitel;
GetDlgItemText(IDC_VPID, sVPID);
GetDlgItemText(IDC_IdentNr, sIdentNr);
GetDlgItemText(IDC_Nachname, sNachname);
GetDlgItemText(IDC_Vorname, sVorname);
GetDlgItemText(IDC_PLZ, sPLZ);
GetDlgItemText(IDC_Ort, sOrt);
GetDlgItemText(IDC_Strasse, sStrasse);
GetDlgItemText(IDC_Nummer, sNummer);
GetDlgItemText(IDC_Institution, sInstitution);
GetDlgItemText(IDC_Anrede, sAnrede);
GetDlgItemText(IDC_Titel, sTitel);
//VP gewählt
if (atof(sVPID) <= 0)
{ MessageBox("Bitte zuerst Arzt/Apotheke auswählen [VP-ID]", "Auswahlfehler");
return;
}
//Sicherheitsabfrage
switch (m_lStatus)
{ case 0: sMsg.Format (IDS_TEXT8, sVPID, sIdentNr); break;
case 3: sMsg.Format (IDS_TEXT9, sVPID, sIdentNr); break;
}
if (MessageBox(sMsg, "Sicherheitsabfrage", MB_YESNO) != IDYES) return;
//VP Löschen
SetWork(1, "Vertragspartner wird gelöscht..." );
TRY
{ sMsg.Format("DELETE FROM VERTRAGSPARTNER WHERE VP_ID = %s", sVPID);
m_pDatenbank->ExecuteSQL(sMsg);
MessageBox("Der Datzensatz wurde fehlerfrei gelöscht." , MB_OK);
//Anzahl Vertragspartner
SetAnzahl();
ClearReposition(); //Feldinhalte löschen
}
CATCH(CDBException, e)
{ MessageBox (GetsText(IDS_TEXT1, e), "Fehler Datenbank öffnen",MB_ICONSTOP);
e->Delete();
}
END_CATCH
SetWork(0, "Bereit...");
}