ana_listini_u.~pa

Mosaic ERP大型系统 v6.09.rar

     modulodatianagrafiche.TTListiniNomefileStampa.asString := Listino.Template.Filename ;
     Listino.Template.SaveToFile;
     MOduloDatiAnagrafiche.TTListini.Post ;
end;

procedure TAna_listini_form.EsciExecute(Sender: TObject);
Var AutoEdit : String ;
begin
     Qlistino.Active := False ;
     If (EditListino.DataSource.DataSet.State = dsEdit) or
        (EditListino.DataSource.DataSet.State = dsInsert) then
        if MessageDlg('Attenzione, salvare le modifiche ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
           EditListino.DataSource.DataSet.Post ;
     // Stefano 26/02/2002
     AutoEdit := 'SI' ;
     ModuloDatiAnagrafiche.LeggiChiave('AUTOEDIT',autoedit) ;
     ModuloDatiAnagrafiche.dsArticoli.AutoEdit := (Autoedit = 'SI') ;
     // Stefano 26/02/2002
     release ;
end;

procedure TAna_listini_form.EsportaExecute(Sender: TObject);
begin
   If ModuloDatiAnagrafiche.TTListiniNomeFileEsportazione.asString = '' then
    begin
     ShowMessage('Inserire un nome per il file esportato nella relativa casella.') ;
     exit ;
    end;
   if not QListino.Active then QListino.open ;
   exportListino.TableName := ModuloDatiAnagrafiche.TTListiniNomeFileEsportazione.asString ;
   esporta_list.Execute ;
   ShowMessage('Esportazione completata !') ;
end;

procedure TAna_listini_form.VerificaExecute(Sender: TObject);
begin
     Qlistino.Close ;
     with ModuloDatiAnagrafiche do
      begin
       TTarticoli.First ;
       While Not TTarticoli.eof do
        begin
         TTarticoli.Edit ;
         StatusBar.Panels[0].text := TTarticoliArticolo.AsString ;
         StatusBar.update ;
         Controlla_Listino ;
         TTArticoli.Post ;
         TTarticoli.Next ;
        end ;
        StatusBar.Panels[0].Text := 'Verifica terminata.' ;
      end;
     QListino.Open ;
end;

procedure TAna_listini_form.ArticoliShow(Sender: TObject);
begin
     Qlistino.Active := True ;
end;

procedure TAna_listini_form.ArticoliHide(Sender: TObject);
begin
     Qlistino.Active := False ;
end;

procedure TAna_listini_form.auto_catClick(Sender: TObject);
begin
     ModuloDatiAnagrafiche.AutoListinoCategorie ;
end;

procedure TAna_listini_form.aggiorna_combo;
begin
     Sociale.Items.clear;
     Sociale.Items.add('(Tutti)') ;
     ModuloDatiDocumenti.Soggetti_Ricerca.First;
     while not ModuloDatiDocumenti.Soggetti_Ricerca.Eof do
     begin
          if ModuloDatiAnagrafiche.TTTipiSog.FindKey([ModuloDatiDocumenti.Soggetti_RicercaTiporapporto.AsString]) and
             (ModuloDatiAnagrafiche.TTTipiSogElencaSempre.AsBoolean or
              ModuloDatiAnagrafiche.TTTipisogElencaFornitore.AsBoolean) then
          begin
               Sociale.Items.Add(ModuloDatiDocumenti.Soggetti_RicercaRagionesociale.AsString);
          end;
          ModuloDatiDocumenti.Soggetti_Ricerca.Next;
     end;
     Sociale.ItemIndex := 0 ;
end;

procedure TAna_listini_form.FormCreate(Sender: TObject);
Var
   divisa : string ;
begin
 (*
     If AboutBox.TestVersion('A') or AboutBox.TestVersion('P') then
       DbNavigator.VisibleButtons := [nbFirst,nbPrior,nbNext,nbLast,nbInsert,nbDelete,nbEdit,nbPost,nbCancel,nbRefresh]
     else
       DbNavigator.VisibleButtons := [nbFirst,nbPrior,nbNext,nbLast,nbEdit,nbPost,nbCancel] ;
       *)
     divisa := 'L' ;
     moduloDatiAnagrafiche.LeggiChiave('EURO O LIRE',divisa) ;
     If Divisa = 'L' then
      C_valuta.ItemIndex := 0
     else
      C_Valuta.ItemIndex := 1 ;
     CambiaValuta ;
     aggiorna_combo;
end;

procedure TAna_listini_form.CambiaValuta;
Var
   VediEuro, VediLire : boolean ;
begin

 VediLire := (C_Valuta.ItemIndex = 0) ;
 VediEuro := (C_Valuta.ItemIndex = 1) ;
 AcNL.Visible := VediLire ;
 AcNE.Visible := VediEuro ;
 AcIL.Visible := VediLire ;
 ACIE.Visible := VediEuro ;
 ScNL.Visible := VediLire ;
 ScNE.Visible := VediEuro ;
 ScIL.Visible := VediLire ;
 ScIE.Visible := VediEuro ;
end;


procedure TAna_listini_form.C_ValutaClick(Sender: TObject);
begin
 cambiaValuta ;
end;

procedure TAna_listini_form.C_ValutaExit(Sender: TObject);
begin
 cambiaValuta ;
end;

procedure TAna_listini_form.AvantiExecute(Sender: TObject);
Var
   Oggetto1 : TRxDBCalcEdit ;
   Oggetto2 : TdbEdit ;
begin
     ModuloDatiAnagrafiche.TTArticoli.Next;
     If ActiveControl is TrxDbCalcEdit then
      begin
       Oggetto1 := ActiveControl as TrxDbCalcEdit ;
       Oggetto1.SelectAll ;
      end ;
     If ActiveControl is TdbEdit then
      begin
       Oggetto2 := ActiveControl as TdbEdit ;
       Oggetto2.SelectAll ;
      end ;
end;

procedure TAna_listini_form.IndietroExecute(Sender: TObject);
Var
   Oggetto1 : TRxDBCalcEdit ;
   Oggetto2 : TdbEdit ;
begin
     ModuloDatiAnagrafiche.TTArticoli.Prior;
     If ActiveControl is TrxDbCalcEdit then
      begin
       Oggetto1 := ActiveControl as TrxDbCalcEdit ;
       Oggetto1.SelectAll ;
      end ;
     If ActiveControl is TdbEdit then
      begin
       Oggetto2 := ActiveControl as TdbEdit ;
       Oggetto2.SelectAll ;
      end ;
end;

procedure TAna_listini_form.SocialeChange(Sender: TObject);
begin
     ModuloDatiDocumenti.Soggetti_Ricerca.FindKey([Sociale.text]);
     ModuloDatiAnagrafiche.TTArticoli.Filtered := False;
     ModuloDatiAnagrafiche.TTArticoli.Filter := '[Fornitore] = ''' + ModuloDatiDocumenti.Soggetti_RicercaCodice.AsString + '''';
     ModuloDatiAnagrafiche.TTArticoli.Filtered := True;
end;

procedure TAna_listini_form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 try
  If (ModuloDatiAnagrafiche.TTArticoli.State = dsEdit) or
     (ModuloDatiAnagrafiche.TTArticoli.State = dsInsert) then
     ModuloDatiAnagrafiche.TTArticoli.Post ;
 except
     ModuloDatiAnagrafiche.TTArticoli.Cancel ;
 end ;
 
 try
  If (ModuloDatiAnagrafiche.TTListino.State = dsEdit) or
     (ModuloDatiAnagrafiche.TTListino.State = dsInsert) then
     ModuloDatiAnagrafiche.TTListino.Post ;
 except
     ModuloDatiAnagrafiche.TTListino.Cancel ;
 end ;

end;

procedure TAna_listini_form.FocusExecute(Sender: TObject);
begin
     case Ana_Listini_form.ActiveControl.Tag of
       10 :
        begin
          if ModuloDatiAnagrafiche.TTListinoFormulaRSNIV.AsString = 'A' then
             Ricarico_edit.SetFocus;
          if ModuloDatiAnagrafiche.TTListinoFormulaRSNIV.AsString = 'B' then
             Ricarico_edit.SetFocus;
          if ModuloDatiAnagrafiche.TTListinoFormulaRSNIV.AsString = 'C' then
             NettoL.SetFocus;
        end;
      else
       VaiAPrezziAcquistoBox ;
     end ;

end;

procedure TAna_listini_form.AggiornaPrezziShow(Sender: TObject);
begin
     Aggiorna_combo;
     if ModuloDatiAnagrafiche.TTArticoli.Filter <> '' then
        ModuloDatiAnagrafiche.TTArticoli.Filtered := True;
     VaiAPrezziAcquistoBox ;
     ModuloDatiAnagrafiche.dsArticoli.AutoEdit := True ;
end;

procedure TAna_listini_form.AggiornaPrezziHide(Sender: TObject);
begin
     ModuloDatiAnagrafiche.TTArticoli.Filtered := False;
end;

procedure TAna_listini_form.VaiAPrezziAcquistoBox;
begin
    case C_Valuta.Itemindex of
     0 :  AcNL.SetFocus;
     1 :  AcNe.SetFocus;
    end ;
end;

procedure TAna_listini_form.EditListinoKeyPress(Sender: TObject;
  var Key: Char);
begin
 if (key >= 'a') and (key <= 'z') then
   key := Chr(Ord(key) - 32) ;
end;

procedure TAna_listini_form.FormDestroy(Sender: TObject);
begin
     ModuloDatiAnagrafiche.TTArticoli.Filtered := False;
     ModuloDatiAnagrafiche.TTArticoli.Filter := '';
end;

procedure TAna_listini_form.AiutoExecute(Sender: TObject);
begin
     menu_form.Aiuto('manuale.pdf',83) ;
end;

procedure TAna_listini_form.AggiornaPrezziExit(Sender: TObject);
var AutoEdit : String ;
begin
  AutoEdit := 'SI' ;
  ModuloDatiAnagrafiche.LeggiChiave('AUTOEDIT',autoedit) ;
  ModuloDatiAnagrafiche.dsArticoli.AutoEdit := (Autoedit = 'SI') ;
end;

end.