Hi Nitin,
ltxtConnectionString := 'Driver={SQL Server};PROVIDER=SQLOLEDB;SERVER=10.10.0.***' +
';DATABASE=OperationProcess;UID=****;PWD=********';
IF ISCLEAR(ADOConnection) THEN
CREATE(ADOConnection,FALSE,TRUE);
ADOConnection.ConnectionString:= ltxtConnectionString;
ADOConnection.Open;
IF ISCLEAR(ADOCommand) THEN
CREATE(ADOCommand,FALSE,TRUE);
VarActiveConnection := ADOConnection;
ADOCommand.ActiveConnection := VarActiveConnection;
ADOCommand.CommandText := 'OperationProcess.dbo.spr_Requisition_CreateTemplateDineInMenu';
ADOCommand.CommandType := 4;
ADOCommand.CommandTimeout := 0;
ADOParameter:=ADOCommand.CreateParameter('@CommissaryLocation',200,1,100,CommissaryLocation);
ADOCommand.Parameters.Append(ADOParameter);
ADOParameter:=ADOCommand.CreateParameter('@OutletList',200,1,100,OutletList);
ADOCommand.Parameters.Append(ADOParameter);
ADOParameter:=ADOCommand.CreateParameter('@ProductionBOM',200,1,100,ProductionBOM);
ADOCommand.Parameters.Append(ADOParameter);
ADOParameter:=ADOCommand.CreateParameter('@success',200,2,100,'');
ADOCommand.Parameters.Append(ADOParameter);
ADOParameter:=ADOCommand.CreateParameter('@msg',200,2,100,'');
ADOCommand.Parameters.Append(ADOParameter);
ADOCommand.Execute;
ltxtResult := FORMAT(ADOCommand.Parameters.Item('@msg').Value);
MESSAGE(ltxtResult);
ltxtResult := FORMAT(ADOCommand.Parameters.Item('@success').Value);
MESSAGE(ltxtResult);
ADOConnection.Close;
CLEAR(ADOConnection);