#!/opt/bin/perl -U


use pal;
package pal;

use File::Copy;

#------------------------------------------------------------------------------
# Setzen globale Variablen
#------------------------------------------------------------------------------

$AB1000_DA = $ENV{ 'AB1000_DA' };
$AB1000_DA || die "Shellvariable AB1000_DA nicht gesetzt\n";
$AB1000_ALL = $ENV{ 'AB1000_ALL' };
$AB1000_ALL || die "Shellvariable AB1000_ALL nicht gesetzt\n";
$LOGNAME       = $ENV{ 'LOGNAME' };       # Login-Name, Sachbearbeiter
$PALTEST = $ENV{ 'PALTEST' };
$ENV{'PAKET'} = ab1000;
$PARAMETER{'LOG_SACHB'} = 0;

$VONDAT=$AB1000_DA . "/artikel";
$BISDAT=$AB1000_DA . "/SICHERUNGEN/artikel" . "." . tb_today() . "_" . "$$";


# Kopiere die Datei in ein Sicherungsverzeichnis:
#copy($VONDAT,$BISDAT) or die "Kopieren der Datei artikel nach $BISDAT fehlgeschlagen"; 


dbopen(ART,"artikel") || msk_message ("Die Datei artikel kann nicht geöffnet werden",2);

setze_artikel();

# ---------------------------------------------------------------------------
# Schliesse die Dateien wieder
# ---------------------------------------------------------------------------
dbclose(ART);
exit(0);


# ---------------------------------------------------------------------------
# Subroutinen
# ---------------------------------------------------------------------------
sub setze_artikel {

      dbunselect( ART);
      dbinitrec(ART);
      dbselinit( ART);
      for ($status = dbfind(ART); $status; $status = dbnext(ART)) {
          next if ($art_vkzuschl_002 == 0 );
	    $art_vkzuschl_002 = 0;	
          print ("Artnummer: $art_nr $art_vkzuschl_001 $art_vkzuschl_002 \n");
          dbupdate(ART);
     }
} # Ende setze_artikel