,#VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentmLeft = 1 Top = 220 Width = 520 Height = 200 InitialSelectedAlias = "inv_head" Name = "Dataenvironment" cursorcursorCursor1DataenvironmentLeft = 10 Top = 20 Width = 90 Height = 90 Alias = "inv_head" Order = "h_bname" Database = ..\data\trackerdb.dbc CursorSource = "inv_head" Name = "Cursor1" cursorcursorCursor2DataenvironmentLeft = 150 Top = 20 Width = 90 Height = 90 Alias = "inv_data" Database = ..\data\trackerdb.dbc CursorSource = "inv_data" Name = "Cursor2" relationrelation Relation1DataenvironmentParentAlias = "inv_head" RelationalExpr = "h_invnum" ChildAlias = "inv_data" ChildOrder = "d_invnum" OneToMany = .T. Name = "Relation1" cursorcursorCursor3DataenvironmentLeft = 290 Top = 20 Width = 95 Height = 90 Alias = "company" Database = ..\data\trackerdb.dbc CursorSource = "company" Name = "Cursor3" 51t_form..\libs\t_base.vcxformfrmPrintInvoicezDataSession = 1 Height = 195 Width = 248 DoCreate = .T. BufferMode = 0 AutoCenter = .T. BorderStyle = 2 Caption = "Print Invoice" ControlBox = .F. Closable = .F. MaxButton = .F. MinButton = .F. WindowType = 1 AlwaysOnTop = .F. cprintwhat = All Invoices cprintwhere = Printer crpt_form = BTInvoice1.frx cprintrecord = cwhatreport = Name = "frmPrintInvoice"  PROCEDURE doprintinvoice #DEFINE c_browlist 'h_sname :40 :H="Ship Name",; h_scity :20 :H="City"' DO CASE CASE ThisForm.opgPrintWhat.Value = 'All Invoices' SET ORDER TO inv_key thisform.cPrintRecord = 'All' thisform.printrec CASE ThisForm.opgPrintWhat.Value = 'Starting Invoice' SET ORDER TO h_sname recnum = m_browse('',c_browlist, '', 'recno()') IF NOT EMPTY(recnum) GOTO recnum tstate = inv_head.h_bstate tcu_id = inv_head.h_cu_id SET FILTER TO ((h_bstate >= tstate) AND (h_cu_id >= tcu_id)) SET ORDER TO inv_key thisform.cPrintRecord = 'All' thisform.printrec ELSE MESSAGEBOX("Search was cancelled",16,"Print Invoice") ENDIF CASE ThisForm.opgPrintWhat.Value = 'One Invoice' SET ORDER TO h_sname recnum = m_browse('',c_browlist, '', 'recno()') IF NOT EMPTY(recnum) GOTO recnum tstate = inv_head.h_bstate tcu_id = inv_head.h_cu_id SET FILTER TO h_bstate = tstate AND h_cu_id = tcu_id SET ORDER TO inv_key thisform.cPrintRecord = 'All' thisform.printrec ELSE MESSAGEBOX("Search was cancelled",16,"Print Invoice") ENDIF CASE ThisForm.opgPrintWhat.Value = 'Invoice Report' SET ORDER TO h_bname thisform.cRpt_form = "inv_rpt.frx" thisform.cPrintRecord= 'All' thisform.printrec thisform.cRpt_Form = "BTInvoice.frx" ENDCASE SET FILTER TO ENDPROC PROCEDURE printrec LOCAL nSaveRec, cWhatReport nSaveRec = RECNO() cWhatReport = thisform.GetWhatReport() m.pr_out=IIF(ThisForm.opgPrintWhere.Value = 'Printer', 'TO PRINT NOCONSOLE', 'PREVIEW') m.pr_record=IIF(thisform.cPrintWhat = 'Current', 'NEXT 1', 'ALL') REPORT FORM &cWhatReport &pr_out &pr_record GO nSaverec ENDPROC PROCEDURE getwhatreport PRIVATE rvalue, nPosition, cCompanyCode nPosition = ASCAN(thisform.aCompanyCode, ThisForm.cboCompanyCode.value) && Search for company IF nPosition != 0 nPosition = nPosition + 2 *** Company found, get company code *** cCompanyCode = thisform.aCompanyCode[nPosition] ENDIF DO CASE CASE cCompanyCode = "BT" rvalue = "BTInvoice" CASE cCompanyCode = "NC" rvalue = "NCinvoice" CASE cCompanyCode = "PM" rvalue = "PMSCInvoice" CASE cCompanyCode = "LP" rvalue = "TLPInvoice" OTHERWISE rvalue = "" ENDCASE RETURN(rvalue) ENDPROC PROCEDURE Init DODEFAULT() SET PATH TO PROGS, FORMS, LIBS, MENUS, DATA, ; REPORTS, INCLUDES, HELP, BITMAPS * 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 ThisForm.cboCompanyCode.NumberOfElements = ALEN(thisform.aCompanyCode) SELECT Company USE ThisForm.cboCompanyCode.value = "Baker & Taylor" SELECT inv_head ENDPROC   %ShbU CUTHISFORMRELEASEClick,11#) B%WlfU UTHISFORMDOPRINTINVOICEClick,11()!Arial, 0, 9, 5, 15, 12, 32, 3, 0 >BoundColumn = 1 ColumnCount = (ALEN(aCompanyCode,2)) ColumnWidths = "205,70,70" RowSourceType = 5 RowSource = "thisform.aCompanyCode" ControlSource = "thisform.cWhatReport" FirstElement = 1 Height = 24 Left = 52 NumberOfElements = 0 Style = 2 Top = 118 Width = 144 BoundTo = .F. Name = "cboCompanyCode" frmPrintInvoicecboCompanyCodecombobox..\libs\t_base.vcx t_comboboxAutoSize = .T. Value = ControlSource = "thisform.cPrintWhere" Height = 46 Left = 160 Top = 41 Width = 64 Name = "opgPrintWhere" Option1.Caption = "Printer" Option1.Value = 0 Option1.Height = 17 Option1.Left = 5 Option1.Style = 0 Option1.Top = 5 Option1.Width = 54 Option1.AutoSize = .F. Option1.Name = "Option1" Option2.Caption = "Screen" Option2.Height = 17 Option2.Left = 5 Option2.Style = 0 Option2.Top = 24 Option2.Width = 54 Option2.AutoSize = .F. Option2.Name = "Option2" frmPrintInvoice opgPrintWhere optiongroup..\libs\t_base.vcx t_optiongrouplBorderWidth = 2 Height = 0 Left = 8 Top = 184 Width = 232 BorderColor = 255,255,255 Name = "T_line2" frmPrintInvoiceT_line2line..\libs\t_base.vcxt_linemBorderWidth = 2 Height = 172 Left = 241 Top = 12 Width = 0 BorderColor = 255,255,255 Name = "T_line1" frmPrintInvoiceT_line1line..\libs\t_base.vcxt_line.PROCEDURE Click thisform.release() ENDPROC NTop = 153 Left = 136 Height = 24 Caption = "\