Option Strict Off
Option Explicit On
Friend Class fmrConfereGrafica
	Inherits System.Windows.Forms.Form
	'Private Sub cmdArquivo_Click()
	'  Me.dialArq.DefaultExt = "CSV"
	'  Me.dialArq.Filter = "*." & Me.dialArq.DefaultExt
	'  Me.dialArq.FileName = App.Path & "\Listagem_" & Format(BuscaDataBD, "yyyymmddHHMMSS") & "." & Me.dialArq.DefaultExt
	'  Me.dialArq.DialogTitle = "Arquivo de exportação"
	'  Me.dialArq.ShowOpen
	'  Me.txtArquivo.Text = Me.dialArq.FileName
	'
	'End Sub
	'
	'Private Sub cmdCarregarCergal_Click()
	'  Dim lintCon As Integer
	'  Dim lstrAux As String
	'  Dim lintARQ As Integer
	'  Dim lstrLin As String
	'  Dim lstrZon As String
	'  Dim lstrLiv As String
	'  Dim lstrCon As String
	'  Dim lstrRot As String
	'  Dim ldblVlr As Double
	'  Dim ldblVlN As Double
	'  Dim lstrSql As String
	'  Dim ldblDif As Double
	'  Dim llngRow As Long
	'  Dim llngPos As Long
	'  Dim lrstAux As ADODB.Recordset
	'  Set lrstAux = New ADODB.Recordset
	'  lintARQ = FreeFile
	'  Open Me.txtArq.Text For Input As lintARQ
	'  With Me.mfgDados
	'    .Clear
	'    .Rows = 1
	'    .Redraw = False
	'    lintCon = 0
	'    While Not EOF(lintARQ)
	'      Line Input #lintARQ, lstrLin
	'      lstrLin = Trim(lstrLin)
	'      lstrAux = ""
	'      If Len(lstrLin) > 0 Then
	'        If Left(lstrLin, 1) = "F" Then
	'          lintCon = lintCon + 1
	'          lstrZon = Mid(lstrLin, 2, 3)
	'          lstrLiv = Mid(lstrLin, 5, 2)
	'          lstrCon = Mid(lstrLin, 7, 6)
	'          lstrRot = Mid(lstrLin, 595, 2)
	'          llngPos = 0
	'          If .Rows > 1 Then
	'            For llngRow = 1 To .Rows - 1
	'              If .TextMatrix(llngRow, 0) = lstrRot Then
	'                llngPos = llngRow
	'                llngRow = .Rows - 1
	'              End If
	'            Next llngRow
	'          End If
	'          If llngPos = 0 Then
	'            .Rows = .Rows + 1
	'            llngPos = .Rows - 1
	'            .TextMatrix(llngPos, 0) = lstrRot
	'          End If
	'          .TextMatrix(llngPos, 1) = CLng(IIf(.TextMatrix(llngPos, 1) = "", 0, .TextMatrix(llngPos, 1))) + 1
	'          Me.lblContArq.Caption = lintCon
	'          Me.lblContArq.Refresh
	'        End If
	'      End If
	'      DoEvents
	'    Wend
	'    .Redraw = True
	'    .Col = 0
	'    .Sort = flexSortNumericAscending
	'  End With
	'  Close lintARQ
	'
	'End Sub
	'
	'Private Sub cmdExporta_Click()
	'  Dim lstrLin As String
	'  Dim lintARQ As Integer
	'  Dim llngRow As Long
	'  Dim llngCol As Long
	'  If Trim(Me.txtArquivo.Text) <> "" Then
	'    lintARQ = FreeFile
	'    Open Me.txtArquivo.Text For Output As lintARQ
	'    With Me.mfgDados
	'      For llngRow = 0 To .Rows - 1
	'        If llngRow = 0 Or (llngRow >= CLng(Me.txtSeqIni.Text) And llngRow <= CLng(Me.txtSeqFim.Text)) Then
	'          lstrLin = ""
	'          For llngCol = 0 To .Cols - 1
	'            If .ColWidth(llngCol) <> 0 Then
	'              If llngCol = 4 Then
	'                lstrLin = lstrLin & """" & .TextMatrix(llngRow, llngCol) & """;"
	'              Else
	'                lstrLin = lstrLin & .TextMatrix(llngRow, llngCol) & ";"
	'              End If
	'            End If
	'          Next llngCol
	'          Print #lintARQ, lstrLin
	'        End If
	'      Next llngRow
	'    End With
	'    Close lintARQ
	'    Call MsgBox("Arquivo gerado com sucesso!", vbInformation, gstrTituloMensagem)
	'  Else
	'    Call MsgBox("Você precisa selecionar o caminho e o arquivo para exportação!", vbInformation, gstrTituloMensagem)
	'  End If
	'
	'End Sub
End Class