function redaktilo_por_kurzo($kurzo)
{
if ($kurzo->datoj['ID']) {
eoecho("<h2>Redakto de kurzo</h2>");
} else {
eoecho("<h2>Nova kurzo</h2>");
}
echo "<form action='kurzoj.php' method='POST'>\n";
echo "<table>\n";
tabela_kasxilo("ID", 'ID', $kurzo->datoj['ID']);
tabela_elektolisto_el_konfiguroj("valuto", 'valuto', 'valuto', $kurzo->datoj['valuto'], $ppRenk);
tabelentajpejo("dato", 'dato', $kurzo->datoj['dato'], 10);
tabelentajpejo("kurzo", 'kurzo', $kurzo->datoj['kurzo'], 10);
echo "</table>\n";
echo "<p>\n";
if ($kurzo->datoj['ID']) {
butono('sxangxu', "S^ang^u!");
} else {
butono('kreu', "Enmetu!");
}
ligu("kurzoj.php", "Reen");
echo "</p>\n";
echo "</form>";
}
function redaktilo_por_regulaj_pseuxdopagoj($sistemo, $tipo)
{
eoecho("<h2 id='regulaj_" . $tipo . "j'>Regulaj " . $tipo . "j</h2>\n");
echo "<form action='kotizosistemo.php?id=" . $sistemo->datoj['ID'] . "&tipo=" . $tipo . "' method='POST'>\n";
echo "<table class='pseuxdopagoj'>\n";
eoecho(" <tr><th>ID</th><th>tipo</th><th>kvanto</th><th>valuto</th>" . "<th>priskribo</th></tr>\n");
$regulolisto = listu_cxiujn_regulojn($tipo);
$neuzitaj = array();
foreach ($regulolisto as $regulo) {
$pseuxdopago = $regulo->donu_regulan_pseuxdopagon($sistemo);
if ($pseuxdopago) {
eoecho("<tr><td>" . $pseuxdopago->datoj['ID'] . "</td><td>" . $regulo->formatu_nomon());
simpla_entajpejo("</td><td>", $tipo . '[' . $pseuxdopago->datoj['ID'] . '][kvanto]', $pseuxdopago->datoj['kvanto'], 6);
echo "</td><td>";
simpla_elektolisto_el_konfiguroj($tipo . '[' . $pseuxdopago->datoj['ID'] . '][valuto]', 'valuto', $pseuxdopago->datoj['valuto']);
eoecho("</td><td>" . $regulo->datoj['priskribo'] . "</td></tr>\n");
} else {
$neuzitaj[] = $regulo;
}
}
// foreach
echo "</table>\n<p>";
butono("sxangxu_pagojn", "S^ang^u " . $tipo . "jn");
echo "</p>\n</form>";
if (count($neuzitaj)) {
eoecho("<h3 id='regulaj_" . $tipo . "j'>Nova " . $tipo . "</h3>\n");
echo "<form action='kotizosistemo.php?id=" . $sistemo->datoj['ID'] . "&tipo=" . $tipo . "' method='POST'>\n";
echo "<table>\n";
eoecho("<tr><th>regulo</th></tr>\n");
foreach ($neuzitaj as $regulo) {
tabel_entajpbutono('', 'regulo', "", $regulo->datoj['ID'], $regulo->formatu_nomon() . " – " . $regulo->datoj['priskribo'], "", true);
}
tabelentajpejo("kvanto", 'kvanto', "", 6);
tabela_elektolisto_el_konfiguroj("valuto", 'valuto', 'valuto', "");
echo "</table>\n<p>";
butono("nova_pago", "Aldonu!");
rajtligu('regulo.php?tipo=' . $tipo, "Nova " . $tipo . "regulo", '', 'teknikumi');
echo "<p></form>\n";
}
// if
}
/**
* montras redaktilon por pseuxropago-objekto.
*
* @param Pseuxdopago $objekto
*/
function montru_pagoredaktilon($objekto)
{
echo "<!-- montru_pagoredaktilon(" . var_export($objekto, true) . ")-->";
$tipo = $objekto->klaso;
$partopreno = new Partopreno($objekto->datoj['partoprenoID']);
$partoprenanto = new Partoprenanto($partoprenanto->datoj['partoprenantoID']);
$ppRenk = new Renkontigxo($partopreno->datoj['renkontigxoID']);
echo "<form action='pago-detaloj.php?klaso=" . $tipo . "' method='POST'>\n";
if ($objekto->datoj['ID']) {
eoecho("<h2>Redakto de " . $GLOBALS['pd_titoloj'][$tipo] . " #" . $objekto->datoj['ID'] . "</h2>\n");
} else {
eoecho("<h2>Kreo de nova " . $GLOBALS['pd_titoloj'][$tipo] . "</h2>\n");
}
echo "<table>\n";
tabela_kasxilo("ID", 'ID', $objekto->datoj['ID']);
tabela_kasxilo("partopreno-ID", 'partoprenoID', $objekto->datoj['partoprenoID']);
tabelentajpejo("alvenodato", 'dato', $objekto->datoj['dato'], 11, " (jaro-monato-tago)", "", date("Y-m-d"));
if ($GLOBALS['pd_valuto_elektebla'][$tipo]) {
tabela_elektolisto_el_konfiguroj("valuto", 'valuto', 'valuto', $objekto->datoj['valuto'], $ppRenk);
$postkvanto = "";
} else {
// TODO: uzu la tekston
tabela_kasxilo("valuto", 'valuto', $objekto->datoj['valuto']);
$postkvanto = $objekto->datoj['valuto'];
}
tabelentajpejo("kvanto", 'kvanto', $objekto->datoj['kvanto'], 7, $postkvanto);
$panto = new Entajpanto($objekto->datoj['entajpantoID']);
tabela_montrilo('entajpanto', $panto->datoj['nomo']);
tabela_elektolisto_el_konfiguroj($GLOBALS['td_tiponomo'][$tipo], "tipo", $tipo . "tipo", $objekto->datoj['tipo'], $ppRenk);
echo "</table>\n";
echo "<p>";
if ($objekto->datoj['ID']) {
butono("sxangxu", "S^ang^u!");
ligu("partrezultoj.php", "Reen");
} else {
butono("kreu", "Enmetu!");
ligu("partrezultoj.php", "Reen");
}
echo "</p>\n";
echo "</form>\n";
}