Index: ProScan/UI/InfoLogScherm.pas
===================================================================
diff -u -r396 -r684
--- ProScan/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 396)
+++ ProScan/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 684)
@@ -32,7 +32,7 @@
     procedure actTerugExecute(Sender: TObject);
   private
     function ToeleveringDataOphalen(): ZoekViaToeleveringResponse;
-    function VhossDataOphalen(): ZoekAlleVhossLadesBijDnaCodeResponse;
+    function VhossDataOphalen(): ZoekAlleDnaCodesDieOpVhossMoetenResponse;
     procedure VulGridMetDnaCodeData(DnaCodes: array of DnaCode);
     procedure GridLeegmaken();
     function GridToontData: boolean;
@@ -72,12 +72,15 @@
 var
   Response: DnaCodeAfmeldenResponse;
   fWaarschuwingModalResult: TModalResult;
+  fAgent: TAgent;
 begin
   Self.ModalResult := mrInfoLog;
   fWaarschuwingModalResult := ToonPopupScherm('Scan ongedaan maken?'+#13#10+sgToeleveringData.Rows[sgToeleveringData.Row][0],'Ja','Nee',14,6,7);
 
   if fWaarschuwingModalResult = mrYes then begin
-    Response := TAgent.Create(UiContext).DnaCodeAfmelden(sgToeleveringData.Rows[sgToeleveringData.Row][2], UiContext.Toelevering, sgToeleveringData.Rows[sgToeleveringData.Row][1], -1,'');
+    fAgent := TAgent.Create(UiContext);
+    Response := fAgent.DnaCodeAfmelden(sgToeleveringData.Rows[sgToeleveringData.Row][2], UiContext.Toelevering, sgToeleveringData.Rows[sgToeleveringData.Row][1], -1,'');
+    fAgent.Free;
     try
       if Response.Header.Status <> '200' then begin
         ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','')
@@ -135,18 +138,23 @@
     btnRechtsOnder.Action := actSchermLinks;
   end;
   lblToelevering.Caption := UiContext.Toelevering;
-  if UiContext.Modus = modusVHOSS then
-    VulGridMetDnaCodeData(VhossDataOphalen().DnaCodes)
-  else
+  if UiContext.Modus = modusVHOSS then begin
+    lblToelevering.Caption := '';
+    sgToeleveringData.Cols[1].Text := 'Toelevering';
+    VulGridMetDnaCodeData(VhossDataOphalen().DnaCodes);
+  end else
     VulGridMetDnaCodeData(ToeleveringDataOphalen().DnaCodes);
   inherited;
 end;
 
 function TfmInfoLogScherm.ToeleveringDataOphalen: ZoekViaToeleveringResponse;
 var
   Response: ZoekViaToeleveringResponse;
+  fAgent: TAgent;
 begin
-  Response := TAgent.Create(UiContext).ZoekViaToelevering(UiContext.Toelevering);
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.ZoekViaToelevering(UiContext.Toelevering);
+  fAgent.Free;
   try
     if Response.Header.Status <> '200' then begin
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','')
@@ -165,23 +173,26 @@
   end;
 end;
 
-function TfmInfoLogScherm.VhossDataOphalen: ZoekAlleVhossLadesBijDnaCodeResponse;
+function TfmInfoLogScherm.VhossDataOphalen: ZoekAlleDnaCodesDieOpVhossMoetenResponse;
 var
-  fZoekAlleVhossLadesBijDnaCodeResponse: ZoekAlleVhossLadesBijDnaCodeResponse;
+  fZoekAlleDnaCodesDieOpVhossMoetenResponse: ZoekAlleDnaCodesDieOpVhossMoetenResponse;
   fAantalGescand: integer;
   fAantalDnaCodes: integer;
   fDnaCodeTeller: integer;
+  fAgent: TAgent;
 begin
-  fZoekAlleVhossLadesBijDnaCodeResponse := TAgent.Create(UiContext).ZoekAlleVhossLadesBijDnaCode(UiContext.LaatsteDnaCode);
+  fAgent := TAgent.Create(UiContext);
+  fZoekAlleDnaCodesDieOpVhossMoetenResponse := fAgent.ZoekAlleDnaCodesDieOpVhossMoeten(UiContext.Pallet);
+  fAgent.Free;
   try
-    if fZoekAlleVhossLadesBijDnaCodeResponse.Header.Status <> '200' then begin
-      ToonPopupScherm(fZoekAlleVhossLadesBijDnaCodeResponse.Header.Omschrijving, 'Probeer opnieuw','')
+    if fZoekAlleDnaCodesDieOpVhossMoetenResponse.Header.Status <> '200' then begin
+      ToonPopupScherm(fZoekAlleDnaCodesDieOpVhossMoetenResponse.Header.Omschrijving, 'Probeer opnieuw','')
     end else begin
       fAantalGescand := 0;
-      fAantalDnaCodes := length(fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes);
+      fAantalDnaCodes := length(fZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes);
       fDnaCodeTeller := 0;
-      while fDnaCodeTeller < length(fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes) do begin
-          if not (fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes[fDnaCodeTeller].ScanTijdstip = nil) then
+      while fDnaCodeTeller < fAantalDnaCodes do begin
+          if not (fZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes[fDnaCodeTeller].ScanTijdstip = nil) then
             fAantalGescand := fAantalGescand + 1;
           fDnaCodeTeller := fDnaCodeTeller + 1;
       end;
@@ -196,7 +207,7 @@
       lblTotaalAantal.Caption := IntToStr(fAantalDnaCodes);
     end;
   finally
-    result := fZoekAlleVhossLadesBijDnaCodeResponse;
+    result := fZoekAlleDnaCodesDieOpVhossMoetenResponse;
   end;
 end;
 
@@ -210,8 +221,14 @@
   for DnaCodeTeller := 0 to length(DnaCodes)-1  do begin
     if (UiContext.InfoLogSchermToonGescand and (DnaCodes[DnaCodeTeller].InitialenScanner <> '')) or
        ((not UiContext.InfoLogSchermToonGescand) and (DnaCodes[DnaCodeTeller].InitialenScanner = '')) then begin
-      sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Add(TCommonFunctions.VerkorteDnaCode(DnaCodes[DnaCodeTeller].DnaCode));
-      sgToeleveringData.Rows[sgToeleveringData.RowCount-1][1] := (DnaCodes[DnaCodeTeller].PalletCode);
+      sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Add(Copy(DnaCodes[DnaCodeTeller].DnaCode,5,3));
+
+      if UiContext.Modus = modusVHOSS then begin
+        sgToeleveringData.Rows[sgToeleveringData.RowCount-1][1] := (DnaCodes[DnaCodeTeller].Toelevering);
+      end else begin
+        sgToeleveringData.Rows[sgToeleveringData.RowCount-1][1] := (DnaCodes[DnaCodeTeller].PalletCode);
+      end;
+
       sgToeleveringData.Rows[sgToeleveringData.RowCount-1][2] := (DnaCodes[DnaCodeTeller].DnaCode);
       sgToeleveringData.RowCount := sgToeleveringData.RowCount + 1;
     end;