VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentTop = 12 Left = 429 Width = 281 Height = 481 InitialSelectedAlias = "customer" DataSource = .NULL. Name = "Dataenvironment" cursorcursorCursor1DataenvironmentTop = 1 Left = 5 Height = 144 Width = 119 Alias = "customer" BufferModeOverride = 2 Order = "cu_sname" Database = ..\data\trackerdb.dbc CursorSource = "customer" Name = "Cursor1" cursorcursorCursor2DataenvironmentTop = 15 Left = 153 Height = 406 Width = 95 Alias = "v_salesforcustomer" BufferModeOverride = 3 Database = ..\data\trackerdb.dbc CursorSource = "v_salesforcustomer" NoDataOnLoad = .T. Name = "Cursor2" cursorcursorCURSOR3Dataenvironment{Alias = "products" BufferModeOverride = 2 Database = ..\data\trackerdb.dbc CursorSource = "products" Name = "CURSOR3" 41t_form..\libs\t_base.vcxformfrmCustomerInfoHeight = 499 Width = 700 DoCreate = .T. BufferMode = 0 AutoCenter = .T. Caption = "Customer" MaxButton = .T. MinButton = .T. WindowType = 1 WindowState = 1 ccustomerid = nchangeslost = 0 cprevioustable = Name = "frmCustomerInfo" PROCEDURE changesalesstatus SELECT Sales DO CASE CASE customer.cu_status = "A" && Do nothing we do not want to modify the sales records CASE customer.cu_status = "I" && Only change status if record is not mark for deletion && This will only change the status of Active records to Inactive REPLACE ALL sales.sa_status WITH customer.cu_status FOR sales.sa_cu_id = customer.Customer_ID ; AND sales.sa_status <> 'D' CASE customer.cu_status = "D" && Only change status if record is not mark for deletion && This will only change the status of Active or Inactive records to Delete REPLACE ALL sales.sa_status WITH customer.cu_status FOR sales.sa_cu_id = customer.Customer_ID ; AND sales.sa_status <> 'D' ENDCASE SELECT CUSTOMER ENDPROC PROCEDURE getproductinfo Local lcCurrentTable lcCurrentTable = SELECT() * IF this executes it is because we are running the screen outside * of the application and the class library has not been set * ELSE * we are in the application in which case everything should * be fine IF TYPE('oProductInfo') = 'U' SET CLASSLIB TO libs\t_Application ADDITIVE oProductInfo = createobject('ProductInfo') ELSE oProductInfo = createobject('ProductInfo') ENDIF DO FORM forms\ProductList SELECT(lcCurrentTable) IF !EMPTY(oProductInfo.cProductDescription) ThisForm.pgfCustomerInfo.pagSalesDetail.txtDescription.value = oProductInfo.cProductDescription ThisForm.pgfCustomerInfo.pagSalesDetail.txtsa_SalesPrice.value = oProductInfo.nListPrice **TCK 12/31/00 Commented this line of code out because we are no longer ** using oProductInfo.cCompany property. This is due to the fact that company ** is no longer a column in the v_productlist view. *ThisForm.pgfCustomerInfo.pagSalesDetail.txtCompany.value = oProductInfo.cCompany REPLACE v_SalesForCustomer.sa_cu_id WITH thisform.cCustomerID REPLACE v_SalesForCustomer.sa_pr_id WITH oProductInfo.cProductID REPLACE v_SalesForCustomer.sa_status WITH 'A' ENDIF RELEASE oProductInfo ENDPROC PROCEDURE Resize thisform.sizer.frmresize() ENDPROC PROCEDURE Init LOCAL lnTagCnt DODEFAULT() thisform.cCurrentTable = 'Customer' Select (thisform.cCurrentTable) IF TYPE("oUser.cName") = 'C' IF ALLTRIM(oUser.cUserLevel) = "Read Only" thisform.lIsReadOnly = .T. thisform.isReadOnly =.T. ThisForm.cmdButtons.CMDADD.visible = .F. ThisForm.cmdButtons.cmdEdit.visible = .F. ThisForm.cmdButtons.cmdDelete.visible = .F. ELSE thisform.lIsReadOnly = .F. ENDIF ELSE thisform.lIsReadOnly = .F. ENDIF *!* Changes made 04/07/2005 *!* New Code to build drop box for Customer Index *!* *!* Count how many indexs are available *!* Build an array of available indexs Dimension thisform.aWhatIndex(Tagcount(thisform.ccurrenttable)) For lnNumofIndex = 1 To Alen(thisform.awhatindex, 1) thisform.aWhatIndex(lnNumofIndex) = TAG(lnNumofIndex) Next ThisForm.cboWhichIndex.NumberOfElements = lnNumofIndex ThisForm.cboWhichIndex.value = "cu_sname" *!* *!* End of changes made 04/07/2005 *!* * Count how many indexs are available *!* lnTagCnt = 0 *!* FOR i = 1 to 20 *!* IF LEN(TAG(i)) > 0 *!* lnTagCnt = lnTagCnt + 1 *!* ELSE *!* EXIT *!* ENDIF *!* ENDFOR *!* *Build an array of available indexs *!* DIMENSION thisform.aWhatIndex(lnTagCnt) *!* FOR i = 1 TO lnTagCnt *!* thisform.aWhatIndex(i) = TAG(i) *!* ENDFOR *!* ThisForm.cboWhichIndex.NumberOfElements = lnTagCnt *!* ThisForm.cboWhichIndex.value = "cu_sname" SELECT Products.pr_id, Products.Description; FROM trackerdb!products; ORDER BY Products.Description; INTO Array thisform.aProductList Select (thisform.cCurrentTable) ENDPROC  %^|U;%C 4G(( this.valueTaUTHISVALUETHISFORM LISNEWINDEXt%C mG(( this.valueTa#)C CU THISVALUETHISFORM CCURRENTTABLE LISNEWINDEX CMDBUTTONSCMDTOPCLICKREFRESHValid,Click111A241A3d)T ;;6 %U%+%  C BC+End date can not be earlier than start date0ErrorxB-UTHISFORM CMDBUTTONSEDITMODETHISVALUEPARENT TXTSA_DATEh%a%C<CAL(C$]CAL(UTHISFORM CMDBUTTONSEDITMODETHISVALUECALValid,DblClick11!qAA41!qAA1 ); jj% UTUTHIS UOLDVALUEVALUEN%+TaGT-UTHIS UOLDVALUEVALUEPARENTCHKISNONSTDPRICEWhen,Valid^112qAAA1+G)jP 77eO% Uh%a%C<CAL(C$]CAL(UTHISFORM CMDBUTTONSEDITMODETHISVALUECALDblClick,11!qAA1)7BArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 8, 5, 14, 11, 29, 3, 0 frmCustomerInfoSIZERcontrolccustomerid Contains the current customer ID nchangeslost ncurrentrecord pickindex Set order of table cnewproductid ldosalesrequery lisnewindex cprevioustable *changesalesstatus ^awhatindex[1,0] ^aproductlist[1,1] *getproductinfo *setdescription ^acompanycode[1,1]  t_pageframe..\libs\t_base.vcx pageframepgfCustomerInfofrmCustomerInfoEErasePage = .T. PageCount = 6 Top = 0 Left = 0 Width = 700 Height = 468 TabIndex = 1 Name = "pgfCustomerInfo" Page1.Caption = "Customer" Page1.Enabled = .T. Page1.PageOrder = 1 Page1.Name = "Page1" Page2.Caption = "Misc" Page2.PageOrder = 2 Page2.Name = "Page2" Page3.Caption = "Notes" Page3.PageOrder = 3 Page3.Name = "pagNotes" Page4.Caption = "Sales" Page4.PageOrder = 5 Page4.Name = "pagSales" Page5.Caption = "Sales Detail" Page5.PageOrder = 6 Page5.Name = "pagSalesDetail" Page6.Caption = "Cust List" Page6.PageOrder = 4 Page6.Name = "pagCustList" PROCEDURE Page1.Refresh DO CASE CASE cu_Status = "I" This.lblCustomerStatus.visible = .T. This.lblCustomerStatus.caption = "Inactive" CASE cu_Status = "D" This.lblCustomerStatus.visible = .T. This.lblCustomerStatus.caption = "Deleted" OTHERWISE This.lblCustomerStatus.visible = .F. ENDCASE ENDPROC PROCEDURE Page1.Deactivate DODEFAULT() * We use this to see if we have chaged tables as we move through the pages thisform.cPreviousTable = thisform.cCurrentTable ENDPROC PROCEDURE Page1.Activate DODEFAULT() thisform.cCurrentTable = "Customer" IF thisform.cPreviousTable <> thisform.cCurrentTable select (thisform.cCurrentTable) * This tells the command buttons what work area is selected ThisForm.cmdButtons.nWorkarea = SELECT() *Refresh the navigation buttons thisform.cmdButtons.TopFile = .F. thisform.cmdButtons.EndFile = .F. ThisForm.cmdButtons.NavRefresh() ENDIF * Enable the index selection combo box ThisForm.cboWhichIndex.enabled = !ThisForm.cmdButtons.editmode ThisForm.cboWhichIndex.Readonly = ThisForm.cmdButtons.editmode * This is used to tell us that we need to requery sales info * because we may have selected a new customer thisform.lDoSalesRequery = .T. * Refresh the screen since we may have moved on the grid Thisform.Refresh() ENDPROC PROCEDURE Page2.Deactivate DODEFAULT() * We use this to see if we have chaged tables as we move through the pages thisform.cPreviousTable = thisform.cCurrentTable ENDPROC PROCEDURE Page2.Activate DODEFAULT() thisform.cCurrentTable = "Customer" IF thisform.cPreviousTable <> thisform.cCurrentTable select (thisform.cCurrentTable) * This tells the command buttons what work area is selected ThisForm.cmdButtons.nWorkarea = SELECT() *Refresh the navigation buttons thisform.cmdButtons.TopFile = .F. thisform.cmdButtons.EndFile = .F. ThisForm.cmdButtons.NavRefresh() ENDIF *!* * Enable the index selection combo box ThisForm.cboWhichIndex.enabled = !ThisForm.cmdButtons.editmode ThisForm.cboWhichIndex.Readonly = ThisForm.cmdButtons.editmode * This is used to tell us that we need to requery sales info * because we may have selected a new customer thisform.lDoSalesRequery = .T. * Refresh the screen since we may have moved on the grid Thisform.refresh() ENDPROC PROCEDURE Page2.Refresh DO CASE CASE cu_Status = "I" This.lblCustomerStatus.visible = .T. This.lblCustomerStatus.caption = "Inactive" CASE cu_Status = "D" This.lblCustomerStatus.visible = .T. This.lblCustomerStatus.caption = "Deleted" OTHERWISE This.lblCustomerStatus.visible = .F. ENDCASE ENDPROC PROCEDURE pagNotes.Deactivate DODEFAULT() * We use this to see if we have chaged tables as we move through the pages thisform.cPreviousTable = thisform.cCurrentTable ENDPROC PROCEDURE pagNotes.Activate DODEFAULT() thisform.cCurrentTable = "Customer" IF thisform.cPreviousTable <> thisform.cCurrentTable select (thisform.cCurrentTable) * This tells the command buttons what work area is selected ThisForm.cmdButtons.nWorkarea = SELECT() *Refresh the navigation buttons thisform.cmdButtons.TopFile = .F. thisform.cmdButtons.EndFile = .F. ThisForm.cmdButtons.NavRefresh() ENDIF *!* * Enable the index selection combo box ThisForm.cboWhichIndex.enabled = !ThisForm.cmdButtons.editmode ThisForm.cboWhichIndex.Readonly = ThisForm.cmdButtons.editmode * This is used to tell us that we need to requery sales info * because we may have selected a new customer thisform.lDoSalesRequery = .T. * Refresh the screen since we may have moved on the grid Thisform.refresh() ENDPROC PROCEDURE pagSales.Deactivate DODEFAULT() * We use this to see if we have chaged tables as we move through the pages thisform.cPreviousTable = thisform.cCurrentTable ENDPROC PROCEDURE pagSales.Activate DODEFAULT() thisform.cCurrentTable = 'v_SalesForCustomer' IF thisform.cPreviousTable <> thisform.cCurrentTable select (thisform.cCurrentTable) * This tells the command buttons what work area is selected ThisForm.cmdButtons.nWorkarea = SELECT() *Refresh the navigation buttons thisform.cmdButtons.TopFile = .F. thisform.cmdButtons.EndFile = .F. ThisForm.cmdButtons.NavRefresh() ENDIF REQUERY(thisform.cCurrentTable) Thisform.refresh() *!* * Enable the index selection combo box ThisForm.cboWhichIndex.enabled = .F. ThisForm.cboWhichIndex.Readonly = .T. ENDPROC PROCEDURE pagSalesDetail.Deactivate DODEFAULT() * We use this to see if we have chaged tables as we move through the pages thisform.cPreviousTable = thisform.cCurrentTable ENDPROC PROCEDURE pagSalesDetail.Activate DODEFAULT() * Build array for company codes SELECT Company.co_name, Company.company_id, Company.co_code; FROM trackerdb!company; ORDER BY Company.co_name; INTO ARRAY thisform.aCompanyCode This.cboCompanyCode.NumberOfElements = ALEN(thisform.aCompanyCode) USE In Company thisform.cCurrentTable = 'v_SalesForCustomer' IF thisform.cPreviousTable <> thisform.cCurrentTable select (thisform.cCurrentTable) * This tells the command buttons what work area is selected ThisForm.cmdButtons.nWorkarea = SELECT() * Refresh the navigation buttons thisform.cmdButtons.TopFile = .F. thisform.cmdButtons.EndFile = .F. ThisForm.cmdButtons.NavRefresh() ENDIF * We need this so that we do not requery when doing an add or edit IF thisform.lDoSalesRequery REQUERY(thisform.cCurrentTable) thisform.lDoSalesRequery = .F. ENDIF ThisForm.cboWhichIndex.enabled = .F. ThisForm.cboWhichIndex.Readonly = .T. Thisform.refresh() ENDPROC PROCEDURE pagSalesDetail.Refresh DO CASE CASE sa_Status = "I" This.lblSalesStatus.visible = .T. This.lblSalesStatus.caption = "Inactive" CASE sa_Status = "D" This.lblSalesStatus.visible = .T. This.lblSalesStatus.caption = "Deleted" OTHERWISE This.lblSalesStatus.visible = .F. ENDCASE ENDPROC PROCEDURE pagCustList.Deactivate DODEFAULT() * We use this to see if we have chaged tables as we move through the pages thisform.cPreviousTable = thisform.cCurrentTable ENDPROC PROCEDURE pagCustList.Activate thisform.cCurrentTable = "Customer" IF thisform.cPreviousTable <> thisform.cCurrentTable select (thisform.cCurrentTable) * This tells the command buttons what work area is selected ThisForm.cmdButtons.nWorkarea = SELECT() *Refresh the navigation buttons thisform.cmdButtons.TopFile = .F. thisform.cmdButtons.EndFile = .F. ThisForm.cmdButtons.NavRefresh() ENDIF ThisForm.cboWhichIndex.enabled = !ThisForm.cmdButtons.editmode ThisForm.cboWhichIndex.Readonly = ThisForm.cmdButtons.editmode Thisform.refresh() * This is used to tell us that we need to requery sales info * because we may have selected a new customer thisform.lDoSalesRequery = .T. ENDPROC  tt % U CT-UTHISHADERROR# CT UTHISFORM CBOWHICHINDEXENABLEDTHISEDITMODE CT% UTaT aT-T -!% % A TaT-UTHISFORM CCUSTOMERIDCUSTOMER CUSTOMER_IDPGFCUSTOMERINFO ACTIVEPAGETHISCMDFINDVISIBLECMDPRINT LISREADONLYV_SALESFORCUSTOMER SA_STATUSEDITMODE CMDBUTTONSCMDEDIT R,hiUNERRORCMETHODNLINE5 Tforms\SearchOptions( H@ IndexSearch5% TCtcu_sname :20 :H = "Ship Name", cu_scontact :20 :H = "Ship Contact", cu_scity :15 :H = "Ship City"RECNO()%C dT T -T -C R, Find Aborted PowerSearch C2%CNo search selected xU CSEARCHWHATFORMSRECNUMTHISFORMPGFCUSTOMERINFO ACTIVEPAGEM_BROWSE CCUSTOMERIDCUSTOMER CUSTOMER_IDTHISPARENTTOPFILEENDFILE NAVREFRESHO2G~(libs\t_Applicationlibs\oleAutomationTC LetterInfoNULIBS OLETTERINFO. T T%\ nT T"forms\StatusChange( % A > j[C<Customer record is not active. Status change is not allowed0 Status ChangexU LCNEWSTATUS LCOLDSTATUSTHISFORMPGFCUSTOMERINFO ACTIVEPAGECUSTOMER CU_STATUSFORMSCHANGESALESSTATUSV_SALESFORCUSTOMER SA_STATUSInit, buttonrefreshZRefresh cmdPrev.Errorm cmdFind.ClickcmdPrint.Click+ CMDADD.Click cmdEdit.ClickcmdDelete.Click 13s42qAAAAA32qqxQ 1aAAQB5#4qtAAA1qQAAAAA12"AAAAAAAqB22tAAAqAAAAqqqAA1qAAAAAAAqrA3s#A"AA12V$Hz$(2O5CXVgy)tP 77eO% Uh%a%C<CAL(C$]CAL(UTHISFORM CMDBUTTONSEDITMODETHISVALUECALDblClick,11!qAA1)7kTop = 487 Left = 687 Name = "SIZER" lblhighlight.Name = "lblhighlight" lblshading.Name = "lblshading" sizer t_textbox..\libs\t_base.vcxtextbox txtCu_sname%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_sname" Height = 23 Left = 108 MaxLength = 40 SelectOnEntry = .T. TabIndex = 1 Top = 20 Width = 288 Name = "txtCu_sname"  t_textbox..\libs\t_base.vcxtextbox txtCu_bname%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_bname" Height = 23 Left = 108 MaxLength = 40 TabIndex = 14 Top = 247 Width = 288 Name = "txtCu_bname"  t_textbox..\libs\t_base.vcxtextboxtxtCu_bcontact%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_bcontact" Height = 23 Left = 108 MaxLength = 40 TabIndex = 15 Top = 271 Width = 288 Name = "txtCu_bcontact"  t_textbox..\libs\t_base.vcxtextbox txtCu_bphone%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_bphone" Height = 23 InputMask = "(999)999-9999" Left = 108 MaxLength = 13 TabIndex = 23 Top = 391 Width = 93 Name = "txtCu_bphone"  t_textbox..\libs\t_base.vcxtextbox txtCu_bext%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_bext" Height = 23 Left = 230 MaxLength = 4 TabIndex = 24 Top = 391 Width = 39 Name = "txtCu_bext"  t_textbox..\libs\t_base.vcxtextbox txtCu_bfax%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_bfax" Height = 23 InputMask = "(999)999-9999" Left = 301 MaxLength = 13 TabIndex = 25 Top = 391 Width = 93 Name = "txtCu_bfax"  t_textbox..\libs\t_base.vcxtextbox txtCu_baddr1%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_baddr1" Height = 23 Left = 108 MaxLength = 40 TabIndex = 16 Top = 295 Width = 288 Name = "txtCu_baddr1"  t_textbox..\libs\t_base.vcxtextbox txtCu_baddr2%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_baddr2" Height = 23 Left = 108 MaxLength = 40 TabIndex = 17 Top = 319 Width = 288 Name = "txtCu_baddr2"  t_textbox..\libs\t_base.vcxtextbox txtCu_baddr3%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_baddr3" Height = 23 Left = 108 MaxLength = 40 TabIndex = 18 Top = 343 Width = 288 Name = "txtCu_baddr3"  t_textbox..\libs\t_base.vcxtextbox txtCu_bcity%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_bcity" Height = 23 Left = 108 MaxLength = 20 TabIndex = 19 Top = 367 Width = 148 Name = "txtCu_bcity"  t_textbox..\libs\t_base.vcxtextbox txtCu_bstate%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_bstate" Height = 23 InputMask = "!!!" Left = 298 MaxLength = 3 TabIndex = 20 Top = 367 Width = 33 Name = "txtCu_bstate"  t_textbox..\libs\t_base.vcxtextbox txtCu_bzip%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_bzip" Height = 23 Left = 360 MaxLength = 10 TabIndex = 21 Top = 367 Width = 79 Name = "txtCu_bzip"  t_textbox..\libs\t_base.vcxtextbox txtCu_bcounty%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_bcounty" Height = 23 Left = 503 MaxLength = 20 TabIndex = 22 Top = 367 Width = 148 Name = "txtCu_bcounty"  t_textbox..\libs\t_base.vcxtextboxtxtCu_scontact%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_scontact" Height = 23 Left = 108 MaxLength = 40 SelectOnEntry = .T. TabIndex = 2 Top = 44 Width = 288 Name = "txtCu_scontact"  t_textbox..\libs\t_base.vcxtextbox txtCu_sphone%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" DateMark = "" ControlSource = "cu_sphone" Height = 23 InputMask = "(999)999-9999" Left = 108 MaxLength = 13 SelectOnEntry = .T. TabIndex = 10 Top = 164 Width = 93 Name = "txtCu_sphone"  t_textbox..\libs\t_base.vcxtextbox txtCu_sext%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_sext" Height = 23 Left = 230 MaxLength = 4 SelectOnEntry = .T. TabIndex = 11 Top = 164 Width = 39 Name = "txtCu_sext"  t_textbox..\libs\t_base.vcxtextbox txtCu_sfax%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_sfax" Height = 23 InputMask = "(999)999-9999" Left = 301 MaxLength = 13 SelectOnEntry = .T. TabIndex = 12 Top = 164 Width = 93 Name = "txtCu_sfax"  t_textbox..\libs\t_base.vcxtextbox txtCu_saddr1%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_saddr1" Height = 23 Left = 108 MaxLength = 40 SelectOnEntry = .T. TabIndex = 3 Top = 68 Width = 288 Name = "txtCu_saddr1"  t_textbox..\libs\t_base.vcxtextbox txtCu_saddr2%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_saddr2" Height = 23 Left = 108 MaxLength = 40 SelectOnEntry = .T. TabIndex = 4 Top = 92 Width = 288 Name = "txtCu_saddr2"  t_textbox..\libs\t_base.vcxtextbox txtCu_saddr3%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_saddr3" Height = 23 Left = 108 MaxLength = 40 SelectOnEntry = .T. TabIndex = 5 Top = 116 Width = 288 Name = "txtCu_saddr3"  t_textbox..\libs\t_base.vcxtextbox txtCu_scity%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_scity" Height = 23 Left = 108 MaxLength = 20 SelectOnEntry = .T. TabIndex = 6 Top = 140 Width = 148 Name = "txtCu_scity"  t_textbox..\libs\t_base.vcxtextbox txtCu_sstate%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_sstate" Height = 23 InputMask = "!!!" Left = 298 MaxLength = 3 SelectOnEntry = .T. TabIndex = 7 Top = 140 Width = 33 Name = "txtCu_sstate"  t_textbox..\libs\t_base.vcxtextbox txtCu_szip%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_szip" Height = 23 Left = 360 MaxLength = 10 SelectOnEntry = .T. TabIndex = 8 Top = 140 Width = 79 Name = "txtCu_szip"  t_textbox..\libs\t_base.vcxtextbox txtCu_scounty%frmCustomerInfo.pgfCustomerInfo.Page1Comment = "" ControlSource = "cu_scounty" Height = 23 Left = 503 MaxLength = 20 SelectOnEntry = .T. TabIndex = 9 Top = 140 Width = 148 Name = "txtCu_scounty" t_label..\libs\t_base.vcxlabellblName%frmCustomerInfo.pgfCustomerInfo.Page1HCaption = "Name" Left = 53 Top = 23 TabIndex = 28 Name = "lblName" t_label..\libs\t_base.vcxlabel lblAddress%frmCustomerInfo.pgfCustomerInfo.Page1gCaption = "Address" Height = 16 Left = 53 Top = 71 Width = 49 TabIndex = 29 Name = "lblAddress" t_label..\libs\t_base.vcxlabellblCity%frmCustomerInfo.pgfCustomerInfo.Page1ICaption = "City" Left = 53 Top = 143 TabIndex = 30 Name = "lblCity" t_label..\libs\t_base.vcxlabellblState%frmCustomerInfo.pgfCustomerInfo.Page1eCaption = "State" Height = 16 Left = 263 Top = 143 Width = 31 TabIndex = 31 Name = "lblState" t_label..\libs\t_base.vcxlabellblZip%frmCustomerInfo.pgfCustomerInfo.Page1aCaption = "Zip" Height = 16 Left = 335 Top = 143 Width = 24 TabIndex = 32 Name = "lblZip" t_label..\libs\t_base.vcxlabel lblCountry%frmCustomerInfo.pgfCustomerInfo.Page1iCaption = "Country" Height = 16 Left = 452 Top = 143 Width = 48 TabIndex = 33 Name = "lblCountry" t_label..\libs\t_base.vcxlabellblPhone%frmCustomerInfo.pgfCustomerInfo.Page1KCaption = "Phone" Left = 53 Top = 168 TabIndex = 34 Name = "lblPhone" t_label..\libs\t_base.vcxlabellblExt%frmCustomerInfo.pgfCustomerInfo.Page1aCaption = "Ext" Height = 16 Left = 207 Top = 168 Width = 19 TabIndex = 35 Name = "lblExt" t_label..\libs\t_base.vcxlabellblFax%frmCustomerInfo.pgfCustomerInfo.Page1aCaption = "Fax" Height = 16 Left = 275 Top = 168 Width = 23 TabIndex = 36 Name = "lblFax" t_label..\libs\t_base.vcxlabelT_label9%frmCustomerInfo.pgfCustomerInfo.Page1JCaption = "Name" Left = 53 Top = 250 TabIndex = 37 Name = "T_label9" t_label..\libs\t_base.vcxlabel T_label10%frmCustomerInfo.pgfCustomerInfo.Page1gCaption = "Address" Height = 16 Left = 53 Top = 298 Width = 49 TabIndex = 38 Name = "T_label10" t_label..\libs\t_base.vcxlabel T_label11%frmCustomerInfo.pgfCustomerInfo.Page1KCaption = "City" Left = 53 Top = 370 TabIndex = 39 Name = "T_label11" t_label..\libs\t_base.vcxlabel T_label12%frmCustomerInfo.pgfCustomerInfo.Page1fCaption = "State" Height = 16 Left = 263 Top = 370 Width = 31 TabIndex = 40 Name = "T_label12" t_label..\libs\t_base.vcxlabel T_label13%frmCustomerInfo.pgfCustomerInfo.Page1dCaption = "Zip" Height = 16 Left = 335 Top = 370 Width = 24 TabIndex = 41 Name = "T_label13" t_label..\libs\t_base.vcxlabel T_label14%frmCustomerInfo.pgfCustomerInfo.Page1hCaption = "Country" Height = 16 Left = 452 Top = 370 Width = 48 TabIndex = 42 Name = "T_label14" t_label..\libs\t_base.vcxlabel T_label15%frmCustomerInfo.pgfCustomerInfo.Page1LCaption = "Phone" Left = 53 Top = 395 TabIndex = 43 Name = "T_label15" t_label..\libs\t_base.vcxlabel T_label16%frmCustomerInfo.pgfCustomerInfo.Page1dCaption = "Ext" Height = 16 Left = 207 Top = 395 Width = 19 TabIndex = 44 Name = "T_label16" t_label..\libs\t_base.vcxlabel T_label17%frmCustomerInfo.pgfCustomerInfo.Page1dCaption = "Fax" Height = 16 Left = 275 Top = 395 Width = 23 TabIndex = 45 Name = "T_label17" t_line..\libs\t_base.vcxlineT_line1%frmCustomerInfo.pgfCustomerInfo.Page1?Height = 0 Left = 44 Top = 8 Width = 624 Name = "T_line1" t_line..\libs\t_base.vcxlineT_line2%frmCustomerInfo.pgfCustomerInfo.Page1AHeight = 0 Left = 44 Top = 200 Width = 624 Name = "T_line2" t_line..\libs\t_base.vcxlineT_line3%frmCustomerInfo.pgfCustomerInfo.Page1AHeight = 0 Left = 44 Top = 237 Width = 624 Name = "T_line3" t_line..\libs\t_base.vcxlineT_line4%frmCustomerInfo.pgfCustomerInfo.Page1AHeight = 0 Left = 44 Top = 429 Width = 624 Name = "T_line4" t_line..\libs\t_base.vcxlineT_line5%frmCustomerInfo.pgfCustomerInfo.Page1?Height = 192 Left = 44 Top = 8 Width = 0 Name = "T_line5" t_line..\libs\t_base.vcxlineT_line6%frmCustomerInfo.pgfCustomerInfo.Page1@Height = 193 Left = 668 Top = 8 Width = 0 Name = "T_line6" t_line..\libs\t_base.vcxlineT_line7%frmCustomerInfo.pgfCustomerInfo.Page1AHeight = 192 Left = 44 Top = 237 Width = 0 Name = "T_line7" t_line..\libs\t_base.vcxlineT_line8%frmCustomerInfo.pgfCustomerInfo.Page1BHeight = 193 Left = 668 Top = 237 Width = 0 Name = "T_line8" t_line..\libs\t_base.vcxlineT_line9%frmCustomerInfo.pgfCustomerInfo.Page1mBorderStyle = 1 Height = 0 Left = 45 Top = 200 Width = 624 BorderColor = 255,255,255 Name = "T_line9" t_line..\libs\t_base.vcxlineT_line10%frmCustomerInfo.pgfCustomerInfo.Page1nBorderStyle = 1 Height = 0 Left = 45 Top = 429 Width = 624 BorderColor = 255,255,255 Name = "T_line10" t_line..\libs\t_base.vcxlineT_line11%frmCustomerInfo.pgfCustomerInfo.Page1\Height = 193 Left = 668 Top = 8 Width = 0 BorderColor = 255,255,255 Name = "T_line11" t_line..\libs\t_base.vcxlineT_line12%frmCustomerInfo.pgfCustomerInfo.Page1^Height = 193 Left = 668 Top = 237 Width = 0 BorderColor = 255,255,255 Name = "T_line12" t_commandbutton..\libs\t_base.vcx commandbuttoncmdCopyAddress%frmCustomerInfo.pgfCustomerInfo.Page1{Top = 205 Left = 310 Caption = "Copy Address" TabIndex = 13 Visible = (thisform.lIsReadOnly) Name = "cmdCopyAddress" PROCEDURE Click * Copy the Shipping address to billing if billing line is empty IF EMPTY(This.Parent.txtCu_bname.value) This.Parent.txtCu_bname.value = This.Parent.txtCu_sname.value ENDIF IF EMPTY(This.Parent.txtCu_bcontact.value) This.Parent.txtCu_bcontact.value = This.Parent.txtCu_scontact.value ENDIF IF EMPTY(This.Parent.txtCu_baddr1.value) This.Parent.txtCu_baddr1.value = This.Parent.txtCu_saddr1.value ENDIF IF EMPTY(This.Parent.txtCu_baddr2.value) This.Parent.txtCu_baddr2.value = This.Parent.txtCu_saddr2.value ENDIF IF EMPTY(This.Parent.txtCu_baddr3.value) This.Parent.txtCu_baddr3.value = This.Parent.txtCu_saddr3.value ENDIF IF EMPTY(This.Parent.txtCu_bCity.value) This.Parent.txtCu_bCity.value = This.Parent.txtCu_sCity.value ENDIF IF EMPTY(This.Parent.txtCu_bState.value) This.Parent.txtCu_bState.value = This.Parent.txtCu_sState.value ENDIF IF EMPTY(This.Parent.txtCu_bZip.value) This.Parent.txtCu_bZip.value = This.Parent.txtCu_sZip.value ENDIF IF EMPTY(This.Parent.txtCu_bCounty.value) This.Parent.txtCu_bCounty.value = This.Parent.txtCu_sCounty.value ENDIF IF EMPTY(This.Parent.txtCu_bPhone.value) This.Parent.txtCu_bPhone.value = This.Parent.txtCu_sPhone.value ENDIF IF EMPTY(This.Parent.txtCu_bExt.value) This.Parent.txtCu_bExt.value = This.Parent.txtCu_sExt.value ENDIF IF EMPTY(This.Parent.txtCu_bFax.value) This.Parent.txtCu_bFax.value = This.Parent.txtCu_sFax.value ENDIF ENDPROC  zz%1U %TaTaTaT aT aT aT aT aTaTaTaTaUTHISFORM CMDBUTTONSEDITMODETHISPARENT CHKSA_BJANVALUE CHKSA_BFEB CHKSA_BMAR CHKSA_BAPR CHKSA_BMAY CHKSA_BJUN CHKSA_BJUL CHKSA_BAUG CHKSA_BSEP CHKSA_BOCT CHKSA_BNOV CHKSA_BDECDblClick,11AAAAAAAAAAAAA1)z }%iUh%a%C<CAL(C$]CAL(UTHISFORM CMDBUTTONSEDITMODETHISVALUECALn%g%Cc7C Start date can not be left blank0ErrorxB-UTHISFORM CMDBUTTONSEDITMODETHISVALUEDblClick,Valid11!qAA21!qqAA2 e )..\libs\resize.vcxfrmCustomerInfo cboWhichIndexcomboboxgridt_label..\libs\t_base.vcxlabel T_label25%frmCustomerInfo.pgfCustomerInfo.Page1WCaption = "Contact" Height = 16 Left = 53 Top = 48 Width = 51 Name = "T_label25" t_label..\libs\t_base.vcxlabel T_label26%frmCustomerInfo.pgfCustomerInfo.Page1XCaption = "Contact" Height = 16 Left = 53 Top = 274 Width = 51 Name = "T_label26" t_shape..\libs\t_base.vcxshapeT_shape1%frmCustomerInfo.pgfCustomerInfo.Page1zTop = 8 Left = 27 Height = 194 Width = 18 BackStyle = 1 BorderStyle = 0 BackColor = 128,128,255 Name = "T_shape1" t_label..\libs\t_base.vcxlabelT_label1%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "L" Left = 31 Top = 12 Width = 10 TabIndex = 46 Name = "T_label1" t_label..\libs\t_base.vcxlabelT_label2%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "o" Left = 31 Top = 36 Width = 10 TabIndex = 47 Name = "T_label2" t_label..\libs\t_base.vcxlabelT_label3%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "c" Left = 31 Top = 60 Width = 10 TabIndex = 48 Name = "T_label3" t_label..\libs\t_base.vcxlabelT_label4%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "a" Left = 31 Top = 84 Width = 10 TabIndex = 49 Name = "T_label4" t_label..\libs\t_base.vcxlabelT_label5%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "t" Left = 31 Top = 108 Width = 10 TabIndex = 50 Name = "T_label5" t_label..\libs\t_base.vcxlabelT_label6%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "i" Left = 31 Top = 132 Width = 10 TabIndex = 51 Name = "T_label6" t_label..\libs\t_base.vcxlabelT_label7%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "o" Left = 31 Top = 156 Width = 10 TabIndex = 52 Name = "T_label7" t_label..\libs\t_base.vcxlabelT_label8%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "n" Left = 31 Top = 180 Width = 10 TabIndex = 53 Name = "T_label8" t_shape..\libs\t_base.vcxshapeT_shape2%frmCustomerInfo.pgfCustomerInfo.Page1|Top = 237 Left = 27 Height = 194 Width = 18 BackStyle = 1 BorderStyle = 0 BackColor = 128,128,255 Name = "T_shape2" t_label..\libs\t_base.vcxlabel T_label18%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "B" Left = 31 Top = 255 Width = 10 TabIndex = 54 Name = "T_label18" t_label..\libs\t_base.vcxlabel T_label19%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "i" Left = 31 Top = 279 Width = 10 TabIndex = 55 Name = "T_label19" t_label..\libs\t_base.vcxlabel T_label20%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "l" Left = 31 Top = 303 Width = 10 TabIndex = 56 Name = "T_label20" t_label..\libs\t_base.vcxlabel T_label21%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "l" Left = 31 Top = 327 Width = 10 TabIndex = 57 Name = "T_label21" t_label..\libs\t_base.vcxlabel T_label22%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "i" Left = 31 Top = 351 Width = 10 TabIndex = 58 Name = "T_label22" t_label..\libs\t_base.vcxlabel T_label23%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "n" Left = 31 Top = 375 Width = 10 TabIndex = 59 Name = "T_label23" t_label..\libs\t_base.vcxlabel T_label24%frmCustomerInfo.pgfCustomerInfo.Page1FontBold = .T. FontSize = 10 Alignment = 2 Caption = "g" Left = 31 Top = 399 Width = 10 TabIndex = 60 Name = "T_label24" t_label..\libs\t_base.vcxlabellblCustomerStatus%frmCustomerInfo.pgfCustomerInfo.Page1FontShadow = .F. FontSize = 72 Alignment = 2 BackStyle = 0 Caption = "Status" Height = 96 Left = 179 Top = 164 Width = 336 Name = "lblCustomerStatus" textboxtextbox txtCu_email%frmCustomerInfo.pgfCustomerInfo.Page1sControlSource = "cu_email" Height = 22 Left = 490 MaxLength = 40 Top = 167 Width = 168 Name = "txtCu_email" labellabelLabel1%frmCustomerInfo.pgfCustomerInfo.Page1]Caption = "Location Email" Height = 13 Left = 403 Top = 171 Width = 85 Name = "Label1" textboxtextboxtxtCu_billemail%frmCustomerInfo.pgfCustomerInfo.Page1{ControlSource = "cu_billemail" Height = 21 Left = 488 MaxLength = 40 Top = 392 Width = 168 Name = "txtCu_billemail" labellabelLabel2%frmCustomerInfo.pgfCustomerInfo.Page1\Caption = "Billing Email" Height = 15 Left = 410 Top = 396 Width = 73 Name = "Label2"  t_textbox..\libs\t_base.vcxtextbox txtCu_sname%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" BorderStyle = 0 ControlSource = "customer.cu_sname" Enabled = .F. Height = 19 Left = 10 MaxLength = 40 ReadOnly = .T. SelectOnEntry = .T. SpecialEffect = 1 TabIndex = 20 Top = 416 Width = 275 Name = "txtCu_sname" t_shape..\libs\t_base.vcxshapeT_shape1%frmCustomerInfo.pgfCustomerInfo.Page2BTop = 8 Left = 11 Height = 396 Width = 677 Name = "T_shape1"  t_textbox..\libs\t_base.vcxtextboxtxtCu_id%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_id" Height = 23 Left = 125 MaxLength = 8 ReadOnly = .T. TabIndex = 1 Top = 15 Width = 65 Name = "txtCu_id" t_label..\libs\t_base.vcxlabellblCu_id%frmCustomerInfo.pgfCustomerInfo.Page2iCaption = "Customer ID" Height = 17 Left = 20 Top = 19 Width = 72 TabIndex = 21 Name = "lblCu_id"  t_textbox..\libs\t_base.vcxtextbox txtCu_pin%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_pin" Height = 23 Left = 125 MaxLength = 8 TabIndex = 6 Top = 116 Width = 73 Name = "txtCu_pin" t_label..\libs\t_base.vcxlabel lblCu_pin%frmCustomerInfo.pgfCustomerInfo.Page2cCaption = "PIN" Height = 17 Left = 20 Top = 120 Width = 22 TabIndex = 22 Name = "lblCu_pin"  t_textbox..\libs\t_base.vcxtextbox txtCu_pic%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_pic" Height = 23 Left = 125 MaxLength = 7 TabIndex = 7 Top = 140 Width = 58 Name = "txtCu_pic" t_label..\libs\t_base.vcxlabel lblCu_pic%frmCustomerInfo.pgfCustomerInfo.Page2cCaption = "PIC" Height = 17 Left = 20 Top = 144 Width = 22 TabIndex = 23 Name = "lblCu_pic"  t_textbox..\libs\t_base.vcxtextbox txtCu_custnum%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_custnum" Height = 23 Left = 125 Margin = 2 MaxLength = 6 TabIndex = 2 Top = 44 Width = 52 Name = "txtCu_custnum" t_label..\libs\t_base.vcxlabel lblCu_custnum%frmCustomerInfo.pgfCustomerInfo.Page2sCaption = "Customer Number" Height = 17 Left = 20 Top = 48 Width = 105 TabIndex = 24 Name = "lblCu_custnum"  t_textbox..\libs\t_base.vcxtextbox txtCu_acctno%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_acctno" Height = 23 InputMask = "A999999" Left = 125 MaxLength = 7 TabIndex = 3 Top = 68 Width = 58 Name = "txtCu_acctno" t_label..\libs\t_base.vcxlabel lblCu_acctno%frmCustomerInfo.pgfCustomerInfo.Page2pCaption = "Account Number" Height = 17 Left = 20 Top = 72 Width = 93 TabIndex = 25 Name = "lblCu_acctno"  t_textbox..\libs\t_base.vcxtextbox txtCu_region%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_region" Height = 23 Left = 125 TabIndex = 5 Top = 92 Width = 21 Name = "txtCu_region" t_label..\libs\t_base.vcxlabel lblCu_region%frmCustomerInfo.pgfCustomerInfo.Page2hCaption = "Region" Height = 17 Left = 20 Top = 96 Width = 42 TabIndex = 26 Name = "lblCu_region"  t_textbox..\libs\t_base.vcxtextbox txtCu_group%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_group" Height = 23 Left = 197 MaxLength = 6 TabIndex = 4 Top = 68 Width = 43 Name = "txtCu_group"  t_textbox..\libs\t_base.vcxtextbox txtCu_ftrans%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_ftrans" Height = 23 Left = 410 TabIndex = 18 Top = 116 Width = 71 Name = "txtCu_ftrans" t_label..\libs\t_base.vcxlabel lblCu_ftrans%frmCustomerInfo.pgfCustomerInfo.Page2wCaption = "First Transmission" Height = 17 Left = 300 Top = 120 Width = 106 TabIndex = 27 Name = "lblCu_ftrans"  t_textbox..\libs\t_base.vcxtextbox txtCu_ltrans%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_ltrans" Height = 23 Left = 410 TabIndex = 19 Top = 140 Width = 71 Name = "txtCu_ltrans" t_label..\libs\t_base.vcxlabel lblCu_ltrans%frmCustomerInfo.pgfCustomerInfo.Page2vCaption = "Last Transmission" Height = 17 Left = 300 Top = 144 Width = 106 TabIndex = 28 Name = "lblCu_ltrans"  t_textbox..\libs\t_base.vcxtextbox txtCu_disc%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_disc" Height = 23 Left = 125 MaxLength = 4 TabIndex = 9 Top = 188 Width = 39 Name = "txtCu_disc" t_label..\libs\t_base.vcxlabel lblCu_disc%frmCustomerInfo.pgfCustomerInfo.Page2iCaption = "Discount" Height = 17 Left = 20 Top = 192 Width = 51 TabIndex = 29 Name = "lblCu_disc"  t_textbox..\libs\t_base.vcxtextbox txtCu_interfa%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_interfa" Height = 23 Left = 410 MaxLength = 20 TabIndex = 16 Top = 68 Width = 148 Name = "txtCu_interfa" t_label..\libs\t_base.vcxlabel lblCu_interfa%frmCustomerInfo.pgfCustomerInfo.Page2mCaption = "Interface" Height = 17 Left = 300 Top = 72 Width = 49 TabIndex = 30 Name = "lblCu_interfa"  t_textbox..\libs\t_base.vcxtextbox txtCu_taxrate%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_taxrate" Height = 23 Left = 125 TabIndex = 12 Top = 260 Width = 55 Name = "txtCu_taxrate" t_label..\libs\t_base.vcxlabel lblCu_taxrate%frmCustomerInfo.pgfCustomerInfo.Page2lCaption = "Tax Rate" Height = 17 Left = 20 Top = 264 Width = 50 TabIndex = 31 Name = "lblCu_taxrate"  t_textbox..\libs\t_base.vcxtextbox txtCu_market%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_market" Height = 23 Left = 125 MaxLength = 1 TabIndex = 11 Top = 236 Width = 21 Name = "txtCu_market" t_label..\libs\t_base.vcxlabel lblCu_market%frmCustomerInfo.pgfCustomerInfo.Page2iCaption = "Market" Height = 17 Left = 20 Top = 240 Width = 38 TabIndex = 32 Name = "lblCu_market"  t_textbox..\libs\t_base.vcxtextbox txtCu_shipchg%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_shipchg" Height = 23 Left = 125 TabIndex = 13 Top = 284 Width = 55 Name = "txtCu_shipchg" t_label..\libs\t_base.vcxlabel lblCu_shipchg%frmCustomerInfo.pgfCustomerInfo.Page2lCaption = "Shipping" Height = 17 Left = 20 Top = 288 Width = 51 TabIndex = 33 Name = "lblCu_shipchg"  t_textbox..\libs\t_base.vcxtextbox txtCu_san%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_san" Height = 23 Left = 125 MaxLength = 12 TabIndex = 8 Top = 164 Width = 93 Name = "txtCu_san" t_label..\libs\t_base.vcxlabel lblCu_san%frmCustomerInfo.pgfCustomerInfo.Page2cCaption = "San" Height = 17 Left = 20 Top = 168 Width = 24 TabIndex = 34 Name = "lblCu_san"  t_textbox..\libs\t_base.vcxtextbox txtCu_remitto%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_remitto" Height = 23 Left = 125 MaxLength = 3 TabIndex = 14 Top = 308 Width = 41 Name = "txtCu_remitto" t_label..\libs\t_base.vcxlabel lblCu_remitto%frmCustomerInfo.pgfCustomerInfo.Page2lCaption = "Remit to" Height = 17 Left = 20 Top = 312 Width = 48 TabIndex = 35 Name = "lblCu_remitto"  t_textbox..\libs\t_base.vcxtextbox txtCu_convrat%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_convrat" Height = 23 Left = 125 MaxLength = 3 TabIndex = 15 Top = 332 Width = 33 Name = "txtCu_convrat" t_label..\libs\t_base.vcxlabel lblCu_convrat%frmCustomerInfo.pgfCustomerInfo.Page2tCaption = "Convertsion rate" Height = 17 Left = 20 Top = 336 Width = 92 TabIndex = 36 Name = "lblCu_convrat"  t_textbox..\libs\t_base.vcxtextbox txtCu_pc130pd%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_pc130pd" Height = 23 Left = 410 MaxLength = 10 TabIndex = 17 Top = 92 Width = 120 Name = "txtCu_pc130pd" t_label..\libs\t_base.vcxlabel lblCu_pc130pd%frmCustomerInfo.pgfCustomerInfo.Page2nCaption = "Cu_pc130pd" Height = 17 Left = 300 Top = 96 Width = 73 TabIndex = 37 Name = "lblCu_pc130pd"  t_textbox..\libs\t_base.vcxtextbox txtCu_terr%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "cu_terr" Height = 23 Left = 125 MaxLength = 3 TabIndex = 10 Top = 212 Width = 33 Name = "txtCu_terr" t_label..\libs\t_base.vcxlabel lblCu_terr%frmCustomerInfo.pgfCustomerInfo.Page2jCaption = "Territory" Height = 17 Left = 20 Top = 216 Width = 46 TabIndex = 38 Name = "lblCu_terr" linelineLine1%frmCustomerInfo.pgfCustomerInfo.Page2ZHeight = 0 Left = 11 Top = 405 Width = 675 BorderColor = 255,255,255 Name = "Line1" linelineLine2%frmCustomerInfo.pgfCustomerInfo.Page2ZHeight = 396 Left = 686 Top = 10 Width = 0 BorderColor = 255,255,255 Name = "Line2" t_label..\libs\t_base.vcxlabellblAccountDash%frmCustomerInfo.pgfCustomerInfo.Page2uAlignment = 2 Caption = "-" Height = 16 Left = 185 Top = 72 Width = 12 TabIndex = 41 Name = "lblAccountDash"  t_checkbox..\libs\t_base.vcxcheckbox chkCu_license%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" Top = 20 Left = 300 Height = 17 Width = 168 Alignment = 0 Caption = "License Agreement on File" ControlSource = "cu_license" TabIndex = 42 Name = "chkCu_license"  t_textbox..\libs\t_base.vcxtextboxtxtCustomer_id%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "customer.customer_id" Height = 23 Left = 196 MaxLength = 8 ReadOnly = .T. TabIndex = 44 Top = 15 Width = 68 Name = "txtCustomer_id"  t_textbox..\libs\t_base.vcxtextbox txtCu_tsid%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "customer.cu_tsid" Height = 23 Left = 410 MaxLength = 10 TabIndex = 46 Top = 164 Width = 81 Name = "txtCu_tsid" labellabel lblCu_tsid%frmCustomerInfo.pgfCustomerInfo.Page2AutoSize = .F. WordWrap = .T. BackStyle = 0 Caption = "TSII ID" Left = 300 Top = 167 Width = 36 TabIndex = 45 Name = "lblCu_tsid"  t_textbox..\libs\t_base.vcxtextbox txtCu_tspw%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "customer.cu_tspw" Height = 23 Left = 410 MaxLength = 10 TabIndex = 48 Top = 188 Width = 81 Name = "txtCu_tspw" labellabel lblCu_tspw%frmCustomerInfo.pgfCustomerInfo.Page2AutoSize = .F. WordWrap = .T. BackStyle = 0 Caption = "TSII Password" Left = 300 Top = 191 Width = 80 TabIndex = 47 Name = "lblCu_tspw"  t_textbox..\libs\t_base.vcxtextboxtxtCu_ebisterr%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "customer.cu_ebisterr" Height = 23 Left = 410 MaxLength = 3 TabIndex = 50 Top = 212 Width = 39 Name = "txtCu_ebisterr" labellabellblCu_ebisterr%frmCustomerInfo.pgfCustomerInfo.Page2AutoSize = .F. WordWrap = .T. BackStyle = 0 Caption = "EBIS Sales Territory" Left = 300 Top = 215 Width = 109 TabIndex = 49 Name = "lblCu_ebisterr" t_label..\libs\t_base.vcxlabellblCustomerStatus%frmCustomerInfo.pgfCustomerInfo.Page2FontShadow = .F. FontSize = 72 Alignment = 2 BackStyle = 0 Caption = "Status" Height = 96 Left = 347 Top = 308 Width = 336 Name = "lblCustomerStatus" t_label..\libs\t_base.vcxlabelT_label1%frmCustomerInfo.pgfCustomerInfo.Page2[Caption = "Tech Email" Height = 16 Left = 300 Top = 241 Width = 83 Name = "T_label1"  t_textbox..\libs\t_base.vcxtextboxtxtcu_TechEmail%frmCustomerInfo.pgfCustomerInfo.Page2~ControlSource = "txtCu_techemail" Height = 23 Left = 410 MaxLength = 40 Top = 236 Width = 141 Name = "txtcu_TechEmail" textboxtextbox txtFscs_key%frmCustomerInfo.pgfCustomerInfo.Page2Comment = "" ControlSource = "customer.fscs_key" Height = 23 Left = 411 TabIndex = 58 Top = 43 Width = 55 Name = "txtFscs_key" labellabel lblFscs_key%frmCustomerInfo.pgfCustomerInfo.Page2AutoSize = .T. WordWrap = .T. BackStyle = 0 Caption = "Fscs_key" Left = 301 Top = 47 Width = 52 TabIndex = 57 Name = "lblFscs_key" textboxtextboxtxtCu_techcontactname%frmCustomerInfo.pgfCustomerInfo.Page2ControlSource = "cu_techcontactname" Height = 24 Left = 411 MaxLength = 40 Top = 262 Width = 140 Name = "txtCu_techcontactname" labellabelLabel1%frmCustomerInfo.pgfCustomerInfo.Page2`Caption = "Technical Contact" Height = 13 Left = 299 Top = 267 Width = 97 Name = "Label1"  t_textbox..\libs\t_base.vcxtextbox txtCu_notes(frmCustomerInfo.pgfCustomerInfo.pagNotesComment = "" ControlSource = "cu_notes" Height = 396 Left = 10 MaxLength = 254 TabIndex = 48 Top = 10 Width = 677 Name = "txtCu_notes"  t_textbox..\libs\t_base.vcxtextbox txtCu_status(frmCustomerInfo.pgfCustomerInfo.pagNotesComment = "" FontBold = .T. ControlSource = "cu_status" Enabled = .F. Format = "X" Height = 23 Left = 670 MaxLength = 1 TabIndex = 50 Top = 412 Width = 21 DisabledBackColor = 255,128,255 DisabledForeColor = 64,0,64 Name = "txtCu_status" t_label..\libs\t_base.vcxlabel lblCu_status(frmCustomerInfo.pgfCustomerInfo.pagNotesjCaption = "Status" Height = 17 Left = 625 Top = 415 Width = 37 TabIndex = 49 Name = "lblCu_status"  t_textbox..\libs\t_base.vcxtextbox txtCu_sname(frmCustomerInfo.pgfCustomerInfo.pagNotesComment = "" BorderStyle = 0 ControlSource = "customer.cu_sname" Enabled = .F. Height = 19 Left = 10 MaxLength = 40 ReadOnly = .T. SelectOnEntry = .T. SpecialEffect = 1 TabIndex = 1 Top = 416 Width = 275 Name = "txtCu_sname" t_grid..\libs\t_base.vcxgridT_grid1(frmCustomerInfo.pgfCustomerInfo.pagSalesColumnCount = 3 Height = 415 Left = 0 Panel = 1 ReadOnly = .T. RecordSource = "v_salesforcustomer" ScrollBars = 2 Top = 0 Width = 696 Name = "T_grid1" Column1.ControlSource = "sa_status" Column1.Width = 40 Column1.ReadOnly = .T. Column1.Name = "Column1" Column2.ControlSource = "sa_qty" Column2.Width = 58 Column2.ReadOnly = .T. Column2.Name = "Column2" Column3.ControlSource = "v_salesforcustomer.description" Column3.Width = 400 Column3.ReadOnly = .T. Column3.Name = "Column3" headerheaderHeader18frmCustomerInfo.pgfCustomerInfo.pagSales.T_grid1.Column15Alignment = 2 Caption = "Status" Name = "Header1" textboxtextboxText18frmCustomerInfo.pgfCustomerInfo.pagSales.T_grid1.Column1iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader18frmCustomerInfo.pgfCustomerInfo.pagSales.T_grid1.Column22Alignment = 2 Caption = "Qty" Name = "Header1" textboxtextboxText18frmCustomerInfo.pgfCustomerInfo.pagSales.T_grid1.Column2iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader18frmCustomerInfo.pgfCustomerInfo.pagSales.T_grid1.Column3:Alignment = 2 Caption = "Description" Name = "Header1" textboxtextboxText18frmCustomerInfo.pgfCustomerInfo.pagSales.T_grid1.Column3iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1"  t_textbox..\libs\t_base.vcxtextbox txtCu_sname(frmCustomerInfo.pgfCustomerInfo.pagSalesComment = "" BorderStyle = 0 ControlSource = "customer.cu_sname" Enabled = .F. Height = 19 Left = 11 MaxLength = 40 ReadOnly = .T. SelectOnEntry = .T. SpecialEffect = 1 TabIndex = 1 Top = 416 Width = 275 Name = "txtCu_sname"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_doprnt.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 415 Left = 538 Height = 17 Width = 75 Alignment = 0 Caption = "Print" ControlSource = "sa_doprnt" Enabled = .T. TabIndex = 59 Name = "chkSa_doprnt"  t_textbox..\libs\t_base.vcxtextbox txtCu_sname.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" BorderStyle = 0 ControlSource = "customer.cu_sname" Enabled = .F. Height = 19 Left = 10 MaxLength = 40 ReadOnly = .T. SelectOnEntry = .T. SpecialEffect = 1 TabIndex = 16 Top = 416 Width = 275 Name = "txtCu_sname" t_shape..\libs\t_base.vcxshapeT_shape1.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailBTop = 11 Left = 7 Height = 396 Width = 681 Name = "T_shape1"  t_textbox..\libs\t_base.vcxtextbox txtSa_qty.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" ControlSource = "sa_qty" Format = "K" Height = 23 InputMask = "9999999" Left = 72 MaxLength = 7 TabIndex = 1 Top = 24 Width = 57 Name = "txtSa_qty" t_label..\libs\t_base.vcxlabel lblSa_qty.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailgCaption = "Quantity" Height = 17 Left = 24 Top = 26 Width = 50 TabIndex = 17 Name = "lblSa_qty" t_label..\libs\t_base.vcxlabel lblPr_descrip.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailoCaption = "Description" Height = 17 Left = 136 Top = 26 Width = 62 TabIndex = 18 Name = "lblPr_descrip" t_label..\libs\t_base.vcxlabel lblPr_list.frmCustomerInfo.pgfCustomerInfo.pagSalesDetaileCaption = "List" Height = 17 Left = 580 Top = 28 Width = 28 TabIndex = 19 Name = "lblPr_list"  t_textbox..\libs\t_base.vcxtextboxtxtDescription.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" ControlSource = "description" Enabled = .T. Height = 23 Left = 206 MaxLength = 50 TabIndex = 2 Top = 26 Width = 358 Name = "txtDescription" ,PROCEDURE GotFocus IF EMPTY(this.value) AND this.enabled THEN thisform.GetProductInfo() This.Parent.txtSa_salesprice.setfocus ENDIF ENDPROC PROCEDURE DblClick IF EMPTY(this.value) AND this.enabled THEN thisform.GetProductInfo() This.Parent.txtSa_salesprice.setfocus ENDIF ENDPROC  a%\ U@%C 9 CUTHISVALUEENABLEDTHISFORMGETPRODUCTINFOPARENTTXTSA_SALESPRICESETFOCUS@%C 9 CUTHISVALUEENABLEDTHISFORMGETPRODUCTINFOPARENTTXTSA_SALESPRICESETFOCUSGotFocus,DblClick1A3A2!) t_textbox..\libs\t_base.vcxtextbox txtSa_date.frmCustomerInfo.pgfCustomerInfo.pagSalesDetail{Comment = "" ControlSource = "sa_date" Height = 23 Left = 128 TabIndex = 5 Top = 92 Width = 71 Name = "txtSa_date" pPROCEDURE DblClick IF ThisForm.cmdButtons.EditMode IF EMPTY(This.value) DO FORM CAL WITH DATE () TO This.value ELSE DO FORM CAL WITH This.value TO This.value ENDIF ENDIF ENDPROC PROCEDURE Valid IF ThisForm.cmdButtons.EditMode IF EMPTY(This.value) MESSAGEBOX("Start date can not be left blank",48,"Error") RETURN .F. ENDIF ENDIF ENDPROC PROCEDURE Valid IF !EMPTY(this.value) SET ORDER TO this.value thisform.lIsNewIndex = .T. ENDIF ENDPROC PROCEDURE Click *!* Changes made 04/07/2005 *!* *!* To allow change in order to take effect when a new order has been slected. IF !EMPTY(this.value) SET ORDER TO this.value In (thisform.cCurrentTable) thisform.lIsNewIndex = .T. go top In (thisform.cCurrentTable) thisform.cmdbuttons.cmdTop.Click() thisform.refresh() ENDIF *!* *!* End of Changes made 04/07/2005 ENDPROC ..\libs\t_base.vcxText1t_label..\libs\t_base.vcxlabel lblSa_date.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailjCaption = "Start date" Height = 17 Left = 24 Top = 92 Width = 75 TabIndex = 22 Name = "lblSa_date"  t_textbox..\libs\t_base.vcxtextbox txtSa_enddt.frmCustomerInfo.pgfCustomerInfo.pagSalesDetail~Comment = "" ControlSource = "sa_enddt" Height = 23 Left = 128 TabIndex = 6 Top = 115 Width = 71 Name = "txtSa_enddt"  PROCEDURE DblClick IF ThisForm.cmdButtons.EditMode IF EMPTY(This.value) DO FORM CAL TO This.value ELSE DO FORM CAL WITH This.value TO This.value ENDIF ENDIF ENDPROC PROCEDURE Valid IF ThisForm.cmdButtons.EditMode IF EMPTY(This.value) MESSAGEBOX("End date can not be left blank",48,"Error") RETURN .F. ELSE IF this.value < This.Parent.txtSa_date.value MESSAGEBOX("End date can not be earlier than start date",48,"Error") RETURN .F. ENDIF RETURN .T. ENDIF ENDIF ENDPROC  zz%1U %TaTaTaT aT aT aT aT aTaTaTaTaUTHISFORM CMDBUTTONSEDITMODETHISPARENT CHKSA_SJANVALUE CHKSA_SFEB CHKSA_SMAR CHKSA_SAPR CHKSA_SMAY CHKSA_SJUN CHKSA_SJUL CHKSA_SAUG CHKSA_SSEP CHKSA_SOCT CHKSA_SNOV CHKSA_SDECDblClick,11AAAAAAAAAAAAA1)z t_comboboxt_label..\libs\t_base.vcxlabel lblSa_enddt.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailjCaption = "End date" Height = 17 Left = 24 Top = 115 Width = 75 TabIndex = 23 Name = "lblSa_enddt"  t_textbox..\libs\t_base.vcxtextbox txtSa_finvdt.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" ControlSource = "sa_finvdt" Enabled = .T. Height = 23 Left = 128 TabIndex = 7 Top = 138 Width = 71 Name = "txtSa_finvdt" PROCEDURE DblClick IF ThisForm.cmdButtons.EditMode IF EMPTY(This.value) DO FORM CAL WITH DATE () TO This.value ELSE DO FORM CAL WITH This.value TO This.value ENDIF ENDIF ENDPROC RowSourceType = 5 RowSource = "thisform.aWhatIndex" Enabled = .F. Height = 24 Left = 0 TabIndex = 3 Top = 473 Width = 132 ReadOnly = .F. Name = "cboWhichIndex" frmCustomerInfo cmdButtons container..\libs\t_basicbtns.vcxt_basictxtbtnstextboxtextboxHeader1headert_label..\libs\t_base.vcxlabel lblSa_finvdt.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailpCaption = "First invoice" Height = 17 Left = 24 Top = 138 Width = 75 TabIndex = 24 Name = "lblSa_finvdt"  t_textbox..\libs\t_base.vcxtextbox txtSa_linvdt.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" ControlSource = "sa_linvdt" Enabled = .T. Height = 23 Left = 128 TabIndex = 8 Top = 161 Width = 71 Name = "txtSa_linvdt" PROCEDURE DblClick IF ThisForm.cmdButtons.EditMode IF EMPTY(This.value) DO FORM CAL WITH DATE () TO This.value ELSE DO FORM CAL WITH This.value TO This.value ENDIF ENDIF ENDPROC UTop = 473 Left = 136 TabIndex = 2 usercontrolmode = .F. Name = "cmdButtons" cmdTop.Name = "cmdTop" cmdPrev.Name = "cmdPrev" cmdNext.Name = "cmdNext" cmdEnd.Name = "cmdEnd" cmdFind.Name = "cmdFind" cmdPrint.Name = "cmdPrint" CMDADD.Name = "CMDADD" cmdEdit.Name = "cmdEdit" cmdDelete.Name = "cmdDelete" cmdExit.Name = "cmdExit" t_label..\libs\t_base.vcxlabel lblSa_linvdt.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailoCaption = "Last invoice" Height = 17 Left = 24 Top = 161 Width = 75 TabIndex = 25 Name = "lblSa_linvdt"  t_textbox..\libs\t_base.vcxtextbox txtSa_disc.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" ControlSource = "sa_disc" Format = "" Height = 23 InputMask = "99.99" Left = 411 TabIndex = 12 Top = 148 Width = 49 Name = "txtSa_disc" t_label..\libs\t_base.vcxlabel lblSa_disc.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailjCaption = "Discount" Height = 17 Left = 307 Top = 148 Width = 75 TabIndex = 26 Name = "lblSa_disc"  t_textbox..\libs\t_base.vcxtextbox txtSa_tech.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" ControlSource = "sa_tech" Height = 23 Left = 411 MaxLength = 3 TabIndex = 14 Top = 207 Width = 33 Name = "txtSa_tech" t_label..\libs\t_base.vcxlabel lblSa_tech.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailjCaption = "Sa_Promo" Height = 17 Left = 319 Top = 211 Width = 75 TabIndex = 28 Name = "lblSa_tech"  t_textbox..\libs\t_base.vcxtextbox txtSa_billcd.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" ControlSource = "sa_billcd" Height = 23 Left = 353 MaxLength = 1 TabIndex = 15 Top = 96 Width = 21 Name = "txtSa_billcd" t_label..\libs\t_base.vcxlabel lblSa_billcd.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailpCaption = "Billing code" Height = 17 Left = 263 Top = 100 Width = 75 TabIndex = 29 Name = "lblSa_billcd"  t_textbox..\libs\t_base.vcxtextbox txtSa_version.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" ControlSource = "sa_version" Height = 23 Left = 353 MaxLength = 5 TabIndex = 16 Top = 120 Width = 45 Name = "txtSa_version" t_label..\libs\t_base.vcxlabel lblSa_version.frmCustomerInfo.pgfCustomerInfo.pagSalesDetaillCaption = "Version" Height = 17 Left = 275 Top = 124 Width = 75 TabIndex = 30 Name = "lblSa_version"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_upgrade.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 312 Left = 603 Height = 17 Width = 79 Alignment = 0 Caption = "Upgrade" ControlSource = "sa_upgrade" Enabled = .T. TabIndex = 31 Name = "chkSa_upgrade"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_sjan.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 121 Left = 603 Height = 17 Width = 80 Alignment = 0 Caption = "January" ControlSource = "sa_sjan" Enabled = .T. TabIndex = 32 Name = "chkSa_sjan"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_sfeb.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 136 Left = 603 Height = 17 Width = 80 Alignment = 0 Caption = "February" ControlSource = "sa_sfeb" Enabled = .T. TabIndex = 33 Name = "chkSa_sfeb"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_smar.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 151 Left = 603 Height = 17 Width = 80 Alignment = 0 Caption = "March" ControlSource = "sa_smar" Enabled = .T. TabIndex = 34 Name = "chkSa_smar"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_sapr.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 166 Left = 603 Height = 17 Width = 80 Alignment = 0 Caption = "April" ControlSource = "sa_sapr" Enabled = .T. TabIndex = 35 Name = "chkSa_sapr"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_smay.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 181 Left = 603 Height = 17 Width = 80 Alignment = 0 Caption = "May" ControlSource = "sa_smay" Enabled = .T. TabIndex = 36 Name = "chkSa_smay"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_sjun.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 196 Left = 603 Height = 17 Width = 80 Alignment = 0 Caption = "June" ControlSource = "sa_sjun" Enabled = .T. TabIndex = 37 Name = "chkSa_sjun"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_sjul.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 211 Left = 603 Height = 17 Width = 80 Alignment = 0 Caption = "July" ControlSource = "sa_sjul" Enabled = .T. TabIndex = 38 Name = "chkSa_sjul"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_saug.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 226 Left = 603 Height = 17 Width = 80 Alignment = 0 Caption = "August" ControlSource = "sa_saug" Enabled = .T. TabIndex = 39 Name = "chkSa_saug"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_ssep.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 241 Left = 603 Height = 17 Width = 80 Alignment = 0 Caption = "September" ControlSource = "sa_ssep" Enabled = .T. TabIndex = 40 Name = "chkSa_ssep"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_soct.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 256 Left = 603 Height = 17 Width = 80 Alignment = 0 Caption = "October" ControlSource = "sa_soct" Enabled = .T. TabIndex = 41 Name = "chkSa_soct"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_snov.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 271 Left = 603 Height = 17 Width = 80 Alignment = 0 Caption = "November" ControlSource = "sa_snov" Enabled = .T. TabIndex = 42 Name = "chkSa_snov"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_sdec.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 286 Left = 603 Height = 17 Width = 80 Alignment = 0 Caption = "December" ControlSource = "sa_sdec" Enabled = .T. TabIndex = 43 Name = "chkSa_sdec"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_bjan.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 121 Left = 498 Height = 17 Width = 80 Alignment = 0 Caption = "January" ControlSource = "sa_bjan" Enabled = .T. TabIndex = 44 Name = "chkSa_bjan"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_bfeb.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 136 Left = 498 Height = 17 Width = 80 Alignment = 0 Caption = "February" ControlSource = "sa_bfeb" Enabled = .T. TabIndex = 45 Name = "chkSa_bfeb"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_bmar.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 151 Left = 498 Height = 17 Width = 80 Alignment = 0 Caption = "March" ControlSource = "sa_bmar" Enabled = .T. TabIndex = 46 Name = "chkSa_bmar"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_bapr.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 166 Left = 498 Height = 17 Width = 80 Alignment = 0 Caption = "April" ControlSource = "sa_bapr" Enabled = .T. TabIndex = 47 Name = "chkSa_bapr"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_bmay.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 181 Left = 498 Height = 17 Width = 80 Alignment = 0 Caption = "May" ControlSource = "sa_bmay" Enabled = .T. TabIndex = 48 Name = "chkSa_bmay"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_bjun.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 196 Left = 498 Height = 17 Width = 80 Alignment = 0 Caption = "June" ControlSource = "sa_bjun" Enabled = .T. TabIndex = 49 Name = "chkSa_bjun"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_bjul.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 211 Left = 498 Height = 17 Width = 80 Alignment = 0 Caption = "July" ControlSource = "sa_bjul" Enabled = .T. TabIndex = 50 Name = "chkSa_bjul"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_baug.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 226 Left = 498 Height = 17 Width = 80 Alignment = 0 Caption = "August" ControlSource = "sa_baug" Enabled = .T. TabIndex = 51 Name = "chkSa_baug"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_bsep.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 241 Left = 498 Height = 17 Width = 80 Alignment = 0 Caption = "September" ControlSource = "sa_bsep" Enabled = .T. TabIndex = 52 Name = "chkSa_bsep"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_boct.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 256 Left = 498 Height = 17 Width = 80 Alignment = 0 Caption = "October" ControlSource = "sa_boct" Enabled = .T. TabIndex = 53 Name = "chkSa_boct"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_bnov.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 271 Left = 498 Height = 17 Width = 80 Alignment = 0 Caption = "November" ControlSource = "sa_bnov" Enabled = .T. TabIndex = 54 Name = "chkSa_bnov"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_bdec.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 286 Left = 498 Height = 17 Width = 80 Alignment = 0 Caption = "December" ControlSource = "sa_bdec" Enabled = .T. TabIndex = 55 Name = "chkSa_bdec"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_bip.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 336 Left = 498 Height = 17 Width = 57 Alignment = 0 Caption = "BIP" ControlSource = "sa_bip" Enabled = .T. TabIndex = 56 Name = "chkSa_bip"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_windows.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 336 Left = 603 Height = 17 Width = 77 Alignment = 0 Caption = "Windows" ControlSource = "sa_windows" Enabled = .T. TabIndex = 57 Name = "chkSa_windows"  t_textbox..\libs\t_base.vcxtextbox txtSa_linvnum.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" ControlSource = "sa_linvnum" Enabled = .T. Height = 23 Left = 128 MaxLength = 20 TabIndex = 9 Top = 184 Width = 148 Name = "txtSa_linvnum" t_label..\libs\t_base.vcxlabel lblSa_linvnum.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailpCaption = "Last invoice" Height = 17 Left = 24 Top = 184 Width = 75 TabIndex = 58 Name = "lblSa_linvnum"  t_textbox..\libs\t_base.vcxtextbox txtSa_invfee.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" ControlSource = "sa_invfee" Format = "999.99" Height = 23 InputMask = "99.99" Left = 411 TabIndex = 13 Top = 171 Width = 49 Name = "txtSa_invfee" t_label..\libs\t_base.vcxlabel lblSa_invfee.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailoCaption = "Invoice Fee" Height = 17 Left = 307 Top = 171 Width = 75 TabIndex = 60 Name = "lblSa_invfee"  t_checkbox..\libs\t_base.vcxcheckbox chkSa_interne.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" Top = 312 Left = 498 Height = 17 Width = 82 Alignment = 0 Caption = "Past Sub" ControlSource = "sa_interne" Enabled = .T. TabIndex = 61 Name = "chkSa_interne" t_label..\libs\t_base.vcxlabel lblShipDate.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailwComment = "" Alignment = 2 Caption = "Ship" Left = 602 Top = 106 Width = 80 TabIndex = 63 Name = "lblShipDate" PROCEDURE DblClick IF ThisForm.cmdButtons.EditMode This.Parent.chkSa_sjan.value = .T. This.Parent.chkSa_sfeb.value = .T. This.Parent.chkSa_smar.value = .T. This.Parent.chkSa_sapr.value = .T. This.Parent.chkSa_smay.value = .T. This.Parent.chkSa_sjun.value = .T. This.Parent.chkSa_sjul.value = .T. This.Parent.chkSa_saug.value = .T. This.Parent.chkSa_ssep.value = .T. This.Parent.chkSa_soct.value = .T. This.Parent.chkSa_snov.value = .T. This.Parent.chkSa_sdec.value = .T. ENDIF ENDPROC iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" ?frmCustomerInfo.pgfCustomerInfo.pagCustList.grdCustList.Column44Alignment = 2 Caption = "State" Name = "Header1" ?frmCustomerInfo.pgfCustomerInfo.pagCustList.grdCustList.Column4headeriBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" ?frmCustomerInfo.pgfCustomerInfo.pagCustList.grdCustList.Column3Text1textboxtextbox3Alignment = 2 Caption = "City" Name = "Header1" Header1headerheadert_label..\libs\t_base.vcxlabel lblBillDate.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailiAlignment = 2 Caption = "Bill" Left = 501 Top = 106 Width = 80 TabIndex = 64 Name = "lblBillDate" PROCEDURE DblClick IF ThisForm.cmdButtons.EditMode This.Parent.chkSa_bjan.value = .T. This.Parent.chkSa_bfeb.value = .T. This.Parent.chkSa_bmar.value = .T. This.Parent.chkSa_bapr.value = .T. This.Parent.chkSa_bmay.value = .T. This.Parent.chkSa_bjun.value = .T. This.Parent.chkSa_bjul.value = .T. This.Parent.chkSa_baug.value = .T. This.Parent.chkSa_bsep.value = .T. This.Parent.chkSa_boct.value = .T. This.Parent.chkSa_bnov.value = .T. This.Parent.chkSa_bdec.value = .T. ENDIF ENDPROC ?frmCustomerInfo.pgfCustomerInfo.pagCustList.grdCustList.Column3iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" ?frmCustomerInfo.pgfCustomerInfo.pagCustList.grdCustList.Column2Text1textboxtextbox8Alignment = 2 Caption = "Bill name" Name = "Header1" ?frmCustomerInfo.pgfCustomerInfo.pagCustList.grdCustList.Column2Header1headerheaderiBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" ?frmCustomerInfo.pgfCustomerInfo.pagCustList.grdCustList.Column1Text1 t_textbox..\libs\t_base.vcxtextboxtxtSa_salesprice.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" ControlSource = "sa_salesprice" Enabled = .T. Height = 23 InputMask = "999,999.99" Left = 608 TabIndex = 3 Top = 26 Width = 75 Name = "txtSa_salesprice" PROCEDURE When This.uOldValue = This.Value ENDPROC PROCEDURE Valid IF This.uOldValue <> This.Value This.Parent.chkIsNonStdPrice.Value = .T. ELSE This.Parent.chkIsNonStdPrice.Value = .F. ENDIF ENDPROC textboxtextbox8Alignment = 2 Caption = "Ship Name" Name = "Header1" ?frmCustomerInfo.pgfCustomerInfo.pagCustList.grdCustList.Column1Header1headerheader+frmCustomerInfo.pgfCustomerInfo.pagCustList grdCustList..\libs\t_base.vcxt_grid.frmCustomerInfo.pgfCustomerInfo.pagSalesDetail T_checkbox1 t_checkbox..\libs\t_base.vcxcheckboxchkIsNonStdPrice.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailTop = 52 Left = 587 Height = 17 Width = 14 Alignment = 0 Caption = "" ControlSource = "sa_isnonstdprice" Enabled = .F. TabIndex = 65 ReadOnly = .T. Name = "chkIsNonStdPrice" t_label..\libs\t_base.vcxlabelT_label1.frmCustomerInfo.pgfCustomerInfo.pagSalesDetaillCaption = "Non Std Price" Height = 16 Left = 606 Top = 53 Width = 84 TabIndex = 66 Name = "T_label1" t_label..\libs\t_base.vcxlabel lblCompany.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailYCaption = "Company" Height = 16 Left = 135 Top = 52 Width = 60 Name = "lblCompany" t_shape..\libs\t_base.vcxshapeT_shape2.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailDTop = 248 Left = 15 Height = 149 Width = 264 Name = "T_shape2"  t_textbox..\libs\t_base.vcxtextbox txtSa_cancel.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" ControlSource = "sa_cancel" Height = 23 Left = 21 TabIndex = 10 Top = 307 Width = 71 Name = "txtSa_cancel" PROCEDURE Valid IF ThisForm.cmdButtons.EditMode IF (this.value < This.Parent.txtSa_date.value) AND !EMPTY(this.value) MESSAGEBOX("End date can not be earlier than start date",48,"Error") RETURN .F. ENDIF ENDIF ENDPROC PROCEDURE DblClick IF ThisForm.cmdButtons.EditMode IF EMPTY(This.value) DO FORM CAL WITH DATE() TO This.value ELSE DO FORM CAL WITH This.value TO This.value ENDIF ENDIF ENDPROC GColumnCount = 4 Height = 440 Left = 0 Panel = 1 ReadOnly = .T. RecordSource = "customer" ScrollBars = 2 Top = 0 Width = 695 Name = "grdCustList" Column1.ControlSource = "cu_sname" Column1.Width = 226 Column1.ReadOnly = .T. Column1.Name = "Column1" Column2.ControlSource = "cu_bname" Column2.Width = 233 Column2.ReadOnly = .T. Column2.Name = "Column2" Column3.ControlSource = "cu_scity" Column3.Width = 151 Column3.ReadOnly = .T. Column3.Name = "Column3" Column4.ControlSource = "cu_sstate" Column4.Width = 45 Column4.ReadOnly = .T. Column4.Name = "Column4" checkboxt_label..\libs\t_base.vcxlabel lblSa_cancel.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailnCaption = "Cancel date" Height = 17 Left = 21 Top = 292 Width = 75 TabIndex = 27 Name = "lblSa_cancel"  t_textbox..\libs\t_base.vcxtextbox txtSa_creason.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailComment = "" ControlSource = "sa_creason" Height = 23 Left = 21 MaxLength = 35 TabIndex = 11 Top = 366 Width = 253 Name = "txtSa_creason" t_label..\libs\t_base.vcxlabel lblSa_creason.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailqCaption = "Cancel reason" Height = 17 Left = 21 Top = 351 Width = 85 TabIndex = 62 Name = "lblSa_creason"  t_checkbox..\libs\t_base.vcxcheckboxchkMisc.frmCustomerInfo.pgfCustomerInfo.pagSalesDetaileTop = 292 Left = 111 Alignment = 1 Caption = "Misc" ControlSource = "sa_misc" Name = "chkMisc"  t_checkbox..\libs\t_base.vcxcheckbox chkBowker.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailkTop = 307 Left = 111 Alignment = 1 Caption = "Bowker" ControlSource = "sa_bowker" Name = "chkBowker"  t_checkbox..\libs\t_base.vcxcheckbox chkBudget.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailkTop = 323 Left = 111 Alignment = 1 Caption = "Budget" ControlSource = "sa_budget" Name = "chkBudget"  t_checkbox..\libs\t_base.vcxcheckboxchkNoPay.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailTop = 339 Left = 108 Height = 17 Width = 63 Alignment = 1 Caption = "Non Payment" ControlSource = "sa_nopay" Name = "chkNoPay" t_line..\libs\t_base.vcxlineT_line1.frmCustomerInfo.pgfCustomerInfo.pagSalesDetail\Height = 395 Left = 687 Top = 11 Width = 0 BorderColor = 255,255,255 Name = "T_line1" t_line..\libs\t_base.vcxlineT_line2.frmCustomerInfo.pgfCustomerInfo.pagSalesDetail[Height = 0 Left = 8 Top = 406 Width = 680 BorderColor = 255,255,255 Name = "T_line2" t_line..\libs\t_base.vcxlineT_line3.frmCustomerInfo.pgfCustomerInfo.pagSalesDetail\Height = 0 Left = 15 Top = 264 Width = 264 BorderColor = 255,255,255 Name = "T_line3" t_line..\libs\t_base.vcxlineT_line4.frmCustomerInfo.pgfCustomerInfo.pagSalesDetail\Height = 126 Left = 15 Top = 270 Width = 0 BorderColor = 255,255,255 Name = "T_line4" t_label..\libs\t_base.vcxlabellblCancellations.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailAlignment = 2 BackStyle = 1 Caption = "Cancellation" Height = 16 Left = 16 Top = 249 Width = 263 BackColor = 128,128,255 Name = "lblCancellations" t_label..\libs\t_base.vcxlabellblSalesStatus.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailFontShadow = .F. FontSize = 72 Alignment = 2 BackStyle = 0 Caption = "Status" Height = 96 Left = 347 Top = 308 Width = 336 Name = "lblSalesStatus"  t_combobox..\libs\t_base.vcxcomboboxcboCompanyCode.frmCustomerInfo.pgfCustomerInfo.pagSalesDetailBoundColumn = 3 RowSourceType = 5 RowSource = "thisform.aCompanyCode" ControlSource = "v_salesforcustomer.sa_company" Height = 24 Left = 206 TabIndex = 4 Top = 52 Width = 181 BoundTo = .T. Name = "cboCompanyCode"  t_checkbox..\libs\t_base.vcxpTop = 276 Left = 111 Alignment = 1 Caption = "Internet" ControlSource = "sa_interne" Name = "T_checkbox1"  %<Uc%\%C7CAL(XCAL(UTHISFORM CMDBUTTONSEDITMODETHISVALUECAL%%Ca5CEnd date can not be left blank0ErrorxB-% BC+End date can not be earlier than start date0ErrorxB-BaUTHISFORM CMDBUTTONSEDITMODETHISVALUEPARENT TXTSA_DATEDblClick,Valid11!!AA31!Qq!qAqAA2  ) %R&aU%C7T%CrT%CT%C T  %C #T  %C ^T %CT%CT%CT%CJT%CT%CTUTHISPARENT TXTCU_BNAMEVALUE TXTCU_SNAMETXTCU_BCONTACTTXTCU_SCONTACT TXTCU_BADDR1 TXTCU_SADDR1 TXTCU_BADDR2 TXTCU_SADDR2 TXTCU_BADDR3 TXTCU_SADDR3 TXTCU_BCITY TXTCU_SCITY TXTCU_BSTATE TXTCU_SSTATE TXTCU_BZIP TXTCU_SZIP TXTCU_BCOUNTY TXTCU_SCOUNTY TXTCU_BPHONE TXTCU_SPHONE TXTCU_BEXT TXTCU_SEXT TXTCU_BFAX TXTCU_SFAXClick,1AAAAAAAAAAAA2) PROCEDURE Init DODEFAULT() this.haderror = .F. ENDPROC PROCEDURE buttonrefresh DODEFAULT() * This enables the Index Combo box based on if we are editing or adding a record ThisForm.cboWhichIndex.enabled = !This.editmode ENDPROC PROCEDURE Refresh DODEFAULT() thisform.cCustomerID = Customer.Customer_ID IF ThisForm.pgfCustomerInfo.activepage < 4 This.cmdFind.visible = .T. This.cmdPrint.visible = .T. ELSE This.cmdFind.visible = .F. This.cmdPrint.visible = .F. ENDIF * If status of record is not active then hide the edit button IF ThisForm.pgfCustomerInfo.activepage = 6 AND thisform.lIsReadOnly IF v_SalesForCustomer.sa_status = 'A' AND this.editmode ThisForm.cmdButtons.cmdEdit.visible = .T. ELSE ThisForm.cmdButtons.cmdEdit.visible = .F. ENDIF ENDIF ENDPROC PROCEDURE cmdPrev.Error LPARAMETERS nerror,cmethod,nline wait window "hi" ENDPROC PROCEDURE cmdFind.Click PRIVATE cSearchWhat cSearchWhat = '' DO FORM forms\SearchOptions TO cSearchWhat DO CASE CASE cSearchWhat = 'IndexSearch' Private recnum #DEFINE CompanyBrowse 'cu_sname :20 :H = "Ship Name", ; cu_scontact :20 :H = "Ship Contact", ; cu_scity :15 :H = "Ship City"' * If the active page is less than 4 then we are looking for * a company IF ThisForm.pgfCustomerInfo.activepage < 4 recnum = m_browse('',CompanyBrowse, '', 'RECNO()') IF !EMPTY(recnum) thisform.cCustomerID = Customer.customer_ID This.Parent.TopFile = .F. This.Parent.EndFile = .F. this.parent.NavRefresh() ELSE WAIT WINDOW 'Find Aborted' ENDIF ENDIF CASE cSearchWhat = 'PowerSearch' DODEFAULT() OTHERWISE MESSAGEBOX("No search selected",16," ") ENDCASE ENDPROC PROCEDURE cmdPrint.Click *SET CLASSLIB TO libs\t_Application, libs\t_Automation ADDITIVE SET CLASSLIB TO libs\t_Application, libs\oleAutomation ADDITIVE oLetterInfo = createobject("LetterInfo") ENDPROC PROCEDURE CMDADD.Click LOCAL lcAddingWhat lcCurrentTable = '' lcAddingWhat = '' * If we are adding a record turn off appropriate pages * Else * We are saving and turn all pages on IF THIS.caption = "\ lcOldStatus REPLACE customer.cu_status WITH lcNewStatus *!* ThisForm.pgfCustomerInfo.Page1.txtCu_status.value = lcNewStatus *!* ThisForm.pgfCustomerInfo.Page2.txtCu_status.value = lcNewStatus *!* ThisForm.pgfCustomerInfo.pagNotes.txtCu_status.value = lcNewStatus thisform.ChangeSalesStatus ENDIF ELSE && We are working on a sales reocrd lcOldStatus = v_SalesForCustomer.sa_status lcNewStatus = "" DO FORM forms\StatusChange WITH lcOldStatus TO lcNewStatus * If status of record has changed, do replace IF lcNewStatus <> lcOldStatus AND customer.cu_status = 'A' REPLACE v_SalesForCustomer.sa_status WITH lcNewStatus ELSE MESSAGEBOX("Customer record is not active. Status change is not allowed",48,"Status Change") ENDIF ENDIF ENDPROC o VVM%o-U H  IKTaTInactive DTaTDeleted2T-U CU_STATUSTHISLBLCUSTOMERSTATUSVISIBLECAPTION CTUTHISFORMCPREVIOUSTABLE CCURRENTTABLE CTCustomer% FTCWT-T-CT  T  T a C UTHISFORM CCURRENTTABLECPREVIOUSTABLE CMDBUTTONS NWORKAREATOPFILEENDFILE NAVREFRESH CBOWHICHINDEXENABLEDEDITMODEREADONLYLDOSALESREQUERYREFRESH CTUTHISFORMCPREVIOUSTABLE CCURRENTTABLE CTCustomer% FTCWT-T-CT  T  T a C UTHISFORM CCURRENTTABLECPREVIOUSTABLE CMDBUTTONS NWORKAREATOPFILEENDFILE NAVREFRESH CBOWHICHINDEXENABLEDEDITMODEREADONLYLDOSALESREQUERYREFRESH H  IKTaTInactive DTaTDeleted2T-U CU_STATUSTHISLBLCUSTOMERSTATUSVISIBLECAPTION CTUTHISFORMCPREVIOUSTABLE CCURRENTTABLE CTCustomer% FTCWT-T-CT  T  T a C UTHISFORM CCURRENTTABLECPREVIOUSTABLE CMDBUTTONS NWORKAREATOPFILEENDFILE NAVREFRESH CBOWHICHINDEXENABLEDEDITMODEREADONLYLDOSALESREQUERYREFRESH CTUTHISFORMCPREVIOUSTABLE CCURRENTTABLE C"Tv_SalesForCustomer% FTCWT-T-CC CT -T aU THISFORM CCURRENTTABLECPREVIOUSTABLE CMDBUTTONS NWORKAREATOPFILEENDFILE NAVREFRESHREFRESH CBOWHICHINDEXENABLEDREADONLY CTUTHISFORMCPREVIOUSTABLE CCURRENTTABLE^ CDotrackerdb!companyT CQ"T v_SalesForCustomer%   F T CWT -T -C %(C T-T-Ta CUCOMPANYCO_NAME COMPANY_IDCO_CODE TRACKERDBTHISFORM ACOMPANYCODETHISCBOCOMPANYCODENUMBEROFELEMENTS CCURRENTTABLECPREVIOUSTABLE CMDBUTTONS NWORKAREATOPFILEENDFILE NAVREFRESHLDOSALESREQUERY CBOWHICHINDEXENABLEDREADONLYREFRESH H  IKTaTInactive DTaTDeleted2T-U SA_STATUSTHISLBLSALESSTATUSVISIBLECAPTION CTUTHISFORMCPREVIOUSTABLE CCURRENTTABLETCustomer% FTCWT-T-CT  T  C T aUTHISFORM CCURRENTTABLECPREVIOUSTABLE CMDBUTTONS NWORKAREATOPFILEENDFILE NAVREFRESH CBOWHICHINDEXENABLEDEDITMODEREADONLYREFRESHLDOSALESREQUERY Page1.Refresh,Page1.DeactivatePage1.ActivateZPage2.DeactivatePage2.Activate, Page2.RefreshpagNotes.DeactivatepagNotes.ActivatepagSales.DeactivatefpagSales.ActivatepagSalesDetail.Deactivate pagSalesDetail.Activatec pagSalesDetail.Refresh pagCustList.Deactivate pagCustList.Activate 1!!A232q"A232q"A2!!A232q"A232"q"A332F"q"AA5!!A232q"A29 `  G,  2./ O K9y  W<, B]JlwMd}[^Mr5F}s))V D%m4;UF H A) Iq3> D  D3> D FUSALESCUSTOMER CU_STATUSALL SA_STATUSFORSA_CU_ID CUSTOMER_IDD TCW %C oProductInfobUjG~(libs\t_ApplicationTC ProductInfoNTC ProductInfoNforms\ProductList F%C 6T T  > > > A<ULCCURRENTTABLELIBS OPRODUCTINFOFORMSCPRODUCTDESCRIPTIONTHISFORMPGFCUSTOMERINFOPAGSALESDETAILTXTDESCRIPTIONVALUETXTSA_SALESPRICE NLISTPRICEV_SALESFORCUSTOMERSA_CU_ID CCUSTOMERIDSA_PR_ID CPRODUCTID SA_STATUSCUTHISFORMSIZER FRMRESIZE CTCustomer F%C oUser.cNamebC%C Read OnlyTaTaT -T -T -T-T- CV (C LT C T Tcu_sname<otrackerdb!products FULNTAGCNTTHISFORM CCURRENTTABLEOUSER CUSERLEVEL LISREADONLY ISREADONLY CMDBUTTONSCMDADDVISIBLECMDEDIT CMDDELETE AWHATINDEX LNNUMOFINDEX CBOWHICHINDEXNUMBEROFELEMENTSVALUEPRODUCTSPR_ID DESCRIPTION TRACKERDB APRODUCTLISTchangesalesstatus,getproductinfo?ResizesInit1qQR4Q4Aq4qA261Ar32qAAAAAhA22 % =W: r=)