Angel.Matilla |
23-05-2018 10:33:59 |
¡Uf! ¿Todo el código? Luego no quiero protestas
Código PHP:
tGesElec->Close(); tGesElec->TableName = "Localidades"; tGesElec->Open(); tGesElec->First();
for (; !tGesElec->Eof; tGesElec->Next()) { Edit->Text = IntToStr(fMenu->tGesElec->FieldByName("Loc_Telefono")->AsInteger);
Query->SQL->Text = "INSERT INTO DatLoc (Codigo, Actualiza, Padron, Concejales, Afiliados, Alcalde, Partido, Constitucion, Sede, TlfSede, Presidente, Portavoz, Observaciones) VALUES (:Codigo, :Actualiza, :Padron, :Concejales, :Afiliados, :Alcalde, :Partido, :Constitucion, :Sede, :TlfSede, :Presidente, :Portavoz, :Observaciones)";
Query->ParamByName("Codigo")->AsInteger = Edit->Tag; Query->ParamByName("Actualiza")->AsDateTime = tGesElec->FieldByName("Loc_FActualiza")->AsDateTime; Query->ParamByName("Padron")->AsInteger = tGesElec->FieldByName("Loc_Habitantes")->AsInteger; Query->ParamByName("Concejales")->AsInteger = tGesElec->FieldByName("Loc_Concejales")->AsInteger; Query->ParamByName("Afiliados")->AsInteger = tGesElec->FieldByName("Loc_Afiliados")->AsInteger; Query->ParamByName("Constitucion")->AsDateTime = tGesElec->FieldByName("Loc_FConstitucion")->AsDateTime; Query->ParamByName("Sede")->AsString = tGesElec->FieldByName("Loc_Sede")->AsString; Query->ParamByName("TlfSede")->AsString = FormatFloat("000000000", tGesElec->FieldByName("Loc_Telefono")->AsInteger); Query->ParamByName("Observaciones")->AsString = tGesElec->FieldByName("Loc_Observaciones")->AsString; Query->ParamByName("Presidente")->AsInteger = tGesElec->FieldByName("Loc_Presidente")->AsString; Query->ParamByName("Portavoz")->AsInteger = tGesElec->FieldByName("Loc_Portavoz")->AsString; Query->ParamByName("Partido")->AsInteger = tGesElec->FieldByName("Loc_Partido")->AsString; Query->ParamByName("Alcalde")->AsString = tGesElec->FieldByName("Loc_Alcalde")->AsString; Query->ExecSQL(); Query->Transaction->Commit();
qGesElec1->Close(); qGesElec1->SQL->Text = "SELECT Mes_Distrito, Mes_Seccion, Mes_mesa, Mes_Censo FROM Mesas WHERE Loc_ID = " + FormatFloat("0", tGesElec->FieldByName("Loc_ID")->AsInteger) + " ORDER BY Mes_Distrito, Mes_Seccion, Mes_mesa"; qGesElec1->Open();
for (; !qGesElec1->Eof; qGesElec1->Next()) { Query->SQL->Text = "INSERT INTO Mesas (Municipio, Distrito, Seccion, Mesa, Censo) VALUES (:Municipio, :Distrito, :Seccion, :Mesa, :Censo)";
Query->ParamByName("Municipio")->AsInteger = Edit->Tag; Query->ParamByName("Distrito")->AsInteger = qGesElec1->FieldByName("Mes_Distrito")->AsInteger; Query->ParamByName("Seccion")->AsInteger = qGesElec1->FieldByName("Mes_Seccion")->AsInteger; Query->ParamByName("Mesa")->AsString = qGesElec1->FieldByName("Mes_Mesa")->AsString; Query->ParamByName("Censo")->AsInteger = qGesElec1->FieldByName("Mes_Censo")->AsInteger;
Query->ExecSQL(); Query->Transaction->Commit();
for (nItem = 1; nItem < 8; nItem ++) { qGesElec2->Close(); qGesElec2->SQL->Text = "SELECT A.Ele_Tipo, A.Ele_Fecha, A.Ele_Part" + FormatFloat("0", nItem) + ", B.Vot_P" + FormatFloat("0", nItem) + " FROM Elecciones A, Votos B, Votaciones C WHERE C.Loc_ID = " + FormatFloat("0", fMenu->tGesElec->FieldByName("Loc_ID")->AsInteger) + " AND A.Ele_ID = C.Ele_ID AND C.Vot_ID = B.Vot_ID AND B.Vot_Mesa = '" + FormatFloat("00' '", qGesElec1->FieldByName("Mes_Distrito")->AsInteger) + FormatFloat("000' '", qGesElec1->FieldByName("Mes_Seccion")->AsInteger) + qGesElec1->FieldByName("Mes_Mesa")->AsString + "' ORDER BY Ele_Fecha, Ele_Tipo"; qGesElec2->Open();
for (; !qGesElec2->Eof; qGesElec2->Next()) { if (qGesElec2->Fields->FieldByNumber(3)->AsString.Trim().IsEmpty() || qGesElec2->Fields->FieldByNumber(4)->AsInteger == 0) continue; Auxiliar->Close(); Auxiliar->SQL->Text = "SELECT Codigo FROM Mesas WHERE CodPrv = (SELECT Literal FROM Instalacion WHERE Etiqueta = 'Provincia') AND Municipio = :Municipio AND Distrito = :Distrito AND Seccion = :Seccion AND Mesa = :Mesa"; Auxiliar->ParamByName("Municipio")->AsInteger = Edit->Tag; Auxiliar->ParamByName("Distrito")->AsInteger = qGesElec1->FieldByName("Mes_Distrito")->AsInteger; Auxiliar->ParamByName("Seccion")->AsInteger = qGesElec1->FieldByName("Mes_Seccion")->AsInteger; Auxiliar->ParamByName("Mesa")->AsString = qGesElec1->FieldByName("Mes_Mesa")->AsString; Auxiliar->Open();
if (fMenu->Auxiliar->IsEmpty()) continue; [Resto del código] } } } }
tGesElec es un TADOTable. El problema ya os digo viene al tratar de buscar el último código grabado; ejecutando con el depurador y una vez hecho el segundo commit si busco el registro con SQLManager sí lo veo, pero si sigo la ejecución del programa entonces da un query vacío.
Es la primera vez que me tengo que enfrentar a un BB.DD. Acces, que encima ni he diseñado yo ni tengo documentación alguna sobre su estructura. Los querys sobre Access (qGesElec1 y qGesElec2) los estoy montando así porque si tarto de hacerlo con parámetros no sé como se hace; pensaba que era como en el caso de los TIBQuery.
El bucle ese for (nItem = 1; nItem < 8; nItem ++) es porque en dos tablas Access todos los registros están definidos como Ele_Part1, Ele_Part62, etc. y Vot_P1, Vot_P2, etc. Encuentro absurdo crear registros sin información sin razón alguna y los estoy cambiando de forma.
|