Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r507 -r510
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 507)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 510)
@@ -645,6 +645,11 @@
   cdsRondAfVhossBatch: TClientDataset;
   antwoordlijnTeller: integer;
   fAgent: TAgent;
+  function HernoemInterneVhossKast(InterneVhossKast: String):String;
+  begin
+    result := StringReplace(InterneVhossKast,'-1','-A',[]);
+    result := StringReplace(result,'-2','-B',[]);
+  end;
 begin
   if (UiContext.BatchId = '') then
     exit;
@@ -659,7 +664,7 @@
     cdsRondAfVhossBatch.CreateDataSet;
     if Response.Header.Status = '200' then begin
       for antwoordlijnTeller := 0 to System.Length(Response.VhossKastenMetAantallen) -1 do begin
-        cdsRondAfVhossBatch.InsertRecord([Response.VhossKastenMetAantallen[antwoordlijnTeller].Vhosskast,
+        cdsRondAfVhossBatch.InsertRecord([HernoemInterneVhossKast(Response.VhossKastenMetAantallen[antwoordlijnTeller].Vhosskast),
                                             strtoint(Response.VhossKastenMetAantallen[antwoordlijnTeller].AantalLades)-strtoint(Response.VhossKastenMetAantallen[antwoordlijnTeller].AantalLadesGescand)
                                             ]);
       end;