📄 liste_nozze.pas
字号:
ppSummaryBand1: TppSummaryBand;
ppGroup1: TppGroup;
ppGroupHeaderBand1: TppGroupHeaderBand;
ppDBText28: TppDBText;
ppLabel17: TppLabel;
ppDBText29: TppDBText;
ppLabel18: TppLabel;
ppDBText30: TppDBText;
ppLabel19: TppLabel;
ppDBText31: TppDBText;
ppLine6: TppLine;
ppLine7: TppLine;
ppSystemVariable3: TppSystemVariable;
ppGroupFooterBand1: TppGroupFooterBand;
Stp_Interna: TAction;
ToolButton11: TToolButton;
DsArticoli: TDataSource;
QStampaImportoE: TCurrencyField;
ppTitleBand3: TppTitleBand;
ppLabel39: TppLabel;
ppSystemVariable7: TppSystemVariable;
ppDBText56: TppDBText;
ppLabel40: TppLabel;
ppLine15: TppLine;
ppLabel41: TppLabel;
ppLabel42: TppLabel;
ppDBText58: TppDBText;
ppLabel43: TppLabel;
ppDBText59: TppDBText;
ppDBText60: TppDBText;
ppDBText61: TppDBText;
ppLabel44: TppLabel;
ppDBText62: TppDBText;
ppLabel45: TppLabel;
ppDBText63: TppDBText;
ppLine16: TppLine;
ppLabel46: TppLabel;
ppLabel47: TppLabel;
ppDBText64: TppDBText;
ppLabel48: TppLabel;
ppDBText65: TppDBText;
ppDBText66: TppDBText;
ppDBText67: TppDBText;
ppLabel49: TppLabel;
ppDBText68: TppDBText;
ppLabel50: TppLabel;
ppDBText69: TppDBText;
ppLabel51: TppLabel;
ppDBText70: TppDBText;
ppLine17: TppLine;
ppLine18: TppLine;
ppLabel52: TppLabel;
ppLabel53: TppLabel;
ppLabel54: TppLabel;
ppDBText71: TppDBText;
ppLine19: TppLine;
ppDBText72: TppDBText;
ppDBText73: TppDBText;
ppDBText74: TppDBText;
ppDBMemo1: TppDBMemo;
ppDBBarCode1: TppDBBarCode;
ppDetailBand3: TppDetailBand;
ppDBText75: TppDBText;
ppDBText76: TppDBText;
ppDBText77: TppDBText;
ppDBText78: TppDBText;
ppDBText83: TppDBText;
ppDBText1: TppDBText;
ppFooterBand3: TppFooterBand;
ppSystemVariable8: TppSystemVariable;
ppSummaryBand3: TppSummaryBand;
ppGroup3: TppGroup;
ppGroupHeaderBand3: TppGroupHeaderBand;
ppDBText79: TppDBText;
ppLabel55: TppLabel;
ppDBText80: TppDBText;
ppLabel56: TppLabel;
ppDBText81: TppDBText;
ppLabel57: TppLabel;
ppDBText82: TppDBText;
ppLine20: TppLine;
ppLine21: TppLine;
ppSystemVariable9: TppSystemVariable;
ppGroupFooterBand3: TppGroupFooterBand;
raCodeModule1: TraCodeModule;
procedure ArticoliExecute(Sender: TObject);
procedure InsListeExecute(Sender: TObject);
procedure listeAfterInsert(DataSet: TDataSet);
procedure listaAfterInsert(DataSet: TDataSet);
procedure tbolleAfterInsert(DataSet: TDataSet);
procedure FineExecute(Sender: TObject);
procedure listeBeforeDelete(DataSet: TDataSet);
procedure selezioneChange(Sender: TObject);
procedure SezioneExecute(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ConfermaExecute(Sender: TObject);
procedure AnnullaExecute(Sender: TObject);
procedure EliminaExecute(Sender: TObject);
procedure listaBeforeDelete(DataSet: TDataSet);
procedure StampaExecute(Sender: TObject);
procedure TTSezioneBeforeDelete(DataSet: TDataSet);
procedure listaBeforeInsert(DataSet: TDataSet);
procedure Nuova_ListaExecute(Sender: TObject);
procedure selezioneDropDown(Sender: TObject);
procedure Elimina_ListeExecute(Sender: TObject);
procedure listaBeforePost(DataSet: TDataSet);
procedure Aggiorna_ListaExecute(Sender: TObject);
procedure AggiornaExecute(Sender: TObject);
procedure listeBeforePost(DataSet: TDataSet);
procedure Aggiorna_ListeExecute(Sender: TObject);
procedure SuExecute(Sender: TObject);
procedure GiuExecute(Sender: TObject);
procedure listaAfterPost(DataSet: TDataSet);
procedure Prenota_CompraExecute(Sender: TObject);
procedure Convalida_prenotazioneExecute(Sender: TObject);
procedure Non_vendutiExecute(Sender: TObject);
procedure Non_consegnatiExecute(Sender: TObject);
procedure listaPrezzoLChange(Sender: TField);
procedure IdChange(Sender: TObject);
procedure TTSezioneAfterInsert(DataSet: TDataSet);
procedure TTSezioneBeforePost(DataSet: TDataSet);
procedure Solo_VendutiExecute(Sender: TObject);
procedure QtaTotExecute(Sender: TObject);
procedure listaCalcFields(DataSet: TDataSet);
procedure listeAfterPost(DataSet: TDataSet);
procedure dbolleAfterInsert(DataSet: TDataSet);
procedure promozioneAfterInsert(DataSet: TDataSet);
procedure NumeraAfterInsert(DataSet: TDataSet);
procedure TTArticoliAfterInsert(DataSet: TDataSet);
procedure ListaBisAfterInsert(DataSet: TDataSet);
procedure Tprenotazioni_BisAfterInsert(DataSet: TDataSet);
procedure DprenotazioniAfterInsert(DataSet: TDataSet);
procedure tbolleAfterPost(DataSet: TDataSet);
procedure dbolleAfterPost(DataSet: TDataSet);
procedure promozioneAfterPost(DataSet: TDataSet);
procedure NumeraAfterPost(DataSet: TDataSet);
procedure TTArticoliAfterPost(DataSet: TDataSet);
procedure TTSezioneAfterPost(DataSet: TDataSet);
procedure ListaBisAfterPost(DataSet: TDataSet);
procedure Tprenotazioni_BisAfterPost(DataSet: TDataSet);
procedure DprenotazioniAfterPost(DataSet: TDataSet);
procedure tbolleBeforeDelete(DataSet: TDataSet);
procedure dbolleBeforeDelete(DataSet: TDataSet);
procedure promozioneBeforeDelete(DataSet: TDataSet);
procedure NumeraBeforeDelete(DataSet: TDataSet);
procedure TTArticoliBeforeDelete(DataSet: TDataSet);
procedure ListaBisBeforeDelete(DataSet: TDataSet);
procedure Tprenotazioni_BisBeforeDelete(DataSet: TDataSet);
procedure DprenotazioniBeforeDelete(DataSet: TDataSet);
procedure listaArticoloChange(Sender: TField);
procedure QStampaCalcFields(DataSet: TDataSet);
procedure listagridKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure listaArticolofornitoreChange(Sender: TField);
procedure listaArticoloetichettaChange(Sender: TField);
procedure FormCreate(Sender: TObject);
procedure Stp_InternaExecute(Sender: TObject);
procedure listaPrezzoEChange(Sender: TField);
private
{ Private declarations }
public
SuGiu: Boolean;
function Nome(sposo, sposa: string): string;
procedure Aggiorna_combo_selezione;
{ Public declarations }
end;
var
Lista_nozze: TLista_nozze;
cancellando: boolean;
AutoFornitore: boolean;
AutoEtichetta: boolean;
AutoInterno: boolean;
modifica: boolean;
implementation
uses main, u_liste_dlg, articoli, sezione, clienti, wizard, u_prenotazioni, u_nonvenduti, u_nonconsegnati, u_venduti,
u_Qta, rica_art_u_fornit, u_griglia_varianti;
{$R *.DFM}
procedure TLista_nozze.ArticoliExecute(Sender: TObject);
var conta, i : integer;
riga, colonna : integer ;
begin
i := 0 ;
Ricerca_articoli.GrigliaArticoli.Options := [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgRowSelect,dgConfirmDelete,dgCancelOnExit,dgMultiSelect] ;
Ricerca_articoli.showModal ;
if (Ricerca_articoli.ModalResult=mrOk ) then
begin
// Recupera i dati selezionati nella ricerca_articoli
Conta := Ricerca_articoli.GrigliaArticoli.SelectedRows.count-1;
for i:=0 to conta do
begin
Ricerca_articoli.Qarticoli.Bookmark := Ricerca_articoli.GrigliaArticoli.SelectedRows.Items[i];
// ------------------------------------ VARIANTI --------------------------------------
if TTArticoli.FindKey([Ricerca_Articoli.QarticoliArticolo.AsString]) then
begin
if TTArticoliGestioneVarianti.AsBoolean then
begin
Griglia_varianti := Tgriglia_varianti.Create(Self) ;
{ Griglia_varianti.TTDettaglioArticoli.MasterSource := DsArticoli ;
Griglia_varianti.TTDettaglioArticoli.MasterFields := 'Articolo Etichetta' ;
}
Griglia_Varianti.Interno.DataSource := DsArticoli ;
Griglia_Varianti.Interno.DataField := 'Articolo' ;
Griglia_Varianti.Descrizione.DataSource := DsArticoli ;
Griglia_Varianti.Descrizione.DataField := 'Descrizione' ;
Griglia_Varianti.TTDettaglioArticoli.Filter := '[Articolo Interno] =''' + TTArticoliArticolo.AsString + '''' ;
Griglia_Varianti.TTDettaglioArticoli.Filtered := True ;
Griglia_Varianti.TTDettaglioArticoli.Open ;
Griglia_varianti.showModal ;
with Griglia_varianti do
begin
For riga := 1 to GridVarianti.RowCount -1 do
For colonna := 1 to GridVarianti.colcount -1 do
begin
if (GridVarianti.Cells[colonna,riga] <> '') and (GridVarianti.Cells[colonna,riga] <> '') then
If (TTDettaglioArticoli.Locate('variante 1;variante 2',VarArrayof([GridVarianti.Cells[0,riga],GridVarianti.Cells[colonna,0]]),[])) then
begin
if (TTArticoliArticoloEtichetta.AsString <> TTDettaglioArticoliArticoloEtichetta.AsString) and (TTDettaglioArticoliArticoloEtichetta.AsString <> '') then
begin
if (not (lista.State = dsEdit)) and (not (lista.State = dsInsert)) then
lista.Insert ;
sugiu := True ;
// listaArticolo.asString := TTDettaglioArticoliArticoloEtichetta.AsString ;
listaArticoloEtichetta.AsString := TTDettaglioArticoliArticoloEtichetta.AsString ;
sugiu := False ;
listaArticolo.asString := TTDettaglioArticoliArticoloEtichetta.AsString ;
lista.Delete ;
lista.Edit ;
listaQta.AsString := GridVarianti.Cells[colonna,riga] ;
lista.Post
end ;
end ;
end ;
end ;
Griglia_Varianti.TTDettaglioArticoli.Close ;
end
else
begin
if (not (lista.State = dsEdit)) and (not (lista.State = dsInsert)) then
lista.Insert ;
sugiu := True ;
listaArticoloEtichetta.asString := Ricerca_articoli.QarticoliArticoloEtichetta.asString ;
sugiu := False ;
listaArticolo.asString := Ricerca_articoli.QarticoliArticolo.asString ;
end ;
end ;
// ------------------------------------ VARIANTI --------------------------------------
// lista.Post;
end;
end;
Ricerca_articoli.GrigliaArticoli.SelectedRows.Clear;
if i > 0 then
lista.Cancel;
end;
procedure TLista_nozze.InsListeExecute(Sender: TObject);
begin
Liste_dlg := Tliste_Dlg.Create(Self) ;
Liste_dlg.ShowModal ;
Liste_dlg.release;
end;
procedure TLista_nozze.listeAfterInsert(DataSet: TDataSet);
begin
listeIDGiornale.AsString := Main_form.LogI(liste.TableName);
Numera.Edit ;
NumeraIDlista.AsInteger := NumeraIDlista.AsInteger + 1 ;
Numera.Post ;
listeIDlista.AsInteger := NumeraIDlista.AsInteger ;
listedata.AsDateTime:=now;
{if Main_form.TTPostazione.FindKey([Main_form.TTNumGiornPostazione.AsString]) then
listepostazione.AsString := Main_form.TTPostazioneDescrizione.asstring; }
listepostazione.AsString := Main_form.TTConfigDeposito.AsString ;
end;
procedure TLista_nozze.listaAfterInsert(DataSet: TDataSet);
begin
Numera.Edit ;
NumeraIDriga.AsInteger := NumeraIDriga.AsInteger + 1 ;
NumeraOrdinamento.asinteger := numeraOrdinamento.asinteger + 1;
Numera.Post ;
listaIDGiornale.AsString := Main_form.LogI(lista.TableName);
listaIDriga.AsInteger := NumeraIDriga.AsInteger ;
listaIDlista := listeIDlista ;
listaOrdinamento.asinteger := NumeraOrdinamento.AsInteger;
listasezione.asstring := selezione.text;
listaQta.AsInteger := 1;
listaselezione.AsBoolean := false;
ListaGrid.SelectedField := listaArticoloEtichetta;
end;
procedure TLista_nozze.tbolleAfterInsert(DataSet: TDataSet);
begin
Numera.Edit ;
NumeraIDbolla.AsInteger := NumeraIDbolla.AsInteger + 1 ;
Numera.Post ;
tbolleIDGiornale.AsString := Main_form.LogI(tbolle.TableName);
tbolleIDbolla.AsInteger := NumeraIDbolla.AsInteger ;
dbolleIDbolla.AsInteger := tbolleIDbolla.AsInteger;
end;
procedure TLista_nozze.FineExecute(Sender: TObject);
begin
Modalresult := mrOk;
end;
procedure TLista_nozze.listeBeforeDelete(DataSet: TDataSet);
begin
if messagedlg('Sei sicuro di cancellare la lista ?',mtconfirmation,[mbYes,mbNo],0) = mrNo then
abort ;
Main_form.LogC(listeIdGiornale.AsString,liste.TableName);
if messagedlg('Vuoi salvare i dati anagrafici degli sposi come clienti ?',mtconfirmation,[mbYes,mbNo],0) = mrYes then
begin
with (main_form) do
begin
TTClienti.Insert;
TTClientiNominativo.asstring := Nome(listecognomenomesposo.Asstring,listecognomenomesposa.Asstring);
TTClientiIndirizzo.asstring := listeindirizzocoppia.AsString;
TTClientiLocalita.asstring := listelocalitcoppia.asstring;
TTClientiCap.asstring := listecapcoppia.AsString;
TTClientiProvincia.asstring := listeprovinciacoppia.asstring;
TTClientiConiugato.AsBoolean := true;
ClientiDlg := TClientiDlg.Create(Self) ;
ClientiDlg.ShowModal ;
end;
end;
try
cancellando := true;
while not (lista.isEmpty) do
lista.delete;
cancellando := false ;
except
showmessage ('Impossibile cancellare la lista');
cancellando := false ;
abort;
end ;
Lista.First;
end;
procedure TLista_nozze.selezioneChange(Sender: TObject);
begin
if not (selezione.Text='TUTTE') then
begin
listagrid.Columns[0].visible:=false;
lista.filtered := false;
lista.Filter := 'sezione ='''+ selezione.text + '''';
lista.filtered:= true;
end
else
begin
lista.filtered := false;
listagrid.Columns[0].visible:=true;
end;
end;
procedure TLista_nozze.SezioneExecute(Sender: TObject);
begin
sezione_form := Tsezione_form.Create(Self) ;
sezione_form.ShowModal ;
sezione_form.release;
end;
procedure TLista_nozze.ToolButton3Click(Sender: TObject);
begin
lista.Insert ;
listagrid.SetFocus ;
end;
procedure TLista_nozze.ConfermaExecute(Sender: TObject);
begin
If (lista.State = dsEdit) or
(lista.State = dsInsert) then
lista.Post ;
end;
procedure TLista_nozze.AnnullaExecute(Sender: TObject);
begin
If (lista.State = dsEdit) or
(lista.State = dsInsert) then
lista.Cancel ;
end;
procedure TLista_nozze.EliminaExecute(Sender: TObject);
begin
lista.Delete;
end;
procedure TLista_nozze.listaBeforeDelete(DataSet: TDataSet);
begin
if not cancellando then
begin
if listaQtaVenduta.AsInteger > 0 then
begin
showmessage('Attenzione: L''articolo ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -