-}
-
-
-sub do_update {
- my $query = qq|UPDATE ar SET curr = RTRIM(LTRIM(curr))|;
- do_query($query);
- $query = qq|UPDATE ap SET curr = RTRIM(LTRIM(curr))|;
- do_query($query);
- $query = qq|UPDATE oe SET curr = RTRIM(LTRIM(curr))|;
- do_query($query);
- $query = qq|UPDATE customer SET curr = RTRIM(LTRIM(curr))|;
- do_query($query);
- $query = qq|UPDATE delivery_orders SET curr = RTRIM(LTRIM(curr))|;
- do_query($query);
- $query = qq|UPDATE exchangerate SET curr = RTRIM(LTRIM(curr))|;
- do_query($query);
- $query = qq|UPDATE vendor SET curr = RTRIM(LTRIM(curr))|;
- do_query($query);