147 Latest/Confirming.resx
View file
@@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABa
FAAAAk1TRnQBSQFMAgEBDgEAARwBAQEcAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
FAAAAk1TRnQBSQFMAgEBDgEAAVwBAQFcAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAAUADAAEBAQABCAYAARAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -217,6 +217,9 @@
<metadata name="tsAutoDial.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>805, 17</value>
</metadata>
<metadata name="tsCustomerLog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>145, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="tsbtnPreviousRecord.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -245,9 +248,6 @@
f7a+C3tGrE7NUx+5erlARl2rGghV+6SNiHjkvQ57vDFfnoIxX+MilCroMd4UAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="tsCustomerLog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>145, 17</value>
</metadata>
<data name="btnLogCall.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@@ -261,6 +261,9 @@
iX8z/uICbNsPickNsJpjBMoAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ttconfirming.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>524, 17</value>
</metadata>
<data name="pctVerified.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
@@ -277,9 +280,6 @@
it+anSDKsEkkiwL8A98hvyr4CZbQ9y2X/hXek2/bP3+BPOnHHDoqAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="ttconfirming.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>524, 17</value>
</metadata>
<metadata name="tsConfirming.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>271, 17</value>
</metadata>
@@ -290,9 +290,9 @@
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACc
FAAAAk1TRnQBSQFMAgEBDwEAASQBAQEkAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAAUADAAEBAQABCAYAARAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAA4
FQAAAk1TRnQBSQFMAgEBEAEAAWQBAQFkAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAAVADAAEBAQABCAYAARQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
@@ -319,69 +319,74 @@
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wYAB/kB/wQAB/srAAL5
BQAC/wH5Av8B7AEAA/sBAAP7BPkHAAH3Ad0dAAL5AQAB/wQAA/8B+QEAAf8BAAEDAvsBAwL7AwAD+QYA
AZIB9wEAAfcaAAL5AQMD/wMAAv8B+QH/AfkDAAL7AQAC+wQAA/kGAAGSAf8B8QH3GQAB+QEABf8CAAH/
AfkB/wEAAf8B+QIAAQMB+wEAAfsFAAT5BQAB/wH2Af8B8QH3GAAB+Qj/AfkCAAL/AfkBAAL5A/sEAAL5
AgAB+QQAAf8B8QL2Af8B8QH3FgAB+Qj/AfkCAAH/AQAB/wH5AQAB+QEAAQMB+wQAAvkDAAL5AgAB/wPx
AfYBAAH/AfEBAAJ0AZoBdBEAAfkBAAb/AfkGAAH5AQAB+QYAAvkEAAL5AQAB/wXxAgAFmgF0EQAB+QIA
BP8C+QEAAv8DAAH5AQAB+QUAAvkFAAL5AQAB9wHxAQABkgLxAgABdAIAApoSAAH5AwAC/wL5AQAE/wIA
AfkBAAH5BAAC+QYAAvkBAAHrAQABkgEAAZIC8QGaAQABdAEAAXQUAAH5AwAC+QEABv8BAAH5AQAC+QIA
AvkHAAH5AgAB/wH2Ad0BkgEAAZIB8QH3AZoBAAF0FQAB+QIAAvkBAAL/AQAD/wEAAfkCAAL5AQAC+QcA
AvkDAAH/AfYB3QGSAQABkgQAAXQVAAP5AgAB/wEAAf4BAAH/AQAC+QMAA/kHAAL5BQAB/wH2Ad0BkgYA
AXQVAAH5BAAB/wEAAf8BAAL5BQAC+QYAA/kGAAH/AfYB3QGSBgAB0hUAAvkDAAH/A/kHAAj5CQAB/wH2
Ad0eAAT5DAAE+VsAB/kLAAMCCQABQAEiCQABARQAAvkC/AMEAgAB+QkAAwIBLQICBgABjgJABwABRQFA
BwACBwIDCQAC+QL8AQAFBAEAAfkHAAECAwABAgItAQIGAAJAASIFAAJABgAEBwQDBQABBAL5AfwDAAEH
BAQB+QEAAfkEAAECBgABAgEtAQIHAAJAAUMDAAJABQAEBwL/BgMDAAEEAfkGAAEHAgQB+QL8AQQB+QIA
AQIBMwECBgABAgEtAQIHAAJAARQBAAJABQABAwIHAv8D+wQDAQAB+wEDAQABBAH5AfwBAAEEAQABBAIA
AQcB+QEAAQQB/AEEAfkBAAECAzMBAgUAAQIBLQECCAAEQAYAAQMC/wL7AQMD+wIDAQAB+wEDAQABAwH5
AQQCAAIEAQABBAEAAfkBBwEAAvwBBAH5AwIBMwMCBAABAgEtAQIJAAJAAUMHAAEHAfsBAwH/AgMD+wED
AQAC+wIDAfkBAAEEAgACBAEAAfkDAAL8AQAB+QIAAQIBMwECBAADAgEtAwIGAAJAAUUBQAgAAQcB+wED
Af8CAwP7AQAC+wIDAfkFAAEEAvkBAAEHAQAB/AEAAfwB+QIAAQIB+gECBQABAgIzAS0BAgYAAkADAAFA
ASIHAAEHAfsBAwH/AQMC+wEHAQAB+wH/AfsB/wH5AQABBAH8AgAC+QEEAQAB/AEEAQAB/AEEAfkCAAEC
AfoBAgYAAQIBMwECBgACQAUAAkAGAAEDAQcD+wIAAQcBAAP7AgAB+QEEAQABBAL5AQQC/AEAAvwBBAEA
AfkDAAECAfoBAgYAAQIGAAJABwACQAQAAwMBAAH7AgMB+wEAAf8C+wMAAfkCAAL5AQAB/AEAAvwBBAIA
AfkEAAECAvoBAgMAAQIHAAJAAUUNAAEDAvsBAwH/AQAB+wH/AvsBAwUAA/kD/AEEBAAC+QUAAgIB+gMC
CAACQA8AAQMB+wP/AfsCAwgAAfkIAAL5CAADAhwAAwMMAAL5BAAD+TkABPkSAAHsKQAC7BUAAewqAAP/
EQAB7AEAAewIAAGnAoYaAAEDCP8EAAfsAfoF7AEAAewKAAHsARQPAAMDAQQEAAEDBf8BAwH/AQMD/wIA
B/8B+gbsBgABhQELAgEBQwEUAYUBXwFmAQABhgMAAgMBAAQEAwACAwEEAwABAwL/AgMD/wEDBP8BAAf/
BPoC7AcAAQsB+QEgAQEBCwHsBAABXwIAAgMCAAEDAQQCAwP7AQMB+wEDAgABAwL/AgMC/wEDBP8DAAr/
AQAB7AEAAewEAAGFAQEBHwHsARcBCwFmBwAB+wEAAQMC+wEDAQABAwECA/sB+gQAAQMBBwP/AQMD/wED
Af8EAAn/AQcCAAH/AewEAAIBARQMAAMDAQAC+wEDAQIBAAH6AQAB+gMAAQMCBwEABP8BAwP/BAAF/wHs
Av8BBwH/AQAC/wHsAgABhQIBARQBpwsABfsBAgH6AQMB+gMCAfoDAAEDAQcDAAb/BQAE/wHsCP8B7AIA
AQEB+QELAewBhgsABfsBAgH6Af8BAwH/BAIDAAEGAf4B/wH+AQYF/wUAA/8B7An/AewCAAEXAgEBAAGG
EAAEAgH/AQMGAAIGAQABBgH+BP8GAAL/AewK/wHsAgABFgH5AQsB7BQAAQIKAAEGAgAE/wYAAf8B7Av/
AewCAAFmAQEBhSQAAv8HAAHsDP8B7CQAAf4B/wH+PQADBlAAAfIB/wgAAaECvAH3AqcBpgGzAtUD1AGy
AccMAAEHGQABeAFPAXIIAAGnAbUBvAG6ARkC2wGLAdsC1QTUAaEJAAMHAuwFAAFAASIJAAEBBQABvANV
AfMLAAK0AtwBtAHbAdUE1AIABP8DAAIHAf8BAAEHA+wCAAGOAkAHAAFFAUAFAAHyA1YCVQsAAdUBzwPc
AdsB1QHbA9QBAAHsAQcBAAEHAQAC/wEAAf8BAAH7AgMBAAEHAewDAAJAASIFAAJABQAB8AHkAZcB5AGY
AlYBvAoAAa0B3AG1AtwBCQLbAtQBrQEAAewB/wEHAv8BBwEAAewBAwH7Af8B+wMDBQACQAFDAwACQAUA
Ae8D5AH0AQAB5AFWAVsB/woAAdwB3QEJAXMBCQGuAdUC1AHHAQAB7AH/AQcC/wH8AQcB7AEDAwcB+wMD
BQACQAEUAQACQAYAAVYBlwHkAf8CAAHxAuQBlwoAAa0B3AFuAksBkgGzAdUBxwIAAewB/wEHAv8B/AH7
AuwBAwIHAewD+wYABEAIAAHzBQAD5AHzCgABbgRLAYYBoQMAAewF/wEHAewBAAEDAvsBAwL7CAACQAFD
DgAB/wPkCgAEdAHqBwAB7AH/AewB/wEHAuwBAAEDAvsBAwHsBwACQAFFAUAPAAEHAVYBlwFzCAABrgKZ
AnQB6gcAA+wBBwXsAQABAQH5AewGAAJAAwABQAEiDgADVgHxBwAB9wKaAZkCdAGGBgAC7AMAAgcE7AEB
AewFAAJABQACQA0AAf8BlwJWAf8GAAGZApoBmQGTAW0BEwcAAQcCAAL/AwcE7AQAAkAHAAJADQAB8QNW
BgAB9wOaAZMCEwgAAewF/wMHAuwDAAJAAUUXAAF4AlYB7QUAAacB6gEcAZkB7AESARQKAAHsBf8DBwHs
AgACQBkAAZcBVQH0BQABpwHsAe0B7AJtAWYMAAHsBf8B7CgAAYYBrgGGAaEPAAPsEwABQgFNAT4HAAE+
AwABKAMAAUADAAFAAwABAQEAAQEGAAECFgAD/wEAAfgBAwGAAT8B8wH/AgAB5wKAAQ8B4QH/AgABwwKA
AcMB4AH/AgABgQGAAcEB4QHwAX8CAAKAAsEB8AE/AgABgAEAAYMBjAHgARgDAAEEAYMBHAHAAwABQAEe
AZ4BPAGAAwABYAEOAZwBfAQAAXABBgGYAfwBAAEDAgABuAECAZEB/AGAAQcCAAGQAQUBgwH4AcABQwIA
AcIBCQHHAfEB4AHxAgAB7wETAeMBwwHwAXkCAAHzAYcB8AEPAfgBfwIAAfwBPwH8AT8B/AH/AgAG/wH4
AQ8B/gE/AecB/QH8Af8B4AE3AfwBDwHHAfMB8AE/AcIBCwH7AYcB4wHnAcABDwEOAQUB7wHHAfEBzwEA
AQMBPwEAAccB4wH4AZ8CAAEVAYABgwHjAfwBPwIAATIBgAEBAeMB/gE/AYABAAFZAWIBxwGAAfwBHwHA
AQABfAEEAccBwQH5Ac8B4AEAAUQBCAHHAeMB8wHnAeABAQGQASIB4wH3AecB8wHAAQMBsAGNAeEB3wHH
Af8BwAEHAcABeQHwAT8BzwH/AeABHwHvAfMB/AF/Av8B+AH/AfMBxwb/AfwBPwH/AecE/wH4AT8B/wHj
BP8B8AEPAf8BAQH+AT8C/wHgAQMBgAEAAf4BDwH/AcEB4AEBAgAB+AECAcABAAHAAgABAQH4ARwBgAEA
AcABAQEAAQEB4AE/AYABAAGAAQMBAAEBAeIB/wGAAQABgAEHAQABAQGDAf8BgAIAAQcBAAEBAYMB/wGA
AQABgAEPAQABAQEDAf8B+AEDAcABDwEAAQEBBwL/AR8BwAEfAQABAQGPA/8B4gEfAQABAQT/AcEBvwEA
AQME/wHBB/8B4wH/AfwB/wEAAQEB3wHHAv8B+AH/AgABjwEBAecB/QHwAX8B8AEBAQMBAAHHAfMB4AF/
AfABAQIAAeMB5wHAAT8B8AEBAgAB8QHPAYIBHwH4AQECAAH4AZ8BhgEfAfgBAwIAAfwBPwHfAQ8B/AEH
AgAB/gE/Af8BDwH8AR8BwAEAAfwBHwH/AYcB+AEfAcABAAH5Ac8B/wHDAfgBDwHAAQAB8wHnAf8BwQH4
AQ8B4AEAAecB8wH/AeEB+AEPAfABAAHHAv8B8AH4AQ8B/AEAAc8C/wL4AQ8B/wEBBP8B/gEfAf8BxwL/
Cw==
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ACgAH+QH/
BAAH+yAAAQIKAAL5BQAC/wH5Av8B7AEAA/sBAAP7BPkHAAH3Ad0TAAICCAAC+QEAAf8EAAP/AfkBAAH/
AQABAwL7AQMC+wMAA/kGAAGSAfcBAAH3EQABAgFPAQIGAAL5AQMD/wMAAv8B+QH/AfkDAAL7AQAC+wQA
A/kGAAGSAf8B8QH3EAABAgJPAQIFAAH5AQAF/wIAAf8B+QH/AQAB/wH5AgABAwH7AQAB+wUABPkFAAH/
AfYB/wHxAfcHAAkCA1UBAgQAAfkI/wH5AgAC/wH5AQAC+QP7BAAC+QIAAfkEAAH/AfEC9gH/AfEB9wYA
AQIMVQECAgAB+Qj/AfkCAAH/AQAB/wH5AQAB+QEAAQMB+wQAAvkDAAL5AgAB/wPxAfYBAAH/AfEBAAJ0
AZoBdAEAAQINnQECAQAB+QEABv8B+QYAAfkBAAH5BgAC+QQAAvkBAAH/BfECAAWaAXQBAAECDp0BAgH5
AgAE/wL5AQAC/wMAAfkBAAH5BQAC+QUAAvkBAAH3AfEBAAGSAvECAAF0AgACmgIAAQIMnQEIAZ0BAgH5
AwAC/wL5AQAE/wIAAfkBAAH5BAAC+QYAAvkBAAHrAQABkgEAAZIC8QGaAQABdAEAAXQDAAECC5gBCAGY
AQICAAH5AwAC+QEABv8BAAH5AQAC+QIAAvkHAAH5AgAB/wH2Ad0BkgEAAZIB8QH3AZoBAAF0BAABAgqY
AQgBmAECAwAB+QIAAvkBAAL/AQAD/wEAAfkCAAL5AQAC+QcAAvkDAAH/AfYB3QGSAQABkgQAAXQDAAkC
AZgBCAGYAQIFAAP5AgAB/wEAAf4BAAH/AQAC+QMAA/kHAAL5BQAB/wH2Ad0BkgYAAXQKAAECApgBAgcA
AfkEAAH/AQAB/wEAAvkFAAL5BgAD+QYAAf8B9gHdAZIGAAHSCQABAgEIAQIJAAL5AwAB/wP5BwAI+QkA
Af8B9gHdEAACAgwABPkMAAT5HgABAjwAB/kLAAMCCQABQAEiCQABARQAAvkC/AMEAgAB+QkAAwIBLQIC
BgABjgJABwABRQFABwACBwIDCQAC+QL8AQAFBAEAAfkHAAECAwABAgItAQIGAAJAASIFAAJABgAEBwQD
BQABBAL5AfwDAAEHBAQB+QEAAfkEAAECBgABAgEtAQIHAAJAAUMDAAJABQAEBwL/BgMDAAEEAfkGAAEH
AgQB+QL8AQQB+QIAAQIBMwECBgABAgEtAQIHAAJAARQBAAJABQABAwIHAv8D+wQDAQAB+wEDAQABBAH5
AfwBAAEEAQABBAIAAQcB+QEAAQQB/AEEAfkBAAECAzMBAgUAAQIBLQECCAAEQAYAAQMC/wL7AQMD+wID
AQAB+wEDAQABAwH5AQQCAAIEAQABBAEAAfkBBwEAAvwBBAH5AwIBMwMCBAABAgEtAQIJAAJAAUMHAAEH
AfsBAwH/AgMD+wEDAQAC+wIDAfkBAAEEAgACBAEAAfkDAAL8AQAB+QIAAQIBMwECBAADAgEtAwIGAAJA
AUUBQAgAAQcB+wEDAf8CAwP7AQAC+wIDAfkFAAEEAvkBAAEHAQAB/AEAAfwB+QIAAQIB+gECBQABAgIz
AS0BAgYAAkADAAFAASIHAAEHAfsBAwH/AQMC+wEHAQAB+wH/AfsB/wH5AQABBAH8AgAC+QEEAQAB/AEE
AQAB/AEEAfkCAAECAfoBAgYAAQIBMwECBgACQAUAAkAGAAEDAQcD+wIAAQcBAAP7AgAB+QEEAQABBAL5
AQQC/AEAAvwBBAEAAfkDAAECAfoBAgYAAQIGAAJABwACQAQAAwMBAAH7AgMB+wEAAf8C+wMAAfkCAAL5
AQAB/AEAAvwBBAIAAfkEAAECAvoBAgMAAQIHAAJAAUUNAAEDAvsBAwH/AQAB+wH/AvsBAwUAA/kD/AEE
BAAC+QUAAgIB+gMCCAACQA8AAQMB+wP/AfsCAwgAAfkIAAL5CAADAhwAAwMMAAL5BAAD+TkABPkSAAHs
KQAC7BUAAewqAAP/EQAB7AEAAewIAAGnAoYaAAEDCP8EAAfsAfoF7AEAAewKAAHsARQPAAMDAQQEAAED
Bf8BAwH/AQMD/wIAB/8B+gbsBgABhQELAgEBQwEUAYUBXwFmAQABhgMAAgMBAAQEAwACAwEEAwABAwL/
AgMD/wEDBP8BAAf/BPoC7AcAAQsB+QEgAQEBCwHsBAABXwIAAgMCAAEDAQQCAwP7AQMB+wEDAgABAwL/
AgMC/wEDBP8DAAr/AQAB7AEAAewEAAGFAQEBHwHsARcBCwFmBwAB+wEAAQMC+wEDAQABAwECA/sB+gQA
AQMBBwP/AQMD/wEDAf8EAAn/AQcCAAH/AewEAAIBARQMAAMDAQAC+wEDAQIBAAH6AQAB+gMAAQMCBwEA
BP8BAwP/BAAF/wHsAv8BBwH/AQAC/wHsAgABhQIBARQBpwsABfsBAgH6AQMB+gMCAfoDAAEDAQcDAAb/
BQAE/wHsCP8B7AIAAQEB+QELAewBhgsABfsBAgH6Af8BAwH/BAIDAAEGAf4B/wH+AQYF/wUAA/8B7An/
AewCAAEXAgEBAAGGEAAEAgH/AQMGAAIGAQABBgH+BP8GAAL/AewK/wHsAgABFgH5AQsB7BQAAQIKAAEG
AgAE/wYAAf8B7Av/AewCAAFmAQEBhSQAAv8HAAHsDP8B7CQAAf4B/wH+PQADBlAAAfIB/wgAAaECvAH3
AqcBpgGzAtUD1AGyAccMAAEHGQABeAFPAXIIAAGnAbUBvAG6ARkC2wGLAdsC1QTUAaEJAAMHAuwFAAFA
ASIJAAEBBQABvANVAfMLAAK0AtwBtAHbAdUE1AIABP8DAAIHAf8BAAEHA+wCAAGOAkAHAAFFAUAFAAHy
A1YCVQsAAdUBzwPcAdsB1QHbA9QBAAHsAQcBAAEHAQAC/wEAAf8BAAH7AgMBAAEHAewDAAJAASIFAAJA
BQAB8AHkAZcB5AGYAlYBvAoAAa0B3AG1AtwBCQLbAtQBrQEAAewB/wEHAv8BBwEAAewBAwH7Af8B+wMD
BQACQAFDAwACQAUAAe8D5AH0AQAB5AFWAVsB/woAAdwB3QEJAXMBCQGuAdUC1AHHAQAB7AH/AQcC/wH8
AQcB7AEDAwcB+wMDBQACQAEUAQACQAYAAVYBlwHkAf8CAAHxAuQBlwoAAa0B3AFuAksBkgGzAdUBxwIA
AewB/wEHAv8B/AH7AuwBAwIHAewD+wYABEAIAAHzBQAD5AHzCgABbgRLAYYBoQMAAewF/wEHAewBAAED
AvsBAwL7CAACQAFDDgAB/wPkCgAEdAHqBwAB7AH/AewB/wEHAuwBAAEDAvsBAwHsBwACQAFFAUAPAAEH
AVYBlwFzCAABrgKZAnQB6gcAA+wBBwXsAQABAQH5AewGAAJAAwABQAEiDgADVgHxBwAB9wKaAZkCdAGG
BgAC7AMAAgcE7AEBAewFAAJABQACQA0AAf8BlwJWAf8GAAGZApoBmQGTAW0BEwcAAQcCAAL/AwcE7AQA
AkAHAAJADQAB8QNWBgAB9wOaAZMCEwgAAewF/wMHAuwDAAJAAUUXAAF4AlYB7QUAAacB6gEcAZkB7AES
ARQKAAHsBf8DBwHsAgACQBkAAZcBVQH0BQABpwHsAe0B7AJtAWYMAAHsBf8B7CgAAYYBrgGGAaEPAAPs
EwABQgFNAT4HAAE+AwABKAMAAUADAAFQAwABAQEAAQEFAAGAAQIWAAP/gQAB+AEDAYABPwHzAv8BfwHn
AoABDwHhAv8BPwHDAoABwwHgAv8BHwGBAYABwQHhAfABfwH/AQ8CgALBAfABPwEAAQcBgAEAAYMBjAHg
ARgBAAEDAQABBAGDARwBwAIAAQEBQAEeAZ4BPAGAAwABYAEOAZwBfAQAAXABBgGYAfwBAAEDAQABAQG4
AQIBkQH8AYABBwEAAQMBkAEFAYMB+AHAAUMBAAEHAcIBCQHHAfEB4AHxAf8BDwHvARMB4wHDAfABeQH/
AR8B8wGHAfABDwH4AX8B/wE/AfwBPwH8AT8B/AL/AX8G/wH4AQ8B/gE/AecB/QH8Af8B4AE3AfwBDwHH
AfMB8AE/AcIBCwH7AYcB4wHnAcABDwEOAQUB7wHHAfEBzwEAAQMBPwEAAccB4wH4AZ8CAAEVAYABgwHj
AfwBPwIAATIBgAEBAeMB/gE/AYABAAFZAWIBxwGAAfwBHwHAAQABfAEEAccBwQH5Ac8B4AEAAUQBCAHH
AeMB8wHnAeABAQGQASIB4wH3AecB8wHAAQMBsAGNAeEB3wHHAf8BwAEHAcABeQHwAT8BzwH/AeABHwHv
AfMB/AF/Av8B+AH/AfMBxwb/AfwBPwH/AecE/wH4AT8B/wHjBP8B8AEPAf8BAQH+AT8C/wHgAQMBgAEA
Af4BDwH/AcEB4AEBAgAB+AECAcABAAHAAgABAQH4ARwBgAEAAcABAQEAAQEB4AE/AYABAAGAAQMBAAEB
AeIB/wGAAQABgAEHAQABAQGDAf8BgAIAAQcBAAEBAYMB/wGAAQABgAEPAQABAQEDAf8B+AEDAcABDwEA
AQEBBwL/AR8BwAEfAQABAQGPA/8B4gEfAQABAQT/AcEBvwEAAQME/wHBB/8B4wH/AfwB/wEAAQEB3wHH
Av8B+AH/AgABjwEBAecB/QHwAX8B8AEBAQMBAAHHAfMB4AF/AfABAQIAAeMB5wHAAT8B8AEBAgAB8QHP
AYIBHwH4AQECAAH4AZ8BhgEfAfgBAwIAAfwBPwHfAQ8B/AEHAgAB/gE/Af8BDwH8AR8BwAEAAfwBHwH/
AYcB+AEfAcABAAH5Ac8B/wHDAfgBDwHAAQAB8wHnAf8BwQH4AQ8B4AEAAecB8wH/AeEB+AEPAfABAAHH
Av8B8AH4AQ8B/AEAAc8C/wL4AQ8B/wEBBP8B/gEfAf8BxwL/Cw==
</value>
</data>
<metadata name="ttconfirming.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>524, 17</value>
</metadata>
<metadata name="ttCustomerHistoryNotes.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>635, 17</value>
</metadata>
188 Latest/Confirming.vb
View file

Large diffs are not rendered by default.

11 Latest/ConfirmingData.vb
View file
@@ -130,7 +130,7 @@ Public Class ConfirmingData
End While
r1.Close()
cnnC.Close()
Confirming.lblConfirmingFiltered.Text = cntRecs.ToString

Dim cnn As SqlConnection = New SqlConnection(STATIC_VARIABLES.Cnn)
Dim param4 As SqlParameter = New SqlParameter("@PLS", PLS)
Dim param5 As SqlParameter = New SqlParameter("@SLS", SLS)
@@ -600,11 +600,12 @@ Public Class ConfirmingData

Dim c As New CustomerHistory
If ID <> "" Then
c.SetUp(Confirming, ID, Confirming.TScboCustomerHistory)
c.SetUp(Confirming.TScboCustomerHistory)
End If

End Sub
Public Sub Confirm(ByVal ID As String, ByVal cmd As String, ByVal spokewith As String, ByVal User As String)

Try
If cmd = "Confirm Appointment" Then
Dim cnn As SqlConnection = New SqlConnection(STATIC_VARIABLES.Cnn)
@@ -623,7 +624,7 @@ Public Class ConfirmingData
cnn.Close()

Dim c As New CustomerHistory
c.SetUp(Confirming, ID, Confirming.TScboCustomerHistory)
c.SetUp(Confirming.TScboCustomerHistory)
ElseIf cmd = "Undo Confirm Appointment" Then

Dim cmdIns As SqlCommand = New SqlCommand("dbo.ConfirmUndo", cnn)
@@ -637,7 +638,7 @@ Public Class ConfirmingData
cnn.Close()

Dim c As New CustomerHistory
c.SetUp(Confirming, ID, Confirming.TScboCustomerHistory)
c.SetUp(Confirming.TScboCustomerHistory)
Else
Exit Sub
End If
@@ -757,7 +758,7 @@ Public Class ConfirmingData

Me.Populate("Dispatch", Confirming.cboSalesPLS.Text, Confirming.cboSalesSLS.Text, Confirming.dpSales.Value.ToString, "Refresh")
Dim c As New CustomerHistory
c.SetUp(Confirming, ID, Confirming.TScboCustomerHistory)
c.SetUp(Confirming.TScboCustomerHistory)
Catch ex As Exception
Main.Cursor = Cursors.Default
Dim y As New ErrorLogging_V2
871 Latest/ConfirmingSingleRecord.Designer.vb
View file

Large diffs are not rendered by default.

520 Latest/ConfirmingSingleRecord.resx
View file

Large diffs are not rendered by default.

944 Latest/ConfirmingSingleRecord.vb
View file

Large diffs are not rendered by default.

9 Latest/CustomerHistory.vb
View file
@@ -16,8 +16,13 @@ Public Class CustomerHistory
Private cnn As SqlConnection = New SqlConnection(STATIC_VARIABLES.CnnCustomerHistory)


Public Sub SetUp(ByVal frm As Form, ByVal ID As Integer, ByVal TScboCustomerHistory As ToolStripComboBox)
Public Sub SetUp(ByVal TScboCustomerHistory As ToolStripComboBox)
Try
Dim ID As String = STATIC_VARIABLES.CurrentID
Dim frm As Form
Dim q As Control
q = TScboCustomerHistory.GetCurrentParent
frm = q.FindForm
Department = TScboCustomerHistory.Text


@@ -389,7 +394,7 @@ Public Class CustomerHistory
Catch ex As Exception
Main.Cursor = Cursors.Default
Dim y As New ErrorLogging_V2
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, "CustomerHistory", "CustomerHistory", "Sub", "SetUp(frm,ID,tscboCustomerHistory)", ID, ex.Message.ToString)
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, "CustomerHistory", "CustomerHistory", "Sub", "SetUp(frm,ID,tscboCustomerHistory)", STATIC_VARIABLES.CurrentID, ex.Message.ToString)
y = Nothing
End Try

2 Latest/EDIT_CUSTOMER_INFORMATION.vb
View file
@@ -585,7 +585,7 @@ Public Class EDIT_CUSTOMER_INFORMATION
Me.Manage = r1.Item("MarketingManager")
Me.PriLS = r1.Item("PrimaryLeadSource")
Me.SecLS = r1.Item("SecondaryLeadSource")


End While
r1.Close()
28 Latest/EditCustomerInfo.designer.vb
View file
2 Latest/EditCustomerInfo.resx
View file
@@ -1300,7 +1300,7 @@
<data name="btnSetAppt2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wQAADsEBuJFr7QAAAH9JREFUOE+1jdEJgEAMQzu6M/jlAH45gGv4448jOIVewEg92lqRexDQNMlJOzo5
wAAADsABataJCQAAAH9JREFUOE+1jdEJgEAMQzu6M/jlAH45gGv4448jOIVewEg92lqRexDQNMlJOzo5
bn2CpV0NpEdYZFmTGuFAFHZv2fLsZd4GWIZGKwdjsw4FeNSkvqHHDweoGnjh62vRYgUu4A/eHWZUBuEA
+FXW1CGW++wAQJDiy+ky0SNtEDkBA8uDvtQWo8AAAAAASUVORK5CYII=
</value>
123 Latest/EditCustomerInfo.vb
View file
@@ -14,6 +14,7 @@ Public Class EditCustomerInfo
Dim eCnt As Integer = 0



Private Sub EditCustomerInfo_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Try
If ID <> "" Then
@@ -38,11 +39,11 @@ Public Class EditCustomerInfo
Me.Close()
Exit Sub
End If
If WhichForm.Name = "Confirming" Then
Me.Label5.Text = "Appt. Info is Read Only, To Move this Appt. for this customer Use Move Appt. Button Provided"
Else
Me.Label5.Text = "Appt. Info is Read Only, To Set New Appt. for this customer Use Set Appt. Button Provided"
End If
'If WhichForm.Name = "Confirming" Then
' Me.Label5.Text = "Appt. Info is Read Only, To Move this Appt. for this customer Use Move Appt. Button Provided"
'Else
' Me.Label5.Text = "Appt. Info is Read Only, To Set New Appt. for this customer Use Set Appt. Button Provided"
'End If

';Me.ResetForm()
Dim c As New Locked_for_Editing
@@ -102,50 +103,6 @@ Public Class EditCustomerInfo
Me.WhichForm = Nothing

End Sub







Private Sub txtAlt2Type_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)
Try
Dim str = Mid(Me.cboAlt2Type.Text, 1, 1)
Dim str2 = Mid(Me.cboAlt2Type.Text, 2, Me.cboAlt2Type.Text.ToString.Length)

str = str.ToString.ToUpper
Dim New_Word As String = str & str2
Me.cboAlt2Type.Text = New_Word
Catch ex As Exception
Me.Cursor = Cursors.Default
Main.Cursor = Cursors.Default
Dim y As New ErrorLogging_V2
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, "EditCustomerInfo", "FormCode", "Event", "txtAlt2Type_LostFocus", "0", ex.Message.ToString)
y = Nothing
End Try
End Sub

Private Sub txtAlt1Type_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)
Try
Dim str = Mid(Me.cboalt1type.Text, 1, 1)
Dim str2 = Mid(Me.cboalt1type.Text, 2, Me.cboalt1type.Text.ToString.Length)

str = str.ToString.ToUpper
Dim New_Word As String = str & str2
Me.cboalt1type.Text = New_Word
Catch ex As Exception
Me.Cursor = Cursors.Default
Main.Cursor = Cursors.Default
Dim y As New ErrorLogging_V2
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, "EditCustomerInfo", "FormCode", "Event", "txtAlt1Type_LostFocus", "0", ex.Message.ToString)
y = Nothing
End Try
End Sub




Private Sub EditCustomerInfo_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged

Me.WindowState = FormWindowState.Normal
@@ -670,32 +627,12 @@ Public Class EditCustomerInfo
Dim click As Integer
Private Sub btnSetAppt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetAppt2.Click
Try
If WhichForm.Name = "Confirming" Then
RescheduleAppt.frm = WhichForm.Name
RescheduleAppt.ID = ID
RescheduleAppt.ShowDialog()
d.Get_New_Appt(ID)
Me.txtApptDate.Text = d.AppointmentDate
Me.txtApptTime.Text = d.AppointmentTime
Me.txtApptDay.Text = d.AppointmentDay
Exit Sub
End If
click += 1



SetAppt_V2.frm = Me
SetAppt_V2.ShowDialog()

'SetAppt.OrigApptDate = Me.txtApptDate.Text
'SetAppt.OrigApptTime = Me.txtApptTime.Text
'SetAppt.Contact1 = d.Get_First(Me.txtContact1.Text)
'SetAppt.Contact2 = d.Get_First(Me.txtContact2.Text)
'SetAppt.frm = WhichForm
If click = 1 Then
SetAppt_V2.CallingForm = "Confirming"
SetAppt_V2.ID = ID
SetAppt_V2.MdiParent = Main
SetAppt_V2.Show()
End If

'SetAppt.ShowDialog() ''come back weird fuckin bug, form opens and closes first time only then works fine
d.Get_New_Appt(ID)
@@ -709,6 +646,15 @@ Public Class EditCustomerInfo
End Try

End Sub
Private Sub btnMoveAppt_Click(sender As Object, e As EventArgs) Handles btnMoveAppt.Click
RescheduleAppt.frm = WhichForm
RescheduleAppt.ID = ID
RescheduleAppt.ShowDialog()
d.Get_New_Appt(ID)
Me.txtApptDate.Text = d.AppointmentDate
Me.txtApptTime.Text = d.AppointmentTime
Me.txtApptDay.Text = d.AppointmentDay
End Sub

Private Sub btnMap_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnMap.Click
Try
@@ -852,4 +798,39 @@ Public Class EditCustomerInfo
End Try

End Sub


Private Sub cboalt1type_LostFocus(sender As Object, e As EventArgs) Handles cboalt1type.LostFocus
Try
Dim str = Mid(Me.cboalt1type.Text, 1, 1)
Dim str2 = Mid(Me.cboalt1type.Text, 2, Me.cboalt1type.Text.ToString.Length)

str = str.ToString.ToUpper
Dim New_Word As String = str & str2
Me.cboalt1type.Text = New_Word
Catch ex As Exception
Me.Cursor = Cursors.Default
Main.Cursor = Cursors.Default
Dim y As New ErrorLogging_V2
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, "EditCustomerInfo", "FormCode", "Event", "txtAlt1Type_LostFocus", "0", ex.Message.ToString)
y = Nothing
End Try
End Sub

Private Sub cboAlt2Type_LostFocus(sender As Object, e As EventArgs) Handles cboAlt2Type.LostFocus
Try
Dim str = Mid(Me.cboAlt2Type.Text, 1, 1)
Dim str2 = Mid(Me.cboAlt2Type.Text, 2, Me.cboAlt2Type.Text.ToString.Length)

str = str.ToString.ToUpper
Dim New_Word As String = str & str2
Me.cboAlt2Type.Text = New_Word
Catch ex As Exception
Me.Cursor = Cursors.Default
Main.Cursor = Cursors.Default
Dim y As New ErrorLogging_V2
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, "EditCustomerInfo", "FormCode", "Event", "txtAlt2Type_LostFocus", "0", ex.Message.ToString)
y = Nothing
End Try
End Sub
End Class
15 Latest/Kill.vb
View file
@@ -6,8 +6,8 @@ Imports System
Public Class Kill
Public Contact1 As String
Public Contact2 As String
Public ID As String
Public frm As String
Public ID As String = STATIC_VARIABLES.CurrentID
Public frm As Form

Private Sub Kill_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Me.Dispose()
@@ -20,7 +20,7 @@ Public Class Kill
Dim s2 = Split(Contact2, " ")
Dim c2 = s2(0)
Me.cboSpokeWith.Items.Add(c1)
If Me.Contact2 <> "" Then
If Me.Contact2 <> " " Then
Me.cboSpokeWith.Items.Add(c2)
Me.cboSpokeWith.Items.Add(c1 & " & " & c2)
Else
@@ -91,9 +91,9 @@ Public Class Kill
Me.Close()

Dim c As New ConfirmingData
If frm = "Confirming" Then
If frm.Name = "Confirming" Then
c.Populate(Confirming.Tab, Confirming.cboConfirmingPLS.Text, Confirming.cboConfirmingSLS.Text, Confirming.dpConfirming.Value.ToString, "Populate")
ElseIf frm = "WC" Then
ElseIf frm.Name = "WCaller" Then
If WCaller.Tab = "WC" Then
Dim i As Integer = WCaller.lvWarmCalling.Items.IndexOfKey(ID)
WCaller.lvWarmCalling.SelectedItems(0).Remove()
@@ -113,8 +113,9 @@ Public Class Kill
Dim y As New WarmCalling
y.Populate()
End If
ElseIf frm = "ConfirmingSingleRecord" Then

ElseIf frm.Name = "ConfirmingSingleRecord" Then
Dim q As New CustomerHistory
q.SetUp(ConfirmingSingleRecord.TScboCustomerHistory)

End If
Me.Close()
1 Latest/LOGIN.vb
View file
@@ -107,6 +107,7 @@ Public Class LOGIN
tstCNN.Close()
Catch ex As Exception
MsgBox("No connection can be made to SQL server. Settings will not be saved.", MsgBoxStyle.Exclamation, "No Network Present.")
Application.Exit()
Exit Sub
End Try
End If
58 Latest/LeadManager.vbproj
View file
@@ -550,15 +550,6 @@
<Compile Include="MemorizeNotes.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="openset.Designer.vb">
<DependentUpon>openset.vb</DependentUpon>
</Compile>
<Compile Include="openset.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="opensetappt.vb" />
<Compile Include="open_kill.vb" />
<Compile Include="open_setappt.vb" />
<Compile Include="Open_Windows.vb" />
<Compile Include="PastDueAlerts.designer.vb">
<DependentUpon>PastDueAlerts.vb</DependentUpon>
@@ -689,12 +680,6 @@
<Compile Include="pBar.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="SetAppt.Designer.vb">
<DependentUpon>SetAppt.vb</DependentUpon>
</Compile>
<Compile Include="SetAppt.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="SplashScreen1.Designer.vb">
<DependentUpon>SplashScreen1.vb</DependentUpon>
</Compile>
@@ -705,6 +690,7 @@
<Compile Include="systemCheckLogin.vb" />
<Compile Include="TimeFormat.vb" />
<Compile Include="ToggleUndoCandC.vb" />
<Compile Include="TScbo_List_Fill.vb" />
<Compile Include="USER_LOGIC.vb" />
<Compile Include="USER_LOGICv2.vb" />
<Compile Include="Validate_Zip_Code_Mappoint.vb" />
@@ -742,18 +728,6 @@
<Compile Include="EmailTemplate.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FinancingDepartment.Designer.vb">
<DependentUpon>FinancingDepartment.vb</DependentUpon>
</Compile>
<Compile Include="FinancingDepartment.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="InstallationDepartment.Designer.vb">
<DependentUpon>InstallationDepartment.vb</DependentUpon>
</Compile>
<Compile Include="InstallationDepartment.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Kill.Designer.vb">
<DependentUpon>Kill.vb</DependentUpon>
</Compile>
@@ -932,10 +906,6 @@
<DependentUpon>Finance.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="FinancingDepartment.resx">
<DependentUpon>FinancingDepartment.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="FindLead.resx">
<DependentUpon>FindLead.vb</DependentUpon>
<SubType>Designer</SubType>
@@ -1090,10 +1060,6 @@
<SubType>Designer</SubType>
<DependentUpon>MemorizeNotes.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="openset.resx">
<SubType>Designer</SubType>
<DependentUpon>openset.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="PastDueAlerts.resx">
<DependentUpon>PastDueAlerts.vb</DependentUpon>
<SubType>Designer</SubType>
@@ -1154,10 +1120,6 @@
<SubType>Designer</SubType>
<DependentUpon>SetUpUser2.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="InstallationDepartment.resx">
<DependentUpon>InstallationDepartment.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Kill.resx">
<SubType>Designer</SubType>
<DependentUpon>Kill.vb</DependentUpon>
@@ -1200,10 +1162,6 @@
<DependentUpon>SendNotesSM.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="SetAppt.resx">
<SubType>Designer</SubType>
<DependentUpon>SetAppt.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="SplashScreen1.resx">
<SubType>Designer</SubType>
<DependentUpon>SplashScreen1.vb</DependentUpon>
@@ -1355,6 +1313,20 @@
<Install>true</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<None Include="Resources\delete2.ico" />
</ItemGroup>
<ItemGroup>
<Content Include="Resources\arrow-right-big.ico" />
<Content Include="Resources\arrow-right.ico" />
<Content Include="Resources\FEATURES_1017.ico" />
<Content Include="Resources\FEATURES_1_1017.ico" />
<Content Include="Resources\FEATURES_2_1017.ico" />
<Content Include="Resources\QBWIN32_1015.ico" />
<Content Include="Resources\QBWIN32_1016.ico" />
<Content Include="Resources\QBWIN32_1017.ico" />
<Content Include="Resources\QBWIN32_1104.ico" />
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
2 Latest/LogPhoneCall.vb
View file
@@ -180,7 +180,7 @@ Public Class LogPhoneCall
cnn.close()
Dim c As New CustomerHistory

c.SetUp(frm, ID, Confirming.TScboCustomerHistory)
c.SetUp(Confirming.TScboCustomerHistory)


'' Add elseif' for other forms as needed
20 Latest/Main.Designer.vb
View file
8 Latest/Main.resx
View file
@@ -172,7 +172,7 @@
gg==
</value>
</data>
<data name="MarketingManagerToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="tsbMarketingManager.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACA0lEQVRYR72SC3LjMAxDc3QfLTdr+UhC
@@ -375,7 +375,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAk
AQAAAk1TRnQBSQFMAwEBAAFoAQEBaAEBARABAAEQAQAE/wEhAQAI/wFCAU0BNgcAATYDAAEoAwABQAMA
AQAAAk1TRnQBSQFMAwEBAAFwAQEBcAEBARABAAEQAQAE/wEhAQAI/wFCAU0BNgcAATYDAAEoAwABQAMA
ARADAAEBAQABIAYAARD/AP8A/wD/ADUAAf/7AAH/AwAB/wMAAf/zAAH/AwAB/wMAAf8DAAH/AwAB/+8A
Af8DAAH/BwAB/wMAAf8DAAH/6wAB/w8AAf8DAAH/AwAB//sAAf8DAAH//wAB//8A/wD/AP8A/wDVAAFC
AU0BPgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/AQAC/wYAAv8GAAL/BgAC/wYAAf4B/wYA
@@ -402,7 +402,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABk
GgAAAk1TRnQBSQFMAgEBEwEAAZwBAQGcAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
GgAAAk1TRnQBSQFMAgEBEwEAAaQBAQGkAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAAVADAAEBAQABCAYAARQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -531,7 +531,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABc
DgAAAk1TRnQBSQFMAgEBBAEAAUwBAQFMAQEBGAEAARgBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
DgAAAk1TRnQBSQFMAgEBBAEAAVQBAQFUAQEBGAEAARgBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABYAMAATADAAEBAQABCAYAARIYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
26 Latest/Main.vb
View file
@@ -214,6 +214,7 @@ Public Class Main
tstCNN.Close()
Catch ex As Exception
MsgBox("No connection can be made to SQL server. Settings will not be saved.", MsgBoxStyle.Exclamation, "No Network Present.")
Application.Exit()
Exit Sub
End Try
End If
@@ -250,6 +251,7 @@ Public Class Main
Try
If My.Computer.Network.IsAvailable = False Then
MsgBox("There is no network connection Present.", MsgBoxStyle.Exclamation, "No Network.")
Application.Exit()
Exit Sub
End If
If My.Computer.Network.IsAvailable = True Then
@@ -259,6 +261,7 @@ Public Class Main
tstCNN.Close()
Catch ex As Exception
MsgBox("No connection can be made to SQL server. Please check your network connection and try again.", MsgBoxStyle.Exclamation, "No Network Present.")
Application.Exit()
Exit Sub
End Try
End If
@@ -1248,29 +1251,10 @@ Public Class Main



Public Sub open()
Try
SetAppt.ID = Sales.ID
SetAppt.frm = Sales
SetAppt.OrigApptDate = Sales.txtApptDate.Text
SetAppt.OrigApptTime = Sales.txtApptTime.Text
Dim s = Split(Sales.txtContact1.Text, " ")
Dim s2 = Split(Sales.txtContact2.Text, " ")
SetAppt.Contact1 = s(0)
SetAppt.Contact2 = s2(0)


SetAppt.ShowDialog()
Catch ex As Exception
Dim y As New ErrorLogging_V2
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, "Main", "FormCode", "Sub", "open()", Sales.ID.ToString, ex.Message.ToString)
y = Nothing
End Try

End Sub



Private Sub MarketingManagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarketingManagerToolStripMenuItem.Click
Private Sub MarketingManagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles tsbMarketingManager.Click
Try
MarketingManager.MdiParent = Me
MarketingManager.Show()
6 Latest/MarketingManager.vb
View file
@@ -171,9 +171,9 @@ Public Class MarketingManager
End Sub

Private Sub btnEditSPI_Click(sender As Object, e As EventArgs) Handles btnEditSPI.Click
frmEditSpecialInstructions.RecID = STATIC_VARIABLES.CurrentID
frmEditSpecialInstructions.CallingForm = "MarketingManager"
frmEditSpecialInstructions.Show()

frmEditSpecialInstructions.frm = Me
frmEditSpecialInstructions.ShowDialog()
End Sub

Private Sub PreviewCustomerListToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PreviewCustomerListToolStripMenuItem.Click
15 Latest/MemorizeNotes.vb
View file
@@ -36,9 +36,20 @@ Public Class MemorizeNotes
Me.Close()
Me.Dispose()
If STATIC_VARIABLES.ActiveChild.Name = "WCaller" Then
Dim c As New WarmCalling.MyApptsTab.Populate(WCaller.cboFilter.Text)
Try
Dim c As New WarmCalling.MyApptsTab.Populate(WCaller.cboFilter.Text)
Catch ex As Exception

End Try


ElseIf STATIC_VARIABLES.ActiveChild.Name = "Sales" Then
Sales.PopulateMemorized()
Try
Sales.PopulateMemorized()
Catch ex As Exception

End Try

End If
Catch ex As Exception
Me.Cursor = Cursors.Default
86 Latest/My Project/Resources.Designer.vb
View file
7 Latest/My Project/Resources.resx
View file
@@ -157,6 +157,9 @@
<data name="wordicon_200" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\wordicon_200.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="setappt24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\setappt24.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="notesnew" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\notesnew.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -181,7 +184,7 @@
<data name="set2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\set2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="setappt24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\setappt24.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="delete2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\delete2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>
167 Latest/Reissue.vb
View file
@@ -3,8 +3,10 @@ Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System
Public Class Reissue

Public frm As Form
Private Sub cboSalesResults_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboSalesResults.GotFocus


Dim x
x = Me.cboRep1.Text.Length
Select Case x
@@ -107,9 +109,44 @@ Public Class Reissue

End Sub
Private Sub Reissue_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


If frm.Name = "Confirming" Then
Me.dtpapptdate.Value = Convert.ToDateTime(Confirming.txtApptDate.Text & " 12:00 AM")
Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & Confirming.txtApptTime.Text)
ElseIf frm.Name = "ConfirmingSingleRecord" Then
Me.dtpapptdate.Value = Convert.ToDateTime(ConfirmingSingleRecord.txtApptDate.Text & " 12:00 AM")
Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & ConfirmingSingleRecord.txtApptTime.Text)
'ElseIf frm.Name = "Sales" Then
' Me.dtpapptdate.Value = Convert.ToDateTime(Sales.txtApptDate.Text & " 12:00 AM")
' Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & Sales.txtApptTime.Text)
'ElseIf frm.Name = "Administration" Then
' 'Me.dtpapptdate.Value = Convert.ToDateTime(Administration.txtApptDate.Text & " 12:00 AM")
' 'Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & Administration.txtApptTime.Text)
'ElseIf frm.Name = "MarketingManager" Then
' Me.dtpapptdate.Value = Convert.ToDateTime(MarketingManager.txtApptDate.Text & " 12:00 AM")
' Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & MarketingManager.txtApptTime.Text)
'ElseIf frm.Name = "WCaller" Then
' Me.dtpapptdate.Value = Convert.ToDateTime(WCaller.txtApptDate.Text & " 12:00 AM")
' Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & WCaller.txtApptTime.Text)
'ElseIf frm.Name = "Installation" Then
' 'Me.dtpapptdate.Value = Convert.ToDateTime(Installation.txtApptDate.Text & " 12:00 AM")
' 'Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & Installation.txtApptTime.Text)
'ElseIf frm.Name = "PreviousCustomer" Then
' 'Me.dtpapptdate.Value = Convert.ToDateTime(PreviousCustomer.txtApptDate.Text & " 12:00 AM")
' 'Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & PreviousCustomer.txtApptTime.Text)
'ElseIf frm.Name = "Recovery" Then
' 'Me.dtpapptdate.Value = Convert.ToDateTime(Recovery.txtApptDate.Text & " 12:00 AM")
' 'Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & Recovery.txtApptTime.Text)
'ElseIf frm.Name = "EditCustomerInfo" Then
' Me.dtpapptdate.Value = Convert.ToDateTime(EditCustomerInfo.txtApptDate.Text & " 12:00 AM")
' Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & EditCustomerInfo.txtApptTime.Text)
'ElseIf frm.Name = "Finance" Then
' 'Me.dtpapptdate.Value = Convert.ToDateTime(Finance.txtApptDate.Text & " 12:00 AM")
' 'Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & Finance.txtApptTime.Text)
End If

Me.dtpapptdate.Value = Convert.ToDateTime(Confirming.txtApptDate.Text & " 12:00 AM")
Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & Confirming.txtApptTime.Text)

Me.CheckBox1.Enabled = False
Dim dset_Reps As Data.DataSet = New Data.DataSet("Reps")
Dim da_Reps As SqlDataAdapter = New SqlDataAdapter
@@ -164,32 +201,65 @@ Public Class Reissue
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, "Reissue", "FormCode", "Sub", "Reissue_Load", "0", ex.Message.ToString)
y = Nothing
End Try
Try
Dim rep As String = Confirming.lvSales.SelectedItems(0).SubItems(3).Text
Dim rep2 As String = ""
If rep.Contains(" & ") = True Then
Dim sp = Split(rep, " & ")
rep = sp(0)
rep2 = sp(1)
End If
Me.cboRep1.Text = rep
Me.cboRep2.Text = rep2
Dim s = Split(Confirming.txtContact1.Text, " ")
Dim s2 = Split(Confirming.txtContact2.Text, " ")
If Confirming.txtContact2.Text = " " Then
Me.cboSpokeWith.Items.Add(s(0))
ElseIf Confirming.txtContact2.Text <> " " Then
Me.cboSpokeWith.Items.Add(s(0))
Me.cboSpokeWith.Items.Add(s2(0))
Me.cboSpokeWith.Items.Add(s(0) & " & " & s2(0))
End If
Catch ex As Exception
Main.Cursor = Cursors.Default
Dim y As New ErrorLogging_V2
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, "Reissue", "FormCode", "Sub", "Reissue_Load", "0", ex.Message.ToString)
y = Nothing
End Try
If frm.Name = "Confirming" Then
Try
Dim rep As String = Confirming.lvSales.SelectedItems(0).SubItems(3).Text
Dim rep2 As String = ""
If rep.Contains(" & ") = True Then
Dim sp = Split(rep, " & ")
rep = sp(0)
rep2 = sp(1)
End If
Me.cboRep1.Text = rep
Me.cboRep2.Text = rep2
Dim s = Split(Confirming.txtContact1.Text, " ")
Dim s2 = Split(Confirming.txtContact2.Text, " ")
If Confirming.txtContact2.Text = " " Then
Me.cboSpokeWith.Items.Add(s(0))
Me.cboSpokeWith.SelectedItem = s(0)
ElseIf Confirming.txtContact2.Text <> " " Then
Me.cboSpokeWith.Items.Add(s(0))
Me.cboSpokeWith.Items.Add(s2(0))
Me.cboSpokeWith.Items.Add(s(0) & " & " & s2(0))
End If
Catch ex As Exception
Main.Cursor = Cursors.Default
Dim y As New ErrorLogging_V2
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, "Reissue", "FormCode", "Sub", "Reissue_Load", "0", ex.Message.ToString)
y = Nothing
End Try
Else
Try
Dim rep As String = ConfirmingSingleRecord.Rep1
Dim rep2 As String = ConfirmingSingleRecord.Rep2
Me.cboRep1.SelectedItem = rep
If Me.cboRep1.SelectedItem = Nothing Then
Me.cboRep1.Items.Add(rep)
Me.cboRep1.SelectedItem = rep
End If
Me.cboRep2.SelectedItem = rep2
If Me.cboRep2.SelectedItem = Nothing Then
Me.cboRep2.Items.Add(rep2)
Me.cboRep2.SelectedItem = rep2
End If
Dim s = Split(ConfirmingSingleRecord.txtContact1.Text, " ")
Dim s2 = Split(ConfirmingSingleRecord.txtContact2.Text, " ")
If ConfirmingSingleRecord.txtContact2.Text = " " Then
Me.cboSpokeWith.Items.Add(s(0))
Me.cboSpokeWith.SelectedItem = s(0)
ElseIf Confirming.txtContact2.Text <> " " Then
Me.cboSpokeWith.Items.Add(s(0))
Me.cboSpokeWith.Items.Add(s2(0))
Me.cboSpokeWith.Items.Add(s(0) & " & " & s2(0))
End If

Catch ex As Exception
Main.Cursor = Cursors.Default
Dim y As New ErrorLogging_V2
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, "Reissue", "FormCode", "Sub", "Reissue_Load", "0", ex.Message.ToString)
y = Nothing
End Try
End If
End Sub
Private Sub rtfAutoNote_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles rtfAutoNote.GotFocus
Me.lblsalesnotes.Visible = False
@@ -249,12 +319,15 @@ Public Class Reissue
Exit Sub
End If

Dim Manager As String
If Me.cboRep1.Text <> "" Then
Dim LName As String
Dim FName As String
If Me.cboRep1.SelectedItem <> Nothing Or Me.cboRep1.SelectedItem <> "" Then
Dim r = Split(Me.cboRep1.Text, " ")
Manager = Trim(r(1))
LName = Trim(r(1))
FName = Trim(r(0))
Else
Manager = ""
LName = ""
FName = ""
End If


@@ -300,13 +373,14 @@ Public Class Reissue
Dim param2 As SqlParameter = New SqlParameter("@Date", Me.dtpapptdate.Value.ToString)
Dim param3 As SqlParameter = New SqlParameter("@time", Me.dtpappttime.Value.ToString)
Dim param4 As SqlParameter = New SqlParameter("@user", STATIC_VARIABLES.CurrentUser)
Dim param5 As SqlParameter = New SqlParameter("@ID", Confirming.lvSales.SelectedItems(0).Text)
Dim param5 As SqlParameter = New SqlParameter("@ID", STATIC_VARIABLES.CurrentID)
Dim param6 As SqlParameter = New SqlParameter("@Description", Description)
Dim param7 As SqlParameter = New SqlParameter("@note", Me.rtfAutoNote.Text)
Dim param8 As SqlParameter = New SqlParameter("@Rep1", Me.cboRep1.Text)
Dim param9 As SqlParameter = New SqlParameter("@Rep2", Me.cboRep2.Text)
Dim param10 As SqlParameter = New SqlParameter("@LastName", Manager)
Dim param10 As SqlParameter = New SqlParameter("@LastName", LName)
Dim param11 As SqlParameter = New SqlParameter("@SpokeWith", Me.cboSpokeWith.Text)
Dim param12 As SqlParameter = New SqlParameter("@FirstName", FName)
cmdGet.CommandType = CommandType.StoredProcedure
cmdGet.Parameters.Add(param1)
cmdGet.Parameters.Add(param2)
@@ -319,23 +393,38 @@ Public Class Reissue
cmdGet.Parameters.Add(param9)
cmdGet.Parameters.Add(param10)
cmdGet.Parameters.Add(param11)
cmdGet.Parameters.Add(param12)
cnn.Open()
r1 = cmdGet.ExecuteReader
r1.Read()
r1.Close()
cnn.Close()
Dim c As New ConfirmingData
c.Populate("Dispatch", Confirming.cboSalesPLS.Text, Confirming.cboSalesSLS.Text, Confirming.dpSales.Value.ToString, "Populate")
Me.Close()
Me.Dispose()
If frm.Name = "Confirming" Then
Dim c As New ConfirmingData
c.Populate("Dispatch", Confirming.cboSalesPLS.Text, Confirming.cboSalesSLS.Text, Confirming.dpSales.Value.ToString, "Populate")

Else
If Me.CheckBox1.Checked = True Then
ConfirmingSingleRecord.txtApptTime.Text = Me.dtpappttime.Value.ToShortTimeString
ConfirmingSingleRecord.txtApptDate.Text = Me.dtpapptdate.Value.ToShortDateString
ConfirmingSingleRecord.txtApptDay.Text = day
ConfirmingSingleRecord.MResult = Me.cboSalesResults.Text
ConfirmingSingleRecord.btnConfirmDispatch_Click(ConfirmingSingleRecord.btnConfirmDispatch, Nothing)
End If
Dim h As New CustomerHistory
h.SetUp(ConfirmingSingleRecord.TScboCustomerHistory)
End If



Catch ex As Exception
Main.Cursor = Cursors.Default
Dim y As New ErrorLogging_V2
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, "Reissue", "FormCode", "Sub", "Button2_Click", "0", ex.Message.ToString)
y = Nothing
End Try

Me.Close()
Me.Dispose()
End Sub

Private Sub lblautonotes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblautonotes.Click
2 Latest/RescheduleAppt.Designer.vb
View file
53 Latest/RescheduleAppt.resx
View file
@@ -120,35 +120,30 @@
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAiIAAAAAAAAiIiIAAAAAAgACIiAAAAIAAAAi
IAAAIiAAAAIiAAIiIgAAAiIAIiIiIAACIgAAIiAAAiIiIgAiIAAAIiIgACIgAAACIgAAAiIAAAAgAAAC
IiAAIAAAAAAiIiIAAAAAAAAiIAAAAAAAAAAAAAAA//8AAP4/AAD8DwAA+4cAAO/HAADH4wAAg+MAAAHj
AADHgAAAx8EAAMfjAADj9wAA4d8AAPA/AAD8fwAA//8AACgAAAAQAAAAIAAAAAEACAAAAAAAAAAAAAAA
AAAAAAAAAAEAAAABAAAAAAAAAIAAAACSAAAAmAAAAJ4AAACkAAAAqgAAALAAAAC2AAAAzwAAANQAAADZ
AAAA3wAAAOQAAADpAAAA7wAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEAAAAAAAAAAAAAAAABAQED
AQEAAAAAAAAAAAABAAAAAQMCAQAAAAAAAAEAAAAAAAABAwEAAAAAAAEJAQAAAAAAAAEDAQAAAAELCgkB
AAAAAAABAwEAAAEBAQsBAQEAAAAAAQUBAAAAAAELAQAAAAABAQEGAQEBAAABDgEAAAAAAAEICAUBAAAA
AQ4BAAAAAAAAAQgBAAAAAAABDgEAAAAAAAABAAAAAAAAAQ4OAQAAAAEAAAAAAAAAAAABAQ4BAQEAAAAA
AAAAAAAAAAABAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//AAD+PwAA/A8AAPuHAADvxwAAx+MAAIPj
AAAB4wAAx4AAAMfBAADH4wAA4/cAAOHfAADwPwAA/H8AAP//AAA=
AAABAAEAEBAAAAAAAABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDcwADwyqYAACBAAAAgYAAAIIAAACCgAAAg
wAAAIOAAAEAAAABAIAAAQEAAAEBgAABAgAAAQKAAAEDAAABA4AAAYAAAAGAgAABgQAAAYGAAAGCAAABg
oAAAYMAAAGDgAACAAAAAgCAAAIBAAACAYAAAgIAAAICgAACAwAAAgOAAAKAAAACgIAAAoEAAAKBgAACg
gAAAoKAAAKDAAACg4AAAwAAAAMAgAADAQAAAwGAAAMCAAADAoAAAwMAAAMDgAADgAAAA4CAAAOBAAADg
YAAA4IAAAOCgAADgwAAA4OAAQAAAAEAAIABAAEAAQABgAEAAgABAAKAAQADAAEAA4ABAIAAAQCAgAEAg
QABAIGAAQCCAAEAgoABAIMAAQCDgAEBAAABAQCAAQEBAAEBAYABAQIAAQECgAEBAwABAQOAAQGAAAEBg
IABAYEAAQGBgAEBggABAYKAAQGDAAEBg4ABAgAAAQIAgAECAQABAgGAAQICAAECAoABAgMAAQIDgAECg
AABAoCAAQKBAAECgYABAoIAAQKCgAECgwABAoOAAQMAAAEDAIABAwEAAQMBgAEDAgABAwKAAQMDAAEDA
4ABA4AAAQOAgAEDgQABA4GAAQOCAAEDgoABA4MAAQODgAIAAAACAACAAgABAAIAAYACAAIAAgACgAIAA
wACAAOAAgCAAAIAgIACAIEAAgCBgAIAggACAIKAAgCDAAIAg4ACAQAAAgEAgAIBAQACAQGAAgECAAIBA
oACAQMAAgEDgAIBgAACAYCAAgGBAAIBgYACAYIAAgGCgAIBgwACAYOAAgIAAAICAIACAgEAAgIBgAICA
gACAgKAAgIDAAICA4ACAoAAAgKAgAICgQACAoGAAgKCAAICgoACAoMAAgKDgAIDAAACAwCAAgMBAAIDA
YACAwIAAgMCgAIDAwACAwOAAgOAAAIDgIACA4EAAgOBgAIDggACA4KAAgODAAIDg4ADAAAAAwAAgAMAA
QADAAGAAwACAAMAAoADAAMAAwADgAMAgAADAICAAwCBAAMAgYADAIIAAwCCgAMAgwADAIOAAwEAAAMBA
IADAQEAAwEBgAMBAgADAQKAAwEDAAMBA4ADAYAAAwGAgAMBgQADAYGAAwGCAAMBgoADAYMAAwGDgAMCA
AADAgCAAwIBAAMCAYADAgIAAwICgAMCAwADAgOAAwKAAAMCgIADAoEAAwKBgAMCggADAoKAAwKDAAMCg
4ADAwAAAwMAgAMDAQADAwGAAwMCAAMDAoADw+/8ApKCgAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAACAAAAAAAAAAAAAAAAAAAAAgIAAAAAAAAAAAAAAAAAAAJqAgAAAAAAAAAAAAAA
AAACamoCAAAAAAICAgICAgICAnJycgIAAAACcnJycnJycnJycnJyAgAAArOzs7Ozs7Ozs7Ozs7MCAAKz
s7Ozs7Ozs7Ozs7OzswICs7Ozs7Ozs7Ozs7OzCLMCAry8vLy8vLy8vLy8CLwCAAK8vLy8vLy8vLy8CLwC
AAACAgICAgICAgK8CLwCAAAAAAAAAAAAAAACvb0CAAAAAAAAAAAAAAAAAggCAAAAAAAAAAAAAAAAAAIC
AAAAAAAAAAAAAAAAAAACAAAAAAAAAP9/AAD/PwAA/x8AAP8PAAAABwAAAAMAAAABAAAAAAAAAAAAAAAB
AAAAAwAAAAcAAP8PAAD/HwAA/z8AAP9/AAA=
</value>
</data>
</root>
99 Latest/RescheduleAppt.vb
View file
@@ -3,8 +3,8 @@ Imports System.Data.Sql
Imports System.Data.SqlClient

Public Class RescheduleAppt
Public frm As String
Public ID As String
Public frm As Form
Public ID As String = STATIC_VARIABLES.CurrentID

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Try
@@ -17,6 +17,7 @@ Public Class RescheduleAppt




If Me.dtpApptDate.Value < Date.Today Then
MsgBox("Appointment Date Must be for Today or Future!", MsgBoxStyle.Exclamation, "Cannot Move Appt.")
Exit Sub
@@ -39,25 +40,37 @@ Public Class RescheduleAppt
r1.Read()
r1.Close()
cnn.Close()
If frm = "Confirming" Then

If frm.Name = "Confirming" Then
Dim c As New ConfirmingData
If Confirming.Tab = "Confirm" Then

c.Populate(Confirming.Tab, Confirming.cboConfirmingPLS.Text, Confirming.cboConfirmingSLS.Text, Confirming.dpConfirming.Value.ToString, "Populate")
Else
c.Populate(Confirming.Tab, Confirming.cboSalesPLS.Text, Confirming.cboSalesSLS.Text, Confirming.dpSales.Value.ToString, "Populate")
End If

ElseIf frm.Name = "ConfirmingSingleRecord" Then
Dim c As New CustomerHistory
c.SetUp(ConfirmingSingleRecord.TScboCustomerHistory)
ElseIf frm.Name = "Sales" Then
Sales.PullInfo(STATIC_VARIABLES.CurrentID)
ElseIf frm.Name = "Administration" Then
'Administration.PullInfo(STATIC_VARIABLES.CurrentID)
ElseIf frm.Name = "MarketingManager" Then
'MarketingManager.PullInfo(STATIC_VARIABLES.CurrentID)
ElseIf frm.Name = "WCaller" Then
'WCaller.PullInfo(STATIC_VARIABLES.CurrentID)
ElseIf frm.Name = "Installation" Then
'Installation.PullInfo(STATIC_VARIABLES.CurrentID)
ElseIf frm.Name = "PreviousCustomer" Then
'PreviousCustomer.PullInfo(STATIC_VARIABLES.CurrentID)
ElseIf frm.Name = "Recovery" Then
'Recovery.PullInfo(STATIC_VARIABLES.CurrentID)
ElseIf frm.Name = "EditCustomerInfo" Then
Dim d = New EDIT_CUSTOMER_INFORMATION
d.FeedProperties(STATIC_VARIABLES.CurrentID)
ElseIf frm.Name = "Finance" Then
'Finance.PullInfo(STATIC_VARIABLES.CurrentID)
End If









Me.Close()
Me.Dispose()
Catch ex As Exception
@@ -73,10 +86,68 @@ Public Class RescheduleAppt
Me.Close()
Me.Dispose()
End Sub
Private Function Chk_Locked_Sales_Results()
Try
Dim lock As Boolean = False
Dim cnx As New SqlConnection(STATIC_VARIABLES.Cnn)
cnx.Open()
Dim cmdGet As New SqlCommand("Select NeedsSaleResult from EnterLead where id = " & ID, cnx)
lock = cmdGet.ExecuteScalar
cnx.Close()
cnx = Nothing
Return lock
Catch ex As Exception

Main.Cursor = Cursors.Default
Dim y As New ErrorLogging_V2
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, "SetAppt_V2", "FormCode-PrivateClass", "Function", "Chk_Locked_Sales_Results()", "0", ex.Message.ToString)
y = Nothing
End Try
End Function


Private Sub RescheduleAppt_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim lock As Boolean = Me.Chk_Locked_Sales_Results
If lock = True Then
MsgBox("This Record is locked pending a sales result!" & vbCr & "Cannot Move Appointment at this time!", MsgBoxStyle.Exclamation, "Pending Sales Result")
Me.Dispose()
End If


If frm.Name = "Confirming" Then
Me.dtpApptDate.Value = Convert.ToDateTime(Confirming.txtApptDate.Text & " 12:00 AM")
Me.dtpApptTime.Value = Convert.ToDateTime("1/1/1900 " & Confirming.txtApptTime.Text)
ElseIf frm.Name = "ConfirmingSingleRecord" Then
Me.dtpApptDate.Value = Convert.ToDateTime(ConfirmingSingleRecord.txtApptDate.Text & " 12:00 AM")
Me.dtpApptTime.Value = Convert.ToDateTime("1/1/1900 " & ConfirmingSingleRecord.txtApptTime.Text)
ElseIf frm.Name = "Sales" Then
Me.dtpApptDate.Value = Convert.ToDateTime(Sales.txtApptDate.Text & " 12:00 AM")
Me.dtpApptTime.Value = Convert.ToDateTime("1/1/1900 " & Sales.txtApptTime.Text)
ElseIf frm.Name = "Administration" Then
'Me.dtpapptdate.Value = Convert.ToDateTime(Administration.txtApptDate.Text & " 12:00 AM")
'Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & Administration.txtApptTime.Text)
ElseIf frm.Name = "MarketingManager" Then
Me.dtpApptDate.Value = Convert.ToDateTime(MarketingManager.txtApptDate.Text & " 12:00 AM")
Me.dtpApptTime.Value = Convert.ToDateTime("1/1/1900 " & MarketingManager.txtApptTime.Text)
ElseIf frm.Name = "WCaller" Then
Me.dtpApptDate.Value = Convert.ToDateTime(WCaller.txtApptDate.Text & " 12:00 AM")
Me.dtpApptTime.Value = Convert.ToDateTime("1/1/1900 " & WCaller.txtApptTime.Text)
ElseIf frm.Name = "Installation" Then
'Me.dtpapptdate.Value = Convert.ToDateTime(Installation.txtApptDate.Text & " 12:00 AM")
'Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & Installation.txtApptTime.Text)
ElseIf frm.Name = "PreviousCustomer" Then
'Me.dtpapptdate.Value = Convert.ToDateTime(PreviousCustomer.txtApptDate.Text & " 12:00 AM")
'Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & PreviousCustomer.txtApptTime.Text)
ElseIf frm.Name = "Recovery" Then
'Me.dtpapptdate.Value = Convert.ToDateTime(Recovery.txtApptDate.Text & " 12:00 AM")
'Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & Recovery.txtApptTime.Text)
ElseIf frm.Name = "EditCustomerInfo" Then
Me.dtpApptDate.Value = Convert.ToDateTime(EditCustomerInfo.txtApptDate.Text & " 12:00 AM")
Me.dtpApptTime.Value = Convert.ToDateTime("1/1/1900 " & EditCustomerInfo.txtApptTime.Text)
ElseIf frm.Name = "Finance" Then
'Me.dtpapptdate.Value = Convert.ToDateTime(Finance.txtApptDate.Text & " 12:00 AM")
'Me.dtpappttime.Value = Convert.ToDateTime("1/1/1900 " & Finance.txtApptTime.Text)
End If

End Sub
End Class
BIN +22 KB Latest/Resources/delete2.ico
View file
Binary file not shown.
2 Latest/SCHEDULE_ACTION_LOGIC.vb
View file
@@ -248,7 +248,7 @@ Public Class SCHEDULE_ACTION_LOGIC
If tscbo Is Nothing Then
Exit Sub
End If
x.SetUp(STATIC_VARIABLES.ActiveChild, STATIC_VARIABLES.CurrentID, tscbo)
x.SetUp(tscbo)
Catch ex As Exception

Main.Cursor = Cursors.Default
112 Latest/Sales.Designer.vb
View file

Large diffs are not rendered by default.

12 Latest/Sales.resx
View file
@@ -261,7 +261,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABC
DwAAAk1TRnQBSQFMAgEBCQEAAWQBBgFkAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
DwAAAk1TRnQBSQFMAgEBCQEAAbQBBgG0AQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -337,7 +337,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAC
FAAAAk1TRnQBSQFMAgEBDgEAAWQBBgFkAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
FAAAAk1TRnQBSQFMAgEBDgEAAbQBBgG0AQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAAUADAAEBAQABCAYAARAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -490,7 +490,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAg
lQAAAk1TRnQBSQFMAgEBCgEAAZABAgGQAQIBFAEAAWABAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAFQ
lQAAAk1TRnQBSQFMAgEBCgEAAeABAgHgAQIBFAEAAWABAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAFQ
AwABIAEBAgABAQEAASAGAAFoAQH/AP8A/wD/AP8A/wD/AP8A/wAyAAMVAR0DTAGSA1kB7AMAAf8DWgHY
AzoBYgMLAQ8IAANIAYgDTgHwAwAB/wNMAfMDGgEk/wAFAAMNARIDSwGOA1kB6wNAAf0DAAH/AykB+gNY
AdEDNwFbAwYBCAQAAyIBMgNYAcsDAAH/A1EB9wM5AWADBwEJ/wABAANFAX8DVQHqAwAB/wMAAf8DAAH/
@@ -1155,7 +1155,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADO
DgAAAk1TRnQBSQFMAgEBCAEAAfgBBAH4AQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
DgAAAk1TRnQBSQFMAgEBCAEAAUgBBQFIAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -1229,7 +1229,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADY
GAAAAk1TRnQBSQFMAgEBBwEAAcgBBAHIAQQBGAEAARgBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
GAAAAk1TRnQBSQFMAgEBBwEAARgBBQEYAQUBGAEAARgBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABYAMAATADAAEBAQABCAYAARIYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -1346,7 +1346,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABM
KAAAAk1TRnQBSQFMAgEBCQEAAdABBAHQAQQBIAEAASABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
KAAAAk1TRnQBSQFMAgEBCQEAASABBQEgAQUBIAEAASABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABgAMAAWADAAEBAQABCAYAATAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
34 Latest/Sales.vb
View file
@@ -3027,7 +3027,7 @@ Public Class Sales
Me.Cursor = Cursors.Default
Main.Cursor = Cursors.Default
Dim y As New ErrorLogging_V2
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, "Sales", "FormCode", "Event", "btnMemorize_click", ID, ex.Message.ToString)
y.WriteToLog(Date.Now, My.Computer.Name, STATIC_VARIABLES.IP, Me.Name, "FormCode", "Event", "btnMemorize_click", ID, ex.Message.ToString)
y = Nothing
End Try

@@ -5424,10 +5424,9 @@ Public Class Sales
' SetAppt.Show()
'End If

SetAppt_V2.MdiParent = Main
SetAppt_V2.ID = Me.ID
SetAppt_V2.CallingForm = "Sales"
SetAppt_V2.Show()

SetAppt_V2.frm = Me
SetAppt_V2.ShowDialog()

End Sub

@@ -8738,17 +8737,30 @@ Public Class Sales
Private Sub btnEmailThisCustomer_Click(sender As Object, e As EventArgs) Handles btnEmailThisCustomer.Click
Dim emailAddress As String = Me.lnkEmail.Text
If Len(emailAddress) <= 0 Then
MsgBox("This customer doesn't have an email address to send mail to.", MsgBoxStyle.Critical, "No Email Address For Customer")
MsgBox("This customer doesn't have an email address to send mail to.", MsgBoxStyle.Exclamation, "No Email Address For Customer")
Exit Sub
ElseIf Len(emailAddress) >= 1 Then
frmEmailTemplateChoice.Show()
'frmEmailTemplateChoice.Show()
End If
Dim lnk As LinkLabel = sender
frmLinkSendEmail.MdiParent = Main
frmLinkSendEmail.RecID = STATIC_VARIABLES.CurrentID
frmLinkSendEmail.Cust_Email = lnk.Text
frmLinkSendEmail.Show()
frmLinkSendEmail.BringToFront()
End Sub

#End Region

Private Sub lnkEmail_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lnkEmail.LinkClicked

Dim lnk As LinkLabel = sender
Dim emailAddress As String = lnk.Text
If Len(emailAddress) <= 0 Then
MsgBox("This customer doesn't have an email address to send mail to.", MsgBoxStyle.Exclamation, "No Email Address For Customer")
Exit Sub
End If

frmLinkSendEmail.MdiParent = Main
frmLinkSendEmail.RecID = STATIC_VARIABLES.CurrentID
frmLinkSendEmail.Cust_Email = lnk.Text
@@ -8757,9 +8769,9 @@ Public Class Sales
End Sub

Private Sub btnUpdateSPI_Click(sender As Object, e As EventArgs) Handles btnUpdateSPI.Click
frmEditSpecialInstructions.RecID = STATIC_VARIABLES.CurrentID
frmEditSpecialInstructions.CallingForm = "Sales"
frmEditSpecialInstructions.Show()

frmEditSpecialInstructions.frm = Me
frmEditSpecialInstructions.ShowDialog()
End Sub

Private Sub bgSalesQuery_DoWork(sender As Object, e As ComponentModel.DoWorkEventArgs) Handles bgSalesQuery.DoWork
@@ -8835,7 +8847,7 @@ Public Class Sales
Private Sub bgCustomerHistory_DoWork(sender As Object, e As ComponentModel.DoWorkEventArgs) Handles bgCustomerHistory.DoWork
Try
Dim c As New CustomerHistory
c.SetUp(Me, STATIC_VARIABLES.CurrentID, Me.TScboCustomerHistory)
c.SetUp(Me.TScboCustomerHistory)
Catch ex As Exception
Me.Cursor = Cursors.Default
Main.Cursor = Cursors.Default
2 Latest/SalesResult.vb
View file
@@ -2637,7 +2637,7 @@ Public Class SDResult
End If
ElseIf Frm.Name = "ConfirmingSingleRecord" Then
Dim c As New CustomerHistory
c.SetUp(ConfirmingSingleRecord, ConfirmingSingleRecord.ID, ConfirmingSingleRecord.TScboCustomerHistory)
c.SetUp(ConfirmingSingleRecord.TScboCustomerHistory)
End If
Catch ex As Exception