nuBuilder Forum

Code: Select all

Option Compare Database


Private Sub AddFiscalMerchant_Click()
Dim count As Integer
count = DCount("SerialNumber", "MainInstances", "[SerialNumber]='" & [Forms]![AddFiscalMerchant]![SerialNumber] & "'")
tidcount = DCount("TerminalID", "MainInstances", "[TerminalID]='" & [Forms]![AddFiscalMerchant]![TerminalID] & "'")
blankstatus = DLookup("Blankornot", "MainInstances", "[SerialNumber]='" & [Forms]![AddFiscalMerchant]![SerialNumber] & "'")
If count = 0 Or blankstatus = "NotBlank" Or tidcount <> 0 Then
MsgBox "Serial Number was NOT FOUND, IS NOT blank or Terminal ID ALREADY EXISTS!", vbCritical
Else
    DoCmd.OpenQuery "AddFiscalMerchant", acViewNormal, acAdd
    Beep
    MsgBox "Merchant has been added successfully!", vbInformation, "Success"
    DoCmd.Close acForm, "AddFiscalMerchant"
End If
End Sub

Private Sub CloseWindow_Click()
Dim answer As Integer
answer = MsgBox("You are about to close window, continue?", vbQuestion + vbYesNo)
 
  If answer = vbYes Then
    DoCmd.Close acForm, "AddFiscalMerchant", acSaveNo
  Else
    
  End If
End Sub

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub




Private Sub SerialNumber_LostFocus()
If Len(SerialNumber.Text) = 9 Then
        SerialNumber = SerialNumber.Text
        SerialNumber = Left(SerialNumber, 3) & "-" & Mid(SerialNumber, 4, 3) & "-" & Right(SerialNumber, 3)
        SerialNumber.Text = SerialNumber
            End If
End Sub

Private Sub UploadXMLFile_Click()
    Dim fd As Office.FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
            .Filters.Clear
            .Title = "Select a XML File"
            .Filters.Add "XML File", "*.xml", 1
            .AllowMultiSelect = False
            
        If .Show = True Then
            xmlFileName = .SelectedItems(1)
            ' Process XML File
            ' Dim root As Object
            Dim xDoc As Object
            Set xDoc = CreateObject("MSXML2.DOMDocument")
            xDoc.async = False: xDoc.validateOnParse = False
            xDoc.Load (xmlFileName)
            Set CommonTemplate = xDoc.DocumentElement
            Set TerminalTemplate = CommonTemplate.FirstChild
            Set PossessorTemplate = CommonTemplate.LastChild
            ' Get Root Node
            Me.SerialNumber = TerminalTemplate.ChildNodes(1).Text
            Me.MerchantName = PossessorTemplate.ChildNodes(0).Text
            Me.INN = PossessorTemplate.ChildNodes(2).Text
            Me.TerminalID = TerminalTemplate.ChildNodes(4).Text
            Me.MerchantID = PossessorTemplate.ChildNodes(1).Text
            Me.Address = TerminalTemplate.ChildNodes(2).Text
            Me.ReconcilationTime = TerminalTemplate.ChildNodes(8).Text
            Me.InstallAppNumber = PossessorTemplate.ChildNodes(3).Text
            Me.Profile = TerminalTemplate.ChildNodes(0).Text
            End If
            
    End With
    
    End Sub