TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
#2 Kit
To si nemyslím , že pomůže inner join změnit na LEFT JOIN.
Někde se musí dát podmínka asi když id položky se nenajde ve platbách tak on vypíše název té položky ale do řádku castka napíše 0.
Teď ještě koukám že tam mělo být
select po.nazev, sum(pl.castka)....Zdravím,
Potřebuji vyselektovat prodej položek a částku.
Využiji script
select po.nazev,pl.castka from polozky po inner join platby pl on po.id = pl.idpolozka
where pl.datum = '2020-11-10' order by po.nazev
což mě vypíše např.
nazev castka
Kniha 300
Hrnek 400
Ale ja mam více položek , u kterých není za ten den prodej a potřeboval bych je taky vypsat aby se jako castka napsala 0 nebo null
Vysledek by měl být
Nazev Castka
Kniha 300
Hrnek 400
Mydlo 0
Potah 0
Prostěradlo 0
Děkuji
#6 gna
Forma uhrady je správně v aplikaci mam tlačítko hotově nebo bezhotovostně.
Hotovost udělá insert... a hotovost dá 1 . a druhý dá zase bezhotovost 1.
nebudu popisovat tabulku kde jsou natukané jednotlivé položky a z čeho se dělá výpočet to s tímto nesouvisí.
Ještě mě napadlo tam dát že pokud ten select nic nenajde tak se napíše do Label "0".
If IsNothing(i) Then#4 gna
tohle je dobře ono se stane že v jednom dni tam neni třžba v hotovosti ale jen bezhotovostně takže on projede za daný den scripty první select hotovost tam nenajde nic tak už mi neprojede další select a to nevím proč . ukončené to mam myslím dobře takže pokud on nic nenajde tak by label měl byt prázdný ukončit se a potom jede script ,který hledá částku bezhotovosti.
Ale pokud v daném dní mam hotovost tak ji spočte a potom udělá i script bezhostovost správně
Zdravím
Udělal jsem si nový Form a kde jsem si dal Labely kde chci vypisovat výpočty částek různých plateb a následně si udělat tisk.
První select mě vypočte platby hotovosti a druhý platby bezhotovostně
Pokud první select za dané období nesečte žádnou částku (nebyla platba v hotovosti) tak druhý select mě nic také nespočítá i když platby tam byly.
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Call conecDB()
Form1.DateTimePicker1.CustomFormat = "yyyy-MM-dd"
Form1.DateTimePicker1.Format = DateTimePickerFormat.Custom
Form1.DateTimePicker2.CustomFormat = "yyyy-MM-dd"
Form1.DateTimePicker2.Format = DateTimePickerFormat.Custom
Dim cmd As New MySqlCommand("select sum(ROUND(s.celkovacena,2)) from platby where hotovost = 1 and bezhotovost = 0 and placeno = 1 and storno = 0 and cas BETWEEN '" & Form1.DateTimePicker1.Text & "' AND '" & Form1.DateTimePicker2.Text & "' ", connDB)
cmd.ExecuteNonQuery()
Dim i As MySqlDataReader = cmd.ExecuteReader()
While i.Read()
Label3.Text = i("sum(ROUND(s.celkovacena,2))")
End While
i.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
Try
Dim cmm As New MySqlCommand("select sum(ROUND(s.celkovacena,2)) from platby where hotovost = 0 and bezhotovost = 1 and placeno = 1 and storno = 0 and cas BETWEEN '" & Form1.DateTimePicker1.Text & "' AND '" & Form1.DateTimePicker2.Text & "' ", connDB)
Dim y As MySqlDataReader = cmm.ExecuteReader()
While y.Read
Label5.Text = y("sum(ROUND(s.celkovacena,2))")
End While
y.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString)
connDB.Close()
connDB.Dispose()
End Try
End Sub
Děkuji za pomoc
#6 gna
opraveno tedy
<?php
// set the month array
$MonthArray = array(
"1" => "Leden", "2" => "Unor", "3" => "Brezen", "4" => "Duben",
"5" => "Kveten", "6" => "Cerven", "7" => "Cervenec", "8" => "Srpen",
"9" => "Zari", "10" => "Rijen", "11" => "Listopad", "12" => "Prosinec",
);
?>
<select name="month">
<option value="">Vyber mesic</option>
<?php
foreach ($MonthArray as $monthNum=>$month) {
$selected = (isset($getMonth) && $getMonth == $monthNum) ? 'selected' : '';
//Uncomment line below if you want to prefix the month number with leading 0 'Zero'
//$monthNum = str_pad($monthNum, 2, "0", STR_PAD_LEFT);
echo '<option ' . $selected . ' value="' . $monthNum . '">' . $month . '</option>';
}
?>
</select>
ještě opravit výpis vybraného měsíce do češtiny ale to asi dělá ta funkce
("F", mktime(null, null, null, $_POST['month']))
#2 gna
no to asi nezapnu tuto funkci si myslím tedy.
Tak mě napadlo
$Nazev_mesice = array('Leden', 'Únor', 'Březen', 'Duben', 'Květen', 'Červen', 'Červenec', 'Srpen', 'Září', 'Říjen', 'Listopad', 'Prosinec');
A potom to echem nechat vypsat z názvu do mouth
echo($Nazev_mesice[$month]);
.
.
$month = date('F', mktime(0, 0, 0, $i));#10 gna
Private Function GetODBCValu(ByVal ODBCName As String, ByVal ValueName As String) As String
Dim dsnNames As New List(Of String)
Dim reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software")
reg = reg.OpenSubKey("ODBC")
reg = reg.OpenSubKey("ODBC.INI")
reg = reg.OpenSubKey(ODBCName)
Return reg.GetValue(ValueName)
For Each dsn As String In reg.GetSubKeyNames
dsnNames.Add(dsn)
Next
For Each Name As String In dsnNames
ComboBox1.Items.Add(Name)
Next Name
End Function
ale jo propíše se
upravil jsem ještě connectstring u buttonu a jede to si myslím tak jak má snad
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim connString As String = String.Format("Database='{0}';Data Source='{1}';PWD='{2}';User Id=root;", GetODBCValu(ComboBox1.SelectedItem, "Database"), GetODBCValu(ComboBox1.SelectedItem, "Server"), GetODBCValu(ComboBox1.SelectedItem, "PWD"))
Dim conn As New MySqlConnection(connString)
Dim cmd As New MySqlCommand()Zdravím,
Mam vytvořenou stránku a tabulku ,kde se mi selectují data a potřeboval bych je filtrovat dle měsíce
vytvořil jsem na to program
historie.php
<?php
$i = date('j.n.Y', strtotime(StrFTime('%Y-%m-%d')));
echo $i;
for ($i = 1; $i <= 12; $i++){
$month = date('F', mktime(0, 0, 0, $i));
?>
<option value="<?php echo $i; ?>"><?php echo $month; ?></option>
<?php
}
?>
</select>
<label>Rok: </label>
<select name="year" class="form-control">
<?php
for ($i = date('Y'); $i >= 1965; $i--){
?>
<option value="<?php echo $i; ?>"><?php echo $i; ?></option>
<?php
}
?>
</select>
<button class="btn btn-primary" name="search">Hledat</button>
</div>
</form>
<h4>Hledali jste: <span class="text-primary"><?php if(ISSET($_POST['search'])){echo date("F", mktime(null, null, null, $_POST['month']));}?></span> <span class="text-primary"><?php if(ISSET($_POST['search'])){echo $_POST['year'];}?></span></h4>
<table class="table table-bordered">
<thead class="alert-info">
<tr>
search.php
require'conn.php';
if(ISSET($_POST['search'])){
$month=$_POST['month'];
$year=$_POST['year'];
$query=mysqli_query($conn, "SELECT * FROM `databaze` WHERE month(cas)='$month' AND year(cas)='$year'") or die(mysqli_error());
while($fetch=mysqli_fetch_array($query)){
echo "<tr><td>".$fetch['cas']."</td><td>".$fetch['popis']."</td><td>".$fetch['poznamka']."</td></tr>";
}
Vytvoří se mi combobox , kde se mi vypíšou názvy měsíce ale vypíši se mi anglicky,
nedopisuji ji celé kody ale to snad nebude důležité
Potřeboval bych to převést do českého jazyka ty měsíce,
Lze to vůbec?
Děkuji
#8 MilanL
děkuji za radu
ja jsem to pokusil se upravit
Private Function GetODBCValu(ByVal ODBCName As String, ByVal ValueName As String) As String
Dim dsnNames As New List(Of String)
Dim reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software")
reg = reg.OpenSubKey("ODBC")
reg = reg.OpenSubKey("ODBC.INI")
reg = reg.OpenSubKey(ODBCName)
Return reg.GetValue(ValueName)
For Each dsn As String In reg.GetSubKeyNames
dsnNames.Add(dsn)
Next
For Each Name As String In dsnNames
ComboBox1.Items.Add(Name)
Next Name
End Function
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim connString As String = String.Format("Database='{0}';Data Source='{1}';User Id=root;", GetODBCValu(ComboBox1.SelectedItem, "Database"), GetODBCValu(ComboBox1.SelectedItem, "Server"))
Dim conn As New MySqlConnection(connString)
Dim cmd As New MySqlCommand()
To mě napadlo že pokud vyberu databázi v comboboxu tak si to šáhné do ODBC a do connString do dle příkazu doplní server a název databáze
Pak mě to ale ve výsledku píše Index je mimo rozsah,Index musí být nezáporný a musí být menší než velikost kolekce.Název Parametru: index
No ještě tam bude nějaká chyba
#4 MilanL
mě napadlo spíše to nechat vyčíst z registru ODBC tam je vlastně všechno napsáno.
napsat aby mě vlezl do registru a přidal do comboboxu
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
nacistodbc()
Private Sub nacistodbc()
combobox1.Items.Clear()
Dim odbcnazev=Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\\ODBC\\ODBC.INI\\ODBC Data Sources", False).GetValueNames()
For Each item As Object In odbcnazev
combobox1.Items.Add(item)
Next
Nenašel jsem o tom nějaké informace co nejlépe použít
Zdravím,
chtěl bych se zeptat zda by šlo načíst databáze do comboboxu.
Mam v ODBC uložené databáze MYSQL 5.2a
V nyní mám hotové 3 aplikace které jsou napojené na každou databázi zvlášt
pomoci :
Dim connString As String = "Database=DATA_SKLAD1;Data Source=IP_ADRESA;" _
& "User Id=root;Password="
Dim conn As New MySqlConnection(connString)
Dim cmd As New MySqlCommand()
Try
Call conecDB()
dt = New DataTable '
Dim con As New SqlConnection
což je nepraktické
Stačí mě abych měl jednu aplikace ale tam bych potřeboval mít combobox ,který mě vyčte názvy z ODBC.
Pokud vyberu název databáze tak se mě připojí aplikace k dané databázi a už pracuji
Mohl bych to vyřešit v kódu že bych přes chatbox si zapnul tu danou databázi ale mám více stanic které se připojují zase k jiným databázím a univerzalní řešení pro mě je aby se ty názvy načetli do comboboxu
Napadlo mě využít ODBC.ini z registru kde se vlastně zapisují Názvy databázi a další údaje ale nevím přesně jak na to.
Nemáte nějaký typ ?
Děkuji
Zdravím.
Nevím zda tohle vůbec půjde.
Mam program v Delphi vyroben program , který má 5 buttonu a je připojen na mysql databázy .
Každý button obsahuje select a export do csv tedy po stisknutí se vyčte select a hodnoty se mi uloží do CSV.
A potřebuji vyselectovat pět různých údajů proto tam mam 5 tlačítek ale udělá mě to 5x CSV.
A moje otázka zní zda bych mohl mít jen 1 button, který mě projede těch 5 selectu s databáze a hodnoty uloží do jednoho souboru , kde bude pět sešitů?
Děkuji
Zdravím
Mam příkaz
update Tabulka1 join tabulka2
on tabulka2.id = Tabulka1.t2_id - porovnávám tabulky podle stejných hodnot
set
Tabulka1.A= Tabulka2.B potřebuji hodnoty z Tabulka2.B se přesunuly do Tabulka1.A
where Tabulka2.B= 1 - podmínka hledat pouze kde je hodnota 1
Příkaz mě porovná idčka tabulek mezi sebou a vyhledá Tabulka2.B hodnoty 1 a ty mě přepíše do Tabulka1.A jako hodnotu 1.
tady bych potřeboval aby mi to nepřepsalo jako 1 ale jako 0
Nevíte prosím co použít?
Děkuji moc za pomoc
vybral jsem první řešení ,které si upravuji a přidal jsem ji ještě další smazání
tedy nyní by se mi měli vyhledat a nepřidávat do listboxu věty které začínají /** a končí */
dále pak <!-- a končí -->
dále pak se mi z listboxu smažou řádky kde je //
problém je u <!-- --> nezapíše se mi text který začne <!-- a dále ale když to končí --> tak to se zapíše a to by ale nemělo
takže pokud mam
<!-- věta věta věta
věta věta věta
věta -->
tak aplikace mi do listboxu zapíše
věta --> ' tohle by tu už nemělo být
dále u listboxu se bojím, že pokud bude text např.
věta která se nemaže /** smazat pouze toto */ - tak to smázné celý řádek
Dim openfile = New OpenFileDialog() With {.Filter = "Text (*.php)|*.php"}
If (openfile.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
For Each line As String In File.ReadAllLines(openfile.FileName)
Next
End If
dim komentar as boolean
komentar = False
For Each line As String In File.ReadAllLines(openfile.FileName)
If Not line.IndexOf("<!-") = -1 Then
komentar = True
End If
If komentar Then
If Not line.IndexOf("-->") = -1 Then
komentar = False
End If
End If
If Not line.IndexOf("/**") = -1 Then
komentar = True
End If
If komentar Then
If Not line.IndexOf("*/") = -1 Then
komentar = False
End If
Else
ListBox1.Items.Add(line)
End If
Next
Dim ValueToSearchFor As String = "//"
For I As Integer = ListBox1.Items.Count - 1 To 0 Step -1
If ListBox1.Items(I).ToString.Trim.Length = 0 Then
ListBox1.Items.RemoveAt(I)
Else
If CheckBox3.Checked Then
If ListBox1.Items(I).ToString.IndexOf(ValueToSearchFor) <> -1 Then
ListBox1.Items.RemoveAt(I)
End If
End If
End If
Next#4 gna
no napadlo mě že to bude lepší když si tlačítkem načtu text do listobu ,dalším tlačítkem uložím upraveny text v listoboxu a třetí tlačítko nechám na upravu textu
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim openfile = New OpenFileDialog() With {.Filter = "Text (*.php)|*.php"}
If (openfile.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
For Each line As String In File.ReadAllLines(openfile.FileName)
ListBox1.Items.Add(line)
Next
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
' SAVE DIALOG
Dim SaveFileDialog1 As New SaveFileDialog
SaveFileDialog1.FileName = ""
SaveFileDialog1.Filter = "Text Files (*.php)|*.php|All Files (*.*)|*.*"
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
Dim sb As New System.Text.StringBuilder()
For Each o As Object In ListBox1.Items
sb.AppendLine(o)
Next
System.IO.File.WriteAllText(SaveFileDialog1.FileName, sb.ToString())
End If
End Sub
------------------------------
tak a třetí button který v listboxu smazné ty danné texty co obsahuji znaky
a bud to udělam s pomoci Regexu což ale není účinné pro více řádku
Dim IndexInteger As Integer = ListBox1.SelectedIndex
Dim Results =
(
From T In ListBox1.Items
Select System.Text.RegularExpressions.Regex.Replace(CStr(T), "<!--(.|\s)*?-->", "")
).ToArray
ListBox1.Items.Clear()
ListBox1.Items.AddRange(Results)
If IndexInteger <> -1 Then
ListBox1.SelectedIndex = IndexInteger
End If
nebo
přes indexy ale to nevím jak na to
int start = input.IndexOf("<--");
int end = input.IndexOf("-->");
Napadlo mě na button
For i As Integer = 0 To ListBox1.Items.Count - 1
Dim Text As String = Convert.ToString(ListBox1.Items(i))
Text = Regex.Replace(ListBox1.Items(i), "<!--[^\-]+-->", "")
ListBox1.Items(i) = Text
Požit Regex ale tohle mě vymaže pouze řádek
pokud bude text
<!-- aaaaa
aaaa
aaaa -->
tak ho už nesmaže pouze první řádek
Zdravím
potřebuji aplikaci která smaže věty s listboxu které začínají <!-- a končí -->
např.
<!-- komentář k podmínce
komentař pokračuje
komentař končí -- >
aplikace vyhledá a smaže tedy všechny tři řádky
můj kod co mam zatím
Dim items As New List(Of String)
Dim nalezslovo As Boolean
Dim A As String() = {"<!--"}
Dim B As String() = {"-->"}
For i As Integer = 0 To ListBox1.Items.Count - 1
For Each slovo As String In A
(zde nevím jak dostadit aby aplikace vyhledala také znaky pod B)
nalezslovo = False
If ListBox1.Items(i).ToString.Contains(slovo) Then
nalezslovo = True
Exit For
End If
Next
If nalezslovo = False Then items.Add(ListBox1.Items(i))
Next
ListBox1.Items.Clear()
ListBox1.Items.AddRange(items.ToArray)
aplikace nyní dělá že vyhledá pouze <!-- a smaže jen první větu,potřeboval bych dosadit podmíku pro --> aby aplikace vyhledala větu začinajíci <!-- a končíci -->
Děkuji za odpovědi
#6 milkomaxx
to je jedno.Měla by to být aplikace
Spustím aplikaci
otevřu si soubor s textem,
program vyhledá texty ktere začínájí <!-- a končí --> a vymaže je
a tlačítko na uložení
a jak jsem psal text může být na více řádku
<!-- text text text
text text
text text text -->
další funkce nejsou potřeba
Zdravím
napsal jsem si kod kterým si po kliknutí na button otevřu soubor většinou PHP
kod jen pro info:
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
if (openFileDialog1.ShowDialog() != DialogResult.Cancel)
{
string[] lines = File.ReadAllLines(openFileDialog1.FileName);
listBox1.DataSource = lines;
}
}
když se mi načte do listboxu tak zde místo písmen s diakritikou je �
nevíte prosím jak to napravit aby tam byly písmena s diakritikou?
děkuji
#4 Jerry
Tak původní požadavek jsem začal dělat takže tohle již nepotřebuji.
mam ale jinak nový požadavek jestli by byl zájem.
Jedná se o program který načte soubor s textem ten může vypsat do listboxu ale není to podmínka
text obsahuje php kod který má poznámky
před poznamkou a za poznamkou jsou znaky <!-- a -->
program by měl vyhledat tyto znaky a smazat je i z poznámkou .
příklad
kod
kod
<!-- zde bude poznamka
druhý řádek
třetí řádek -->
kod
kod
kod
<!-- zde bude poznamka
druhý řádek
třetí řádek -->
po kliknutí na button
kod
kod
kod
kod
kod
---------
a samozdřejme upraveny text opět uložit
Zravím,
Prosím o radu jak udělat kod abych buttonem smazal data z několika tabulek v mysql databazi
dt = New DataTable 'data
Dim con As New SqlConnection
Dim cmd As New SqlCommand
DateTimePicker1.CustomFormat = "yyyy-MM-dd"
DateTimePicker1.Format = DateTimePickerFormat.Custom
Dim dt As String = ("Delete from tabulka1 where radek2 < '" & DateTimePicker1.Text & "'")
// zde přidat kod aby mi to asi ukončilo script a načetlo druhy
Dim dt As String = ("DELETE FROM tabulka 2 WHERE radek1 and closed < '" & DateTimePicker1.Text & "'")
pod buttonem bude více delete takže každy delete se bude muset asi ukončit aby se načetl potom další řadek
máte někdo zkušenost?
Zdravím
Mam program napojen na mysql databázi.
udělal jsem si nový Form kde mam na button script
da = New MySql.Data.MySqlClient.MySqlDataAdapter("SELECT data1,data2,data3,data4 FROM Adata inner join Bdata where data1 = '" & TextBox1.Text & "' and data2 bETWEEN '" & DateTimePicker1.Text & "' AND '" & DateTimePicker2.Text & "'", connDB)
comDB.Parameters.AddWithValue("@STARTDATE", DateTimePicker1.Visible)
comDB.Parameters.AddWithValue("@ENDDATE", DateTimePicker2.Visible)
jen pro představu
Pokud zadám název do textu editu a nastavim si datum v DatetimePicker tak mě to vypíše co potřebuji
ale pokud chci zadat opět nový název a datum tak už mě to ukáže že tam je nadefinováno @Startdate
prosím o radu jakým příkazem ukončit načtený script abych ho mohl opět použít
#2 Jerry
Je mi to jasné že to nebude za 100 kč. Nepočítám ale práci na hodně hodin. Jedna se jen o aplikaci která bude mít Menu kde se vybere daná funkce a buttonem se vyselektuje daným scriptem a do viewgrindu se vypíše výsledek prakticky nic víc ani vzhled se nebude řešit nebude to aplikace k dalšímu prodeji nebo tak
Zdravím,
Sháním programatora na jednorazovou akci.
Potřebuji vyrobit aplikaci,ktéra se bude připojovat na mysql 5.2a databázi lokalní,
Aplikace bude mít Menu které bude obsahovat funkce.
Daná funkce bude mít prvky na kterých se domluvíme. Ke všemu dám scripty ty bude potřeba upravit aby je přečetlo C++. Dále dodám databázi
Domluvit se můžeme na krpi1141@seznam.cz
#14 MilanL
Děkuji již jsem dneska dopoledne na to ještě mrknul a našel odpověd
adoQuery2.SQL.Text :='CREATE or Replace view view_platby_karty ' + - dal jsem za každý řádek pro spojení scriptu
' as select DATE_FORMAT
dále jsem si tam přidal ADOQuery2.ExecSQL(); a jede to
asi to není nejlepší řešení přestal mi fungovat IF ELSE kdyby mi to nic nenačetlo tak abych věděl
if AdoQuery2.IsEmpty then
ShowMessage('Nic nenalezeno')
else
ShowMessage('Načteno');
to už je ale jiný příběh
Děkuji všem za pomoc
#7 Kit
jsou to dva jeden vytvoří tabulku ze selectem a druhy mi z ní vypíše hodnoty
CREATE or Replace view `view_platby_karty`
as select
DATE_FORMAT(s.closed,"%d.%m.%Y") datum, sum(case when s.storno=1 then 0 else CelkovaCena end) as trzba_celkem,
SUM(case when s.storno=1 then 0 ELSE s.CelkovaCena/(100+s.SAZBA)*100 END) as zaklad_DPH,
SUM(CASE WHEN COALESCE(s.SAZBA,0)=0 THEN s.CelkovaCena/((100+s.SAZBA)/100) ELSE 0 END )as bez_DPH,
SUM(CASE WHEN s.SAZBA=21 THEN (s.CelkovaCena/1.21)*(s.SAZBA/100) ELSE 0 END )as dph21, SUM(CASE WHEN s.SAZBA=15
THEN (s.CelkovaCena/1.15)*(s.SAZBA/100) ELSE 0 END )as dph15, SUM(CASE WHEN s.SAZBA=10 THEN (s.CelkovaCena/1.10)*(s.SAZBA/100)
ELSE 0 END )as dph10, SUM(CASE WHEN s.SAZBA=21 THEN s.CelkovaCena-(s.CelkovaCena/1.21)*(s.SAZBA/100) ELSE 0 END )as zaklad_dph21,
SUM(CASE WHEN s.SAZBA=15 THEN s.CelkovaCena-(s.CelkovaCena/1.15)*(s.SAZBA/100) ELSE 0 END )as zaklad_dph15,
SUM(CASE WHEN s.SAZBA=10 THEN s.CelkovaCena-(s.CelkovaCena/1.10)*(s.SAZBA/100) ELSE 0 END )as zaklad_dph10
from platby P inner join p_polozky s where p.id_ucty= s.id_ucty
and p.druh_platby_id = '6'
and s.closed<>"0000-00-00%" AND s.storno<>1 AND DATE_FORMAT(s.closed,"%Y-%m-%d %H:%i") BETWEEN '2018-01-01' AND '2018-12-12'
GROUP BY YEAR(s.closed), MONTH(s.closed),DAY(s.closed),s.id_ucty ;
píšu to jako
adoQuery2.SQL.text :='CREATE or Replace view `view_trzba_karty`';
adoQuery2.SQL.text := adoQuery2.SQL.text + ' as select';
atd.
----------------
Teď dalším selectem dělám už sumy u DPH a vypíšu
napsal bych to pod další button
zde bych potom doplnil
Var
i: integer;
strT: string;
slst: TStringList;
adoQuery1.SQL.Clear;
adoQuery1.SQL.Add('select....
.slst:= TStringList.Create;
Try
With DBGrid1.DataSource.DataSet Do
begin
First;
while not Eof do
begin
strT:= ';'+Fields[0].AsString+';';
for i:= 1 to FieldCount-1 do
strT:= strT+';'+Fields[i].AsString+';';
slst.Add(strT);
Next;
end;
First;
end;
slst.SaveToFile('C:\data\test.xls');
Finally
slst.Free;
End;
ale i když nechám ten první script pod jedním buttonem tak mě to nevytvoří tabulku a i když ten script by měl být správný
#5 MilanL
Děkuji tohle mi pomohl.
A náhodou nevíš jak tam napsat CREATE or Replace view `view_trzba_karty` ?
Pořád se mi to nedaří
Mam zde dva selecty
CREATE or Replace view `view_trzba_karty`
as select --- a teď mam select , který mi vyčte do tabulky view_trzba_karty vypočet DPH
za tím mám druhý select ,který vyčte z tabulky view_trzba_karty datum a DPHačka na dvě desetina místa
Nechávám si to vyčíst celé do mema abych věděl jak to čte program to si zkopíruji do heidisql a tam mi script funguje
#2 jerry
Děkuji
Touhle cestou už bych asi nechtěl jít
program mam už hotový tohle je poslední příkaz co mi tam chybí. Mam to jen pro moje malé podnikání
Dlouhý příkaz co mam je potom rozdělení DPH pro účetní
zaklad a daň z 15 a 21 % DPH, to mi krásně rozepíše a pak bych k tomu přidal uložení do CSV nebo txt
Zdravím
Mam vytvořen script Select , který je ale dlouhý protože si potřebuji vypsat hodně tabulek a porovnat
Delphi mi nevezme tak velký příkaz do jednoho řádku
procedure TForm1.Button7Click(Sender: TObject);
begin
with adoQuery1 do
begin
Active:=False;
sql.clear;
adoQuery1.SQL.Add -- a zde bude dlouhý příkaz
Jak mohu příkaz rozdělit na více řádku aby se mi načetl jako jeden celý
děkuji
Zdravím
Mam program s databází
V sql mam tabulky které teď potřebují porovnat a vypsat jak potřebuji
tabulka prodej , platební_metoda,celkovy_prodej
V prodeji mám co si u mě zakoupí
JAKO Příklad
id 100 cd verbatin množství 1ks částka 10 kč DPH 15
id 100 CD Karel Gott množství 1ks částka 200 kč DPH 15
teď např něco z 21 % DPH
id 100 Pivo množství 1ks částka 10 kč DPH 21
Platební metody mam id 1 to je hotově , id 2 to je kartou
celkovy_prodej
zde mam celkovou částku tedy finální za ten nákup položek
tedy příklad
ID 1 , ID_prodej 100 Celkova castka 220 typ_platby 2
Zajímá mě co jsem celkově prodal v kartě a mít to rozepsáno jako částka v 15% DPH a 21% DPH
ve finále by to mělo být
částka DPH
210 15
10 21
Je to jen příklad jde mi o script zda by jste někdo nevěděl
Děkuji předem
Zdravím,
Mám aplikaci pro jednoduchý sklad a prodej
Používám k tomu mysql databázi
Zde bych chtěl udělat program , který mi smaže data ke dni
takže jsem si udělal nový program kde mam button a textedit
Do textedit zadávám datum např. 2018-01-01
Button mi projede příkazy
procedure TForm1.Button2Click(Sender: TObject);
begin
with adoQuery1 do
begin
Active:=False;
sql.clear;
adoQuery1.SQL.Add('Delete from prodej where Cas < '+ QuotedStr(Edit1.Text));
adoQuery1.SQL.Add('DELETE FROM inventura WHERE timestamp < '+ QuotedStr(Edit1.Text)); ;
adoQuery1.SQL.Add('DELETE FROM prodej_polozek WHERE Cas < '+ QuotedStr(Edit1.Text));
tedy bude to vypadat jako
adoQuery1.SQL.Add('Delete from prodej where Cas < ' '2018-01-01'));
Problém je že mi to smaže jen data z jedné tabulky
můžete mi poradit co zde přidat aby mi button smazal všechny tři tabulky?
Dobrý den
Mám tři text boxy a jeden LABEL
Program by měl fungovat:
Label bude mít v sobě číslo 0.V textboxu 1,2 se zapíše 0.Pokud do Textboxu 1 nebo 2 napíší číslo 1 změní se číslo v labelu na 1.
třetí text box bude mít napsán číslo 1 .Nesmí se ale změnit label na 1 ten bude pořád 0.Pokud třetí textbox změním na číslo 0, Číslo v Labelu se změní na 1.
vždy se bude bude měnit pouze jeden textbox .Buttonem se vráti vše do původní podoby tedy Textbox 1,2 bude mít číslo 0.Textbox 3 bude mít číslo 1 a label číslo 0
© 2003–2024 Programujte.com