'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Function newGUID()
	Dim Guid, RSGUID

  Guid = Server.CreateObject("scriptlet.typelib").Guid
  Guid = Left(Guid, InStr(Guid, "}"))
  newGUID = Guid
  newGUID = Replace(newGUID, "{", "")
  newGUID = Replace(newGUID, "}", "")
  newGUID = Replace(newGUID, "-", "")
  newGUID = LCase(newGUID)
  Set Guid = Nothing
End Function

'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function nz(Value, IfNullValue)
	If IsNull(Value) Then	Nz = IfNullValue Else Nz = Value 
End Function

'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function cSQLString(Value)
  cSQLString = Replace(Value,"'", "''")
End Function

'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function NzEmptyString(Value, IfEmptyValue)
	If cstr(Value) = "" Or cstr(Value) = "0" Then NzEmptyString = IfEmptyValue Else NzEmptyString = Value 
End Function

'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function Iif(Value, TrueValue, FalseValue)
	Value = nz(Value, false)
	If CBool(Value) Then Iif = TrueValue Else Iif = FalseValue
End Function

'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Function Choose(PairKeyValue, Value)
	Dim mArrayKeyValue, mIdx
	
	mArrayKeyValue = Split(PairKeyValue, ";")
	
	For mIdx = 0 to ubound(mArrayKeyValue) Step 2
		if cstr(mArrayKeyValue(mIdx)) = cstr(nz(Value, "")) then 
			Choose = mArrayKeyValue(mIdx + 1) 
			Exit For
		end if
	Next	
End Function
	
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Function CreateOptionList(Source, Value)
	Dim mOptionList, mArraySource, mIdx
	
	If TypeName(Source) = "Recordset" Then
		Do Until Source.EOF
			if cstr(Source(0)) = cstr(nz(Value, "")) then
				mOptionList = mOptionList & "<OPTION selected value=" & Source(0) & ">" & writeHTML(Source(1))					
			else
				mOptionList = mOptionList & "<OPTION value=" & Source(0) & ">" & writeHTML(Source(1))					
			end if
			Source.MoveNext
		Loop		
	Else
		mArraySource = Split(Source, ";")
		For mIdx = 0 To Ubound(mArraySource) Step 2
			If cstr(mArraySource(mIdx)) = cstr(nz(Value, "")) Then
				mOptionList = mOptionList & "<OPTION selected value=" & mArraySource(mIdx) & ">" & writeHTML(mArraySource(mIdx + 1))		
			Else
				mOptionList = mOptionList & "<OPTION value=" & mArraySource(mIdx) & ">" & writeHTML(mArraySource(mIdx + 1))		
			End If
		Next	
	End If

	CreateOptionList = mOptionList
End Function

'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Function WriteHTML(TextValue)
	If Len(TextValue) = 0 Or IsNull(TextValue) Then WriteHTML = "" Else WriteHTML = Trim(Server.HTMLEncode(TextValue))
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/

'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function GetQueryString(QueryString, ExcludeKeys)
	Dim mNewQueryString, mQueryStringArray, mCurrentKeyValue, mExclude
	Dim xI, yI
	
	mQueryStringArray = Split(cstr(QueryString), "&")
	
	For xI = 0 to ubound(mQueryStringArray)
		mCurrentKeyValue = Split(mQueryStringArray(xI), "=")
		mExclude = false
		For yI = 0 to Ubound(ExcludeKeys)			
			If lcase(ExcludeKeys(yI)) = lcase(mCurrentKeyValue(0)) Then
				mExclude = true
				exit for
			End If		
		Next
		
		if not mExclude then
			if mNewQueryString <> "" then mNewQueryString = mNewQueryString & "&"
			mNewQueryString	= mNewQueryString & mCurrentKeyValue(0) & "=" & mCurrentKeyValue(1)
		end if
	Next
	
	if mNewQueryString <> "" then
		GetQueryString = mNewQueryString
	else
		GetQueryString = "1=1"
	end if
End Function

'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function BETWEEN(value, valueC1, valueC2)
	BETWEEN = (value >= valueC1 and value <= valueC2)
End Function

'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function ApplyOrderBy(fieldDefault, rOrderBy, rLastOrderBy, mLastOrderBy, mOrderByStatement, mOrderBy, OrderPicture)
	If rOrderBy <> "" Then
		If rOrderBy = rLastOrderBy Then
			mLastOrderBy = ""
			mOrderByStatement = rOrderBy & " DESC"
			OrderPicture = "<IMG SRC='http://" & Request.ServerVariables("HTTP_HOST") & "/" & Application("application.rootname") & "/images/icons/ico_desc.gif' border=0 align=absmiddle>" 
		Else
			mLastOrderBy = rOrderBy
			mOrderByStatement = rOrderBy
			OrderPicture = "<IMG SRC='http://" & Request.ServerVariables("HTTP_HOST") & "/" & Application("application.rootname") & "/images/icons/ico_asc.gif' border=0 align=absmiddle>"
		End If
		mOrderBy = rOrderBy
	Else
		mLastOrderBy = fieldDefault
		mOrderByStatement = fieldDefault
		
		If InStr(1,fieldDefault," DESC") Then
			OrderPicture = "<IMG SRC='http://" & Request.ServerVariables("HTTP_HOST") & "/" & Application("application.rootname") & "/images/icons/ico_desc.gif' border=0 align=absmiddle>"
		Else
			OrderPicture = "<IMG SRC='http://" & Request.ServerVariables("HTTP_HOST") & "/" & Application("application.rootname") & "/images/icons/ico_asc.gif' border=0 align=absmiddle>" 
		End If
		 
		mOrderBy = fieldDefault
	End If
End Function

'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function ExportToCSV(rs, Fields, Headers, Format, Specials)
	Dim fd
	Dim mRow
	Dim mBody
	Dim mValue

	For mIdx = 0 To UBound(Headers)
	    If mRow <> "" Then mRow = mRow & ","
	    If OnlySeparationText Then
	      mRow = mRow & Headers(mIdx)
	    Else
	      mRow = mRow & """" & Headers(mIdx) & """"
	    End If    
	Next

	mBody = mBody & mRow
	mRow = ""

	rs.MoveFirst
	Do Until rs.EOF
	    For mIdx = 0 To UBound(Fields)
	        If mRow <> "" Then mRow = mRow & ","
					mValue = nz(rs(Fields(mIdx)), "")
	        
	        if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateTime(mValue, 2)
	        if Format(mIdx) = "3" And nz(mValue, "") <> "" then mValue = FormatNumber(mValue, 2)
	        
	        mRow = mRow & """" & Replace(Replace(Replace(mValue, vbCrLf, ""), vbCr, ""), vbLf, "") & """"
	    Next
	    
	    mBody = mBody & vbCrLf
	    mBody = mBody & mRow
	       
	    mRow = ""
	    rs.MoveNext
	Loop

	ExportToCSV = mBody
End Function

'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function ExportToOfficeS(rs, Fields, Headers, Format, Language)
	Dim mBody
	Dim mValue
	Dim cadena(11)
	Dim invoce
	Dim contador
	
	contador=1
	invoice=""

	rs.MoveFirst
	Do Until rs.EOF
	  contador=1
	  For mIdx = 0 To UBound(Fields)
	    	mValue = nz(rs(Fields(mIdx)), "")
	        
	      if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateTime(mValue, 2)
	      if Format(mIdx) = "3" And nz(mValue, "") <> "" then 
					mValue = FormatNumber(mValue, 2)
					if Language = "es" Then mValue = Replace(mValue, ".", ",")
		  end if
		  if Format(mIdx) = "4" And nz(mValue, "") <> "" then 
					mValue = FormatNumber(mValue, 3)
					if Language = "es" Then mValue = Replace(mValue, ".", ",")
		  end if

		  cadena(contador)= mValue
		  contador=contador+1
	  Next
	  invoice=invoice & " / " & cadena(7)
	  rs.MoveNext
	Loop

	mBody = "<table border='2' cellpadding='0' cellspacing='0'><col width='110'><col width='139'><col width='80'>"
	mBody = mBody & "<tr height='17'><td height='17' width='110'></td><td width='139'></td><td width='80'>"
	mBody = mBody & "</td></tr><tr height='21'><td height='21' width='110'>ETD</td>"
	mBody = mBody & "<td width='139'>" & cadena(1) & "</td><td></td></tr><tr height='42'>"
	mBody = mBody & "<td height='42' width='110'>AWB Number</td><td width='139'>" & cadena(2) & "</td><td>&nbsp;</td>"
	mBody = mBody & "</tr><tr height='84'><td height='84' width='110'>Insurance Value / Amount of Insurance $</td>"
	mBody = mBody & "<td width='139'>" & cadena(3) & "</td><td>&nbsp;</td></tr><tr height='21'>"
	mBody = mBody & "<td height='21' width='110'>Airline Name</td><td width='139'>" & cadena(4) & "</td>"
	mBody = mBody & "<td>&nbsp;</td></tr><tr height='21'><td height='21' width='110'>Flight No</td>"
	mBody = mBody & "<td width='139'>" & cadena(5) & "</td><td>&nbsp;</td></tr><tr height='21'>"
	mBody = mBody & "<td height='21' width='110'>Airline Name</td><td width='139'>" & cadena(6) & "</td>"
	mBody = mBody & "<td>&nbsp;</td></tr><tr height='84'><td height='84' width='110'>Invoices Numbers</td>"
	mBody = mBody & "<td width='139'>" & invoice & "</td><td></td></tr><tr height='21'>"
	mBody = mBody & "<td height='21' width='110'>Seguro</td><td width='139'>" & cadena(8) & "</td><td>&nbsp;</td>"
	mBody = mBody & "</tr><tr height='42'><td height='42' width='110'>AWB Number</td>"
	mBody = mBody & "<td width='139'>" & cadena(9) & "</td><td></td></tr><tr height='42'>"
	mBody = mBody & "<td height='42' width='110'>Gross Weight Kg</td><td width='139'>" & cadena(10) & "</td><td>"
	mBody = mBody & "</td></tr><tr height='21'><td height='21' width='110'>Total Cases</td>"
	mBody = mBody & "<td width='139'>" & cadena(11) & "</td><td></td></tr><tr height='17'>"
	mBody = mBody & "<td colspan='2' height='17'>&nbsp;</td><td></td></tr></table>"

	ExportToOfficeS = mBody
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function ExportToOfficeLG(rs, Fields, Headers, Format, Language)
	Dim fd
	Dim mRow
	Dim mBody
	Dim mValue

	mBody = mBody & "<table cellspacing='0' cellpadding='3' rules='all' bordercolor='#999999' border='1' id='dgExport' style='background-color:White;border-color:#999999;border-width:1px;border-style:None;font-family:Arial;font-size:12px;border-collapse:collapse;'>"
	mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
	For mIdx = 0 To UBound(Headers)
		mRow = mRow & "<td style='background-color:Silver'>" & Headers(mIdx) & "</td>"
	Next

	mBody = mBody & mRow & "</tr>"
	mRow = ""



	rs.MoveFirst
	Do Until rs.EOF
		mBody = mBody & "<tr>"
	  
	  For mIdx = 0 To UBound(Fields)
	    	mValue = nz(rs(Fields(mIdx)), "")
	        
	      if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateTime(mValue, 2)
	      if Format(mIdx) = "3" And nz(mValue, "") <> "" then 
					mValue = FormatNumber(mValue, 2)
					if Language = "es" Then mValue = Replace(mValue, ".", ",")
		  end if
		  if Format(mIdx) = "4" And nz(mValue, "") <> "" then 
					mValue = FormatNumber(mValue, 3)
					if Language = "es" Then mValue = Replace(mValue, ".", ",")
		  end if
	        
	      mRow = mRow & "<td>" & mValue & "</td>"
	  Next
	  
	  mBody = mBody & mRow & "</tr>"
	  mRow = ""
	  rs.MoveNext
	Loop

	ExportToOffice = mBody
End Function

'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function ExportToOffice(rs, Fields, Headers, Format, Language)
	Dim fd
	Dim mRow
	Dim mBody
	Dim mValue

	mBody = mBody & "<table cellspacing='0' cellpadding='3' rules='all' bordercolor='#999999' border='1' id='dgExport' style='background-color:White;border-color:#999999;border-width:1px;border-style:None;font-family:Arial;font-size:12px;border-collapse:collapse;'>"
	mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
	For mIdx = 0 To UBound(Headers)
		mRow = mRow & "<td style='background-color:Silver'>" & Headers(mIdx) & "</td>"
	Next

	mBody = mBody & mRow & "</tr>"
	mRow = ""

	rs.MoveFirst
	Do Until rs.EOF
		mBody = mBody & "<tr>"
	  
	  For mIdx = 0 To UBound(Fields)
	    	mValue = nz(rs(Fields(mIdx)), "")
	        
	      if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateTime(mValue, 2)
	      if Format(mIdx) = "3" And nz(mValue, "") <> "" then 
					mValue = FormatNumber(mValue, 2)
					if Language = "es" Then mValue = Replace(mValue, ".", ",")
		  end if
		  if Format(mIdx) = "4" And nz(mValue, "") <> "" then 
					mValue = FormatNumber(mValue, 3)
					if Language = "es" Then mValue = Replace(mValue, ".", ",")
		  end if
	        
	      mRow = mRow & "<td>" & mValue & "</td>"
	  Next
	  
	  mBody = mBody & mRow & "</tr>"
	  mRow = ""
	  rs.MoveNext
	Loop

	ExportToOffice = mBody
End Function

'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function ExportToOfficeCustomize(rs, Fields, Headers, Format, Language, Customize)
	
	Select Case Customize
		Case 1
			ExportToOfficeCustomize = processExportOfficeInvoiceEx(rs, Fields, Headers, Format, Language)
		Case 2
			ExportToOfficeCustomize = processExportOfficePersonEx(rs, Fields, Headers, Format, Language)
		Case 3
			ExportToOfficeCustomize = processExportOfficeControlLocationEx(rs, Fields, Headers, Format, Language)
		Case 4
			ExportToOfficeCustomize = processExportOfficeSSFromCasesEx(rs, Fields, Headers, Format, Language)
		Case 5
			ExportToOfficeCustomize = processExportOfficeWorkSheet(rs, Fields, Headers, Format, Language)
		Case 6
			ExportToOfficeCustomize = processExpOfficeCasesVerReport(rs, Fields, Headers, Format, Language)
		Case 7
			ExportToOfficeCustomize = processExpOfficeWHReport(rs, Fields, Headers, Format, Language)
	End Select

End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function processExpOfficeCasesVerReport(rs, Fields, Headers, Format, Language)
	Dim fd
	Dim mRow, mRowHeader
	Dim mBody
	Dim mValue
	Dim mIntoPart1, mIntoPart2, mIntoPart3
	Dim mShowReportPart1, mShowReportPart2, mShowReportPart3, mShowReportPart4

	Dim urlImg
	urlImg = "http://" & Request.ServerVariables("HTTP_HOST") & "/" & Application("application.rootname")
	
	mBody = mBody & "<table cellspacing='0' cellpadding='3' rules='all' bordercolor='#999999' border='1' id='dgExport' style='background-color:White;border-color:#999999;border-width:1px;border-style:None;font-family:Arial;font-size:12px;border-collapse:collapse;'>"
	mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"

	mShowReportPart1 = False
	mShowReportPart2 = False
	mShowReportPart3 = False
	mShowReportPart4 = False
	mIntoPart2 = False
	mIntoPart3 = False
	mIntoPart1 = False
	
	Dim mPart1Count, mPart2Count
	mPart1Count = 0
	mPart2Count = 0
	
	rs.MoveFirst
	Do Until rs.EOF
	
		If rs("reportPart") = 1 Then
			Dim mLastInvoiceNumber
			
			If Not mShowReportPart1 Then
				For mIdx = 0 To UBound(Headers)
					If Not Headers(mIdx) = "Pending Cases" Then
						mRowHeader = mRowHeader & "<td style='background-color:Silver'>" & Headers(mIdx) & "</td>"
					End If
				Next
			
				mBody = mBody & mRowHeader & "</tr>"
				mRowHeader = ""
			
				mShowReportPart1 = True
			End If
			
			mBody = mBody & "<tr>"
			
			For mIdx = 0 To UBound(Fields)
				If Not Fields(mIdx) = "pendingCases"  Then
					If Fields(mIdx) = "totalFOB" Then
						If mLastInvoiceNumber <> nz(rs("invoiceNumber"), "") Then	
							mValue = nz(rs(Fields(mIdx)), "")
			  
							if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateTime(mValue, 2)
								
							if Format(mIdx) = "3" And nz(mValue, "") <> "" then 
								mValue = FormatNumber(mValue, 2)
								
								if Language = "es" Then mValue = Replace(mValue, ".", ",")
							End If
							
						Else
							mValue = ""
						end if
						
						mLastInvoiceNumber = nz(rs("invoiceNumber"), "")
					Else
						mValue = nz(rs(Fields(mIdx)), "")
			  
						if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateTime(mValue, 2)
							
						if Format(mIdx) = "3" And nz(mValue, "") <> "" then 
							mValue = FormatNumber(mValue, 2)
							if Language = "es" Then mValue = Replace(mValue, ".", ",")
						end if
					End If
					
					mRow = mRow & "<td>" & mValue & "</td>"
				End If				
			Next	
			
			mBody = mBody & mRow & "</tr>"
			mRow = ""
			mPart1Count = mPart1Count + 1
		End If
		
		If mShowReportPart1 And rs("reportPart") <> 1 Then
			mIntoPart1 = true
			mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
			mBody = mBody & "<td align=right style=''></td>"
			mBody = mBody & "<td align=right style=''></td>"
			mBody = mBody & "<td width=120 align=right style=''>=" & mCountIfName & "(C8:C" & (mPart1Count + 7) & ", " & chr(34) & "<> null" & chr(34) & ")</td>"
			mBody = mBody & "<td align=right style=''></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'>TOTAL :</td>"
			mBody = mBody & "<td width=120 align=right style=''>=" & mSumName & "(G8:G" & (mPart1Count + 7) & ")</td>"
			mBody = mBody & "<td width=120 align=right style=''>=" & mSumName & "(H8:H" & (mPart1Count + 7) & ")</td>"
			mBody = mBody & "<td width=120 align=right style=''>=" & mSumName & "(I8:I" & (mPart1Count + 7) & ")</td>"
			mBody = mBody & "<td width=120 align=right style=''>=" & mSumName & "(J8:J" & (mPart1Count + 7) & ")</td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "</tr>"
		End If
				
		If rs("reportPart") = 2 Then
			Dim mLastTransDocNumber
			mIntoPart2 = true
			mShowReportPart1 = false
			
			If Not mShowReportPart2 Then
				mBody = mBody & "</table>"
				mBody = mBody & "<table>"
				mBody = mBody & "<tr></tr>"
				mBody = mBody & "<tr>"
				mBody = mBody & "<td colspan=3 style='font-weight:bold;font-size: 12pt;'>Pending Cases to Complete Shipments</td>"
				mBody = mBody & "</tr>"
				mBody = mBody & "<tr></tr>"
				mBody = mBody & "</table>"
				
				mBody = mBody & "<table cellspacing='0' cellpadding='3' rules='all' bordercolor='#999999' border='1' id='dgExport' style='background-color:White;border-color:#999999;border-width:1px;border-style:None;font-family:Arial;font-size:12px;border-collapse:collapse;'>"
				mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
				
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>MAWB No.</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>HAWB No.</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Pending Cases</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Cases</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Invoice No.</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Weight Lb.</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Weight Kg.</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Volume MT3</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver;'>Dimensions Inches LxHxW</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Case Type</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Reposition Types</td>"					

				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Dealer</td>"
'	Ebert 14/01/2009 Inicio				
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Dealer Code</td>"
'	Ebert 14/01/2009 Fin				
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Cargo Type</td>"				
				mBody = mBody & mRowHeader & "</tr>"
				mRowHeader = ""
		
				mShowReportPart2 = True
			End If
			
			mBody = mBody & "<tr>"
			

			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("masterDocumentNo"), "")
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("transportDocumentNo"), "")
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			If mLastTransDocNumber <> nz(rs("transportDocumentNo"), "") Then	mValue = nz(rs("pendingCases"), "") Else mValue = ""
			mRow = mRow & "<td style='color:red;font-weight:bolder'>" & mValue & "</td>"
			mLastTransDocNumber = nz(rs("transportDocumentNo"), "")
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("caseNumber"), "")
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("invoiceNumber"), "")
			mLastInvoiceNumber = mValue
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("grossLbs"), "")
			If nz(mValue, "") <> "" Then mValue = FormatNumber(mValue, 2)
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("grossKg"), "")
			If nz(mValue, "") <> "" Then mValue = FormatNumber(mValue, 2)
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("cubitMt"), "")
			If nz(mValue, "") <> "" Then mValue = FormatNumber(mValue, 2)
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			
			
			if nz(rs("lengthInches"), "") <> "" and nz(rs("heightInches"), "") <> "" and nz(rs("widthInches"), "") <> "" then
				mValue = FormatNumber(rs("lengthInches"), 2) & " x " & FormatNumber(rs("heightInches"), 2) & FormatNumber(rs("widthInches"), 2)
			else
				mValue = ""
			end if
			
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("caseType"), "")
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("repositionTypes"), "")
			mRow = mRow & "<td>" & mValue & "</td>"

			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("dealerName"), "")
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'	Ebert 14/01/2009 Inicio			
			mValue = nz(rs("dealerCode"), "")
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'	Ebert 14/01/2009 Fin			
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("cargoType"), "")
			mRow = mRow & "<td>" & mValue & "</td>"
			
			
			mBody = mBody & mRow & "</tr>"
			mRow = ""
			mPart2Count = mPart2Count + 1
		End If
		
		If mShowReportPart2 And rs("reportPart") <> 2 Then
			mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
			mBody = mBody & "<td align=right style=''></td>"
			mBody = mBody & "<td align=right style=''></td>"
			mBody = mBody & "<td width=120 align=right style='color:red;font-weight:bolder'>=" & mSumName & "(C" & (mPart1Count + 13) & ":C" & (mPart1Count + mPart2Count + 12) & ")</td>"
			mBody = mBody & "<td align=right style=''></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'>TOTAL :</td>"
			mBody = mBody & "<td width=120 align=right style=''>=" & mSumName & "(F" & (mPart1Count + 13) & ":F" & (mPart1Count + mPart2Count + 12) & ")</td>"
			mBody = mBody & "<td width=120 align=right style=''>=" & mSumName & "(G" & (mPart1Count + 13) & ":G" & (mPart1Count + mPart2Count + 12) & ")</td>"
			mBody = mBody & "<td width=120 align=right style=''>=" & mSumName & "(H" & (mPart1Count + 13) & ":H" & (mPart1Count + mPart2Count + 12) & ")</td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "</tr>"
		End If
		
		If rs("reportPart") = 3 Then
			mShowReportPart2 = false
			mShowReportPart1 = false
			mIntoPart3 = true
		
			If Not mShowReportPart3 Then
				mBody = mBody & "</table>"
				mBody = mBody & "<table>"
				mBody = mBody & "<tr></tr>"
				mBody = mBody & "<tr>"
				mBody = mBody & "<td colspan=3 style='font-weight:bold;font-size: 12pt;'>Cases Without Shipments</td>"
				mBody = mBody & "</tr>"
				mBody = mBody & "<tr></tr>"
				mBody = mBody & "</table>"
				
				mBody = mBody & "<table cellspacing='0' cellpadding='3' rules='all' bordercolor='#999999' border='1' id='dgExport' style='background-color:White;border-color:#999999;border-width:1px;border-style:None;font-family:Arial;font-size:12px;border-collapse:collapse;'>"
				mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
				
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Cases</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Invoice No.</td>"

				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Weight Lb.</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Weight Kg.</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Volume MT3</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver;'>Dimensions Inches LxHxW</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Case Type</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Reposition Types</td>"
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Dealer</td>"
'	Ebert 14/01/2009 Inicio				
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Dealer Code</td>"				
'	Ebert 14/01/2009 Fin				
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Cargo Type</td>"
				
				
				mBody = mBody & mRowHeader & "</tr>"
				mRowHeader = ""
			
				mShowReportPart3 = True
			End If
			
			mBody = mBody & "<tr>"

			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("caseNumber"), "")
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("invoiceNumber"), "")
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("grossLbs"), "")
			If nz(mValue, "") <> "" Then mValue = FormatNumber(mValue, 2)
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("grossKg"), "")
			If nz(mValue, "") <> "" Then mValue = FormatNumber(mValue, 2)
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("cubitMt"), "")
			If nz(mValue, "") <> "" Then mValue = FormatNumber(mValue, 2)
			mRow = mRow & "<td>" & mValue & "</td>"

			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			
			
			if nz(rs("lengthInches"), "") <> "" and nz(rs("heightInches"), "") <> "" and nz(rs("widthInches"), "") <> "" then
				mValue = FormatNumber(rs("lengthInches"), 2) & " x " & FormatNumber(rs("heightInches"), 2) & FormatNumber(rs("widthInches"), 2)
			else
				mValue = ""
			end if
			
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("caseType"), "")
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("repositionTypes"), "")
			mRow = mRow & "<td>" & mValue & "</td>"			
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("dealerName"), "")
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'	Ebert 14/01/2009 Inicio			
			mValue = nz(rs("dealerCode"), "")
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'	Ebert 14/01/2009 Fin
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("cargoType"), "")
			mRow = mRow & "<td>" & mValue & "</td>"


			
			
			mBody = mBody & mRow & "</tr>"
			mRow = ""
		End If
		
		If rs("reportPart") = 4 Then
		
			mShowReportPart2 = false
			mShowReportPart1 = false
		
			If Not mShowReportPart4 Then
				mBody = mBody & "</table>"
				mBody = mBody & "<table>"
				mBody = mBody & "<tr></tr>"
				mBody = mBody & "<tr>"
				mBody = mBody & "<td colspan=3 style='font-weight:bold;font-size: 12pt;'>Unidentified Cases by ALS</td>"
				mBody = mBody & "</tr>"
				mBody = mBody & "<tr></tr>"
				mBody = mBody & "</table>"
				
				mBody = mBody & "<table cellspacing='0' cellpadding='3' rules='all' bordercolor='#999999' border='1' id='dgExport' style='background-color:White;border-color:#999999;border-width:1px;border-style:None;font-family:Arial;font-size:12px;border-collapse:collapse;'>"
				mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
				
				mRowHeader = mRowHeader & "<td style='background-color:Silver'>Cases</td>"
				
				mBody = mBody & mRowHeader & "</tr>"
				mRowHeader = ""
			
				mShowReportPart4 = True
			End If
			
			mBody = mBody & "<tr>"

			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			mValue = nz(rs("caseNumber"), "")
			mRow = mRow & "<td>" & mValue & "</td>"
			'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
			
			mBody = mBody & mRow & "</tr>"
			mRow = ""
		End If
		
	  rs.MoveNext
	Loop
	If Not mIntoPart1 and mPart1Count > 0 Then
			mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
			mBody = mBody & "<td align=right style=''></td>"
			mBody = mBody & "<td align=right style=''></td>"
			mBody = mBody & "<td width=120 align=right style=''>=" & mCountIfName & "(C8:C" & (mPart1Count + 7) & ", " & chr(34) & "<> null" & chr(34) & ")</td>"
			mBody = mBody & "<td align=right style=''></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'>TOTAL :</td>"
			mBody = mBody & "<td width=120 align=right style=''>=" & mSumName & "(G8:G" & (mPart1Count + 7) & ")</td>"
			mBody = mBody & "<td width=120 align=right style=''>=" & mSumName & "(H8:H" & (mPart1Count + 7) & ")</td>"
			mBody = mBody & "<td width=120 align=right style=''>=" & mSumName & "(I8:I" & (mPart1Count + 7) & ")</td>"
			mBody = mBody & "<td width=120 align=right style=''>=" & mSumName & "(J8:J" & (mPart1Count + 7) & ")</td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "<td width=120 align=right style='font-weight:bold'></td>"
			mBody = mBody & "</tr>"
	End If	

	

	processExpOfficeCasesVerReport = mBody
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function processExportOfficeWorkSheet(rs, Fields, Headers, Format, Language)
	Dim fd
	Dim mRow
	Dim mBody
	Dim mValue

	Dim urlImg
	urlImg = "http://" & Request.ServerVariables("HTTP_HOST") & "/" & Application("application.rootname")
	
	mBody = mBody & "<table cellspacing='0' cellpadding='3' rules='all' bordercolor='#999999' border='1' id='dgExport' style='background-color:White;border-color:#999999;border-width:1px;border-style:None;font-family:Arial;font-size:12px;border-collapse:collapse;'>"
	mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
	For mIdx = 0 To UBound(Headers)
		mRow = mRow & "<td style='background-color:Silver'>" & Headers(mIdx) & "</td>"
	Next

	mBody = mBody & mRow & "</tr>"
	mRow = ""

	rs.MoveFirst
	Do Until rs.EOF
		mBody = mBody & "<tr>"
	  
	  For mIdx = 0 To UBound(Fields)
		  mValue = nz(rs(Fields(mIdx)), "")
		  
			if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateTime(mValue, 2)
				
			if Format(mIdx) = "3" And nz(mValue, "") <> "" then 
				mValue = FormatNumber(mValue, 2)
				
				if Language = "es" Then mValue = Replace(mValue, ".", ",")
					
			end if	
		  
		  If nz(rs("totalPendingCases"), 0) > 0 Then
				mValue = nz(rs("electronic" & Fields(mIdx)), "")
				
				if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateTime(mValue, 2)
				
				if Format(mIdx) = "3" And nz(mValue, "") <> "" then 
					mValue = FormatNumber(mValue, 2)
					
					if Language = "es" Then mValue = Replace(mValue, ".", ",")
						
				end if	
		  End If
		  
		  mRow = mRow & "<td>" & IIF(nz(rs("totalPendingCases"), 0) > 0, "<b>", "") & mValue & IIF(nz(rs("totalPendingCases"), 0) > 0, "</b>", "") & "</td>"
		Next
	  
	  mBody = mBody & mRow & "</tr>"
	  mRow = ""
	  rs.MoveNext
	Loop

	processExportOfficeWorkSheet = mBody
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function processExpOfficeWHReport(rs, Fields, Headers, Format, Language)
	Dim fd
	Dim mRow
	Dim mBody
	Dim mValue

	mBody = mBody & "<table cellspacing='0' cellpadding='3' rules='all' bordercolor='#999999' border='1' id='dgExport' style='background-color:White;border-color:#999999;border-width:1px;border-style:None;font-family:Arial;font-size:12px;border-collapse:collapse;'>"
	mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
	For mIdx = 0 To UBound(Headers)
		mRow = mRow & "<td style='background-color:Silver'>" & Headers(mIdx) & "</td>"
	Next

	mBody = mBody & mRow & "</tr>"
	mRow = ""

	rs.MoveFirst
	Do Until rs.EOF
		mBody = mBody & "<tr>"
	  
	  Dim mLastInvoiceNumber
	  
	  For mIdx = 0 To UBound(Fields)
	      
	    If Fields(mIdx) = "totalFob" Or Fields(mIdx) = "grossKg" Or Fields(mIdx) = "cubitMt" Or Fields(mIdx) = "Volume_Weight" Or Fields(mIdx) = "repositionTypes" Or Fields(mIdx) = "cargoType" Then
				If Fields(mIdx) = "totalFob" Then
					If mLastInvoiceNumber <> nz(rs("invoiceNumber"), "") Then	
						mValue = nz(rs(Fields(mIdx)), "")
						mValue = FormatNumber(mValue, 2)
									
						if Language = "es" Then mValue = Replace(mValue, ".", ",")
					Else
						mValue = ""
					end if
							
					mLastInvoiceNumber = nz(rs("invoiceNumber"), "")
				End If
				
				If Fields(mIdx) = "grossKg" Then
					mValue = nz(rs(Fields(mIdx)), "")
					
					If rs("invoiceCore") Then mValue = ""
					
					If nz(mValue, "") <> "" Then
						mValue = FormatNumber(mValue, 2)
						if Language = "es" Then mValue = Replace(mValue, ".", ",")
					End If
				End If
				
				If Fields(mIdx) = "cubitMt" Then
					mValue = nz(rs(Fields(mIdx)), "")
					
					If rs("invoiceCore") Then mValue = ""
					
					If nz(mValue, "") <> "" Then
						mValue = FormatNumber(mValue, 2)
						if Language = "es" Then mValue = Replace(mValue, ".", ",")
					End If
				End If
				
				If Fields(mIdx) = "Volume_Weight" Then
					mValue = nz(rs(Fields(mIdx)), "")
					
					If rs("invoiceCore") Then mValue = ""
					
					If nz(mValue, "") <> "" Then
						mValue = FormatNumber(mValue, 2)
						if Language = "es" Then mValue = Replace(mValue, ".", ",")
					End If
				End If
				
				If Fields(mIdx) = "repositionTypes" Then
					mValue = nz(rs(Fields(mIdx)), "")
					
					If rs("invoiceCore") Then mValue = nz(rs("repositionTypesInvoice"), "")
				End If
				
				If Fields(mIdx) = "cargoType" Then
					mValue = nz(rs(Fields(mIdx)), "")
					
					If rs("invoiceCore") Then mValue = nz(rs("cargoTypeInvoice"), "")
				End If
			Else
				mValue = nz(rs(Fields(mIdx)), "")
			  
				if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateTime(mValue, 2)
							
				if Format(mIdx) = "3" And nz(mValue, "") <> "" then 
					mValue = FormatNumber(mValue, 2)
					if Language = "es" Then mValue = Replace(mValue, ".", ",")
				end if
			End If
					
			mRow = mRow & "<td>" & mValue & "</td>"
	  Next
	  
	  mBody = mBody & mRow & "</tr>"
	  mRow = ""
	  rs.MoveNext
	Loop

	processExpOfficeWHReport = mBody
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function processExportOfficeWorkSheet(rs, Fields, Headers, Format, Language)
	Dim fd
	Dim mRow
	Dim mBody
	Dim mValue

	Dim urlImg
	urlImg = "http://" & Request.ServerVariables("HTTP_HOST") & "/" & Application("application.rootname")
	
	mBody = mBody & "<table cellspacing='0' cellpadding='3' rules='all' bordercolor='#999999' border='1' id='dgExport' style='background-color:White;border-color:#999999;border-width:1px;border-style:None;font-family:Arial;font-size:12px;border-collapse:collapse;'>"
	mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
	For mIdx = 0 To UBound(Headers)
		mRow = mRow & "<td style='background-color:Silver'>" & Headers(mIdx) & "</td>"
	Next

	mBody = mBody & mRow & "</tr>"
	mRow = ""

	rs.MoveFirst
	Do Until rs.EOF
		mBody = mBody & "<tr>"
	  Dim mLastInvoiceNumber
	  
	  For mIdx = 0 To UBound(Fields)
		  mValue = nz(rs(Fields(mIdx)), "")
		  
			if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateTime(mValue, 2)
				
			if Format(mIdx) = "3" And nz(mValue, "") <> "" then 
				mValue = FormatNumber(mValue, 2)
				
				if Language = "es" Then mValue = Replace(mValue, ".", ",")
					
			end if	
		  
		  If nz(rs("totalPendingCases"), 0) > 0 Then
				mValue = nz(rs("electronic" & Fields(mIdx)), "")
				
				if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateTime(mValue, 2)
				
				if Format(mIdx) = "3" And nz(mValue, "") <> "" then 
					mValue = FormatNumber(mValue, 2)
					
					if Language = "es" Then mValue = Replace(mValue, ".", ",")
						
				end if	
		  End If
		  
		  mRow = mRow & "<td>" & IIF(nz(rs("totalPendingCases"), 0) > 0, "<b>", "") & mValue & IIF(nz(rs("totalPendingCases"), 0) > 0, "</b>", "") & "</td>"
		Next
	  
	  mBody = mBody & mRow & "</tr>"
	  mRow = ""
	  rs.MoveNext
	Loop

	processExportOfficeWorkSheet = mBody
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function processExportOfficeSSFromCasesEx(rs, Fields, Headers, Format, Language)
	Dim fd
	Dim mRow
	Dim mBody
	Dim mValue

	Dim urlImg
	urlImg = "http://" & Request.ServerVariables("HTTP_HOST") & "/" & Application("application.rootname")
	
	mBody = mBody & "<table cellspacing='0' cellpadding='3' rules='all' bordercolor='#999999' border='1' id='dgExport' style='background-color:White;border-color:#999999;border-width:1px;border-style:None;font-family:Arial;font-size:12px;border-collapse:collapse;'>"
	mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
	For mIdx = 0 To UBound(Headers)
		mRow = mRow & "<td style='background-color:Silver'>" & Headers(mIdx) & "</td>"
	Next

	mBody = mBody & mRow & "</tr>"
	mRow = ""

	rs.MoveFirst
	Do Until rs.EOF
		mBody = mBody & "<tr>"
	  
	  For mIdx = 0 To UBound(Fields)
		  mValue = nz(rs(Fields(mIdx)), "")
		  
			if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateTime(mValue, 2)
				
			if Format(mIdx) = "3" And nz(mValue, "") <> "" then 
				mValue = FormatNumber(mValue, 2)
				
				if Language = "es" Then mValue = Replace(mValue, ".", ",")
					
			end if	
		  
		  If Fields(mIdx) = "dimensions" Then
		  	mValue = generateDimesions(rs("lengthInches"), rs("heightInches"), rs("widthInches"))
		  End If
		  
		  mRow = mRow & "<td>" & mValue & "</td>"
		Next
	  
	  mBody = mBody & mRow & "</tr>"
	  mRow = ""
	  rs.MoveNext
	Loop

	processExportOfficeSSFromCasesEx = mBody
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/

Public Function processExportOfficeControlLocationEx(rs, Fields, Headers, Format, Language)
	Dim fd
	Dim mRow
	Dim mBody
	Dim mValue

	Dim urlImg
	urlImg = "http://" & Request.ServerVariables("HTTP_HOST") & "/" & Application("application.rootname")
	
	mBody = mBody & "<table cellspacing='0' cellpadding='3' rules='all' bordercolor='#999999' border='1' id='dgExport' style='background-color:White;border-color:#999999;border-width:1px;border-style:None;font-family:Arial;font-size:12px;border-collapse:collapse;'>"
	mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
	For mIdx = 0 To UBound(Headers)
		mRow = mRow & "<td style='background-color:Silver'>" & Headers(mIdx) & "</td>"
	Next

	mBody = mBody & mRow & "</tr>"
	mRow = ""

	rs.MoveFirst
	Do Until rs.EOF
		mBody = mBody & "<tr>"
	  
	  For mIdx = 0 To UBound(Fields)
		  mValue = nz(rs(Fields(mIdx)), "")
		  
			if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateTime(mValue, 2)
				
			if Format(mIdx) = "3" And nz(mValue, "") <> "" then 
				mValue = FormatNumber(mValue, 2)
				
				if Language = "es" Then mValue = Replace(mValue, ".", ",")
					
			end if	
		  
		  If Fields(mIdx) = "phoneNumber" Then
				mValue = getMainContact(1, rs("phoneCountryCode"), rs("phoneAreaCode"), rs("phoneNumber"), rs("phoneAnnex"), "", "")
		  End If
		  
		  If Fields(mIdx) = "countryName" Then
				mValue = getPersonAddress(rs("address1"), rs("address2"), "", rs("city"), rs("stateName"), rs("countryName"))
		  End If
		        
		  mRow = mRow & "<td>" & mValue & "</td>"
		Next
	  
	  mBody = mBody & mRow & "</tr>"
	  mRow = ""
	  rs.MoveNext
	Loop

	processExportOfficeControlLocationEx = mBody
End Function

'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function processExportOfficePersonEx(rs, Fields, Headers, Format, Language)
	Dim fd
	Dim mRow
	Dim mBody
	Dim mValue

	Dim urlImg
	urlImg = "http://" & Request.ServerVariables("HTTP_HOST") & "/" & Application("application.rootname")
	
	mBody = mBody & "<table cellspacing='0' cellpadding='3' rules='all' bordercolor='#999999' border='1' id='dgExport' style='background-color:White;border-color:#999999;border-width:1px;border-style:None;font-family:Arial;font-size:12px;border-collapse:collapse;'>"
	mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
	For mIdx = 0 To UBound(Headers)
		mRow = mRow & "<td style='background-color:Silver'>" & Headers(mIdx) & "</td>"
	Next

	mBody = mBody & mRow & "</tr>"
	mRow = ""

	rs.MoveFirst
	Do Until rs.EOF
		mBody = mBody & "<tr>"
	  
	  For mIdx = 0 To UBound(Fields)
		  mValue = nz(rs(Fields(mIdx)), "")
		  
			if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateTime(mValue, 2)
				
			if Format(mIdx) = "3" And nz(mValue, "") <> "" then 
				mValue = FormatNumber(mValue, 2)
				
				if Language = "es" Then mValue = Replace(mValue, ".", ",")
					
			end if	
		  
		  If Fields(mIdx) = "phoneNumber" Then
				mValue = getMainContact(rs("ContactMethodTypeFormat"), rs("phoneCountryCode"), rs("phoneAreaCode"), rs("phoneNumber"), rs("phoneAnnex"), rs("emailAddress"), rs("webAdddress"))
		  End If
		  
		  If Fields(mIdx) = "countryName" Then
				mValue = getPersonAddress(rs("personAddress1"), rs("personAddress2"), rs("personPostalCode"), rs("personAddressCity"), rs("stateName"), rs("countryName"))
		  End If
		        
		  mRow = mRow & "<td>" & mValue & "</td>"
		Next
	  
	  mBody = mBody & mRow & "</tr>"
	  mRow = ""
	  rs.MoveNext
	Loop

	processExportOfficePersonEx = mBody
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function processExportOfficeInvoiceEx(rs, Fields, Headers, Format, Language)
	Dim fd
	Dim mRow
	Dim mBody
	Dim mValue

	Dim urlImg
	urlImg = "http://" & Request.ServerVariables("HTTP_HOST") & "/" & Application("application.rootname")
	
	mBody = mBody & "<table cellspacing='0' cellpadding='3' rules='all' bordercolor='#999999' border='1' id='dgExport' style='background-color:White;border-color:#999999;border-width:1px;border-style:None;font-family:Arial;font-size:12px;border-collapse:collapse;'>"
	mBody = mBody & "<tr align='Center' style='color:Black;border-color:Black;font-weight:bold;'>"
	For mIdx = 0 To UBound(Headers)
		mRow = mRow & "<td style='background-color:Silver'>" & Headers(mIdx) & "</td>"
	Next

	mBody = mBody & mRow & "</tr>"
	mRow = ""

	rs.MoveFirst
	Do Until rs.EOF
		mBody = mBody & "<tr>"
	  
	  For mIdx = 0 To UBound(Fields)
		  mValue = nz(rs(Fields(mIdx)), "")
		  
			if Format(mIdx) = "2" And nz(mValue, "") <> ""  then mValue = FormatDateEx(mValue, 4)
				
			if Format(mIdx) = "3" And nz(mValue, "") <> "" then 
				mValue = FormatNumber(mValue, 2)
				
				if Language = "es" Then mValue = Replace(mValue, ".", ",")
					
			end if	
		  
		  if Format(mIdx) = "4" And nz(mValue, "") <> ""  then mValue = DateName(mValue, 11)
		  'if Format(mIdx) = "5" And nz(mValue, "") <> ""  then mValue = DateName(mValue, 15)
		  If Format(mIdx) = "5" And nz(mValue, "") <> "" Then
			If Language = "es" Then mValue = DateName(mValue, 17)
			If Language = "en" Then mValue = DateName(mValue, 15)
		  End If
		  if Format(mIdx) = "6" And nz(mValue, "") <> ""  then mValue = DateName(mValue, 12)
		  
		  
		  'Begin Customizes Exports
		  'If Fields(mIdx) = "infoStatusID" Then
				
			'	If nz(rs("electronicInvoiceID"), 0) = 0 Then
			'		mValue = "<img SRC='" & urlImg & "/images/icons/norelated.gif' title='No Electronic File Related' border=0 WIDTH='16' HEIGHT='16'>"
			'	Else
			'		If nz(rs(Fields(mIdx)), 0) = 1 Then
			'			mValue = "<img SRC='" & urlImg & "/images/icons/ico_synok.gif' title='Invoice Header Information Synchronized ok' border=0 WIDTH='16' HEIGHT='16'>"
			'		End If
			'		If nz(rs(Fields(mIdx)), 0) = 2 Then
			'			mValue = "<img SRC='" & urlImg & "/images/icons/archivo.gif' title='Electronic Info update available to Invoice Header' border=0 WIDTH='16' HEIGHT='16'>"
			'		End If
			'		If nz(rs(Fields(mIdx)), 0) = 3 Then
			'			mValue = "<img SRC='" & urlImg & "/images/icons/ico_manual.gif' title='Invoice Header Information Manually Updated' border=0 WIDTH='16' HEIGHT='16'>"
			'		End If
			'	End If
			'	
		  'End If
		  
		  'If Fields(mIdx) = "caseSummaryDataFlagID" Then
			'	If nz(rs(Fields(mIdx)), 0) = 0 Then
			'		mValue = "N/A"
			'	End If
			'	
			'	If nz(rs(Fields(mIdx)), 0) = 1 Then
			'		mValue = "<img title='Cases information is synchronized ok' SRC='"  & urlImg & "/images/icons/ico_synok.gif' border=0 WIDTH='16' HEIGHT='16'>"
			'	End If
			'	
			'	If nz(rs(Fields(mIdx)), 0) = 2 Then
			'		mValue = "<img title='Update available to Cases Information' SRC='"  & urlImg & "/images/icons/archivo.gif' border=0 WIDTH='16' HEIGHT='16'>"
			'	End If
			'	
			'	If nz(rs(Fields(mIdx)), 0) = 3 Then
			'		mValue = "<img title='Some Cases have been updated manually' SRC='"  & urlImg & "/images/icons/ico_manual.gif' border=0 WIDTH='16' HEIGHT='16'>"
			'	End If
			'	
			'	If nz(rs(Fields(mIdx)), 0) = 4 Then
			'		mValue = "<img title='Some Cases are not related to an electronic file' SRC='"  & urlImg & "/images/icons/norelated.gif' border=0 WIDTH='16' HEIGHT='16'>"
			'	End If
		  'End If
		  
		  If Fields(mIdx) = "totalPendingCases" Then
				
				mValue = nz(rs(Fields(mIdx)), 0)
				
				If nz(rs(Fields(mIdx)), "") = "" Then
					mValue = "N/A"
				End If
				
		  End If
		        
		  mRow = mRow & "<td>" & mValue & "</td>"
		Next
	  
	  mBody = mBody & mRow & "</tr>"
	  mRow = ""
	  rs.MoveNext
	Loop

	processExportOfficeInvoiceEx = mBody
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Function setHtmlLabelRq(mName, mReq)
	If mReq Then
		setHtmlLabelRq = "<label id='" & mName & "' class='cRField'>&nbsp;</label>"
	Else
		setHtmlLabelRq = "<label id=" & mName & " class=''>&nbsp;</label>"
	End If
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Sub setFreightDescription(mPersonID, mTransportDocumentID, mDescription)
	Dim cm
	Set mRst = CreateObject("ADODB.Recordset")
	Set cm = Server.CreateObject("ADODB.Command")
	
	With cm
		.ActiveConnection = Session("SLIEmployee.connectionstring")
		.CommandText = "upGetFreightDescription"
		.CommandType = 4    
		.Parameters.Refresh
		.Parameters("@transportDocumentID") = mTransportDocumentID
		.Parameters("@personID") = mPersonID
	End With
	
	Set mRst = cm.execute()
	
	If Not mRst.EOF Then mDescription = mRst("freightDescription")
	
End Sub
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Sub setVarsPersonAddressDefault(mPersonID, mCountryID, mAdress1, mAdress2, mCity, mStateName, mStateCode, mPostalCode, mShipperAddress)
	Dim mRst
	Dim mCountryName
	Set mRst = CreateObject("ADODB.Recordset")
	
	mRst.Open "SELECT * FROM viewPersonAddressDefault WHERE personID = " & mPersonID, Session("SLIEmployee.connectionstring")
	
	If Not mRst.EOF Then
		If mRst("countryID") = "" Then
				mCountryID = 0
		Else
				mCountryID = mRst("countryID")
		End If
		If mRst("personAddress1") = "" Then
				mAdress1 = "ppp"
		Else
				mAdress1 = mRst("personAddress1")
		End If
		mAdress2 = mRst("personAddress2")
		mCity = mRst("personAddressCity")
		mStateName = mRst("stateName")
		mStateCode = mRst("stateCode")
		mPostalCode = mRst("personPostalCode")
		mCountryName = mRst("countryName")
		If mRst("personAddress1") = "" Then
			mShipperAddress = "pp"
		Else
			
			mShipperAddress = getPersonAddressShipDoc(mAdress1, mAdress2, mPostalCode, mCity, mStateCode, mStateName, mCountryName)
		End If
	End If
	
	mRst.Close
End Sub
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Sub setPersonContactInfo(mPersonID, mAesContactFirstName, mAesContactMiddleInicial, mAesContactLastName, mAesContactPhone)
	Dim mRst
	Dim mCountryName
	Set mRst = CreateObject("ADODB.Recordset")
	
	mRst.Open "SELECT * FROM Persons WHERE personID = " & mPersonID, Session("SLIEmployee.connectionstring")
	
	If Not mRst.EOF Then
		mAesContactFirstName = nz(mRst("aesContactFirstName"), "")
		mAesContactMiddleInicial = nz(mRst("aesContactMiddleInicial"), "")
		mAesContactLastName = nz(mRst("aesContactLastName"), "")
		mAesContactPhone = nz(mRst("aesContactPhone"), "")
	End If
	
	mRst.Close
End Sub
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Sub setVarPersonContactPhone(mPersonID, mPhone)
	Dim mRst
	Dim mCountryName
	Set mRst = CreateObject("ADODB.Recordset")
	
	mRst.Open "SELECT TOP 1 * FROM viewPersonContactPhone	WHERE personID = " & mPersonID, Session("SLIEmployee.connectionstring")
	
	If Not mRst.EOF Then
		mPhone = nz(mRst("phoneNumber"), "")
	End If
	
	mRst.Close
	Set mRst = nothing
End Sub