VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CFactoria"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

' CFactoria: Proveedor de objetos, referencias y servicios para
' componentes en VBScript

Public Function DeterminarFormato(sValueID As String, sOptionsKey As String, sDefVal As String, Optional pOwnerObject As Object = Nothing) As String
  DeterminarFormato = mDefinirFormato.DeterminarFormato(sValueID, sOptionsKey, sDefVal, pOwnerObject)
End Function

Public Sub ReportarError(isFatal As Boolean, numError As Long, sDescripcion As String, stLocus As String)
  mGlobalLock.ReportarError isFatal, numError, sDescripcion, stLocus
End Sub

Public Function SetGlobalLock(Optional s As String = "") As Boolean
  SetGlobalLock = mGlobalLock.SetGlobalLock(s)
End Function

Public Sub FreeGlobalLock()
  mGlobalLock.FreeGlobalLock
End Sub

Public Function StartTransaction() As Boolean
  StartTransaction = lmdbHandle.StartTransaction
End Function

Public Function CommitTransaction() As Boolean
  CommitTransaction = lmdbHandle.CommitTransaction
End Function

Public Function AbortTransaction() As Boolean
  AbortTransaction = lmdbHandle.AbortTransaction
End Function

Public Function FechaDB(Fecha) As String
    FechaDB = lmdbHandle.FechaDB(CDate(Fecha))
End Function

Public Function TimeDateDB(Fecha) As String
    TimeDateDB = lmdbHandle.TimeDateDB(CDate(Fecha))
End Function

Public Function StringDB(starg) As String
    StringDB = lmdbHandle.StringDB(CStr(starg))
End Function

Public Function NumeroDB(dblArg) As String
    NumeroDB = lmdbHandle.NumeroDB(CDbl(dblArg))
End Function

Public Function StartTransaction() As Boolean
    StartTransaction = lmdbHandle.StartTransaction
End Function

Public Function CommitTransaction() As Boolean
    CommitTransaction = lmdbHandle.CommitTransaction
End Function

Public Function AbortTransaction() As Boolean
    AbortTransaction = lmdbHandle.AbortTransaction
End Function

Public Function AppPath() As String
  AppPath = App.Path & "\"
End Function

Public Function DataPath() As String
  DataPath = BuildDataPath("", AppName)
End Function

Public Function ProximaFacturaPOS() As Long
  ProximaFacturaPOS = mMachineID.ProximoTicketMaquina
End Function

Public Function NumeroMaquina() As Long
  NumeroMaquina = mMachineID.MachineID
End Function

Public Function Format(ByVal arg As Variant, ByVal Formato As Variant) As Variant
Dim vRetVal As Variant
    vRetVal = VBA.Format(arg, Formato)
    Format = vRetVal
End Function

Public Function VerificarUsuario(stArgCaption As String) As Integer
  VerificarUsuario = lmUsuarios.VerificarUsuario(stArgCaption)
End Function

Public Sub ReportarError(isFatal As Boolean, numError As Long, sDescripcion As String, stLocus As String)
  mGlobalLock.ReportarError isFatal, numError, sDescripcion, stLocus
End Sub

Public Function SetGlobalLock(Optional s As String = "") As Boolean
  SetGlobalLock = mGlobalLock.SetGlobalLock(s)
End Function

Public Sub FreeGlobalLock()
  mGlobalLock.FreeGlobalLock
End Sub

Public Function NewForm(sFormName) As Form
Dim f As Form
  On Error GoTo ErrHandler
  Set f = Forms.Add(sFormName)
ResumePoint:
  Set NewForm = f
Exit Function

ErrHandler:
  Set f = Nothing
  Resume ResumePoint
End Function

Public Function FormByName(sFormName) As Form
Dim f
  For Each f In Forms
    If UCase(f.Name) = UCase(sFormName) Then
      Set FormByName = f
      Exit Function
    End If
  Next
  Set FormByName = Nothing
End Function

Public Function CrearObjeto(istrCodigoClase) As Object
Dim pRetObject As Object

    Select Case UCase(istrCodigoClase)
    Case "ALMACEN"
      Set pRetObject = New clsAlmacen
    Case "ALMACENCLIENTES"
      Set pRetObject = AlmacenClientes
    Case "ALMACENCUENTAS"
      Set pRetObject = AlmacenCuentas
    Case "ALMACENITEMSINVENTARIO"
      Set pRetObject = AlmacenItemsInventario
    Case "ALMACENITEMSVENTA"
      Set pRetObject = AlmacenItemsVenta
    Case "ALMACENVENDEDORES"
      Set pRetObject = AlmacenVendedores
    Case "ATRIBUTOS"
      Set pRetObject = New clsAtributoEntidad
    Case "CLIENTE"
      Set pRetObject = New clsClientes
    Case "CLIENTEPOS"
      Set pRetObject = New clsClientePOS
    Case "COLLECTION"
      Set pRetObject = New Collection
    Case "COMPROBANTE"
      Set pRetObject = New clsBufferComprobante
    Case "CUENTA"
      Set pRetObject = New clsCuenta
    Case "CUENTAPOS"
      Set pRetObject = New clsCuentasPOS
    Case "DATABASE"
      Set pRetObject = dbHandle
    Case "DEFPRINTFP"
      Set pRetObject = New CImpresorFactPOS
    Case "DOCUMENTOISPC"
      Set pRetObject = New clsDocumentosISPC
    Case "EMPRESA"
      Set pRetObject = Empresa
    Case "FACTURAPOS"
      Set pRetObject = New clsFacturasPOS
'    Case "FORMAPOS"
'      Set pRetObject = formaPOS
    Case "ITEMINVENTARIO"
      Set pRetObject = New clsItemInventario
    Case "ITEMVENTA"
      Set pRetObject = New clsItemVenta
    Case "LINEPRINTER"
      Set pRetObject = New CLinePrinter
    Case "MOVIMIENTOCAJA"
      Set pRetObject = New CIngresoCaja
    Case "PRINTER"
      Set pRetObject = Printer
    Case "PRINTERS"
      Set pRetObject = Printers
    Case "RENGLON", "RENGLONCUENTA", "RENGLONSESION"
      Set pRetObject = New clsRenglonSesion
    Case "SESION"
      Set pRetObject = SesionActiva
    Case "SESIONES"
      Set pRetObject = Sesiones
    Case "TIPOSIMPUESTO"
      Set pRetObject = TiposImpuesto
    Case "VENDEDOR"
      Set pRetObject = New clsVendedores
    Case "VSLIB"
      Set pRetObject = VSLRTLIB
    Case Else
      Set pRetObject = Nothing
    End Select
    
    Set CrearObjeto = pRetObject

End Function