Option Explicit
Private S1 As String
Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim gDefaultDatabase As Database
Private db As ADODB.Connection
Private rcds As ADODB.Recordset
Private tCPago() As String
Private tFPago() As String
Private blnNewRow As Boolean
Private blnFieldChanged As Boolean
Private blnError As Boolean
Private blnModificado As Boolean
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
