Devart Forums

Code: Select all

procedure TFrm_ArchivioClienti.My_Save_InfoOrdine;
var Myinfo:TInfoOrdine; MyQ:TUniQuery;
begin
     Myinfo:=TInfoOrdine.Create;
     with Myinfo do
        begin
             idordine:=MySelectedOrder;
             dataordine:=txtdataordine.Date;
             ordidcli:=MySelectedCliente;
             ordidagent:=-1;
             numordine:=txtnumeroordine.Text;
             if(Switchstatoordine.IsChecked) then
                begin
                stato:=0;
                statotxt:='Ordine da Evadere';

                end
             else
               begin
                stato:=1;
                 statotxt:='Ordine Evaso';
               end;
             totaleordine:=0;
        end;
     MyQ:=TUniQuery.Create(self);
     with MyQ do
        begin
            Connection:=mydm.SqlLiteConn;
            close;
            sql.Clear;
            sql.Add('select * from ordine where idordine=:anid');
            ParamByName('anid').Value:=Myinfo.idordine;
            open;
        end;
     if(Myq.RecordCount > 0) then
         begin
               with MyQ do
                   begin
                        edit;

                        FieldByName('dataordine').Value:=Myinfo.dataordine;
                        FieldByName('ordidcli').Value:=Myinfo.ordidcli;
                        FieldByName('ordidagent').Value:=Myinfo.ordidagent;
                        FieldByName('numordine').Value:=Myinfo.numordine;
                        FieldByName('stato').Value:=Myinfo.stato;
                        FieldByName('statotxt').Value:=Myinfo.statotxt;
                        try
                          begin
                              Connection.StartTransaction;
                              Post;
                              Connection.Commit;
                            //  result:=true;
                          end;
                        except on E: Exception do
                            begin
                                if(Connection.InTransaction) then
                                   Connection.Rollback;
                              //  result:=false;
                            end;
                        end;
                   end;
         end;
     Myq.Close;
     Myq.Free;
end;

Code: Select all

function TFrm_ArchivioArticoli.SalvaArticolo: boolean;
var aQ:tuniquery;
begin
    if(MySelectedArticolo > 0) then
        begin
             if(MyDM.SqlLiteConn.Connected = true) then
                 begin
                      aQ:=TUniQuery.Create(self);
                      with aQ do
                         begin
                              Connection:=MyDM.SqlLiteConn;
                              close;
                              sql.Clear;
                              sql.Add('select * from articoli where idarticolo=:anid');
                              ParamByName('anid').Value:=MySelectedArticolo;
                              open;
                              edit;
                              FieldByName('codiceart').Value:=txtcodice.Text;
                              FieldByName('barcodeart').Value:=txtbarcode.Text;
                              FieldByName('descrizione').Value:=txtdescrizione.Text;
                              try
                                begin
                                     FieldByName('prezzoarticolo').Value:=strtofloat(txtprezzo.Text);
                                end;
                              except on E: Exception do
                                  FieldByName('prezzoarticolo').Value:=0;
                              end;

                              try
                                begin
                                     if(comboiva.ItemIndex >=0) then
                                         FieldByName('perceiva').Value:=strtofloat(comboiva.Items[comboiva.ItemIndex]);
                                end;
                              except on E: Exception do
                                  FieldByName('perceiva').Value:=0;
                              end;

                              if(comboiva.ItemIndex >=0) then
                                  FieldByName('perceivatxt').Value:=comboiva.Items[comboiva.ItemIndex];
                              if(SwitchIVA.IsChecked = false) then
                                 FieldByName('isivacompresa').Value:=0
                              else
                                  FieldByName('isivacompresa').Value:=1;

                              FieldByName('um').Value:=txtum.Text;

                              try
                                begin
                                    Connection.StartTransaction;
                                    posT;
                                    Connection.Commit;
                                    result:=true;
                                end;
                              except on E: Exception do
                                  begin
                                      if(Connection.InTransaction) then
                                         Connection.Rollback;
                                      result:=False;
                                  end;
                              end;

                         end;
                 end
             else
                result:=false;
        end
    else
        result:=false;
end;