ACKnowledgement messages
Posted: Thu Mar 17, 2016 7:53 pm
Do you have any examples or samples of creating an ACK message?
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;Code: Select all
MSH|^~\&|||||20160318191429||ACK|MsgId|P|2.5
MSA|AA|ID