ACKnowledgement messages

[donaldadams1951]

Do you have any examples or samples of creating an ACK message?

[admin]

hi,
sample:

Code: Select all

procedure TForm1.bGenAckClick(Sender: TObject);
var
  ack : TdiACK_25;
begin
  ack := TdiACK_25.Create;
  ack.MSH.MessageControlID.AsString := 'MsgId';
  ack.MSA.AcknowledgmentCode.AsString:='AA';
  ack.MSA.MessageControlID.AsString:='ID';
  ShowMessage(ack.AsString);
  ack.Free;
end;

Shows:

Code: Select all

MSH|^~\&|||||20160318191429||ACK|MsgId|P|2.5
MSA|AA|ID