VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentKLeft = 104 Top = 35 Width = 314 Height = 483 Name = "Dataenvironment" cursorcursorCursor1DataenvironmentLeft = 10 Top = 20 Width = 90 Height = 261 Alias = "inv_head" BufferModeOverride = 2 Order = "h_bname" Database = ..\data\trackerdb.dbc CursorSource = "inv_head" Name = "Cursor1" cursorcursorCursor2DataenvironmentLeft = 150 Top = 20 Width = 90 Height = 237 Alias = "v_lineitemsforinvoice" Database = ..\data\trackerdb.dbc CursorSource = "v_lineitemsforinvoice" NoDataOnLoad = .T. Name = "Cursor2" 31t_form..\libs\t_base.vcxformfrmInvoiceHeaderHeight = 511 Width = 700 DoCreate = .T. AutoCenter = .T. Caption = "Invoicing" WindowType = 1 ccurrentinvoice = cinvoicenumber = cprevioustable = Name = "frmInvoiceHeader"  VPROCEDURE recalculateinvoicetotals PRIVATE nTotalInvoiceAmount, nTotalConvertAmount nTotalInvoiceAmount = ThisForm.pgfInvoice.Page1.txtH_ttlinv.value + ; ThisForm.pgfInvoice.Page1.txtH_taxamount.value + ; ThisForm.pgfInvoice.Page1.txtH_serchg.value + ; ThisForm.pgfInvoice.Page1.txtH_shipchg.value nTotalConvertAmount = ROUND((nTotalInvoiceAmount * ThisForm.pgfInvoice.Page1.txtH_convrat.value), 2) ThisForm.pgfInvoice.Page1.txtH_totalextended.value = nTotalInvoiceAmount ThisForm.pgfInvoice.Page1.txtH_ttlconvertamount.value = nTotalConvertAmount *!* REPLACE ALL inv_head.h_TotalExtended WITH nTotalInvoiceAmount FOR Inv_head.h_invnum = ThisForm.cInvoiceNumber *!* REPLACE ALL inv_head.h_TTLConvertAmount WITH nTotalConvertAmount FOR Inv_head.h_invnum = ThisForm.cInvoiceNumber ENDPROC PROCEDURE getnewheadertotals PRIVATE nCurrentRecordNumber, nTotalLineAmount, cIndex, nCurrentRec nTotalLineAmount = 0 *SUM Inv_data.d_linettl FOR ALLTRIM(Inv_data.d_invnum) == ALLTRIM(Thisform.cInvoiceNumber) TO nTotalLineAmount SUM v_LineItemsForInvoice.d_linettl FOR ALLTRIM(Inv_data.d_invnum) = "A00AA0054S" TO nTotalLineAmount SUM v_LineItemsForInvoice.d_linettl TO nTotalLineAmount REPLACE ALL inv_head.h_ttlinv WITH nTotalLineAmount FOR Inv_head.h_invnum = ThisForm.cInvoiceNumber thisform.RecalculateLineItems(nTotalLineAmount) ENDPROC PROCEDURE recalculatelineitems PARAMETER nLineTotal PRIVATE nTotalInvoiceAmount, nTotalConvertAmount *!* nTotalInvoiceAmount = ThisForm.pgfInvoice.Page1.txtH_ttlinv.value + ; *!* ThisForm.pgfInvoice.Page1.txtH_taxamount.value + ; *!* ThisForm.pgfInvoice.Page1.txtH_serchg.value + ; *!* ThisForm.pgfInvoice.Page1.txtH_shipchg.value nTotalInvoiceAmount = nLineTotal + ; ThisForm.pgfInvoice.Page1.txtH_taxamount.value + ; ThisForm.pgfInvoice.Page1.txtH_serchg.value + ; ThisForm.pgfInvoice.Page1.txtH_shipchg.value nTotalConvertAmount = ROUND((nTotalInvoiceAmount * ThisForm.pgfInvoice.Page1.txtH_convrat.value), 4) *!* ThisForm.pgfInvoice.Page1.txtH_totalextended.value = nTotalInvoiceAmount *!* ThisForm.pgfInvoice.Page1.txtH_ttlconvertamount.value = nTotalConvertAmount REPLACE ALL inv_head.h_TotalExtended WITH nTotalInvoiceAmount FOR Inv_head.h_invnum = ThisForm.cInvoiceNumber REPLACE ALL inv_head.h_TTLConvertAmount WITH nTotalConvertAmount FOR Inv_head.h_invnum = ThisForm.cInvoiceNumber thisform.refresh ENDPROC PROCEDURE Resize thisform.sizer.frmresize() ENDPROC PROCEDURE Init DODEFAULT() thisform.cCurrentTable = 'Inv_head' Select (thisform.cCurrentTable) thisform.cInvoiceNumber = Inv_head.h_invnum IF TYPE("oUser.cName") = 'C' IF ALLTRIM(oUser.cUserLevel) = "Read Only" thisform.lIsReadOnly = .T. ThisForm.cmdButtons.cmdPrint.visible = .F. ThisForm.cmdButtons.CMDADD.visible = .F. ThisForm.cmdButtons.cmdEdit.visible = .F. ThisForm.cmdButtons.cmdDelete.visible = .F. ThisForm.pgfInvoice.Page1.cmdCopy.visible = .F. ELSE thisform.lIsReadOnly = .F. ENDIF ELSE thisform.lIsReadOnly = .F. ENDIF ENDPROC 1 -k% UTUTHIS UOLDVALUEVALUE%%k:TT,TU THIS UOLDVALUEVALUEPARENT TXTD_DISC TXTD_NETPRICE TXTD_LIST TXTD_LINETTLTXTD_QTYGotFocus, LostFocus^112qAA1/O) S%k UTUTHIS UOLDVALUEVALUE%%_.TT,TUTHIS UOLDVALUEVALUEPARENT TXTD_DISC TXTD_NETPRICE TXTD_LINETTLTXTD_QTYGotFocus, LostFocus^112qAA1/O) oo_%UD%=&TUTHIS UOLDVALUEVALUEPARENT TXTD_LINETTL TXTD_NETPRICETUTHIS UOLDVALUEVALUE LostFocus,GotFocus1qaA211)olabelAlignment = 1 Caption = "Start date" Height = 17 Left = 115 Top = 271 Width = 115 TabIndex = 21 Name = "lblD_subdate2" !frmInvoiceHeader.pgfInvoice.Page4..\libs\t_base.vcxt_labelAlignment = 1 Caption = "Invoice Number" Height = 17 Left = 115 Top = 239 Width = 115 TabIndex = 19 Name = "lblD_linvnum" cArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 8, 5, 14, 11, 30, 3, 0 Arial, 1, 8, 5, 14, 11, 29, 3, 0 kTop = 497 Left = 686 Name = "SIZER" lblhighlight.Name = "lblhighlight" lblshading.Name = "lblshading" ccurrentinvoice cinvoicenumber lrequerysales noldlinetotal cprevioustable *getinvoicetotals *recalculateinvoicetotals *getnewheadertotals *recalculatelineitems  t_pageframe..\libs\t_base.vcx pageframe pgfInvoicefrmInvoiceHeaderQErasePage = .T. PageCount = 4 Top = 0 Left = 0 Width = 700 Height = 480 TabIndex = 1 Name = "pgfInvoice" Page1.Caption = "Invoice Header" Page1.Name = "Page1" Page2.Caption = "Invoice List" Page2.Name = "Page2" Page3.Caption = "Line Item List" Page3.Name = "Page3" Page4.Caption = "Line Item Detail" Page4.Name = "Page4"  PROCEDURE Page1.Activate DODEFAULT() thisform.cCurrentTable = "Inv_head" 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.cInvoiceNumber = inv_head.h_invnum * We only allow editing on pages without a grid IF !thisform.lIsReadOnly ThisForm.cmdButtons.cmdEdit.visible = .T. ENDIF thisform.lRequerySales = .T. thisform.refresh ENDPROC PROCEDURE Page1.Init thisform.cInvoiceNumber = Inv_head.h_invnum ENDPROC PROCEDURE Page2.Deactivate dodefault() thisform.cInvoiceNumber = inv_head.h_invnum ENDPROC PROCEDURE Page2.Activate DODEFAULT() thisform.cCurrentTable = "Inv_head" 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 only allow editing on pages without a grid ThisForm.cmdButtons.cmdEdit.visible = .F. thisform.lRequerySales = .T. thisform.refresh ENDPROC PROCEDURE Page3.Activate DODEFAULT() thisform.cCurrentTable = 'v_LineItemsForInvoice' 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.lRequerySales = .F. This.refresh() * We only allow editing on pages without a grid ThisForm.cmdButtons.cmdEdit.visible = .F. ENDPROC PROCEDURE Page4.Activate DODEFAULT() thisform.cCurrentTable = 'v_LineItemsForInvoice' 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 IF thisform.lRequerySales REQUERY(thisform.cCurrentTable) thisform.lRequerySales = .F. ENDIF This.refresh() * We only allow editing on pages without a grid IF !thisform.lIsReadOnly ThisForm.cmdButtons.cmdEdit.visible = .T. ENDIF ENDPROC  L%APU%C7T%CrT%CT%C T  %C #T  %C ^T %CT%CT%CTUTHISPARENT TXTH_BNAMEVALUE TXTH_SNAME TXTH_BCONTAC TXTH_SCONTAC TXTH_BADDR1 TXTH_SADDR1 TXTH_BADDR2 TXTH_SADDR2 TXTH_BADDR3 TXTH_SADDR3 TXTH_BCITY TXTH_SCITY TXTH_BSTATE TXTH_SSTATE TXTH_BZIP TXTH_SZIP TXTH_BCOUNTY TXTH_SCOUNTYClick,1AAAAAAAAA2L)k RRH%UTUTHIS UOLDVALUEVALUE(%! UTHIS UOLDVALUEVALUETHISFORMRECALCULATEINVOICETOTALSGotFocus, LostFocus^112qA1/O)R r%J<UTUTHIS UOLDVALUEVALUEM%F/TCTU THIS UOLDVALUEVALUETHISFORM PGFINVOICEPAGE1TXTH_TTLCONVERTAMOUNTPARENTTXTH_TOTALEXTENDEDGotFocus, LostFocus^112qA1/O)!frmInvoiceHeader.pgfInvoice.Page4 lblD_linvnumlabel..\libs\t_base.vcxfrmInvoiceHeaderSIZERcontrol..\libs\resize.vcxsizerfrmInvoiceHeader cmdButtons container..\libs\t_basicbtns.vcxt_basictxtbtns!frmInvoiceHeader.pgfInvoice.Page4 t_textbox..\libs\t_base.vcxtextbox txtH_note!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_note" Height = 48 Left = 467 MaxLength = 150 TabIndex = 39 Top = 390 Width = 200 Name = "txtH_note" t_shape..\libs\t_base.vcxshapeT_shape1!frmInvoiceHeader.pgfInvoice.Page1kTop = 9 Left = 455 Height = 146 Width = 221 BackStyle = 1 BackColor = 128,255,255 Name = "T_shape1"  t_textbox..\libs\t_base.vcxtextbox txtH_invnum!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_invnum" Enabled = .T. Height = 19 Left = 565 MaxLength = 20 TabIndex = 27 Top = 16 Width = 98 Name = "txtH_invnum" t_label..\libs\t_base.vcxlabel lblH_invnum!frmInvoiceHeader.pgfInvoice.Page1FontSize = 8 Alignment = 1 Caption = "Invoice Number" Height = 19 Left = 466 Top = 16 Width = 90 TabIndex = 41 Name = "lblH_invnum"  t_textbox..\libs\t_base.vcxtextbox txtH_acctno!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_acctno" Height = 19 Left = 565 MaxLength = 7 TabIndex = 28 Top = 35 Width = 58 Name = "txtH_acctno" t_label..\libs\t_base.vcxlabel lblH_acctno!frmInvoiceHeader.pgfInvoice.Page1FontSize = 8 Alignment = 1 Caption = "Account number" Height = 19 Left = 466 Top = 35 Width = 90 TabIndex = 44 Name = "lblH_acctno"  t_textbox..\libs\t_base.vcxtextbox txtH_taxrate!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_taxrate" Height = 19 Left = 538 TabIndex = 36 Top = 213 Width = 41 Name = "txtH_taxrate" PROCEDURE GotFocus this.uoldvalue = this.value ENDPROC PROCEDURE LostFocus IF this.uOldValue <> this.value This.Parent.txtH_taxamount.value = ROUND((This.value / 100) * this.parent.txtH_ttlinv.value, 2) thisform.RecalculateInvoiceTotals ENDIF ENDPROC  W%P@UTUTHIS UOLDVALUEVALUEX%Q0TCd T UTHIS UOLDVALUEVALUEPARENTTXTH_TAXAMOUNT TXTH_TTLINVTHISFORMRECALCULATEINVOICETOTALSGotFocus, LostFocus^112qA1/O)t_label..\libs\t_base.vcxlabel lblH_taxrate!frmInvoiceHeader.pgfInvoice.Page1FontSize = 8 Alignment = 1 Caption = "Tax rate" Height = 19 Left = 451 Top = 216 Width = 80 TabIndex = 45 Name = "lblH_taxrate"  t_textbox..\libs\t_base.vcxtextbox txtH_shipchg!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_shipchg" Height = 19 Left = 586 TabIndex = 35 Top = 193 Width = 90 Name = "txtH_shipchg" PROCEDURE GotFocus this.uoldvalue = this.value ENDPROC PROCEDURE LostFocus IF this.uOldValue <> this.value This.Parent.txtH_taxamount.value = ROUND((This.Parent.txtH_taxrate.value / 100) * this.parent.txtH_ttlinv.value, 2) thisform.RecalculateInvoiceTotals ENDIF ENDPROC xTop = 484 Left = 75 Height = 24 TabIndex = 2 Name = "cmdButtons" cmdTop.Name = "cmdTop" cmdPrev.Name = "cmdPrev" cmdNext.Name = "cmdNext" cmdEnd.Name = "cmdEnd" cmdFind.Name = "cmdFind" cmdPrint.Visible = .F. cmdPrint.Name = "cmdPrint" cmdAdd.Visible = .F. cmdAdd.Name = "cmdAdd" cmdEdit.Name = "cmdEdit" cmdDelete.Name = "cmdDelete" cmdExit.Name = "cmdExit"  txtD_salesidtextbox..\libs\t_base.vcx t_textboxtextboxt_label..\libs\t_base.vcxlabel lblH_shipchg!frmInvoiceHeader.pgfInvoice.Page1FontSize = 8 Alignment = 1 Caption = "Shipping charge" Height = 19 Left = 450 Top = 196 Width = 80 TabIndex = 47 Name = "lblH_shipchg"  t_textbox..\libs\t_base.vcxtextbox txtH_convrat!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_convrat" Height = 19 Left = 586 TabIndex = 38 Top = 293 Width = 90 Name = "txtH_convrat" PROCEDURE GotFocus this.uoldvalue = this.value ENDPROC PROCEDURE LostFocus IF this.uOldValue <> this.value ThisForm.pgfInvoice.Page1.txtH_ttlconvertamount.value = ROUND((This.Parent.txtH_totalextended.value * This.value), 2) ENDIF ENDPROC Comment = "" FontBold = .T. ControlSource = "v_lineitemsforinvoice.d_salesid" Enabled = .F. Height = 23 Left = 235 MaxLength = 8 TabIndex = 38 Top = 370 Width = 68 Name = "txtD_salesid" Comment = "" FontBold = .F. ControlSource = "v_lineitemsforinvoice.d_invnum" Enabled = .T. Height = 23 Left = 235 MaxLength = 20 TabIndex = 36 Top = 236 Width = 148 Name = "txtD_invnum" !frmInvoiceHeader.pgfInvoice.Page4t_label..\libs\t_base.vcxlabel lblH_convrat!frmInvoiceHeader.pgfInvoice.Page1FontSize = 8 Alignment = 1 BackStyle = 0 Caption = "Conversion rate" Height = 19 Left = 450 Top = 296 Width = 80 TabIndex = 49 Name = "lblH_convrat"  t_textbox..\libs\t_base.vcxtextbox txtH_convcty!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_convcty" Height = 19 Left = 565 MaxLength = 3 TabIndex = 30 Top = 54 Width = 33 Name = "txtH_convcty" t_label..\libs\t_base.vcxlabel lblH_convcty!frmInvoiceHeader.pgfInvoice.Page1FontSize = 8 Alignment = 1 Caption = "Conversion country" Height = 19 Left = 462 Top = 54 Width = 95 TabIndex = 50 Name = "lblH_convcty"  t_textbox..\libs\t_base.vcxtextbox txtH_serchg!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_serchg" Height = 19 Left = 586 TabIndex = 37 Top = 233 Width = 90 Name = "txtH_serchg" PROCEDURE GotFocus this.uoldvalue = this.value ENDPROC PROCEDURE LostFocus IF this.uOldValue <> this.value thisform.RecalculateInvoiceTotals ENDIF ENDPROC  txtD_invnum..\libs\t_base.vcx t_textboxComment = "" FontBold = .T. ControlSource = "v_lineitemsforinvoice.d_startdt" Enabled = .F. Height = 23 Left = 235 TabIndex = 34 Top = 268 Width = 71 Name = "txtD_startdt" !frmInvoiceHeader.pgfInvoice.Page4 txtD_startdttextbox..\libs\t_base.vcx t_textboxt_label..\libs\t_base.vcxlabel lblH_serchg!frmInvoiceHeader.pgfInvoice.Page1FontSize = 8 Alignment = 1 Caption = "Service charge" Height = 19 Left = 450 Top = 236 Width = 80 TabIndex = 53 Name = "lblH_serchg"  t_textbox..\libs\t_base.vcxtextbox txtH_remitto!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_remitto" Height = 19 Left = 565 MaxLength = 3 TabIndex = 31 Top = 73 Width = 33 Name = "txtH_remitto" t_label..\libs\t_base.vcxlabel lblH_remitto!frmInvoiceHeader.pgfInvoice.Page1FontSize = 8 Alignment = 1 Caption = "Remit to" Height = 19 Left = 466 Top = 73 Width = 90 TabIndex = 54 Name = "lblH_remitto"  t_textbox..\libs\t_base.vcxtextbox txtH_ponum!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_ponum" Height = 19 Left = 565 MaxLength = 13 TabIndex = 32 Top = 92 Width = 100 Name = "txtH_ponum" t_label..\libs\t_base.vcxlabel lblH_ponum!frmInvoiceHeader.pgfInvoice.Page1FontSize = 8 Alignment = 1 Caption = "PO Number" Height = 19 Left = 466 Top = 92 Width = 90 TabIndex = 56 Name = "lblH_ponum"  t_textbox..\libs\t_base.vcxtextbox txtH_invcode!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_invcode" Height = 19 Left = 565 MaxLength = 2 TabIndex = 33 Top = 111 Width = 28 Name = "txtH_invcode" t_label..\libs\t_base.vcxlabel lblH_invcode!frmInvoiceHeader.pgfInvoice.Page1FontSize = 8 Alignment = 1 Caption = "Invoice code" Height = 19 Left = 466 Top = 111 Width = 90 TabIndex = 58 Name = "lblH_invcode"  t_textbox..\libs\t_base.vcxtextbox txtH_cu_id!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_cu_id" Height = 19 Left = 565 MaxLength = 10 TabIndex = 34 Top = 130 Width = 79 Name = "txtH_cu_id" t_label..\libs\t_base.vcxlabel lblH_cu_id!frmInvoiceHeader.pgfInvoice.Page1FontSize = 8 Alignment = 1 Caption = "Customer ID" Height = 19 Left = 466 Top = 130 Width = 90 TabIndex = 60 BackColor = 192,192,192 Name = "lblH_cu_id" t_commandbutton..\libs\t_base.vcx commandbuttoncmdCopy!frmInvoiceHeader.pgfInvoice.Page1xTop = 347 Left = 467 Height = 22 Width = 204 Caption = "Copy Shipping to Billing" TabIndex = 40 Name = "cmdCopy" WPROCEDURE Click * Copy the Shipping address to billing if billing line is empty IF EMPTY(This.Parent.txth_bname.value) This.Parent.txth_bname.value = This.Parent.txth_sname.value ENDIF IF EMPTY(This.Parent.txth_bcontac.value) This.Parent.txth_bcontac.value = This.Parent.txth_scontac.value ENDIF IF EMPTY(This.Parent.txth_baddr1.value) This.Parent.txth_baddr1.value = This.Parent.txth_saddr1.value ENDIF IF EMPTY(This.Parent.txth_baddr2.value) This.Parent.txth_baddr2.value = This.Parent.txth_saddr2.value ENDIF IF EMPTY(This.Parent.txth_baddr3.value) This.Parent.txth_baddr3.value = This.Parent.txth_saddr3.value ENDIF IF EMPTY(This.Parent.txth_bCity.value) This.Parent.txth_bCity.value = This.Parent.txth_sCity.value ENDIF IF EMPTY(This.Parent.txth_bState.value) This.Parent.txth_bState.value = This.Parent.txth_sState.value ENDIF IF EMPTY(This.Parent.txth_bZip.value) This.Parent.txth_bZip.value = This.Parent.txth_sZip.value ENDIF IF EMPTY(This.Parent.txth_bCounty.value) This.Parent.txth_bCounty.value = This.Parent.txth_sCounty.value ENDIF ENDPROC Alignment = 1 Caption = "Last Invoice date" Height = 17 Left = 405 Top = 305 Width = 100 TabIndex = 31 Name = "lblD_linvdt" !frmInvoiceHeader.pgfInvoice.Page4 lblD_linvdtlabel..\libs\t_base.vcxt_labelComment = "" FontBold = .T. ControlSource = "v_lineitemsforinvoice.d_linvdt" Enabled = .F. Height = 23 Left = 510 TabIndex = 32 Top = 302 Width = 71 Name = "txtD_linvdt" !frmInvoiceHeader.pgfInvoice.Page4 txtD_linvdttextbox..\libs\t_base.vcx t_textboxzAlignment = 1 Caption = "End date" Height = 17 Left = 405 Top = 271 Width = 100 TabIndex = 29 Name = "lblD_enddt" !frmInvoiceHeader.pgfInvoice.Page4 lblD_enddtlabel..\libs\t_base.vcxt_labelComment = "" FontBold = .T. ControlSource = "v_lineitemsforinvoice.d_enddt" Enabled = .F. Height = 23 Left = 510 TabIndex = 30 Top = 268 Width = 71 Name = "txtD_enddt"  txtD_enddt t_textbox..\libs\t_base.vcxtextbox txtH_region!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_region" Height = 19 Left = 642 MaxLength = 1 TabIndex = 29 Top = 35 Width = 21 Name = "txtH_region" t_shape..\libs\t_base.vcxshapeT_shape2!frmInvoiceHeader.pgfInvoice.Page1[Top = 9 Left = 24 Height = 146 Width = 404 BackColor = 128,255,255 Name = "T_shape2" t_shape..\libs\t_base.vcxshapeT_shape3!frmInvoiceHeader.pgfInvoice.Page1]Top = 162 Left = 24 Height = 146 Width = 404 BackColor = 128,255,255 Name = "T_shape3" t_shape..\libs\t_base.vcxshapeT_shape4!frmInvoiceHeader.pgfInvoice.Page1]Top = 316 Left = 24 Height = 126 Width = 404 BackColor = 128,255,255 Name = "T_shape4"  t_textbox..\libs\t_base.vcxtextbox txtH_sname!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 BackStyle = 1 ControlSource = "inv_head.h_sname" Height = 19 Left = 86 MaxLength = 40 TabIndex = 1 Top = 16 Width = 288 BackColor = 255,255,255 IntegralHeight = .F. Name = "txtH_sname" t_label..\libs\t_base.vcxlabel lblH_sname!frmInvoiceHeader.pgfInvoice.Page1rFontSize = 8 Caption = "Name" Height = 19 Left = 38 Top = 18 Width = 36 TabIndex = 42 Name = "lblH_sname"  t_textbox..\libs\t_base.vcxtextbox txtH_saddr1!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_saddr1" Height = 19 Left = 86 MaxLength = 40 TabIndex = 2 Top = 35 Width = 288 Name = "txtH_saddr1" t_label..\libs\t_base.vcxlabel lblH_saddr1!frmInvoiceHeader.pgfInvoice.Page1vFontSize = 8 Caption = "Address" Height = 19 Left = 37 Top = 36 Width = 48 TabIndex = 43 Name = "lblH_saddr1"  t_textbox..\libs\t_base.vcxtextbox txtH_saddr2!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_saddr2" Height = 19 Left = 86 MaxLength = 40 TabIndex = 3 Top = 54 Width = 288 Name = "txtH_saddr2"  t_textbox..\libs\t_base.vcxtextbox txtH_saddr3!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_saddr3" Height = 19 Left = 86 MaxLength = 40 TabIndex = 4 Top = 73 Width = 288 Name = "txtH_saddr3"  t_textbox..\libs\t_base.vcxtextbox txtH_scity!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_scity" Height = 19 Left = 86 MaxLength = 20 TabIndex = 5 Top = 92 Width = 148 Name = "txtH_scity" t_label..\libs\t_base.vcxlabel lblH_scity!frmInvoiceHeader.pgfInvoice.Page1rFontSize = 8 Caption = "City" Height = 19 Left = 37 Top = 92 Width = 22 TabIndex = 46 Name = "lblH_scity"  t_textbox..\libs\t_base.vcxtextbox txtH_sstate!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_sstate" Format = "!" Height = 19 Left = 275 MaxLength = 3 TabIndex = 6 Top = 92 Width = 33 Name = "txtH_sstate" t_label..\libs\t_base.vcxlabel lblH_sstate!frmInvoiceHeader.pgfInvoice.Page1uFontSize = 8 Caption = "State" Height = 19 Left = 237 Top = 93 Width = 30 TabIndex = 48 Name = "lblH_sstate"  t_textbox..\libs\t_base.vcxtextbox txtH_scounty!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_scounty" Height = 19 Left = 86 MaxLength = 20 TabIndex = 8 Top = 111 Width = 148 Name = "txtH_scounty" t_label..\libs\t_base.vcxlabel lblH_scounty!frmInvoiceHeader.pgfInvoice.Page1xFontSize = 8 Caption = "Country" Height = 19 Left = 37 Top = 112 Width = 44 TabIndex = 51 Name = "lblH_scounty"  t_textbox..\libs\t_base.vcxtextbox txtH_szip!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_szip" Format = "!" Height = 19 Left = 338 MaxLength = 10 TabIndex = 7 Top = 92 Width = 79 Name = "txtH_szip" t_label..\libs\t_base.vcxlabel lblH_szip!frmInvoiceHeader.pgfInvoice.Page1qFontSize = 8 Caption = "Zip" Height = 19 Left = 311 Top = 93 Width = 19 TabIndex = 52 Name = "lblH_szip"  t_textbox..\libs\t_base.vcxtextbox txtH_scontac!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_scontac" Height = 19 Left = 86 MaxLength = 40 TabIndex = 9 Top = 130 Width = 288 Name = "txtH_scontac" t_label..\libs\t_base.vcxlabel lblH_scontac!frmInvoiceHeader.pgfInvoice.Page1xFontSize = 8 Caption = "Contact" Height = 19 Left = 37 Top = 131 Width = 44 TabIndex = 55 Name = "lblH_scontac"  t_textbox..\libs\t_base.vcxtextbox txtH_bname!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_bname" Height = 19 Left = 86 MaxLength = 40 TabIndex = 10 Top = 169 Width = 288 Name = "txtH_bname" t_label..\libs\t_base.vcxlabel lblH_bname!frmInvoiceHeader.pgfInvoice.Page1sFontSize = 8 Caption = "Name" Height = 19 Left = 37 Top = 168 Width = 36 TabIndex = 57 Name = "lblH_bname"  t_textbox..\libs\t_base.vcxtextbox txtH_baddr1!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_baddr1" Height = 19 Left = 86 MaxLength = 40 TabIndex = 11 Top = 188 Width = 288 Name = "txtH_baddr1" t_label..\libs\t_base.vcxlabel lblH_baddr1!frmInvoiceHeader.pgfInvoice.Page1wFontSize = 8 Caption = "Address" Height = 19 Left = 37 Top = 190 Width = 48 TabIndex = 59 Name = "lblH_baddr1"  t_textbox..\libs\t_base.vcxtextbox txtH_baddr2!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_baddr2" Height = 19 Left = 86 MaxLength = 40 TabIndex = 12 Top = 207 Width = 288 Name = "txtH_baddr2"  t_textbox..\libs\t_base.vcxtextbox txtH_baddr3!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_baddr3" Height = 19 Left = 86 MaxLength = 40 TabIndex = 13 Top = 226 Width = 288 Name = "txtH_baddr3"  t_textbox..\libs\t_base.vcxtextbox txtH_bcity!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_bcity" Height = 19 Left = 86 MaxLength = 20 TabIndex = 14 Top = 245 Width = 148 Name = "txtH_bcity" t_label..\libs\t_base.vcxlabel lblH_bcity!frmInvoiceHeader.pgfInvoice.Page1sFontSize = 8 Caption = "City" Height = 19 Left = 37 Top = 245 Width = 22 TabIndex = 61 Name = "lblH_bcity"  t_textbox..\libs\t_base.vcxtextbox txtH_bstate!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_bstate" Format = "!" Height = 19 Left = 275 MaxLength = 3 TabIndex = 15 Top = 245 Width = 33 Name = "txtH_bstate" t_label..\libs\t_base.vcxlabel lblH_bstate!frmInvoiceHeader.pgfInvoice.Page1vFontSize = 8 Caption = "State" Height = 19 Left = 237 Top = 248 Width = 30 TabIndex = 62 Name = "lblH_bstate"  t_textbox..\libs\t_base.vcxtextbox txtH_bzip!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_bzip" Format = "!" Height = 19 Left = 338 MaxLength = 10 TabIndex = 16 Top = 245 Width = 79 Name = "txtH_bzip" t_label..\libs\t_base.vcxlabel lblH_bzip!frmInvoiceHeader.pgfInvoice.Page1rFontSize = 8 Caption = "Zip" Height = 19 Left = 311 Top = 248 Width = 19 TabIndex = 63 Name = "lblH_bzip"  t_textbox..\libs\t_base.vcxtextbox txtH_bcontac!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_bcontac" Height = 19 Left = 86 MaxLength = 40 TabIndex = 18 Top = 283 Width = 288 Name = "txtH_bcontac" t_label..\libs\t_base.vcxlabel lblH_bcontac!frmInvoiceHeader.pgfInvoice.Page1xFontSize = 8 Caption = "Contact" Height = 19 Left = 37 Top = 287 Width = 44 TabIndex = 64 Name = "lblH_bcontac"  t_textbox..\libs\t_base.vcxtextbox txtH_bcounty!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_bcounty" Height = 19 Left = 86 MaxLength = 20 TabIndex = 17 Top = 264 Width = 148 Name = "txtH_bcounty" t_label..\libs\t_base.vcxlabel lblH_bcounty!frmInvoiceHeader.pgfInvoice.Page1xFontSize = 8 Caption = "Country" Height = 19 Left = 34 Top = 264 Width = 44 TabIndex = 65 Name = "lblH_bcounty"  t_textbox..\libs\t_base.vcxtextbox txtH_rname!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_rname" Height = 19 Left = 86 MaxLength = 40 TabIndex = 19 Top = 323 Width = 288 Name = "txtH_rname" t_label..\libs\t_base.vcxlabel lblH_rname!frmInvoiceHeader.pgfInvoice.Page1sFontSize = 8 Caption = "Name" Height = 19 Left = 37 Top = 325 Width = 36 TabIndex = 66 Name = "lblH_rname"  t_textbox..\libs\t_base.vcxtextbox txtH_raddr1!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_raddr1" Height = 19 Left = 86 MaxLength = 40 TabIndex = 20 Top = 342 Width = 288 Name = "txtH_raddr1" t_label..\libs\t_base.vcxlabel lblH_raddr1!frmInvoiceHeader.pgfInvoice.Page1wFontSize = 8 Caption = "Address" Height = 19 Left = 37 Top = 344 Width = 48 TabIndex = 67 Name = "lblH_raddr1"  t_textbox..\libs\t_base.vcxtextbox txtH_raddr2!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_raddr2" Height = 19 Left = 86 MaxLength = 40 TabIndex = 21 Top = 361 Width = 288 Name = "txtH_raddr2"  t_textbox..\libs\t_base.vcxtextbox txtH_raddr3!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_raddr3" Height = 19 Left = 86 MaxLength = 40 TabIndex = 22 Top = 380 Width = 288 Name = "txtH_raddr3"  t_textbox..\libs\t_base.vcxtextbox txtH_rcity!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_rcity" Height = 19 Left = 86 MaxLength = 40 TabIndex = 23 Top = 399 Width = 144 Name = "txtH_rcity" t_label..\libs\t_base.vcxlabel lblH_rcity!frmInvoiceHeader.pgfInvoice.Page1sFontSize = 8 Caption = "City" Height = 19 Left = 37 Top = 402 Width = 22 TabIndex = 71 Name = "lblH_rcity"  t_textbox..\libs\t_base.vcxtextbox txtH_rstate!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_rstate" Format = "!" Height = 19 Left = 275 MaxLength = 3 TabIndex = 24 Top = 399 Width = 33 Name = "txtH_rstate" t_label..\libs\t_base.vcxlabel lblH_rstate!frmInvoiceHeader.pgfInvoice.Page1vFontSize = 8 Caption = "State" Height = 19 Left = 237 Top = 402 Width = 30 TabIndex = 75 Name = "lblH_rstate"  t_textbox..\libs\t_base.vcxtextbox txtH_rcounty!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_rcounty" Height = 19 Left = 86 MaxLength = 40 TabIndex = 26 Top = 418 Width = 144 Name = "txtH_rcounty" t_label..\libs\t_base.vcxlabel lblH_rcounty!frmInvoiceHeader.pgfInvoice.Page1xFontSize = 8 Caption = "Country" Height = 19 Left = 33 Top = 421 Width = 44 TabIndex = 77 Name = "lblH_rcounty"  t_textbox..\libs\t_base.vcxtextbox txtH_rzip!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_rzip" Height = 19 Left = 338 MaxLength = 10 TabIndex = 25 Top = 399 Width = 79 Name = "txtH_rzip" t_label..\libs\t_base.vcxlabel lblH_rzip!frmInvoiceHeader.pgfInvoice.Page1rFontSize = 8 Caption = "Zip" Height = 19 Left = 311 Top = 402 Width = 19 TabIndex = 79 Name = "lblH_rzip" t_label..\libs\t_base.vcxlabelT_label1!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "S" Left = 10 Top = 18 Width = 10 TabIndex = 68 Name = "T_label1" t_label..\libs\t_base.vcxlabelT_label2!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "h" Left = 10 Top = 33 Width = 10 TabIndex = 69 Name = "T_label2" t_label..\libs\t_base.vcxlabelT_label3!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "i" Left = 10 Top = 49 Width = 10 TabIndex = 70 Name = "T_label3" t_label..\libs\t_base.vcxlabelT_label4!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "p" Left = 10 Top = 67 Width = 10 TabIndex = 72 Name = "T_label4" t_label..\libs\t_base.vcxlabelT_label5!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "p" Left = 10 Top = 84 Width = 10 TabIndex = 73 Name = "T_label5" t_label..\libs\t_base.vcxlabelT_label6!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "i" Left = 10 Top = 101 Width = 10 TabIndex = 74 Name = "T_label6" t_label..\libs\t_base.vcxlabelT_label7!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "n" Left = 10 Top = 116 Width = 10 TabIndex = 76 Name = "T_label7" t_label..\libs\t_base.vcxlabelT_label8!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "g" Left = 10 Top = 132 Width = 10 TabIndex = 78 Name = "T_label8" t_line..\libs\t_base.vcxlineT_line9!frmInvoiceHeader.pgfInvoice.Page1mBorderStyle = 1 Height = 0 Left = 25 Top = 154 Width = 403 BorderColor = 255,255,255 Name = "T_line9" t_line..\libs\t_base.vcxlineT_line11!frmInvoiceHeader.pgfInvoice.Page1]Height = 145 Left = 427 Top = 10 Width = 0 BorderColor = 255,255,255 Name = "T_line11" t_label..\libs\t_base.vcxlabelT_label9!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "B" Left = 10 Top = 176 Width = 10 TabIndex = 80 Name = "T_label9" t_label..\libs\t_base.vcxlabel T_label10!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "i" Left = 10 Top = 191 Width = 10 TabIndex = 81 Name = "T_label10" t_label..\libs\t_base.vcxlabel T_label11!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "l" Left = 10 Top = 207 Width = 10 TabIndex = 82 Name = "T_label11" t_label..\libs\t_base.vcxlabel T_label12!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "l" Left = 10 Top = 223 Width = 10 TabIndex = 83 Name = "T_label12" t_label..\libs\t_base.vcxlabel T_label13!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "i" Left = 10 Top = 239 Width = 10 TabIndex = 84 Name = "T_label13" t_label..\libs\t_base.vcxlabel T_label14!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "n" Left = 10 Top = 255 Width = 10 TabIndex = 85 Name = "T_label14" t_label..\libs\t_base.vcxlabel T_label15!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "g" Left = 10 Top = 270 Width = 10 TabIndex = 86 BackColor = 0,0,0 Name = "T_label15" t_label..\libs\t_base.vcxlabel T_label16!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "R" Left = 10 Top = 322 Width = 10 TabIndex = 87 Name = "T_label16" t_label..\libs\t_base.vcxlabel T_label17!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "e" Left = 10 Top = 337 Width = 10 TabIndex = 88 Name = "T_label17" t_label..\libs\t_base.vcxlabel T_label18!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "m" Left = 10 Top = 352 Width = 11 TabIndex = 89 Name = "T_label18" t_label..\libs\t_base.vcxlabel T_label19!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "i" Left = 10 Top = 367 Width = 10 TabIndex = 90 Name = "T_label19" t_label..\libs\t_base.vcxlabel T_label20!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "t" Left = 10 Top = 382 Width = 10 TabIndex = 91 Name = "T_label20" t_label..\libs\t_base.vcxlabel T_label21!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "t" Left = 10 Top = 401 Width = 10 TabIndex = 92 Name = "T_label21" t_label..\libs\t_base.vcxlabel T_label22!frmInvoiceHeader.pgfInvoice.Page1FontBold = .T. FontSize = 8 Alignment = 2 Caption = "o" Left = 10 Top = 416 Width = 10 TabIndex = 93 Name = "T_label22" t_line..\libs\t_base.vcxlineT_line1!frmInvoiceHeader.pgfInvoice.Page1mBorderStyle = 1 Height = 0 Left = 25 Top = 307 Width = 403 BorderColor = 255,255,255 Name = "T_line1" t_line..\libs\t_base.vcxlineT_line2!frmInvoiceHeader.pgfInvoice.Page1]Height = 145 Left = 427 Top = 163 Width = 0 BorderColor = 255,255,255 Name = "T_line2" t_line..\libs\t_base.vcxlineT_line3!frmInvoiceHeader.pgfInvoice.Page1mBorderStyle = 1 Height = 0 Left = 25 Top = 441 Width = 403 BorderColor = 255,255,255 Name = "T_line3" t_line..\libs\t_base.vcxlineT_line4!frmInvoiceHeader.pgfInvoice.Page1]Height = 124 Left = 427 Top = 317 Width = 0 BorderColor = 255,255,255 Name = "T_line4" t_label..\libs\t_base.vcxlabel T_label23!frmInvoiceHeader.pgfInvoice.Page1sFontBold = .T. Alignment = 2 Caption = "-" Left = 627 Top = 36 Width = 10 TabIndex = 94 Name = "T_label23" t_label..\libs\t_base.vcxlabel T_label24!frmInvoiceHeader.pgfInvoice.Page1MCaption = "Note:" Left = 467 Top = 374 TabIndex = 95 Name = "T_label24" t_label..\libs\t_base.vcxlabel T_label25!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 Alignment = 1 Caption = "Extended" Left = 450 Top = 276 Width = 80 TabIndex = 96 Name = "T_label25" t_label..\libs\t_base.vcxlabel T_label26!frmInvoiceHeader.pgfInvoice.Page1zFontSize = 8 Alignment = 1 Caption = "Converted" Left = 450 Top = 316 Width = 80 TabIndex = 97 Name = "T_label26" textboxtextboxtxtH_totalextended!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontBold = .T. FontSize = 8 ControlSource = "inv_head.h_totalextended" Enabled = .F. Height = 19 Left = 586 TabIndex = 98 Top = 273 Width = 90 Name = "txtH_totalextended" textboxtextboxtxtH_ttlconvertamount!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontBold = .T. FontSize = 8 ControlSource = "inv_head.h_ttlconvertamount" Enabled = .F. Height = 19 Left = 586 TabIndex = 99 Top = 313 Width = 90 Name = "txtH_ttlconvertamount" t_label..\libs\t_base.vcxlabel T_label27!frmInvoiceHeader.pgfInvoice.Page1wFontSize = 8 Alignment = 1 Caption = "Total" Left = 450 Top = 176 Width = 80 TabIndex = 100 Name = "T_label27" textboxtextbox txtH_ttlinv!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontBold = .T. FontSize = 8 ControlSource = "inv_head.h_ttlinv" Enabled = .F. Height = 19 Left = 586 TabIndex = 101 Top = 173 Width = 90 Name = "txtH_ttlinv" textboxtextboxtxtH_taxamount!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "inv_head.h_taxamount" Enabled = .F. Height = 19 Left = 586 TabIndex = 102 Top = 213 Width = 90 Name = "txtH_taxamount" t_grid..\libs\t_base.vcxgridgrdInvoiceHeader!frmInvoiceHeader.pgfInvoice.Page2ColumnCount = 5 Height = 452 Left = 0 Panel = 1 ReadOnly = .T. ScrollBars = 2 Top = 0 Width = 695 Name = "grdInvoiceHeader" Column1.ControlSource = "inv_head.h_invnum" Column1.Width = 82 Column1.ReadOnly = .T. Column1.Name = "Column1" Column2.ControlSource = "inv_head.h_bname" Column2.Width = 345 Column2.ReadOnly = .T. Column2.Name = "Column2" Column3.ControlSource = "inv_head.h_acctno" Column3.ReadOnly = .T. Column3.Name = "Column3" Column4.ControlSource = "inv_head.h_ponum" Column4.ReadOnly = .T. Column4.Name = "Column4" Column5.ControlSource = "inv_head.h_totalextended" Column5.ReadOnly = .T. Column5.Name = "Column5" headerheaderHeader1:frmInvoiceHeader.pgfInvoice.Page2.grdInvoiceHeader.Column16Alignment = 2 Caption = "Invoice" Name = "Header1" textboxtextboxText1:frmInvoiceHeader.pgfInvoice.Page2.grdInvoiceHeader.Column1iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1:frmInvoiceHeader.pgfInvoice.Page2.grdInvoiceHeader.Column2;Alignment = 2 Caption = "Billing Name" Name = "Header1" textboxtextboxText1:frmInvoiceHeader.pgfInvoice.Page2.grdInvoiceHeader.Column2iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1:frmInvoiceHeader.pgfInvoice.Page2.grdInvoiceHeader.Column36Alignment = 2 Caption = "Account" Name = "Header1" textboxtextboxText1:frmInvoiceHeader.pgfInvoice.Page2.grdInvoiceHeader.Column3iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1:frmInvoiceHeader.pgfInvoice.Page2.grdInvoiceHeader.Column48Alignment = 2 Caption = "PO Number" Name = "Header1" textboxtextboxText1:frmInvoiceHeader.pgfInvoice.Page2.grdInvoiceHeader.Column4iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1:frmInvoiceHeader.pgfInvoice.Page2.grdInvoiceHeader.Column55Alignment = 2 Caption = "Amount" Name = "Header1" textboxtextboxText1:frmInvoiceHeader.pgfInvoice.Page2.grdInvoiceHeader.Column5iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" t_grid..\libs\t_base.vcxgrid grdLineItems!frmInvoiceHeader.pgfInvoice.Page3WColumnCount = 6 Height = 452 Left = 0 Panel = 1 ReadOnly = .T. RecordSource = "v_lineitemsforinvoice" ScrollBars = 2 Top = 0 Width = 695 Name = "grdLineItems" Column1.ControlSource = "v_lineitemsforinvoice.d_qty" Column1.Width = 36 Column1.ReadOnly = .T. Column1.Name = "Column1" Column2.ControlSource = "v_lineitemsforinvoice.d_descrip" Column2.Width = 320 Column2.ReadOnly = .T. Column2.Name = "Column2" Column3.ControlSource = "v_lineitemsforinvoice.d_list" Column3.ReadOnly = .T. Column3.Name = "Column3" Column4.ControlSource = "v_lineitemsforinvoice.d_disc" Column4.ReadOnly = .T. Column4.Name = "Column4" Column5.ControlSource = "v_lineitemsforinvoice.d_netprice" Column5.ReadOnly = .T. Column5.Name = "Column5" Column6.ControlSource = "v_lineitemsforinvoice.d_linettl" Column6.ReadOnly = .T. Column6.Name = "Column6" headerheaderHeader16frmInvoiceHeader.pgfInvoice.Page3.grdLineItems.Column12Alignment = 2 Caption = "Qty" Name = "Header1" textboxtextboxText16frmInvoiceHeader.pgfInvoice.Page3.grdLineItems.Column1iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader16frmInvoiceHeader.pgfInvoice.Page3.grdLineItems.Column2:Alignment = 2 Caption = "Description" Name = "Header1" textboxtextboxText16frmInvoiceHeader.pgfInvoice.Page3.grdLineItems.Column2BorderStyle = 0 ControlSource = "v_lineitemsforinvoice.d_netprice" Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader16frmInvoiceHeader.pgfInvoice.Page3.grdLineItems.Column33Alignment = 2 Caption = "List" Name = "Header1" textboxtextboxText16frmInvoiceHeader.pgfInvoice.Page3.grdLineItems.Column3iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader16frmInvoiceHeader.pgfInvoice.Page3.grdLineItems.Column43Alignment = 2 Caption = "Disc" Name = "Header1" textboxtextboxText16frmInvoiceHeader.pgfInvoice.Page3.grdLineItems.Column4iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader16frmInvoiceHeader.pgfInvoice.Page3.grdLineItems.Column52Alignment = 2 Caption = "Net" Name = "Header1" textboxtextboxText16frmInvoiceHeader.pgfInvoice.Page3.grdLineItems.Column5iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader16frmInvoiceHeader.pgfInvoice.Page3.grdLineItems.Column69Alignment = 2 Caption = "Line Total" Name = "Header1" textboxtextboxText16frmInvoiceHeader.pgfInvoice.Page3.grdLineItems.Column6iBorderStyle = 0 Margin = 0 ReadOnly = .T. ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1"  t_textbox..\libs\t_base.vcxtextbox txtD_prid!frmInvoiceHeader.pgfInvoice.Page4Comment = "" FontBold = .T. ControlSource = "v_lineitemsforinvoice.d_prid" Enabled = .F. Height = 23 Left = 100 MaxLength = 10 TabIndex = 2 Top = 32 Width = 91 Name = "txtD_prid" t_label..\libs\t_base.vcxlabel lblD_prid!frmInvoiceHeader.pgfInvoice.Page4hCaption = "Product ID" Height = 17 Left = 23 Top = 34 Width = 75 TabIndex = 1 Name = "lblD_prid"  t_textbox..\libs\t_base.vcxtextboxtxtD_qty!frmInvoiceHeader.pgfInvoice.Page4Comment = "" ControlSource = "v_lineitemsforinvoice.d_qty" Height = 23 Left = 359 MaxLength = 7 TabIndex = 4 Top = 32 Width = 60 Name = "txtD_qty" PROCEDURE LostFocus IF This.uOldValue <> This.Value This.Parent.txtD_linettl.value = this.value * this.parent.txtD_netprice.value ENDIF ENDPROC PROCEDURE GotFocus this.uOldValue = this.value ENDPROC !frmInvoiceHeader.pgfInvoice.Page4textbox..\libs\t_base.vcx t_textbox{Alignment = 1 Caption = "Record ID" Height = 17 Left = 115 Top = 375 Width = 115 TabIndex = 27 Name = "lblD_recid" !frmInvoiceHeader.pgfInvoice.Page4 lblD_recidlabel..\libs\t_base.vcxt_label!frmInvoiceHeader.pgfInvoice.Page4 lblD_linvnum2t_label..\libs\t_base.vcxlabellblD_qty!frmInvoiceHeader.pgfInvoice.Page4fCaption = "Quantity" Height = 17 Left = 284 Top = 34 Width = 63 TabIndex = 3 Name = "lblD_qty"  t_textbox..\libs\t_base.vcxtextbox txtD_descrip!frmInvoiceHeader.pgfInvoice.Page4Comment = "" ControlSource = "v_lineitemsforinvoice.d_descrip" Height = 23 Left = 100 MaxLength = 50 TabIndex = 6 Top = 68 Width = 358 Name = "txtD_descrip" t_label..\libs\t_base.vcxlabel lblD_descrip!frmInvoiceHeader.pgfInvoice.Page4lCaption = "Description" Height = 17 Left = 25 Top = 70 Width = 75 TabIndex = 5 Name = "lblD_descrip"  t_textbox..\libs\t_base.vcxtextbox txtD_list!frmInvoiceHeader.pgfInvoice.Page4Comment = "" ControlSource = "v_lineitemsforinvoice.d_list" Height = 23 Left = 100 TabIndex = 8 Top = 106 Width = 75 Name = "txtD_list" PROCEDURE GotFocus this.uOldValue = this.value ENDPROC PROCEDURE LostFocus IF This.uOldValue <> This.Value IF this.parent.txtD_disc.value > 0 this.parent.txtD_netprice.value = This.value - (this.value * this.parent.txtD_disc.value) ELSE this.parent.txtD_netprice.value = this.value ENDIF This.Parent.txtD_linettl.value = this.parent.txtD_qty.value * this.parent.txtD_netprice.value ENDIF ENDPROC Alignment = 1 Caption = "Last invoice number" Height = 17 Left = 115 Top = 340 Width = 115 TabIndex = 25 Name = "lblD_linvnum2" label..\libs\t_base.vcxt_labelComment = "" FontBold = .T. ControlSource = "v_lineitemsforinvoice.d_linvnum" Enabled = .F. Height = 23 Left = 235 MaxLength = 20 TabIndex = 26 Top = 337 Width = 148 Name = "txtD_linvnum" !frmInvoiceHeader.pgfInvoice.Page4 txtD_linvnumtextbox..\libs\t_base.vcx t_textbox lblD_finvdtt_label..\libs\t_base.vcxlabel lblD_list!frmInvoiceHeader.pgfInvoice.Page4cCaption = "List" Height = 17 Left = 25 Top = 108 Width = 75 TabIndex = 7 Name = "lblD_list"  t_textbox..\libs\t_base.vcxtextbox txtD_disc!frmInvoiceHeader.pgfInvoice.Page4Comment = "" ControlSource = "v_lineitemsforinvoice.d_disc" Height = 23 InputMask = ".99" Left = 265 TabIndex = 10 Top = 106 Width = 48 Name = "txtD_disc" PROCEDURE GotFocus this.uOldValue = this.value ENDPROC PROCEDURE LostFocus IF This.uOldValue <> This.Value IF this.parent.txtD_disc.value > 0 this.parent.txtD_netprice.value = This.Parent.txtD_list.value - (This.Parent.txtD_list.value * this.parent.txtD_disc.value) ELSE this.parent.txtD_netprice.value = this.value ENDIF This.Parent.txtD_linettl.value = this.parent.txtD_qty.value * this.parent.txtD_netprice.value ENDIF ENDPROC Alignment = 1 Caption = "First Invoice" Height = 17 Left = 115 Top = 304 Width = 115 TabIndex = 23 Name = "lblD_finvdt" !frmInvoiceHeader.pgfInvoice.Page4label..\libs\t_base.vcxt_labelComment = "" FontBold = .T. ControlSource = "v_lineitemsforinvoice.d_finvdt" Enabled = .F. Height = 23 Left = 235 TabIndex = 24 Top = 302 Width = 71 Name = "txtD_finvdt" !frmInvoiceHeader.pgfInvoice.Page4 txtD_finvdttextbox..\libs\t_base.vcx t_textbox lblD_subdate2labelt_label..\libs\t_base.vcxlabel lblD_disc!frmInvoiceHeader.pgfInvoice.Page4hCaption = "Discount" Height = 17 Left = 208 Top = 109 Width = 60 TabIndex = 9 Name = "lblD_disc"  t_textbox..\libs\t_base.vcxtextbox txtD_netprice!frmInvoiceHeader.pgfInvoice.Page4Comment = "" FontBold = .T. ControlSource = "v_lineitemsforinvoice.d_netprice" Enabled = .F. Height = 23 InputMask = "99,999.99" Left = 400 TabIndex = 12 Top = 106 Width = 75 Name = "txtD_netprice" t_label..\libs\t_base.vcxlabel lblD_netprice!frmInvoiceHeader.pgfInvoice.Page4nCaption = "Net price" Height = 17 Left = 341 Top = 109 Width = 62 TabIndex = 11 Name = "lblD_netprice"  t_textbox..\libs\t_base.vcxtextbox txtD_linettl!frmInvoiceHeader.pgfInvoice.Page4Comment = "" FontBold = .T. ControlSource = "v_lineitemsforinvoice.d_linettl" Enabled = .F. Height = 23 InputMask = "9,999,999.99" Left = 578 TabIndex = 14 Top = 106 Width = 86 Name = "txtD_linettl" t_label..\libs\t_base.vcxlabel lblD_linettl!frmInvoiceHeader.pgfInvoice.Page4nCaption = "Line Total" Height = 17 Left = 510 Top = 109 Width = 72 TabIndex = 13 Name = "lblD_linettl"  t_textbox..\libs\t_base.vcxtextbox txtD_renewal!frmInvoiceHeader.pgfInvoice.Page4Comment = "" ControlSource = "v_lineitemsforinvoice.d_renewal" Height = 23 Left = 100 MaxLength = 15 TabIndex = 16 Top = 164 Width = 113 Name = "txtD_renewal" t_label..\libs\t_base.vcxlabel lblD_renewal!frmInvoiceHeader.pgfInvoice.Page4jCaption = "Renewal" Height = 17 Left = 25 Top = 166 Width = 62 TabIndex = 15 Name = "lblD_renewal"  t_textbox..\libs\t_base.vcxtextbox txtD_subdate!frmInvoiceHeader.pgfInvoice.Page4Comment = "" ControlSource = "v_lineitemsforinvoice.d_subdate" Height = 23 Left = 445 MaxLength = 30 TabIndex = 18 Top = 164 Width = 218 Name = "txtD_subdate" t_label..\libs\t_base.vcx lblD_subdate!frmInvoiceHeader.pgfInvoice.Page4wCaption = "Subscription dates" Height = 17 Left = 335 Top = 166 Width = 108 TabIndex = 17 Name = "lblD_subdate" t_label Z%/dTUTUTHIS UOLDVALUEVALUE^%W6TCd T U THIS UOLDVALUEVALUEPARENTTXTH_TAXAMOUNT TXTH_TAXRATE TXTH_TTLINVTHISFORMRECALCULATEINVOICETOTALSGotFocus, LostFocus^112qaA1/O) :PROCEDURE cmdTop.Click DODEFAULT() thisform.cInvoiceNumber = Inv_head.h_invnum ENDPROC PROCEDURE cmdPrev.Click DODEFAULT() thisform.cInvoiceNumber = Inv_head.h_invnum ENDPROC PROCEDURE cmdNext.Click DODEFAULT() thisform.cInvoiceNumber = Inv_head.h_invnum ENDPROC PROCEDURE cmdEnd.Click DODEFAULT() thisform.cInvoiceNumber = Inv_head.h_invnum ENDPROC PROCEDURE cmdFind.Click PRIVATE cSearchWhat cSearchWhat = '' * Call window to query user to type of search to use DO FORM SearchOptions TO cSearchWhat DO CASE CASE cSearchWhat = 'IndexSearch' Private recnum #DEFINE InvoiceBrowse 'h_bname :20 :H = "Company", ; h_bcity :20 :H = "City", ; h_bstate : 5 :H = "State"' recnum = m_browse('',InvoiceBrowse, '', 'RECNO()') IF !EMPTY(recnum) ThisForm.pgfInvoice.refresh() thisform.cInvoiceNumber = Inv_Head.h_InvNum * ThisForm.lDoRequery = .T. ELSE WAIT WINDOW 'Find Aborted' ENDIF CASE cSearchWhat = 'PowerSearch' DODEFAULT() OTHERWISE MESSAGEBOX("No search selected",16," ") ENDCASE ENDPROC PROCEDURE cmdAdd.Click This.visible = .F. ThisForm.pgfInvoice.page1.enabled = .T. ThisForm.pgfInvoice.Page2.enabled = .T. ThisForm.pgfInvoice.Page3.enabled = .T. ThisForm.pgfInvoice.Page4.enabled = .T. DODEFAULT() IF ThisForm.pgfInvoice.activepage = 4 IF thisform.nOldLineTotal <> ThisForm.pgfInvoice.Page4.txtD_linettl.value thisform.GetNewHeaderTotals ENDIF ENDIF ThisForm.cmdButtons.navrefresh ENDPROC PROCEDURE cmdEdit.Click IF This.Parent.cmdAdd.visible = .T. This.Parent.cmdAdd.visible = .F. ThisForm.pgfInvoice.page1.enabled = .T. ThisForm.pgfInvoice.Page2.enabled = .T. ThisForm.pgfInvoice.Page3.enabled = .T. ThisForm.pgfInvoice.Page4.enabled = .T. ELSE This.Parent.cmdAdd.visible = .T. IF thisform.pgfInvoice.activepage < 3 thisform.pgfInvoice.activepage = 1 ThisForm.pgfInvoice.Page2.enabled = .F. ThisForm.pgfInvoice.Page3.enabled = .F. ThisForm.pgfInvoice.Page4.enabled = .F. ELSE thisform.pgfInvoice.activepage = 4 thisform.nOldLineTotal = ThisForm.pgfInvoice.Page4.txtD_linettl.value ThisForm.pgfInvoice.Page1.enabled = .F. ThisForm.pgfInvoice.Page2.enabled = .F. ThisForm.pgfInvoice.Page3.enabled = .F. ENDIF ENDIF DODEFAULT() ENDPROC PROCEDURE cmdDelete.Click DODEFAULT() ** If we are on a page displaying header data and do a delete we need to ** delete the line items as well IF ThisForm.pgfInvoice.ActivePage < 3 DELETE FOR Inv_data.d_Invnum = thisform.cInvoiceNumber IN inv_data ENDIF ENDPROC    %}I4U CTUTHISFORMCINVOICENUMBERINV_HEADH_INVNUM CTUTHISFORMCINVOICENUMBERINV_HEADH_INVNUM CTUTHISFORMCINVOICENUMBERINV_HEADH_INVNUM CTUTHISFORMCINVOICENUMBERINV_HEADH_INVNUM5 T SearchOptions( H: IndexSearch45TCah_bname :20 :H = "Company", h_bcity :20 :H = "City", h_bstate : 5 :H = "State"RECNO()%C CT 0R, Find Aborted PowerSearchY C2%CNo search selected xU CSEARCHWHAT SEARCHOPTIONSRECNUMM_BROWSETHISFORM PGFINVOICEREFRESHCINVOICENUMBERINV_HEADH_INVNUMT-TaTaTaTa C%  %     UTHISVISIBLETHISFORM PGFINVOICEPAGE1ENABLEDPAGE2PAGE3PAGE4 ACTIVEPAGE NOLDLINETOTAL TXTD_LINETTLVALUEGETNEWHEADERTOTALS CMDBUTTONS NAVREFRESH%a|T-TaTaT aT auTa%  T T-T -T -qT T  T-T-T - CUTHISPARENTCMDADDVISIBLETHISFORM PGFINVOICEPAGE1ENABLEDPAGE2PAGE3PAGE4 ACTIVEPAGE NOLDLINETOTAL TXTD_LINETTLVALUE? C% 8UTHISFORM PGFINVOICE ACTIVEPAGEFORINV_DATAD_INVNUMCINVOICENUMBER cmdTop.Click, cmdPrev.Click} cmdNext.Click cmdEnd.Click cmdFind.Clickp cmdAdd.Clickr cmdEdit.ClickcmdDelete.Click112121212qq&1aAQB3AAAArAA2AAAAAAq1AAA1AAAAA2tA2Pt +c J m2- CD@ / ^)  kk%CLU CTInv_head% FTCWT-T-CT % T aTa UTHISFORM CCURRENTTABLECPREVIOUSTABLE CMDBUTTONS NWORKAREATOPFILEENDFILE NAVREFRESHCINVOICENUMBERINV_HEADH_INVNUM LISREADONLYCMDEDITVISIBLE LREQUERYSALESREFRESHTUTHISFORMCINVOICENUMBERINV_HEADH_INVNUM CTUTHISFORMCINVOICENUMBERINV_HEADH_INVNUM CTInv_head% FTCWT-T-CT -T a U THISFORM CCURRENTTABLECPREVIOUSTABLE CMDBUTTONS NWORKAREATOPFILEENDFILE NAVREFRESHCMDEDITVISIBLE LREQUERYSALESREFRESH C%Tv_LineItemsForInvoice% FTCWT-T-CCT- C T -U THISFORM CCURRENTTABLECPREVIOUSTABLE CMDBUTTONS NWORKAREATOPFILEENDFILE NAVREFRESH LREQUERYSALESTHISREFRESHCMDEDITVISIBLE C%Tv_LineItemsForInvoice% FTCWT-T-C%CT- C % T aUTHISFORM CCURRENTTABLECPREVIOUSTABLE CMDBUTTONS NWORKAREATOPFILEENDFILE NAVREFRESH LREQUERYSALESTHISREFRESH LISREADONLYCMDEDITVISIBLEPage1.Activate, Page1.InitPage2.DeactivatePage2.ActivatefPage3.ActivatePage4.Activate1q"A2AA21313q"AC2Rq"AC2Qq"AAAA13Xq##81 N)k4 E %+<U 5IT #TC TT T U NTOTALINVOICEAMOUNTNTOTALCONVERTAMOUNTTHISFORM PGFINVOICEPAGE1 TXTH_TTLINVVALUETXTH_TAXAMOUNT TXTH_SERCHG TXTH_SHIPCHG TXTH_CONVRATTXTH_TOTALEXTENDEDTXTH_TTLCONVERTAMOUNT5 T)KC A00AA0054S(K(!>  C UNCURRENTRECORDNUMBERNTOTALLINEAMOUNTCINDEX NCURRENTRECV_LINEITEMSFORINVOICE D_LINETTLINV_DATAD_INVNUMALLINV_HEADH_TTLINVFORH_INVNUMTHISFORMCINVOICENUMBERRECALCULATELINEITEMS4 5=T #TC T!>  !>   U NLINETOTALNTOTALINVOICEAMOUNTNTOTALCONVERTAMOUNTTHISFORM PGFINVOICEPAGE1TXTH_TAXAMOUNTVALUE TXTH_SERCHG TXTH_SHIPCHG TXTH_CONVRATALLINV_HEADH_TOTALEXTENDEDFORH_INVNUMCINVOICENUMBERH_TTLCONVERTAMOUNTREFRESHCUTHISFORMSIZER FRMRESIZE+ CTInv_head FT%C oUser.cNamebC%C Read OnlyTaT -T -T -T -T - T-$T-UTHISFORM CCURRENTTABLECINVOICENUMBERINV_HEADH_INVNUMOUSER CUSERLEVEL LISREADONLY CMDBUTTONSCMDPRINTVISIBLECMDADDCMDEDIT CMDDELETE PGFINVOICEPAGE1CMDCOPYrecalculateinvoicetotals,getnewheadertotalsrecalculatelineitemsResizeInit12713q2222AAAAqAA3$Dmx # : K =)