A~VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentoTop = 38 Left = 104 Width = 314 Height = 483 OpenViews = 2 DataSource = .NULL. Name = "Dataenvironment" 11t_form..\libs\t_base.vcxformfrmInvoiceHeaderDataSession = 1 Height = 549 Width = 698 DoCreate = .T. AutoCenter = .T. Caption = "Invoicing" FontBold = .T. Enabled = .T. WindowType = 1 WindowState = 0 ccurrentalias = Name = "frmInvoiceHeader" PROCEDURE recalculateinvoicetotals Local lnTotalInvoiceAmount, ; lnTotalConvertAmount, ; lsCursor, ; lsField lnTotalInvoiceAmount = ThisForm.pgfInvoice.Page1.txtH_ttlinv.value + ThisForm.pgfInvoice.Page1.txtH_taxamount.value lnTotalConvertAmount = Round((lnTotalInvoiceAmount * ThisForm.pgfInvoice.Page1.txtH_convrat.value), 2) *!* lsField = Substr(ThisForm.pgfInvoice.Page1.txtH_totalextended.controlsource, Rat(".", ; *!* ThisForm.pgfInvoice.Page1.txtH_totalextended.controlsource) + 1, ; *!* Len(ThisForm.pgfInvoice.Page1.txtH_totalextended.controlsource)) *!* lsCursor = Substr(ThisForm.pgfInvoice.Page1.txtH_totalextended.controlsource, 1, ; *!* Rat(".", ThisForm.pgfInvoice.Page1.txtH_totalextended.controlsource) - 1) ThisForm.pgfInvoice.Page1.txtH_totalextended.value = lnTotalInvoiceAmount thisform.UpdateCursor("Invtot", "Page1", ThisForm.pgfInvoice.Page1.txtH_totalextended.value) *!* lsField = Substr(ThisForm.pgfInvoice.Page1.txtH_ttlconvertamount.controlsource, Rat(".", ; *!* ThisForm.pgfInvoice.Page1.txtH_ttlconvertamount.controlsource) + 1, ; *!* Len(ThisForm.pgfInvoice.Page1.txtH_ttlconvertamount.controlsource)) *!* lsCursor = Substr(ThisForm.pgfInvoice.Page1.txtH_ttlconvertamount.controlsource, 1, ; *!* Rat(".", ThisForm.pgfInvoice.Page1.txtH_ttlconvertamount.controlsource) - 1) thisform.pgfInvoice.Page1.txtH_ttlconvertamount.value = lnTotalConvertAmount *!* thisform.UpdateCursor(lsField, lsCursor, ThisForm.pgfInvoice.Page1.txtH_ttlconvertamount.value) Return ENDPROC PROCEDURE getnewheadertotals Local lnCurrentRecordNumber, ; lnTotalLineAmount, ; lcIndex, ; lnCurrentRec lnTotalLineAmount = 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) Return ENDPROC PROCEDURE recalculatelineitems LParameter lpnLineTotal Local lnTotalInvoiceAmount, ; lnTotalConvertAmount *!* 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 lnTotalInvoiceAmount = lpnLineTotal + ThisForm.pgfInvoice.Page1.txtH_taxamount.value + ; ThisForm.pgfInvoice.Page1.txtH_serchg.value + ThisForm.pgfInvoice.Page1.txtH_shipchg.value lnTotalConvertAmount = 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 Return ENDPROC PROCEDURE getinvoicetable LParameters lpsDateString Local lcLocFile, ; llOldIgnoreErrors, ; llRetVal llOldIgnoreErrors = thisform.lIgnoreErrors llRetVal = .T. thisform.cCurrentTable = "Inv" + lpsDateString lcLocFile = Sys(5) + Sys(2003) + "\Invoice\Invoice Backup\" + thisform.cCurrentTable + ".DBF" If !File(lcLocFile) thisform.cCurrentTable = "" thisform.lIgnoreErrors = .T. thisform.cCurrentTable = LocFile(thisform.cCurrentTable,"DBF","Select invoice table?") thisform.cCurrentTable = SubStr(thisform.cCurrentTable, Rat("\", thisform.cCurrentTable) + 1,; (Rat(".", thisform.cCurrentTable) - 1) - Rat("\", thisform.cCurrentTable)) thisform.lIgnoreErrors = llOldIgnoreErrors If Empty(thisform.cCurrentTable) llRetVal = .F. EndIf EndIf If llRetVal thisform.cdatapath = SubStr(lcLocFile, 1, Rat("\", lcLocFile) - 1) thisform.adodatacontrol1.connectionstring = 'Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=Visual FoxPro Tables;UID=;SourceDB=' + thisform.cdatapath + ; ';SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"' EndIf Return llRetVal ENDPROC PROCEDURE Resize thisform.sizer.frmresize() ENDPROC PROCEDURE Init DoDefault() 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 PROCEDURE Load thisform.tag = Set("Century") Set Century On ENDPROC PROCEDURE Destroy Close Table All ENDPROC PROCEDURE Unload Local lcSetCentury lcSetCentury = thisform.tag Set Century &lcSetCentury Return ENDPROC  ;%DYSU <UTHISFORMClick,1q2#)g NN% Uj%Cpage2+ A #6TcC End of file0xUPAGE2THISFORMCINVOICENUMBER CU_INVOICE PGFINVOICEPAGE1ACTIVATEClick,1R1A2)Nm TT:%  Up%Cpage2 A #)Ti CBeginning of file0xUPAGE2THISFORMCINVOICENUMBER CU_INVOICE PGFINVOICEPAGE1ACTIVATEClick,1R1A2)T Va%0Y ?U%Cpage2 H%Cpage2 [T CBeginning of file0x CBeginning of file0xUPAGE2THISFORMCINVOICENUMBER CU_INVOICE PGFINVOICEPAGE1ACTIVATEClick,1RR1AA2A) =K%uUT%C+ H%C+ v2thisform.cInvoiceNumber = &lcAlias..cu_invoice C End of file0xCC End of file?xULCALIASTHISFORM CCURRENTALIAS PGFINVOICEPAGE2GRDINVOICEHEADERREFRESHCLICKClick,123"Ab1A2]) "R%U"TC UTHISFORMADODATACONTROL1 RECORDSETNAMEUPDATERECORDSETClick,1!1k) 3%pUG~( oleautomationTCcusolecalendarN%C loCalendarbO -%C C C Q<TCCZCCCZ0CCCZ0 Ta%C :$T C$T a M T- % CNo date selected.xU LCDATESTRINGLLRETVAL LOCALENDAR OLEAUTOMATIONSHOWNYEARNMONTHNDAYTHISFORMGETINVOICETABLE TXTINVDATEVALUE PGFINVOICEENABLEDPAGE2ACTIVATERELEASEClick,1rRAABAB11) %J_YUC HELLO WORLDxUClick,1q1+).PROCEDURE Click release thisform ENDPROC frmInvoiceHeaderccurrentinvoice cinvoicenumber lrequerysales noldlinetotal cprevioustable nhandle cdatapath nlineitem ccurrentalias *getinvoicetotals *recalculateinvoicetotals *getnewheadertotals *recalculatelineitems *getinvoicetable sizer..\libs\resize.vcxcontrolSIZERfrmInvoiceHeaderzTop = 497 Left = 686 ZOrderSet = 1 Name = "SIZER" LBLHIGHLIGHT.Name = "LBLHIGHLIGHT" LBLSHADING.Name = "LBLSHADING" adodatacontroladocontrols.vcxcustomAdodatacontrol1frmInvoiceHeader1Top = 492 Left = 588 Name = "Adodatacontrol1"  t_pageframe..\libs\t_base.vcx pageframe pgfInvoicefrmInvoiceHeaderErasePage = .T. PageCount = 4 Enabled = .F. Top = 30 Left = 0 Width = 700 Height = 480 TabIndex = 1 ZOrderSet = 2 Name = "pgfInvoice" Page1.Caption = "Invoice Header" Page1.Enabled = .T. 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.Refresh *!* thisform.adodatacontrol1.RecordsetName = "Page1" *!* thisform.adodatacontrol1.sql = "Select Distinct * From " + Alltrim(thisform.cCurrentTable) + " Where cu_invoice = '" + thisform.cInvoiceNumber + "'" *!* thisform.adodatacontrol1.refreshrecordset *!* thisform.cInvoiceNumber = Page1.cu_invoice ENDPROC PROCEDURE Page1.Deactivate DoDefault() thisform.cInvoiceNumber = Page1.cu_invoice ENDPROC PROCEDURE Page1.Activate If !Empty(thisform.adodatacontrol1.connectionstring) thisform.adodatacontrol1.RecordsetName = "page1" thisform.adodatacontrol1.sql = "Select * From " + Alltrim(thisform.cCurrentTable) + " Where cu_invoice = '" + thisform.cInvoiceNumber + "'" thisform.adodatacontrol1.refreshrecordset EndIf If Used("page1") Select page1 EndIf thisform.refresh() thisform.ccurrentalias = "page1" DoDefault() ENDPROC PROCEDURE Page2.Refresh this.grdInvoiceHeader.recordsourcetype = 1 this.grdInvoiceHeader.recordsource = "Page2" this.grdInvoiceHeader.columncount = 5 this.grdInvoiceHeader.Column1.Header1.caption = "Invoice" this.grdInvoiceHeader.Column1.controlsource = "Page2.cu_invoice" this.grdInvoiceHeader.Column1.width = 136 this.grdInvoiceHeader.Column2.Header1.caption = "Billing Name" this.grdInvoiceHeader.Column2.controlsource = "Page2.cu_bname" this.grdInvoiceHeader.Column2.width = 320 this.grdInvoiceHeader.Column3.Header1.caption = "Account" this.grdInvoiceHeader.Column3.controlsource = "Page2.cu_acctno" this.grdInvoiceHeader.Column3.width = 75 this.grdInvoiceHeader.Column4.Header1.caption = "P.O. Number" this.grdInvoiceHeader.Column4.controlsource = "Page2.sa_po" this.grdInvoiceHeader.Column4.width = 75 this.grdInvoiceHeader.Column5.Header1.caption = "Amount" this.grdInvoiceHeader.Column5.controlsource = "Page2.invtot" this.grdInvoiceHeader.Column5.width = 75 DoDefault() ENDPROC PROCEDURE Page2.Deactivate thisform.cInvoiceNumber = page2.cu_invoice thisform.nLineItem = page2.lineitem DoDefault() ENDPROC PROCEDURE Page2.Activate Local lnReccnt If !Used("page2") lnReccnt = thisform.adodatacontrol1.nrecordcount thisform.adodatacontrol1.nrecordcount = -1 thisform.adodatacontrol1.RecordsetName = "page2" thisform.adodatacontrol1.sql = "Select * From " + Alltrim(thisform.cCurrentTable) + " Where lineitem = 1 Order By cu_Invoice" thisform.adodatacontrol1.refreshrecordset thisform.cInvoiceNumber = page2.cu_invoice thisform.adodatacontrol1.nrecordcount = lnreccnt this.refresh EndIf thisform.ccurrentalias = "page2" DoDefault() ENDPROC PROCEDURE Page3.Refresh this.grdLineItems.recordsourcetype = 1 this.grdLineItems.recordsource = "Page3" this.grdLineItems.columncount = 6 this.grdLineItems.Column1.Header1.caption = "Qty" this.grdLineItems.Column1.controlsource = "Page3.sa_qty" this.grdLineItems.Column1.width = 36 this.grdLineItems.Column2.Header1.caption = "Description" this.grdLineItems.Column2.controlsource = "Page3.title" this.grdLineItems.Column2.width = 300 this.grdLineItems.Column3.Header1.caption = "List" this.grdLineItems.Column3.controlsource = "Page3.listprice" this.grdLineItems.Column3.width = 75 this.grdLineItems.Column4.Header1.caption = "Disc" this.grdLineItems.Column4.controlsource = "Page3.hostingfee" this.grdLineItems.Column4.width = 75 this.grdLineItems.Column5.Header1.caption = "Net" this.grdLineItems.Column5.controlsource = "Page3.netprice" this.grdLineItems.Column5.width = 75 this.grdLineItems.Column6.Header1.caption = "Line Total" this.grdLineItems.Column6.controlsource = "Page3.linetotal" this.grdLineItems.Column6.width = 75 DoDefault() ENDPROC PROCEDURE Page3.Activate Local lnReccnt If Used("page1") lnReccnt = thisform.adodatacontrol1.nrecordcount thisform.adodatacontrol1.nrecordcount = -1 thisform.adodatacontrol1.RecordsetName = "page3" thisform.adodatacontrol1.sql = "Select * From " + Alltrim(thisform.cCurrentTable) + " Where cu_invoice = '" + thisform.cInvoiceNumber +"'" thisform.adodatacontrol1.refreshrecordset thisform.adodatacontrol1.nrecordcount = lnReccnt thisform.nLineItem = page3.lineitem this.refresh EndIf thisform.ccurrentalias = "page3" DoDefault() ENDPROC PROCEDURE Page3.Deactivate thisform.nLineItem = page3.lineitem DoDefault() ENDPROC PROCEDURE Page4.Activate If !Used("page3") thisform.pgfInvoice.page3.activate EndIf thisform.adodatacontrol1.sql = "Select * From " + Alltrim(thisform.cCurrentTable) + " Where cu_invoice = '" + thisform.cInvoiceNumber + ; "' And lineItem = " + Alltrim(Str(thisform.nLineitem)) thisform.adodatacontrol1.RecordsetName = "page4" thisform.adodatacontrol1.refreshrecordset If Used("page4") Select page4 EndIf thisform.ccurrentalias = "page4" this.refresh() DoDefault() ENDPROC _ FFE% U]%C VTC%CRTaU LSDATESTRINGTHISVALUETHISFORMGETINVOICETABLE PGFINVOICEENABLED LostFocus,1q2!RAB3)F Z%+UTUTHIS UOLDVALUEVALUEW%P&TTUTHIS UOLDVALUEVALUEPARENT TXTD_LINETTL TXTD_NETPRICEGotFocus, LostFocus^112qa1A1/O) % UEUTUTHIS UOLDVALUEVALUEw p)TCd T:TCCd TTUTHISPARENT TXTD_NETPRICEVALUE TXTD_LIST TXTD_LINETTLTXTD_QTYGotFocus, LostFocus^112A1/O) % UEUTUTHIS UOLDVALUEVALUEw p)TCd T:TCCd TTUTHISPARENT TXTD_NETPRICEVALUE TXTD_DISC TXTD_LINETTLTXTD_QTYGotFocus, LostFocus^112A1/O) Z%+UW%P&TTUTHIS UOLDVALUEVALUEPARENT TXTD_LINETTL TXTD_NETPRICETUTHIS UOLDVALUEVALUE LostFocus,GotFocus1qa1A211) 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)Arial, 1, 9, 6, 15, 12, 32, 3, 0 Arial, 0, 8, 5, 14, 11, 29, 3, 0 Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 1, 8, 5, 14, 11, 29, 3, 0 Arial, 97, 8, 5, 14, 11, 29, 3, 0 cmdExit commandbutton commandbutton t_textbox..\libs\t_base.vcxtextbox txtH_note!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "" Enabled = .F. 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 = "cu_invoice" Enabled = .F. Height = 19 Left = 565 MaxLength = 20 TabIndex = 27 Top = 16 Width = 98 DisabledForeColor = 0,0,0 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 = "cu_acctno" Enabled = .T. 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 = "m.cu_taxrate" Height = 19 InputMask = ".99" 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 With this *!* lsField = Substr(.controlsource, Rat(".", .controlsource) + 1, Len(.controlsource)) *!* lsCursor = Substr(.controlsource, 1, Rat(".", .controlsource) - 1) *!* thisform.UpdateCursor(lsField, lsCursor, this.value) thisform.UpdateCursor(.controlsource, "page1", this.value) .Parent.txtH_taxamount.value = ROUND(.value * .parent.txtH_ttlinv.value, 2) *!* lsField = Substr(.Parent.txtH_taxamount.controlsource, Rat(".", .Parent.txtH_taxamount.controlsource) + 1, ; *!* Len(.Parent.txtH_taxamount.controlsource)) *!* lsCursor = Substr(.Parent.txtH_taxamount.controlsource, 1, Rat(".", .Parent.txtH_taxamount.controlsource) - 1) *!* thisform.UpdateCursor(lsField, lsCursor, .Parent.txtH_taxamount.value) thisform.UpdateCursor(.Parent.txtH_taxamount.controlsource, "page1", .Parent.txtH_taxamount.value) EndWith thisform.RecalculateInvoiceTotals ENDPROC  Z%/dTUTUTHIS UOLDVALUEVALUE^%W6TCd T U THIS UOLDVALUEVALUEPARENTTXTH_TAXAMOUNT TXTH_TAXRATE TXTH_TTLINVTHISFORMRECALCULATEINVOICETOTALSGotFocus, LostFocus^112qaA1/O)frmInvoiceHeader cmdMoveLast cmdUpdatet_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 = "" Enabled = .F. 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 TTop = 516 Left = 548 Height = 27 Width = 84 Caption = "Exit" Name = "cmdExit" PROCEDURE Click *-- thisform.adodatacontrol1.haschanges("page1") If !Eof("page2") Go Bottom In page2 thisform.cInvoiceNumber = Page2.cu_invoice thisform.pgfInvoice.page1.activate Else Messagebox("End of file", 48) EndIf ENDPROC ]Top = 516 Left = 354 Height = 27 Width = 84 Caption = "Move Last" Name = "cmdMoveLast"  commandbuttongridt_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 = "cu_convrat" Height = 19 InputMask = "99.99" 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  commandbuttonPROCEDURE Click *-- thisform.adodatacontrol1.haschanges("page1") If !Bof("page2") Go Top In page2 thisform.cInvoiceNumber = Page2.cu_invoice thisform.pgfInvoice.page1.activate Else Messagebox("Beginning of file", 48) EndIf ENDPROC _Top = 516 Left = 258 Height = 27 Width = 84 Caption = "Move First" Name = "cmdMoveFirst" frmInvoiceHeader cmdMoveFirst commandbuttont_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 = "curcode" 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 = "" Enabled = .F. 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  commandbuttonLPROCEDURE Click *-- thisform.adodatacontrol1.haschanges("page1") If !Bof("page2") Skip -1 In page2 If !Bof("page2") thisform.cInvoiceNumber = Page2.cu_invoice thisform.pgfInvoice.page1.activate Else Messagebox("Beginning of file", 48) EndIf Else Messagebox("Beginning of file", 48) EndIf ENDPROC lblDatet_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 = "" Enabled = .F. 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 = "sa_po" Enabled = .T. 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 = "" Enabled = .F. 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 = "" Enabled = .F. 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  C%` UTUTHIS UOLDVALUEVALUE zCpage1%TCT)Cpage1 U THISTHISFORM UPDATECURSOR CONTROLSOURCEVALUEPARENTTXTH_TAXAMOUNT TXTH_TTLINVRECALCULATEINVOICETOTALSGotFocus, LostFocus^112RA2/O)]Top = 516 Left = 162 Height = 27 Width = 84 Caption = "Move Prev" Name = "cmdMovePrev" frmInvoiceHeader cmdMovePrev commandbutton commandbutton\Top = 516 Left = 66 Height = 27 Width = 84 Caption = "Move Next" Name = "cmdMoveNext" frmInvoiceHeader cmdMoveNext commandbutton commandbuttonXTop = 516 Left = 450 Height = 27 Width = 84 Caption = "Update" Name = "cmdUpdate" label t_textbox..\libs\t_base.vcxtextbox txtH_region!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "cu_region" Enabled = .T. 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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "cu_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 = "" Enabled = .F. 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 = "" Enabled = .F. 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 = "" Enabled = .F. Height = 19 Left = 86 MaxLength = 40 TabIndex = 21 Top = 361 Width = 288 Name = "txtH_raddr2"  t_textbox..\libs\t_base.vcxtextbox txtH_rcity!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontSize = 8 ControlSource = "" Enabled = .F. 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 = "" Enabled = .F. 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 = "" Enabled = .F. 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 = "" Enabled = .F. 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 = "" Enabled = .F. Height = 19 Left = 586 TabIndex = 98 Top = 273 Width = 90 Name = "txtH_totalextended" textboxtextboxtxtH_ttlconvertamount!frmInvoiceHeader.pgfInvoice.Page11Comment = "" FontBold = .F. FontSize = 8 BorderStyle = 0 ControlSource = "" Enabled = .F. Height = 19 InputMask = "99,999,999.99" Left = 586 TabIndex = 99 Top = 313 Width = 90 BackColor = 255,255,255 DisabledBackColor = 212,208,200 DisabledForeColor = 0,0,0 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" textboxtextboxtxtH_taxamount!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontBold = .F. FontSize = 8 ControlSource = "taxamount" Enabled = .F. Height = 19 Left = 586 TabIndex = 102 Top = 213 Width = 90 DisabledForeColor = 0,0,0 Name = "txtH_taxamount" textboxtextbox txtH_ttlinv!frmInvoiceHeader.pgfInvoice.Page1Comment = "" FontBold = .F. FontSize = 8 ControlSource = "invtot" Enabled = .F. Height = 19 Left = 586 TabIndex = 101 Top = 173 Width = 90 DisabledForeColor = 0,0,0 Name = "txtH_ttlinv" t_grid..\libs\t_base.vcxgridgrdInvoiceHeader!frmInvoiceHeader.pgfInvoice.Page2]ColumnCount = 5 Height = 452 Left = 0 Panel = 1 ReadOnly = .T. RecordSource = "" RecordSourceType = 1 ScrollBars = 2 Top = 0 Width = 695 Name = "grdInvoiceHeader" Column1.ControlSource = "" Column1.Width = 82 Column1.ReadOnly = .T. Column1.Name = "Column1" Column2.ControlSource = "" Column2.Width = 345 Column2.ReadOnly = .T. Column2.Name = "Column2" Column3.ControlSource = "" Column3.ReadOnly = .T. Column3.Name = "Column3" Column4.ControlSource = "" Column4.ReadOnly = .T. Column4.Name = "Column4" Column5.ControlSource = "" Column5.ReadOnly = .T. Column5.Name = "Column5" 6PROCEDURE Click =MESSAGEBOX("HELLO WORLD") ENDPROC vPROCEDURE Click thisform.adodatacontrol1.RecordsetName = Alias() thisform.adodatacontrol1.updaterecordset ENDPROC frmInvoiceHeader commandbutton commandbuttonheaderheaderHeader1: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.vcxfrmInvoiceHeader grdLineItems!frmInvoiceHeader.pgfInvoice.Page3IColumnCount = 7 Height = 452 Left = 0 Panel = 1 ReadOnly = .T. RecordSource = "" RecordSourceType = 1 ScrollBars = 2 Top = 0 Width = 695 Name = "grdLineItems" Column1.Bound = .T. Column1.ControlSource = "" Column1.Width = 36 Column1.ReadOnly = .T. Column1.Name = "Column1" Column2.ControlSource = "" Column2.CurrentControl = "Text1" Column2.Width = 320 Column2.ReadOnly = .T. Column2.Name = "Column2" Column3.ControlSource = "" Column3.ReadOnly = .T. Column3.Name = "Column3" Column4.ControlSource = "" Column4.Enabled = .F. Column4.ReadOnly = .T. Column4.Name = "Column4" Column5.ControlSource = "" Column5.ReadOnly = .T. Column5.Name = "Column5" Column6.ControlSource = "" Column6.CurrentControl = "Text1" Column6.ReadOnly = .T. Column6.Name = "Column6" Column7.ReadOnly = .T. Column7.Name = "Column7" 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.Column4xBorderStyle = 0 Enabled = .F. 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" headerheaderHeader16frmInvoiceHeader.pgfInvoice.Page3.grdLineItems.Column7'Caption = "Header1" Name = "Header1" textboxtextboxText16frmInvoiceHeader.pgfInvoice.Page3.grdLineItems.Column7YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1"  t_textbox..\libs\t_base.vcxtextbox txtD_prid!frmInvoiceHeader.pgfInvoice.Page4Comment = "" FontBold = .T. ControlSource = "" 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 = "sa_qty" Height = 23 InputMask = "9,999,999" 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 this.uOldValue = this.value ENDIF ENDPROC PROCEDURE GotFocus this.uOldValue = this.value ENDPROC AutoSize = .T. FontBold = .T. FontSize = 8 BackStyle = 0 Caption = "Invoicing Date:" Height = 16 Left = 6 Top = 6 Width = 81 Name = "lblDate" labelTop = 5 Left = 190 Height = 19 Width = 20 FontBold = .T. FontSize = 8 FontCondense = .T. FontExtend = .T. Caption = "..." TabIndex = 2 Name = "cmdGetCalendar" frmInvoiceHeadercmdGetCalendar commandbuttont_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 = "title" 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 = "listprice" Height = 23 InputMask = "99,999,999.99" 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 With this .parent.txtd_netPrice.value = .value * Round(.parent.txtd_disc.value/100,6) .parent.txtd_linettl.value = Round(.parent.txtd_qty.value * (.value * Round(.parent.txtd_disc.value/100,6)),2) EndWith ENDPROC  commandbuttonPROCEDURE LostFocus Local lsDateString If !Empty(this.value) lsDateString = DToS(this.value) If thisform.getInvoiceTable(lsDateString) thisform.pgfInvoice.enabled = .T. EndIf EndIf ENDPROC FontBold = .T. DateFormat = 1 Alignment = 2 Value = {} Enabled = .T. Format = "D" Height = 23 HideSelection = .F. InputMask = "" Left = 89 TabIndex = 1 Top = 3 Width = 100 Name = "txtInvDate" t_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 = "hostingfee" 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 With this .parent.txtd_netPrice.value = .parent.txtd_list.value * Round(.value/100,6) .parent.txtd_linettl.value = Round(.parent.txtd_qty.value * (.parent.txtd_list.value * Round(.value/100,6)),2) EndWith ENDPROC frmInvoiceHeader txtInvDatetextboxtextboxlCaption = "Line item" Height = 17 Left = 504 Top = 34 Width = 54 TabIndex = 3 Name = "ldlD_Lineitem" !frmInvoiceHeader.pgfInvoice.Page4 ldlD_Lineitemlabel..\libs\t_base.vcxt_label!frmInvoiceHeader.pgfInvoice.Page4 txtD_Lineitemtextbox..\libs\t_base.vcx t_textbox!frmInvoiceHeader.pgfInvoice.Page4t_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 = .F. DateMark = "" BorderStyle = 0 ControlSource = "netprice" Enabled = .F. Height = 23 InputMask = "9,999,999.99" Left = 400 ReadOnly = .T. TabIndex = 12 Top = 106 Width = 75 DisabledForeColor = 0,0,0 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 = .F. DateMark = "" BorderStyle = 0 ControlSource = "linetotal" Enabled = .F. Height = 23 InputMask = "9,999,999.99" Left = 578 TabIndex = 14 Top = 106 Width = 86 DisabledForeColor = 0,0,0 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 = "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 = "sa_date" Height = 23 Left = 445 MaxLength = 30 TabIndex = 18 Top = 164 Width = 218 Name = "txtD_subdate" t_label..\libs\t_base.vcxlabel lblD_subdate!frmInvoiceHeader.pgfInvoice.Page4wCaption = "Subscription dates" Height = 17 Left = 335 Top = 166 Width = 108 TabIndex = 17 Name = "lblD_subdate" t_label..\libs\t_base.vcxlabel lblD_linvnum!frmInvoiceHeader.pgfInvoice.Page4Alignment = 1 Caption = "Invoice Number" Height = 17 Left = 115 Top = 239 Width = 115 TabIndex = 19 Name = "lblD_linvnum" t_label..\libs\t_base.vcxlabel lblD_subdate2!frmInvoiceHeader.pgfInvoice.Page4Alignment = 1 Caption = "Start date" Height = 17 Left = 115 Top = 271 Width = 115 TabIndex = 21 Name = "lblD_subdate2"  t_textbox..\libs\t_base.vcxtextbox txtD_finvdt!frmInvoiceHeader.pgfInvoice.Page4Comment = "" FontBold = .T. ControlSource = "" Enabled = .F. Height = 23 Left = 235 TabIndex = 24 Top = 302 Width = 71 Name = "txtD_finvdt" t_label..\libs\t_base.vcxlabel lblD_finvdt!frmInvoiceHeader.pgfInvoice.Page4Alignment = 1 Caption = "First Invoice" Height = 17 Left = 115 Top = 304 Width = 115 TabIndex = 23 Name = "lblD_finvdt"  t_textbox..\libs\t_base.vcxtextbox txtD_linvnum!frmInvoiceHeader.pgfInvoice.Page4Comment = "" FontBold = .T. ControlSource = "" Enabled = .F. Height = 23 Left = 235 MaxLength = 20 TabIndex = 26 Top = 337 Width = 148 Name = "txtD_linvnum" t_label..\libs\t_base.vcxlabel lblD_linvnum2!frmInvoiceHeader.pgfInvoice.Page4Alignment = 1 Caption = "Last invoice number" Height = 17 Left = 115 Top = 340 Width = 115 TabIndex = 25 Name = "lblD_linvnum2" t_label..\libs\t_base.vcxlabel lblD_recid!frmInvoiceHeader.pgfInvoice.Page4{Alignment = 1 Caption = "Record ID" Height = 17 Left = 115 Top = 375 Width = 115 TabIndex = 27 Name = "lblD_recid"  t_textbox..\libs\t_base.vcxtextbox txtD_enddt!frmInvoiceHeader.pgfInvoice.Page4Comment = "" FontBold = .T. ControlSource = "" Enabled = .F. Height = 23 Left = 510 TabIndex = 30 Top = 268 Width = 71 Name = "txtD_enddt" t_label..\libs\t_base.vcxlabel lblD_enddt!frmInvoiceHeader.pgfInvoice.Page4zAlignment = 1 Caption = "End date" Height = 17 Left = 405 Top = 271 Width = 100 TabIndex = 29 Name = "lblD_enddt"  t_textbox..\libs\t_base.vcxtextbox txtD_linvdt!frmInvoiceHeader.pgfInvoice.Page4Comment = "" FontBold = .T. ControlSource = "" Enabled = .F. Height = 23 Left = 510 TabIndex = 32 Top = 302 Width = 71 Name = "txtD_linvdt" t_label..\libs\t_base.vcxlabel lblD_linvdt!frmInvoiceHeader.pgfInvoice.Page4Alignment = 1 Caption = "Last Invoice date" Height = 17 Left = 405 Top = 305 Width = 100 TabIndex = 31 Name = "lblD_linvdt"  t_textbox..\libs\t_base.vcxtextbox txtD_startdt!frmInvoiceHeader.pgfInvoice.Page4Comment = "" FontBold = .T. ControlSource = "" Enabled = .F. Height = 23 Left = 235 TabIndex = 34 Top = 268 Width = 71 Name = "txtD_startdt"  t_textbox..\libs\t_base.vcxtextbox txtD_invnum!frmInvoiceHeader.pgfInvoice.Page4Comment = "" FontBold = .F. ControlSource = "cu_invoice" Enabled = .T. Height = 23 Left = 235 MaxLength = 20 TabIndex = 36 Top = 236 Width = 148 Name = "txtD_invnum"  t_textbox..\libs\t_base.vcxtextbox txtD_salesid!frmInvoiceHeader.pgfInvoice.Page4Comment = "" FontBold = .T. ControlSource = "" Enabled = .F. Height = 23 Left = 235 MaxLength = 8 TabIndex = 38 Top = 370 Width = 68 Name = "txtD_salesid" adolabeladocontrols.vcxlabel Adolabel1SCaption = "%" Height = 17 Left = 313 Top = 109 Width = 15 Name = "Adolabel1" Comment = "" ControlSource = "lineitem" Enabled = .F. Height = 23 InputMask = "9,999,999" Left = 579 MaxLength = 7 TabIndex = 4 Top = 32 Width = 60 Name = "txtD_Lineitem" PROCEDURE GotFocus this.uOldValue = this.value ENDPROC PROCEDURE LostFocus IF This.uOldValue <> This.Value This.Parent.txtD_linettl.value = this.value * this.parent.txtD_netprice.value this.uOldValue = this.value ENDIF ENDPROC hPROCEDURE Click *-- thisform.adodatacontrol1.haschanges("page1") lcAlias = thisform.ccurrentalias If !Eof(thisform.ccurrentalias) *If !Eof("page2") Skip In (thisform.ccurrentalias) *Skip In page2 If !Eof(thisform.ccurrentalias) *If !Eof("page2") thisform.cInvoiceNumber = &lcAlias..cu_invoice *thisform.cInvoiceNumber = Page2.cu_invoice * thisform.pgfInvoice.page1.activate Else Messagebox("End of file", 48) EndIf thisForm.pgfInvoice.Page2.grdinvoiceheader.REFRESH() thisForm.pgfInvoice.Page2.grdinvoiceheader.click Else Messagebox("End of file", 63) EndIf ENDPROC   CBULNCURRENTRECORDNUMBERLNTOTALLINEAMOUNTLCINDEX LNCURRENTRECV_LINEITEMSFORINVOICE D_LINETTLINV_DATAD_INVNUMNTOTALLINEAMOUNTALLINV_HEADH_TTLINVFORH_INVNUMTHISFORMCINVOICENUMBERRECALCULATELINEITEMS =T #TC  T!>   !>   BU LPNLINETOTALLNTOTALINVOICEAMOUNTLNTOTALCONVERTAMOUNTTHISFORM PGFINVOICEPAGE1TXTH_TAXAMOUNTVALUE TXTH_SERCHG TXTH_SHIPCHGNTOTALINVOICEAMOUNT TXTH_CONVRATALLINV_HEADH_TOTALEXTENDEDFORH_INVNUMCINVOICENUMBERH_TTLCONVERTAMOUNTNTOTALCONVERTAMOUNTREFRESHT TaTInvATC]C]\Invoice\Invoice Backup\.DBF%C0 _TTa4TCDBFSelect invoice table?CTCC\C.C\\T%C[ T- %r"TCC\\T kProvider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=Visual FoxPro Tables;UID=;SourceDB=W;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;" BU LPSDATESTRING LCLOCFILELLOLDIGNOREERRORSLLRETVALTHISFORM LIGNOREERRORS CCURRENTTABLE CDATAPATHADODATACONTROL1CONNECTIONSTRINGCUTHISFORMSIZER FRMRESIZE C%C oUser.cNamebC%C Read OnlyTaT-T-T-T -T -T-T-U OUSER CUSERLEVELTHISFORM LISREADONLY CMDBUTTONSCMDPRINTVISIBLECMDADDCMDEDIT CMDDELETE PGFINVOICEPAGE1CMDCOPY"TCCenturyvG UTHISFORMTAG 1U;TSet Century &lcSetCentury BU LCSETCENTURYTHISFORMTAGrecalculateinvoicetotals,getnewheadertotalsrecalculatelineitems3getinvoicetableResize,Init_Load Destroy Unload 142D24B2q1B2qrA2"AB!A32AAAAqAA3a3a2qB1$' P" 3 K0o2rBE.GK)