Help for this page

Select Code to Download

Select or download this

$err = $SiTef->ExecutaLoopAutorizacao( $SiTef, $params, $data );
  while ( $err eq '10000' ) {
...
    
    $err = $SiTef->ExecutaLoopAutorizacao( $SiTef, $params, $data );
  }

Select or download this

my $Status;
my $lblStatus = $mw->Label(-textvariable=>\$Status)->pack();