iCIFNo = NLSapp.SQLSelectStatement("SELECT cifno FROM cif WHERE cifnumber = '" & NLSApp.GetField("LOAN_CIFNUMBER") & "'")
sName = NLSapp.SQLSelectStatement("SELECT ISNULL(firstname1, '') + ' ' + ISNULL(lastname1, '') FROM cif WHERE cifno = " & iCIFNo)
iCollateralID = CLng(NLSapp.SQLSelectStatement("SELECT MAX(collateral_id) FROM loanacct_collateral_link WHERE acctrefno = " & NLSapp.GetField("LOAN_REFNO")))
iCollateralVIN = NLSapp.SQLSelectStatement("select VIN From collateral_vehicle,loanacct_collateral_link  WHERE collateral_vehicle.collateral_id = loanacct_collateral_link.collateral_id and acctrefno = " & NLSapp.GetField("LOAN_REFNO"))

sXML = "<NLS CommitBlock=""0"" EnforceTagExistence=""1"">" & CHR(13)
sXML = sXML & "<TASK TaskTemplateName=""REPO"" NLSType=""Loan"" NLSRefno=""" & NLSApp.GetField("LOAN_REFNO") & """ Subject=""REPO - " & sName & """>"  & CHR(10)
sXML = sXML & "<RELATIONSHIPSCODES TMRCode=""REPO DETAILS""/>" & CHR(10)
sXML = sXML & "<RELATIONSHIPSCODES TMRCode=""BORROWER"" ChildRefno=""" & iCIFNo & """/>" & CHR(10)
sXML = sXML & "<RELATIONSHIPSCODES TMRCode=""VEHICLE"" CollateralVIN=""" & iCollateralVIN & """/>" & CHR(10)
sXML = sXML & "</TASK>"  & CHR(10)
sXML = sXML & "</NLS>" & CHR(13)

If Not NLSapp.ImportXMLRecord(sXML) Then
   NLSapp.MessageBox(NLSapp.GetErrorString())
End If