ribawizard_u.pas

基于OOP设计的一套较好的ERP系统

                PBImporti.Update;

                TTRiba_fat.next;
           end;

     TTRiba_fat.DisableControls;

     Trb.first;
     PBTotali.Min := 0;
     PBTotali.Max := Trb.RecordCount;

     impbnc := 0;
     BnRb.first;

//Calcoliamo i totali

     //Riferimento := 'Rif.';
     while not Trb.Eof do
           begin
             if not Trb.FieldByName('Dettaglio elaborato').isNull then
                if not Trb.FieldByName('Dettaglio elaborato').Value then
                   begin
                      Drb.CancelRange;
                      Drb.setRange([Trb.FieldByName('Riba').Value],[Trb.FieldByName('Riba').Value]);
                      if Drb.RecordCount > 0 then
                         begin
                              TotaleRb := 0;
                              Riferimento := 'Rif.';
                              while not drb.eof do
                                    begin
                                         TotaleRb := TotaleRb + drb.FieldByName('Importo Riba').Value;
                                         Riferimento := Riferimento + ' Fat. ' + drb.FieldByName('Numero fattura').AsString + ' del ' + drb.FieldByName('Data fattura').AsString;
                                         Drb.next;
                                    end;
                              Trb.edit;
                              Trb.FieldByName('Importo').Value := TotaleRb;
//                              TotaleRb := trunc(TotaleRb);
                              Trb.FieldByName('Importo in lettere').AsString := NumToLet(TotaleRb);
                              impbnc := impBnc + TotaleRb;
                              Trb.Post;
                         end;

                      Trb.edit;
                      Trb.FieldByName('Dettaglio elaborato').Value := True;
                      Trb.FieldByName('Riferimento').Value := Riferimento;

//Banca di appoggio e scelta gruppo

                      if not bnRb.fieldByName('Importo massimo').isNull then
                         if impbnc >= bnRb.fieldByName('Importo massimo').Value then
                            if not bnRb.eof then
                               begin
                                   bnRb.next;
                                   impBnc := 0;
                                   GruppoRiba := NumeraRiba('GR','');
                               end;

                      Trb.FieldByName('Banca appoggio').Value := bnRb.fieldByName('Banca').Value;
                      Trb.FieldByName('Gruppo').Value := GruppoRiba;

                      Trb.Post;

                      PBTotali.Position := Trb.RecNo;
                      PBTotali.Update;
                   end;
                Trb.next;
           end;
     if (TTParDiscoRb.State <> dsEdit) and (TTParDiscoRb.State <> dsInsert) then
       TTParDiscoRb.Edit ;
     TTParDiscoRbGruppo.Value := GruppoRiba ;
     TTParDiscoRb.Post ;

     Trb.close;
     Drb.close;
     num.close;
     Tfat.close;
     sog.close;
     bnRb.close;

end;

procedure TRibaWizard_Form.FormCreate(Sender: TObject);
begin

     PCRiba.ActivePage := tipodoc;

end;

procedure TRibaWizard_Form.DBEdit1Change(Sender: TObject);
begin

     if TTParRibaDal.IsNull or TTParRibaAl.IsNull then
        Avanti_scelta.Enabled := False
     else
        Avanti_scelta.Enabled := True;

end;

procedure TRibaWizard_Form.DBEdit2Change(Sender: TObject);
begin

     if TTParRibaDal.IsNull or TTParRibaAl.IsNull then
        Avanti_scelta.Enabled := False
     else
        Avanti_scelta.Enabled := True;

end;

procedure TRibaWizard_Form.SceltaShow(Sender: TObject);
begin

     Scelta_Label.Font.Style := [fsbold];
     if TTParRibaDal.IsNull or TTParRibaAl.IsNull then
        Avanti_scelta.Enabled := False
     else
        Avanti_scelta.Enabled := True;

end;

procedure TRibaWizard_Form.FattureShow(Sender: TObject);
begin

     if TTRiba_fat.RecordCount > 0 then
        Avanti_fat.Enabled := True
     else
         Avanti_fat.Enabled := False;

     elenco_label.Font.Style := [fsbold];

end;

procedure TRibaWizard_Form.SceltaHide(Sender: TObject);
begin

     Scelta_Label.Font.Style := [];

end;

procedure TRibaWizard_Form.FattureHide(Sender: TObject);
begin

     elenco_label.Font.Style := [];

end;

procedure TRibaWizard_Form.Avanti_SceltaClick(Sender: TObject);
begin

     if (TTParRiba.State = DsEdit) or (TTParRiba.State = DsInsert) then
        TTParRiba.post;

     TTParRiba.edit();
     TTParRibaValuta.value := 'E';
     TTParRiba.post();
//Estrazione fatture da elaborare
     elencoFatture();
     if TTParRibaValuta.AsString <> 'L' then
       begin
         TTRiba_FatTotale.DisplayFormat := '###,###,##0.00' ;
         TTParRibaTotaleRiba.DisplayFormat := '###,###,##0.00' ;
       end ;
     PCRiba.activePage := fatture;

end;

procedure TRibaWizard_Form.SpeedButton3Click(Sender: TObject);
begin

     PCRiba.ActivePage := scelta;

end;

procedure TRibaWizard_Form.FormDestroy(Sender: TObject);
begin

     if (TTParRiba.State = DsEdit) or (TTParRiba.State = DsInsert) then
        TTParRiba.post;
     if (TTModPagRiba.State = DsEdit) or (TTModPagRiba.State = DsInsert) then
        TTModPagRiba.post;
     if (TTBancheRiba.State = DsEdit) or (TTBancheRiba.State = DsInsert) then
        TTBancheRiba.post;
     if (TTRiba_Fat.State = DsEdit) or (TTRiba_Fat.State = DsInsert) then
        TTRiba_Fat.post;
     if (TTSoggetti.State = DsEdit) or (TTSoggetti.State = DsInsert) then
        TTSoggetti.post;
     if (TTRibatipi.State = DsEdit) or (TTRibatipi.State = DsInsert) then
        TTRibatipi.post;
     if (TTPardiscoRb.State = DsEdit) or (TTPardiscoRb.State = DsInsert) then
        TTPardiscoRb.post;

end;

procedure TRibaWizard_Form.AnnullaExecute(Sender: TObject);
begin

     If MessageDlg('Confermi l`interruzione della generazione delle riba?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
          release;

end;

procedure TRibaWizard_Form.ModPagShow(Sender: TObject);
var
   pag : TTable;

begin

     modpag_label.Font.Style := [fsbold];

     pag := TTable.create(self);
     pag.databaseName := 'euro2000';
     pag.TableName := 'ModPag.db';
     pag.open;

     TTModPagRiba.disableControls;

     while not pag.eof do
           begin
                if not TTModPagRiba.findKey([pag.FieldByName('Codice').Value]) then
                   begin
                        TTModPagRiba.insert;
                        TTModPagRibaModalita.value := pag.FieldByName('Codice').Value;
                        TTModPagRibaRibaElettronica.Value := False;
                        TTModPagRiba.post;
                   end;
                pag.next;
           end;

     TTModPagRiba.enableControls;
     TTModPagRiba.first;

     pag.close;

end;

procedure TRibaWizard_Form.ModPagHide(Sender: TObject);
begin

     modpag_label.Font.Style := [];

end;

procedure TRibaWizard_Form.bancaShow(Sender: TObject);
begin

     banca_label.Font.Style := [fsbold];

end;

procedure TRibaWizard_Form.bancaHide(Sender: TObject);
begin

     Banca_label.Font.Style := [];

end;

procedure TRibaWizard_Form.ModPag_AvantiClick(Sender: TObject);
begin

     PCRiba.ActivePage := scelta;

end;

procedure TRibaWizard_Form.Indietro_sceltaClick(Sender: TObject);
begin

     PCRiba.ActivePage := modpag;

end;

procedure TRibaWizard_Form.SpeedButton7Click(Sender: TObject);
begin

     PCRiba.ActivePage := fatture;

end;

procedure TRibaWizard_Form.generazioneShow(Sender: TObject);
begin

     generazione_label.Font.Style := [fsbold];

end;

procedure TRibaWizard_Form.generazioneHide(Sender: TObject);
begin

     generazione_label.Font.Style := [];

end;

procedure TRibaWizard_Form.discoShow(Sender: TObject);
begin

     disco_label.Font.Style := [fsbold];

end;

procedure TRibaWizard_Form.discoHide(Sender: TObject);
begin

     disco_label.Font.Style := [];

end;

procedure TRibaWizard_Form.SpeedButton8Click(Sender: TObject);
begin

     if TTBancheRiba.RecordCount = 0 then
        begin
             showMessage('Attenzione! Non