VERSION 5.00
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{69F9D01E-F1DE-11D4-9536-002018603DA2}#7.0#0"; "ControlNumber.ocx"
Object = "{90F3D7B3-92E7-44BA-B444-6A8E2A3BC375}#1.0#0"; "actskin4.ocx"
Begin VB.Form FDatosClientCombust 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Facturación de Combustibles  (05.010.00)"
   ClientHeight    =   7680
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   11820
   ForeColor       =   &H8000000D&
   Icon            =   "FDatosClientCombust.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   7680
   ScaleWidth      =   11820
   StartUpPosition =   2  'CenterScreen
   Begin ACTIVESKINLibCtl.Skin sknVentaComb 
      Left            =   6480
      OleObjectBlob   =   "FDatosClientCombust.frx":0442
      Top             =   5040
   End
   Begin VB.CommandButton cmdsalir 
      BackColor       =   &H00E0E0E0&
      Caption         =   "Salir"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   120
      Picture         =   "FDatosClientCombust.frx":0676
      TabIndex        =   41
      Top             =   6915
      Width           =   1575
   End
   Begin VB.CommandButton cmdmodificar 
      Caption         =   "Modificar"
      Height          =   375
      Left            =   1440
      TabIndex        =   38
      TabStop         =   0   'False
      Top             =   8640
      Width           =   1215
   End
   Begin VB.CommandButton cmdeliminar 
      Caption         =   "Eliminar"
      Height          =   375
      Left            =   120
      TabIndex        =   37
      TabStop         =   0   'False
      Top             =   8640
      Width           =   1215
   End
   Begin VB.Frame fratotales 
      Appearance      =   0  'Flat
      BackColor       =   &H80000004&
      ForeColor       =   &H80000008&
      Height          =   2250
      Left            =   1920
      TabIndex        =   27
      Top             =   5280
      Width           =   9735
      Begin VB.PictureBox Picture1 
         Height          =   375
         Left            =   8070
         ScaleHeight     =   315
         ScaleWidth      =   1515
         TabIndex        =   65
         Top             =   240
         Width           =   1575
         Begin ACTIVESKINLibCtl.SkinLabel lblSubtotalafecto 
            Height          =   375
            Left            =   0
            OleObjectBlob   =   "FDatosClientCombust.frx":0980
            TabIndex        =   66
            Top             =   0
            Width           =   1500
         End
      End
      Begin VB.PictureBox Picture4 
         Height          =   375
         Left            =   8070
         ScaleHeight     =   315
         ScaleWidth      =   1515
         TabIndex        =   61
         Top             =   1680
         Width           =   1575
         Begin ACTIVESKINLibCtl.SkinLabel lbltotal 
            Height          =   375
            Left            =   0
            OleObjectBlob   =   "FDatosClientCombust.frx":09FA
            TabIndex        =   64
            Top             =   0
            Width           =   1500
         End
      End
      Begin VB.PictureBox Picture3 
         Height          =   375
         Left            =   8070
         ScaleHeight     =   315
         ScaleWidth      =   1515
         TabIndex        =   60
         Top             =   1200
         Width           =   1575
         Begin ACTIVESKINLibCtl.SkinLabel lbligv 
            Height          =   375
            Left            =   0
            OleObjectBlob   =   "FDatosClientCombust.frx":0A74
            TabIndex        =   63
            Top             =   0
            Width           =   1500
         End
      End
      Begin VB.PictureBox Picture2 
         Height          =   375
         Left            =   8070
         ScaleHeight     =   315
         ScaleWidth      =   1515
         TabIndex        =   59
         Top             =   720
         Width           =   1575
         Begin ACTIVESKINLibCtl.SkinLabel lblSubtotalNoafecto 
            Height          =   375
            Left            =   0
            OleObjectBlob   =   "FDatosClientCombust.frx":0AEE
            TabIndex        =   62
            Top             =   0
            Width           =   1500
         End
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel10 
         Height          =   255
         Left            =   6000
         OleObjectBlob   =   "FDatosClientCombust.frx":0B68
         TabIndex        =   67
         Top             =   300
         Width           =   1815
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel11 
         Height          =   255
         Left            =   6000
         OleObjectBlob   =   "FDatosClientCombust.frx":0BF0
         TabIndex        =   68
         Top             =   780
         Width           =   1215
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel12 
         Height          =   255
         Left            =   6000
         OleObjectBlob   =   "FDatosClientCombust.frx":0C68
         TabIndex        =   69
         Top             =   1260
         Width           =   615
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel13 
         Height          =   255
         Left            =   6000
         OleObjectBlob   =   "FDatosClientCombust.frx":0CD4
         TabIndex        =   70
         Top             =   1740
         Width           =   855
      End
      Begin VB.Label lblSubtotalafecto_1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "0.00"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3600
         TabIndex        =   31
         Top             =   2280
         Visible         =   0   'False
         Width           =   1575
      End
      Begin VB.Label lblSubtotalNoafecto_1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "0.00"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3600
         TabIndex        =   30
         Top             =   2400
         Visible         =   0   'False
         Width           =   1575
      End
      Begin VB.Label lbligv_1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "0.00"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3600
         TabIndex        =   29
         Top             =   2820
         Visible         =   0   'False
         Width           =   1575
      End
      Begin VB.Label lbltotal_1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "0.00"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3600
         TabIndex        =   28
         Top             =   3120
         Visible         =   0   'False
         Width           =   1575
      End
      Begin VB.Label lbldescafecto 
         AutoSize        =   -1  'True
         Caption         =   "Subtotal (Afecto) S/."
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   1755
         TabIndex        =   35
         Top             =   2400
         Visible         =   0   'False
         Width           =   1755
      End
      Begin VB.Label lbldescNoafecto 
         AutoSize        =   -1  'True
         Caption         =   "No Afecto S/."
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   2340
         TabIndex        =   34
         Top             =   2520
         Visible         =   0   'False
         Width           =   1170
      End
      Begin VB.Label lbldesIgv 
         AutoSize        =   -1  'True
         Caption         =   "IGV S/."
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   2895
         TabIndex        =   33
         Top             =   2880
         Visible         =   0   'False
         Width           =   615
      End
      Begin VB.Label lbldesTotal 
         AutoSize        =   -1  'True
         Caption         =   "Total S/."
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   2760
         TabIndex        =   32
         Top             =   3180
         Visible         =   0   'False
         Width           =   750
      End
   End
   Begin VB.CommandButton cmdcancelar 
      BackColor       =   &H00E0E0E0&
      Caption         =   "Cancelar"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   120
      Picture         =   "FDatosClientCombust.frx":0D44
      TabIndex        =   13
      Top             =   6157
      Width           =   1575
   End
   Begin VB.CommandButton cmdaceptarprodadi 
      BackColor       =   &H00E0E0E0&
      Caption         =   "Aceptar"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   120
      Picture         =   "FDatosClientCombust.frx":104E
      TabIndex        =   12
      Tag             =   "R ASDASD"
      Top             =   5400
      Width           =   1575
   End
   Begin VB.Frame Frame1 
      Height          =   2055
      Left            =   120
      TabIndex        =   14
      Top             =   0
      Width           =   11535
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4 
         Height          =   255
         Left            =   8760
         OleObjectBlob   =   "FDatosClientCombust.frx":1358
         TabIndex        =   53
         Top             =   315
         Width           =   495
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3 
         Height          =   255
         Left            =   4080
         OleObjectBlob   =   "FDatosClientCombust.frx":13BC
         TabIndex        =   52
         Top             =   1290
         Width           =   1095
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel2 
         Height          =   255
         Left            =   4080
         OleObjectBlob   =   "FDatosClientCombust.frx":142C
         TabIndex        =   51
         Top             =   795
         Width           =   1455
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1 
         Height          =   255
         Left            =   4080
         OleObjectBlob   =   "FDatosClientCombust.frx":14A2
         TabIndex        =   50
         Top             =   315
         Width           =   1695
      End
      Begin VB.Timer tmrLogo 
         Interval        =   60000
         Left            =   4440
         Top             =   2040
      End
      Begin VB.Frame Fratipo 
         Caption         =   "Tipos de Pago"
         BeginProperty Font 
            Name            =   "Microsoft Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1815
         Left            =   120
         TabIndex        =   42
         Top             =   120
         Width           =   3615
         Begin VB.OptionButton Optctacte 
            Caption         =   "Credito                       F12"
            BeginProperty Font 
               Name            =   "Microsoft Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   300
            Left            =   240
            TabIndex        =   47
            Top             =   1010
            Width           =   2775
         End
         Begin VB.OptionButton Opttarjeta 
            Caption         =   "Tarjeta de Crédito   F8"
            BeginProperty Font 
               Name            =   "Microsoft Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   300
            Left            =   240
            TabIndex        =   46
            Top             =   1350
            Width           =   2775
         End
         Begin VB.OptionButton OptEfectivo 
            Caption         =   "Efectivo                       F7"
            BeginProperty Font 
               Name            =   "Microsoft Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   270
            Left            =   240
            TabIndex        =   45
            Top             =   360
            Value           =   -1  'True
            Width           =   2775
         End
         Begin VB.OptionButton OptAdelanto 
            Caption         =   "Adelanto                     F9"
            BeginProperty Font 
               Name            =   "Microsoft Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   300
            Left            =   240
            TabIndex        =   43
            Top             =   670
            Width           =   2775
         End
         Begin MiControl.CtrlNumber ctnmontofactu 
            Height          =   615
            Left            =   240
            TabIndex        =   44
            Top             =   2520
            Visible         =   0   'False
            Width           =   2775
            _ExtentX        =   4895
            _ExtentY        =   1085
            BackColor       =   -2147483643
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   18
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
         Begin VB.Image ImgCtacte 
            Height          =   480
            Left            =   3000
            Picture         =   "FDatosClientCombust.frx":151E
            Top             =   1680
            Visible         =   0   'False
            Width           =   480
         End
         Begin VB.Image Imgtarjeta 
            Height          =   480
            Left            =   3000
            Picture         =   "FDatosClientCombust.frx":1960
            Top             =   720
            Visible         =   0   'False
            Width           =   480
         End
         Begin VB.Image Imgefectivo 
            Height          =   480
            Left            =   3000
            Picture         =   "FDatosClientCombust.frx":1DA2
            Top             =   240
            Width           =   480
         End
         Begin VB.Label Label5 
            Caption         =   "Monto a Facturar"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   240
            TabIndex        =   48
            Top             =   2160
            Visible         =   0   'False
            Width           =   1935
         End
         Begin VB.Image ImgAdelanto 
            Height          =   480
            Left            =   3000
            Picture         =   "FDatosClientCombust.frx":21E4
            Top             =   1200
            Visible         =   0   'False
            Width           =   480
         End
      End
      Begin VB.TextBox txtruc 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   390
         Left            =   9600
         MaxLength       =   11
         TabIndex        =   1
         Text            =   "20100132745"
         Top             =   240
         Width           =   1695
      End
      Begin VB.TextBox txtcodcliente 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   390
         Left            =   5880
         MaxLength       =   11
         TabIndex        =   0
         Text            =   "20100132745"
         Top             =   240
         Width           =   1695
      End
      Begin VB.CommandButton cmdaceptarventa 
         Caption         =   "Aceptar"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   5280
         Picture         =   "FDatosClientCombust.frx":2626
         Style           =   1  'Graphical
         TabIndex        =   5
         Tag             =   "R ASDASD"
         Top             =   1680
         Width           =   1575
      End
      Begin VB.TextBox txtrazonsocial 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   390
         Left            =   5880
         MaxLength       =   40
         TabIndex        =   2
         Text            =   "TEXAS PETROLEUM COMPANY"
         Top             =   720
         Width           =   5415
      End
      Begin VB.TextBox txtcara 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   390
         Left            =   5985
         MaxLength       =   2
         TabIndex        =   4
         Text            =   "01"
         Top             =   1680
         Width           =   495
      End
      Begin VB.TextBox txtdireccion 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   420
         Left            =   5880
         MaxLength       =   40
         TabIndex        =   3
         Text            =   "CHINCHON 1018 SAN ISIDRO LIMA"
         Top             =   1200
         Width           =   5415
      End
      Begin VB.CommandButton cmddetalleproductos 
         Caption         =   "Detalle de Productos >>"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   7200
         TabIndex        =   6
         Top             =   1680
         Width           =   3135
      End
      Begin VB.Label lblFecha 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "lblFecha"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   3720
         TabIndex        =   75
         Top             =   1080
         Width           =   780
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         Caption         =   "Label10"
         Height          =   195
         Left            =   7800
         TabIndex        =   49
         Top             =   360
         Visible         =   0   'False
         Width           =   570
      End
      Begin VB.Label lblvendedor 
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   6480
         TabIndex        =   39
         Top             =   1710
         Width           =   3615
      End
      Begin VB.Image Imgdetalle 
         Height          =   480
         Left            =   10920
         Picture         =   "FDatosClientCombust.frx":2930
         Top             =   1800
         Visible         =   0   'False
         Width           =   480
      End
      Begin VB.Image Imgaceptar1 
         Height          =   480
         Left            =   3000
         Picture         =   "FDatosClientCombust.frx":2D72
         Top             =   1680
         Visible         =   0   'False
         Width           =   480
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "Cod. de Cliente"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         Left            =   2040
         TabIndex        =   19
         Top             =   285
         Visible         =   0   'False
         Width           =   1620
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "RUC"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         Left            =   6000
         TabIndex        =   18
         Top             =   285
         Visible         =   0   'False
         Width           =   525
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "Razón Social"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         Left            =   2040
         TabIndex        =   17
         Top             =   765
         Width           =   1410
      End
      Begin VB.Label lblcara 
         Caption         =   "Cara"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4080
         TabIndex        =   16
         Top             =   1680
         Width           =   1455
      End
      Begin VB.Label lbldireccion 
         AutoSize        =   -1  'True
         Caption         =   "Dirección"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         Left            =   1920
         TabIndex        =   15
         Top             =   1260
         Visible         =   0   'False
         Width           =   990
      End
   End
   Begin MSDataGridLib.DataGrid dbdocumencliente 
      Height          =   1935
      Left            =   120
      TabIndex        =   7
      Top             =   3240
      Width           =   11535
      _ExtentX        =   20346
      _ExtentY        =   3413
      _Version        =   393216
      AllowUpdate     =   0   'False
      AllowArrows     =   -1  'True
      BackColor       =   -2147483624
      Enabled         =   0   'False
      ForeColor       =   -2147483635
      HeadLines       =   1
      RowHeight       =   21
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "[Enter] Modificar - [F3] Eliminar Registros  - Productos Adicionales "
      ColumnCount     =   2
      BeginProperty Column00 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   3082
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   3082
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
      EndProperty
   End
   Begin VB.Frame fraingresos 
      Caption         =   "Ingreso de Datos"
      BeginProperty Font 
         Name            =   "Microsoft Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   120
      TabIndex        =   8
      Top             =   2160
      Width           =   11535
      Begin VB.PictureBox picPrecio 
         Height          =   330
         Left            =   6840
         ScaleHeight     =   270
         ScaleWidth      =   1515
         TabIndex        =   73
         Top             =   480
         Width           =   1575
         Begin ACTIVESKINLibCtl.SkinLabel lblprecio 
            Height          =   330
            Left            =   0
            OleObjectBlob   =   "FDatosClientCombust.frx":31B4
            TabIndex        =   74
            Top             =   0
            Width           =   1575
         End
      End
      Begin VB.PictureBox picDescrip 
         Height          =   330
         Left            =   2640
         ScaleHeight     =   270
         ScaleWidth      =   4035
         TabIndex        =   71
         Top             =   480
         Width           =   4095
         Begin ACTIVESKINLibCtl.SkinLabel lbldescripcion 
            Height          =   330
            Left            =   0
            OleObjectBlob   =   "FDatosClientCombust.frx":3212
            TabIndex        =   72
            Top             =   0
            Width           =   4095
         End
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel9 
         Height          =   255
         Left            =   9960
         OleObjectBlob   =   "FDatosClientCombust.frx":3270
         TabIndex        =   58
         Top             =   240
         Width           =   495
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel8 
         Height          =   255
         Left            =   8520
         OleObjectBlob   =   "FDatosClientCombust.frx":32D8
         TabIndex        =   57
         Top             =   240
         Width           =   735
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel7 
         Height          =   255
         Left            =   6840
         OleObjectBlob   =   "FDatosClientCombust.frx":3346
         TabIndex        =   56
         Top             =   240
         Width           =   615
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel6 
         Height          =   255
         Left            =   2640
         OleObjectBlob   =   "FDatosClientCombust.frx":33B0
         TabIndex        =   55
         Top             =   240
         Width           =   1455
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel5 
         Height          =   255
         Left            =   120
         OleObjectBlob   =   "FDatosClientCombust.frx":3424
         TabIndex        =   54
         Top             =   240
         Width           =   735
      End
      Begin VB.TextBox txtcodigo 
         ForeColor       =   &H8000000D&
         Height          =   330
         Left            =   120
         TabIndex        =   9
         Top             =   480
         Width           =   2415
      End
      Begin MiControl.CtrlNumber ctntotal 
         Height          =   405
         Left            =   9960
         TabIndex        =   11
         Top             =   480
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   714
         BackColor       =   -2147483643
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin MiControl.CtrlNumber ctncantidad 
         Height          =   405
         Left            =   8520
         TabIndex        =   10
         Top             =   480
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   714
         BackColor       =   -2147483643
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Label9 
         Caption         =   "Total"
         Height          =   255
         Left            =   9960
         TabIndex        =   26
         Top             =   480
         Visible         =   0   'False
         Width           =   1095
      End
      Begin VB.Label lblprecio_1 
         Alignment       =   1  'Right Justify
         BorderStyle     =   1  'Fixed Single
         Height          =   330
         Left            =   4320
         TabIndex        =   23
         Top             =   1080
         Visible         =   0   'False
         Width           =   1575
      End
      Begin VB.Label Label6 
         Caption         =   "Código"
         Height          =   255
         Left            =   120
         TabIndex        =   21
         Top             =   480
         Visible         =   0   'False
         Width           =   855
      End
      Begin VB.Label lbldescripcion_1 
         BorderStyle     =   1  'Fixed Single
         Height          =   330
         Left            =   120
         TabIndex        =   20
         Top             =   1080
         Visible         =   0   'False
         Width           =   4095
      End
      Begin VB.Label Label7 
         Caption         =   "Descripción"
         Height          =   240
         Left            =   120
         TabIndex        =   22
         Top             =   1080
         Visible         =   0   'False
         Width           =   975
      End
      Begin VB.Label Label4 
         Caption         =   "Precio"
         Height          =   240
         Left            =   4320
         TabIndex        =   24
         Top             =   1080
         Visible         =   0   'False
         Width           =   495
      End
      Begin VB.Label Label8 
         Caption         =   "Cantidad"
         Height          =   255
         Left            =   8520
         TabIndex        =   25
         Top             =   600
         Visible         =   0   'False
         Width           =   1215
      End
   End
   Begin VB.Image imgsalir 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   510
      Left            =   6360
      Picture         =   "FDatosClientCombust.frx":348E
      Top             =   6720
      Visible         =   0   'False
      Width           =   510
   End
   Begin VB.Label lblmensaje 
      Alignment       =   2  'Center
      BackColor       =   &H8000000E&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "SUPER GRIFO CHINCHA S.A.C"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   1920
      TabIndex        =   40
      Top             =   9180
      Visible         =   0   'False
      Width           =   4215
   End
   Begin VB.Image imgLogo 
      BorderStyle     =   1  'Fixed Single
      Height          =   1275
      Left            =   120
      Picture         =   "FDatosClientCombust.frx":38D0
      Stretch         =   -1  'True
      Top             =   8280
      Visible         =   0   'False
      Width           =   1605
   End
   Begin VB.Image Imgcancelar 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   510
      Left            =   5640
      Picture         =   "FDatosClientCombust.frx":21976
      Top             =   6720
      Visible         =   0   'False
      Width           =   510
   End
   Begin VB.Image Imgaceptar2 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   510
      Left            =   4920
      Picture         =   "FDatosClientCombust.frx":21DB8
      Top             =   6720
      Visible         =   0   'False
      Width           =   510
   End
   Begin VB.Label lblcorrelativo 
      Height          =   375
      Left            =   120
      TabIndex        =   36
      Top             =   5400
      Width           =   2295
   End
   Begin VB.Menu MnuOperaciones 
      Caption         =   "Operaciones"
      Begin VB.Menu mnucambTurnVend 
         Caption         =   "Cambio Turno Vendedores"
      End
      Begin VB.Menu mnurayita1 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuCashDrop 
         Caption         =   "CashDrop"
         Visible         =   0   'False
      End
      Begin VB.Menu mnurayita2 
         Caption         =   "-"
      End
      Begin VB.Menu mnucierrex 
         Caption         =   "CierreX"
      End
      Begin VB.Menu mnucierrez 
         Caption         =   "CierreZ"
      End
   End
End
Attribute VB_Name = "FDatosClientCombust"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Variables para el control de Seguridad
'******************************************************************************************
  'GC_CONTADOADELANTO
  Public pb_editar As Boolean
  Public pb_agregar As Boolean
  Public pb_primerregistro As Boolean
  Public pb_ultimoregistro As Boolean
  Public pbderecho_agregar As Boolean
  Public pbderecho_consultar As Boolean
  Public pbderecho_editar As Boolean
  Public pbderecho_borrar As Boolean
  Public pbderecho_imprimir As Boolean
  Public pbderecho_anular As Boolean
  Public pbderecho_emitir As Boolean
  Public pb_tiposcreen As String
  
'Variables Para el Manejo de la Grilla
'************************************************************************************************************
 Public GAgregandoReg As Boolean
 Public GModificandoReg As Boolean
 Public GEliminandoReg As Boolean

'Variables para el Trbajo con las Búsquedas
'************************************************************************************************************
 Public GrecibeUbicacion As BookmarkEnum
 Public GrecibeColumnaID As String
 Public GrecibeColumnaOpcional As Variant
 Public GrecibeColumnaOpcional2 As Variant
 Public GrecibeColumnaOpcional3 As Variant

'Variable para Manejar las llamdas a las Ayudas
'************************************************************************************************************
' Si es 1 es ayuda para Clientes
' Si es 2 es Ayuda para Artículos

 Public Gintayuda As Integer
 Public GintStatus As Integer
 Public GintBloqueaVentas As Integer
 Public GintEsCombustible As Integer
 Public GintVentCombenAutomatic As Integer

'Variables para el Manejo de los Correlativos
'************************************************************************************************************
 Public MDblIdentificador As Double
 
'Variables para el control de las pantallas levantadas
'************************************************************************************************************
 Public Gblnplacallenada As Boolean
 Public MstrMensaje As String
   
'Variable para Manejar la Grilla
'************************************************************************************************************
 Public WithEvents MrsGrilla As ADODB.Recordset
Attribute MrsGrilla.VB_VarHelpID = -1
 
'Variable para Almacenar si es del Tipo Crédito o Adelanto
 '************************************************************************************************************
 Public MintCustomer_user9 As Integer
 
 Public MintTipoCliente As Integer
 Public GstrTipoClienteDescr As String
 Public GdblLimiteCredito As Double
 Public GdblDeudaVigente As Double
 Public GdblSaldoDisponible As Double
 Public GstrMonedaLimiteCredito As String
 Public GstrIddeEstado As String
 Public GstrDescrEstado As String
 Public GstrTipodeCambio As String
 Public GdblMontoTipoCambio As Double
 Public GintDiasdeGracia As Integer
 Public GdblMontoExtra As Double
 
 Public GblnconPlacas As Boolean
 
 Public GblnAfecto As Boolean
 Public GStrNumeroPlaca As String
 Public GintNumeroVale As Double
 Public GdblKilometraje As Double
 Public GStrIdTarjeta As String
 Public GStrNumeroTarjeta As String
 Public GStrMonedaenTarjeta As String
 Public GstrDescripcionTarjeta As String
  
'Variable para el control de asignacion de datos de cliente
 
 Private MBlndatosasignados As Boolean
 
'Variable para Crear un instancia Cliente
 
 Private MobjVentasGeneral As DB_OP_FACTURACION.C_VENTASGENERAL
 Public GrsCliente As ADODB.Recordset
 Public GobjFacturacionCombust As DB_OP_FACTURACION.C_VENTASPLAYA
 Public MobjCorrelativo As DB_CORRELATIVO.C_Correlativos
 Public MrsListadoArticulos As ADODB.Recordset
 Public MobjDispensador As DB_UT_MANTENIMIENTOS.C_DISPENSADORES
 '************************************************************************************************************
 'Variable para el Manejo de los Datos del Artículo
 '************************************************************************************************************
 
 Private MstrCaraInicial As String
 Private MIntSecuencia As Integer
 Private MStrMonedaPrecio As String
 Private MdblPrecioDat As Double
 Private MdblPrecio As Double
 Private MdblImpuestoIgv As Double
 Private MintInventariable As Integer
 Private MStrCodigoAlternativo As String
 Private Mstrdescripcion As String
 Private MIntCombustible As Integer
 
 Private MDblPrecioMonBase As Double
 Private MDblPrecioMonExtranjera As Double
 Private MDblPrecioDatMonBase As Double
 Private MDblPrecioDatExtranjera As Double
 
 Private MdblCostoBase As Double
 Private MdblCostoExt As Double
 
 Private MdblPrecioMonCaja As Double
 Private MdblPrecioDatMonCaja As Double
 Private MrsProducto As ADODB.Recordset
 Private MrsDatosCabeceraTemporal As ADODB.Recordset
 
 'Variables para Enlazar la Grilla ------------------------------------------------------
 
 Private LdblImpuesto As Double
 Private LdblTotalBase As Double
 Private LdblTotalExt As Double
 Private LDblIGVBase As Double
 Private LDblIGVExt As Double
 Private LDblSubAfectoBase As Double
 Private LDblSubAfectoExt As Double
 Private LDblNoAfectoBase As Double
 Private LDblNoAfectoExt As Double
 Private BlnExisteunNoAfecto As Boolean
 Private BlnTodosLosImpIguales As Boolean
 'Variables para el Manejo de Impresion -----------------------------------------------------------------------------------------
 Private MrsEmision As ADODB.Recordset
 Public GBlnUsuarioEfectivoOK As Boolean
 Private MBlnCaraAsignada As Boolean
 Private MrsDatosVendedorCara As ADODB.Recordset
 
'Presenta ventana logo
Private VerPantallaLogo As Boolean

Private Sub LimpiarDatosdelCliente()
   
   txtruc.Text = Empty
   txtrazonsocial.Text = Empty
   txtdireccion.Text = Empty
   txtcara.Text = Empty
   ctnmontofactu.ValorPorDefecto
      
   MintCustomer_user9 = 0
   
   ' Variables de Manejo para el Límite de Crédito
      
   ' Se vuelve a la Moneda al simbolo de la caja
   
   lbldescafecto.Caption = "Subtotal (Afecto) " & GstrSimboloMoneda
   lbldescNoafecto.Caption = "No Afecto " & GstrSimboloMoneda
   lbldesIgv.Caption = "IGV " & GstrSimboloMoneda
   lbldesTotal.Caption = "Total " & GstrSimboloMoneda

   
   GstrTipoClienteDescr = Empty
   GstrIddeEstado = "O"
   GstrDescrEstado = Empty
   GstrMonedaLimiteCredito = GStrMonedaCaja
   
   GstrTipodeCambio = GstrTipoCambioVentas
   GdblMontoTipoCambio = MobjVentasGeneral.ObtenerMontoTipodeCambio(GstrCodMonedaBase, GstrMonedaExtranjera, GDatFechaProcesoVentas, GstrTipodeCambio)
   'GdblMontoTipoCambio = 0
   GintDiasdeGracia = 0
   GdblLimiteCredito = 0
   GdblDeudaVigente = 0
   GdblSaldoDisponible = GdblLimiteCredito - GdblDeudaVigente
   GdblMontoExtra = 0
   GblnAfecto = True
   GblnconPlacas = False
   OptEfectivo.Value = True
   
End Sub

Private Sub Instanciar_Objetos()

  Set MobjVentasGeneral = New DB_OP_FACTURACION.C_VENTASGENERAL
  Set MobjCorrelativo = New DB_CORRELATIVO.C_Correlativos
  Set GobjFacturacionCombust = New DB_OP_FACTURACION.C_VENTASPLAYA
  Set MobjDispensador = New DB_UT_MANTENIMIENTOS.C_DISPENSADORES
  
  'Asignar para Cargar la Ayuda de Productos
  Set MrsListadoArticulos = GobjFacturacionCombust.ObtenerListadodeArticulos(GstrSiteProce, GStrMonedaCaja)
      
End Sub

Private Sub Destruir_Instancias()
   Set GrsCliente = Nothing
   Set GobjFacturacionCombust = Nothing
   Set MobjVentasGeneral = Nothing
   Set MobjCorrelativo = Nothing
   Set MobjDispensador = Nothing
End Sub
Function ValidacionClientes() As Boolean
'Permite validar el ingreso de datos del cliente
ValidacionClientes = True

If Len(Trim(txtcodcliente)) <> 0 Then
    If Len(Trim(txtruc)) < 11 Then
        If MsgBox("EL RUC debe tener 11 dígitos.", vbDefaultButton1 + _
                vbExclamation + vbOKCancel, "Advertencia02") = vbOK Then
            txtruc.BackColor = vbCyan
            txtruc.SetFocus
            ValidacionClientes = False
        Else
            txtcodcliente = Empty
            txtruc = Empty
            txtruc.BackColor = vbWhite
            txtdireccion = Empty
            txtrazonsocial = Empty
            txtcodigo.BackColor = vbCyan
            txtcodigo.SetFocus
        End If
    End If
End If
If Len(Trim(txtruc)) = 11 Then 'Ruc Ingresado correctamente
    txtruc.BackColor = vbWhite
    If Len(Trim(txtrazonsocial)) = 0 Then
        MsgBox "Ingrese la RAZON SOCIAL", vbExclamation, "Advertencia"
        txtrazonsocial.SetFocus
        ValidacionClientes = False
    ElseIf Len(Trim(txtdireccion)) = 0 Then
        MsgBox "Ingrese la DIRECCION", vbExclamation, "Advertencia"
        txtdireccion.SetFocus
        ValidacionClientes = False
    End If
ElseIf Len(Trim(txtruc)) = 0 Then
    txtrazonsocial = Empty
    txtdireccion = Empty
End If



End Function

Private Sub cmdaceptarprodadi_Click()

On Error GoTo errhandler

    If ValidarEntradaDatos = False Then
      Exit Sub
    End If
     
    '*************************************
    '********    GRABAR  *****************
    '***** CABECERA Y GRABAR DETALLE *****
    '*************************************
    'Si no Hay Cara que imprima defrente
    'Si existe Cara tiene que ir al temporal
    
    If Optctacte.Enabled = True And Optctacte.Value = True Then
'             If ctnmontofactu.Text = 0 Then
'                MsgBox "Ingrese Monto a Facturar ", vbDefaultButton1 + vbExclamation, "Advertencia"
'                ctnmontofactu.SetFocus
'             Else
                'Es que se a ingresado un Monto y hay que validar si se puede Facturar
                If VerificarFacturacion = True Then
                  'Si es que el Cliente Tiene placas Registradas
                     FIngresoVales.lblcorrelativo.Caption = MDblIdentificador
                     FIngresoVales.Show vbModal
                     'Verificar si se lleno la placacorrectamente (osea si ingreso algo)
                     'si no es asi no puede cerrar
                     'y se hace un exit sub
                 
                     'Se procede a grabar en el Temporal que enlaza la transacción
                     'con la lectura de la cara del TRAN
                     '************************************* *****************
                     '********  GRABAR DENTRO DE LAS PLACAS *****************
                     '************************************* *****************
                   
                Else
                   ' No se Puede facturar
                   MsgBox MstrMensaje, vbDefaultButton1 + vbExclamation, "Advertencia"
                   Exit Sub
                End If
             'End If
    Else
          'La venta es al Contado o Tarjeta de Crédito
          'Se procede a grabar en el Temporal que enlaza la transacción
          'con la lectura de la cara del TRAN
          If Opttarjeta.Value = True Then
             FtarjetaCredito.Show vbModal
          Else
            '*************************************
            '********    GRABAR  *****************
            '*************************************
            'Se Aumento una Nueva Modalidad de Pago (CONTADO/ADELANTO)
            If OptAdelanto.Value = True Then
               
                ' Inicio de Validación
                  If Val(ctnmontofactu.Text) = 0 And MintCustomer_user9 = 1 Then
                      MsgBox "Ingrese Monto a Facturar ", vbDefaultButton1 + vbExclamation, "Advertencia"
                      ctnmontofactu.SetFocus
                  Else
                     
                     If MintCustomer_user9 = 1 Then
                     
                       Dim Lstrcadenaadel As String
                       Dim Lutil As UTIL_SETUP.C_SETUP
                       Dim Lrstemp As ADODB.Recordset
                       Dim Ldblsaldo As Double
                           
                             Lstrcadenaadel = " OP_Verifica_SaldoAdelantado '" & Trim(txtcodcliente.Text) & "','" & GstrSiteProce & "'"
                
                             Set Lutil = New UTIL_SETUP.C_SETUP
                             Set Lrstemp = Lutil.Auxiliar3(Lstrcadenaadel)
                            
                             If Lrstemp!saldo < 0 Then  ' Aún tiene Saldo
                                Ldblsaldo = Lrstemp!saldo * -1
                               
                                If Val(ctnmontofactu.Text) > Ldblsaldo Then
                                   MsgBox "Monto excede los " & Str(Ldblsaldo) & " Soles disponibles a facturar ", vbDefaultButton1 + vbExclamation, "Mensaje"
                                   Set Lutil = Nothing
                                   Set Lrstemp = Nothing
                                   Exit Sub
                                End If
                             Else
                                MsgBox "Cliente no tiene Saldo Disponible", vbDefaultButton1 + vbExclamation, "Mensaje"
                                Exit Sub
                             End If
                            
                             Set Lutil = Nothing
                             Set Lrstemp = Nothing
                             
                             FIngresoVales.lblcorrelativo.Caption = MDblIdentificador
                             FIngresoVales.Show vbModal
                     Else
                             FIngresoVales.lblcorrelativo.Caption = MDblIdentificador
                             FIngresoVales.Show vbModal
                     
                     End If
                  End If
            
            Else
                If GblnconPlacas = False Then
                            If (Trim(txtcara.Text) = Empty And txtcara.Visible = True) Or GIntVentaAutoCombust = 0 Then
                              ' Hay que Emitir el Documento
                              ' Como no han ingresado cara se emite directamente
                              ' Se tiene que Validar que existan registros en el detalle
                                  
                               If MrsGrilla.RecordCount < 1 Then
                                  MsgBox "No se ha Ingresado Ningún Producto", vbDefaultButton1 + vbExclamation, "Advertencia"
                                  txtcodigo.SetFocus
                                  Exit Sub
                               End If
                                
                               GBlnUsuarioEfectivoOK = False
                               FingresoCodVend.GIntdepantalla = 0
                               FingresoCodVend.cmdaceptarprodadi = True
'                               FingresoCodVend.Show vbModal  'XXXXXXXXXXXXXXXXXXXXX MODIFICADO
                               
                               If GBlnUsuarioEfectivoOK = False Then
                                  Exit Sub
                               End If
                               
                               EmitirDocumentoDirectamente 1, "", GStrCodVendedorVentaCombus, GStrCodUsuarioVentaCombus
                              
                               If GIntVentaAutoCombust = 1 Then
                                   Unload Me
                               Else
                                   ' Se Obtiene un Nuevo Correlativo
                                   GLimpiarDatosdePantalla
                               End If
                            Else
                              If GblnVienedePendientes = False Then
                                 GrabarDatosenTemporal
                              Else  'Actualizar
                                 ActualizarDatosenTemporal
                                 FTranspendientes.GactualizarPendientes
                              End If
                              Unload Me
                            End If
                Else
                   FIngresoVales.lblcorrelativo.Caption = MDblIdentificador
                   FIngresoVales.Show vbModal
                End If
                
            End If
           End If
    End If
Exit Sub
errhandler:
    MsgBox MensajedeError(Err.Number, Err.Description), vbDefaultButton1 + vbExclamation, "Advertencia"
    
    GLimpiarDatosdePantalla
    LimpiarVariablesPublicas
      
End Sub
Private Function ValidarEntradaDatos() As Boolean
 
 '*******************************************************************************************
 ' Datos Previos de Validacion de Entrada de datos
 '*******************************************************************************************

   If Trim(txtrazonsocial.Text) = Empty Then
      If Trim(txtruc.Text) <> Empty Then
          MsgBox "Ingrese Razón Social", vbDefaultButton1 + vbExclamation, "Advertencia"
          txtrazonsocial.SetFocus
          ValidarEntradaDatos = False
          Exit Function
       End If
   End If
   
  ' Si la Cara está en Blanco Debe emitir un Mensaje
  ' de ingresar la Cara
  
  If GIntVentaAutoCombust = 1 Then
    If Trim(txtcara.Text) = Empty Then
      If MrsGrilla.RecordCount = 0 Then
         MsgBox "Debe Ingresar Número de Cara ", vbDefaultButton1 + vbExclamation, "Advertencia"
         txtcara.SetFocus
         ValidarEntradaDatos = False
         Exit Function
      End If
    Else
      'Hay que Verificar que no hay Transacciones Pendientes en la Tabla TMP_OP_SALES
      'Preguntar si la cara cambio para no ejecutar
       If MstrCaraInicial <> txtcara.Text Then
         If GobjFacturacionCombust.VerificarTransacPendientes(txtcara.Text) = True Then
            MsgBox "Cara Tiene una Transacción Pendiente", vbDefaultButton1 + vbExclamation, "Advertencia"
            txtcara.SetFocus
            ValidarEntradaDatos = False
            Exit Function
         End If
       End If
    End If
  Else
    ' La Venta es Manual la Cara está deshabilitada
     If MrsGrilla.RecordCount < 1 Then
        MsgBox "No ha ingresado Artículos", vbDefaultButton1 + vbExclamation, "Advertencia"
        ValidarEntradaDatos = False
        Exit Function
     End If
  End If
  
  ValidarEntradaDatos = True
      
End Function

Private Sub cmdaceptarprodadi_GotFocus()
  
  Imgaceptar1.Visible = False
  Imgdetalle.Visible = False
  Imgaceptar2.Visible = True
  Imgcancelar.Visible = False
  
End Sub

Private Sub cmdaceptarprodadi_KeyDown(KeyCode As Integer, Shift As Integer)
   'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************
End Sub

Private Sub cmdaceptarprodadi_KeyUp(KeyCode As Integer, Shift As Integer)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************

End Sub


Private Sub cmdaceptarprodadi_LostFocus()
  Imgaceptar2.Visible = False
End Sub

Private Sub cmdaceptarprodadi_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************
End Sub

Private Sub cmdaceptarprodadi_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************

End Sub


Private Sub cmdaceptarventa_Click()

 If ValidarEntradaDatos = False Then
    Exit Sub
 End If
 
'*******************************************************************************************
' Este aceptar Indica que se procede a grabar en el temporal los
' datos de la Venta , para posibles Modificaciones hasta antes de colgar la mangera
'*******************************************************************************************
  
  If Optctacte.Enabled = True And Optctacte.Value = True Then
     If Val(ctnmontofactu.Text) = 0 Then
        MsgBox "Ingrese Monto a Facturar ", vbDefaultButton1 + vbExclamation, "Advertencia"
        ctnmontofactu.SetFocus
     Else
        'Es que se a ingresado un Monto y hay que validar si se puede Facturar
        If VerificarFacturacion = True Then
          'Si es que el Cliente Tiene placas Registradas
             FIngresoVales.lblcorrelativo.Caption = MDblIdentificador
             FIngresoVales.Show vbModal
             'Verificar si se lleno la placacorrectamente (osea si ingreso algo)
             'si no es asi no puede cerrar
             'y se hace un exit sub
         
             'Se procede a grabar en el Temporal que enlaza la transacción
             'con la lectura de la cara del TRAN
             '************************************* *****************
             '********  GRABAR DENTRO DE LAS PLACAS *****************
             '************************************* *****************
        Else
           ' No se Puede facturar
           MsgBox MstrMensaje, vbDefaultButton1 + vbExclamation, "Advertencia"
           Exit Sub
        End If
     End If
  Else
     
    'La venta es al Contado o Tarjeta de Crédito
    'Se procede a grabar en el Temporal que enlaza la transacción
    'con la lectura de la cara del TRAN
    
    If Opttarjeta.Value = True Then
       '*************************************
       '********    GRABAR  *****************
       '*************************************
        FtarjetaCredito.Show vbModal
    Else
       If OptAdelanto.Value = True Then
         If Val(ctnmontofactu.Text) = 0 And MintCustomer_user9 = 1 Then
            MsgBox "Ingrese Monto a Facturar ", vbDefaultButton1 + vbExclamation, "Advertencia"
            ctnmontofactu.SetFocus
         Else
            ' Hay que verificar que tenga
             If MintCustomer_user9 = 1 Then
                 Dim Lstrcadenaadel As String
                 Dim Lutil As UTIL_SETUP.C_SETUP
                 Dim Lrstemp As ADODB.Recordset
                 Dim Ldblsaldo As Double
                
                 Lstrcadenaadel = " OP_Verifica_SaldoAdelantado '" & Trim(txtcodcliente.Text) & "','" & GstrSiteProce & "'"
    
                 Set Lutil = New UTIL_SETUP.C_SETUP
                 Set Lrstemp = Lutil.Auxiliar3(Lstrcadenaadel)
                
                 If Lrstemp!saldo < 0 Then  ' Aún tiene Saldo
                    Ldblsaldo = Lrstemp!saldo * -1
                   
                    If Val(ctnmontofactu.Text) > Ldblsaldo Then
                       MsgBox "Monto excede los " & Str(Ldblsaldo) & " Soles disponibles a facturar ", vbDefaultButton1 + vbExclamation, "Mensaje"
                       Set Lutil = Nothing
                       Set Lrstemp = Nothing
                       Exit Sub
                    End If
                 Else
                    MsgBox "Cliente no tiene Saldo Disponible", vbDefaultButton1 + vbExclamation, "Mensaje"
                    Exit Sub
                 End If
                
                 Set Lutil = Nothing
                 Set Lrstemp = Nothing
            
            ' Fin de Verificacion
            
                 FIngresoVales.lblcorrelativo.Caption = MDblIdentificador
                 FIngresoVales.Show vbModal
             Else
             
                 FIngresoVales.lblcorrelativo.Caption = MDblIdentificador
                 FIngresoVales.Show vbModal
                 
             End If
         End If
       Else
            If GblnconPlacas = False Then
                'Es en Efectivo
                If Trim(txtcara.Text) = Empty And txtcara.Visible = True Then
                     
                Else
                  If GblnVienedePendientes = False Then
                     GrabarDatosenTemporal
                  Else  'Actualizar
                     ActualizarDatosenTemporal
                     FTranspendientes.GactualizarPendientes
                  End If
              
                End If
                Unload Me
            Else
                FIngresoVales.lblcorrelativo.Caption = MDblIdentificador
                FIngresoVales.Show vbModal
            End If
       End If
    End If
       
  End If
  
End Sub

Private Sub cmdaceptarventa_GotFocus()
   Imgaceptar1.Visible = True
   Imgdetalle.Visible = False
   Imgaceptar2.Visible = False
   Imgcancelar.Visible = False
End Sub

Private Sub cmdaceptarventa_LostFocus()
   Imgaceptar1.Visible = False
End Sub

Private Sub cmdCancelar_Click()
  If MsgBox("Seguro que desea Cancelar los Cambios", vbYesNo + vbQuestion, "Advertencia") = vbYes Then
      LimpiarVariablesPublicas
      GLimpiarDatosdePantalla
      Optctacte.Caption = "Credito                   [F12]"
      If GIntVentaAutoCombust = 1 Then
         Unload Me
      End If
      
  End If
End Sub

Private Sub cmdcancelar_GotFocus()
  Imgaceptar1.Visible = False
  Imgdetalle.Visible = False
  Imgaceptar2.Visible = False
  Imgcancelar.Visible = True

End Sub

Private Sub cmdcancelar_KeyDown(KeyCode As Integer, Shift As Integer)
   'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************
End Sub

Private Sub cmdcancelar_KeyUp(KeyCode As Integer, Shift As Integer)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
End Sub

Private Sub cmdcancelar_LostFocus()
  Imgcancelar.Visible = False
End Sub

Private Sub cmdcancelar_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************
End Sub

Private Sub cmdcancelar_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
End Sub

Private Sub cmddetalleproductos_Click()
  
  cmdaceptarventa.Visible = False
  dbdocumencliente.Enabled = True
      
  cmddetalleproductos.Enabled = True
  cmdaceptarprodadi.Enabled = True
  cmdcancelar.Enabled = True
  Me.Height = 8865
  HabiDeshabiTabs (True)
  txtcodigo.SetFocus
End Sub

Private Sub cmddetalleproductos_GotFocus()
   
  Imgaceptar1.Visible = False
  Imgdetalle.Visible = True
  Imgaceptar2.Visible = False
  Imgcancelar.Visible = False

End Sub

Private Sub cmddetalleproductos_LostFocus()
  Imgdetalle.Visible = False
End Sub

Private Sub cmdeliminar_Click()
    
    GEliminandoReg = True
    If Not IsNull(dbdocumencliente.Bookmark) Then
      If MsgBox("Seguro que desea Eliminar el Registro", vbYesNo + vbQuestion, "Advertencia") = vbYes Then
          GobjFacturacionCombust.EliminarRegistroenDetalleTemporal MDblIdentificador, dbdocumencliente.Columns(0).Text
          ' Despues de Eliminar tengo que Refrescar los Resultados
          EnlazarGrilla (MDblIdentificador)
          txtcodigo.SetFocus
      End If
    End If
    GEliminandoReg = False
    
End Sub

Private Sub cmdsalir_Click()
    Unload Me
End Sub

Private Sub cmdsalir_GotFocus()
  Imgaceptar1.Visible = False
  Imgdetalle.Visible = False
  Imgaceptar2.Visible = False
  Imgcancelar.Visible = False
  
  imgsalir.Visible = True
End Sub


Private Sub cmdsalir_KeyDown(KeyCode As Integer, Shift As Integer)
   'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************
End Sub

Private Sub cmdsalir_KeyUp(KeyCode As Integer, Shift As Integer)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
End Sub

Private Sub cmdsalir_LostFocus()
    imgsalir.Visible = False
End Sub


Private Sub cmdsalir_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************
End Sub

Private Sub cmdsalir_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
End Sub

Private Sub ctncantidad_GotFocus()
   'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************
  ctncantidad.BackColor = vbCyan
End Sub

Private Sub ctncantidad_KeyDown(KeyCode As Integer, Shift As Integer)
    
  If KeyCode = vbKeyLeft Or KeyCode = vbKeyUp Then
     txtcodigo.SetFocus
  End If
  
  If KeyCode = 13 Then
     
     If GAgregandoReg = True Then
        If ctncantidad.Text <= 0 Then
           MsgBox "Ingrese una Cantidad Mayor a Cero", vbDefaultButton1 + vbExclamation, "Advertencia"
           ctncantidad.SetFocus
           Exit Sub
        End If
        
        ctntotal.Text = GFormatodeNumero((lblprecio.Caption * ctncantidad.Text), GintDecPrecio)
        GrabarDatosenDetalleTempo
        GAgregandoReg = False
        LimpiarDatosdeIngreso
        txtcodigo.SetFocus
     Else
        If GModificandoReg = True Then
          If ctncantidad.Text <= 0 Then
              MsgBox "Ingrese una Cantidad Mayor a Cero", vbDefaultButton1 + vbExclamation, "Advertencia"
              ctncantidad.SetFocus
              Exit Sub
          End If
          GAsignarDatosdeProducto (txtcodigo.Text)
          ActualizarDatosenDetalleTempo
          GModificandoReg = False
          LimpiarDatosdeIngreso
          txtcodigo.SetFocus
        End If
     End If
     
  End If
  
End Sub

Private Sub ctncantidad_LostFocus()
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
  ctncantidad.BackColor = vbWhite
End Sub

Private Sub ctnmontofactu_GotFocus()
  ctnmontofactu.BackColor = vbCyan
  ctnmontofactu.SelStart = 0
End Sub

Private Sub ctnmontofactu_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        'Verificar si el Monto a Facturar es CERO
        If ctnmontofactu.Text = Empty Then
           ctnmontofactu.ValorPorDefecto
        End If
        
        
        If Optctacte.Value = True And Optctacte.Enabled = True Then
            If ctnmontofactu.Text = 0 Then
               MsgBox "Ingrese Monto a Facturar ", vbDefaultButton1 + vbExclamation, "Advertencia"
               Exit Sub
            Else
               If VerificarFacturacion = False Then
                  MsgBox MstrMensaje, vbDefaultButton1 + vbExclamation, "Advertencia"
                  Exit Sub
               Else
                 If cmdaceptarventa.Visible = True Then
                    cmdaceptarventa.SetFocus
                 Else
                    txtcodigo.SetFocus
                 End If
               End If
            End If
        Else
           If OptAdelanto.Value = True And OptAdelanto.Enabled = True And MintCustomer_user9 = 1 Then
              ' Hay que verificar que tenga
                 
                 Dim Lstrcadenaadel As String
                 Dim Lutil As UTIL_SETUP.C_SETUP
                 Dim Lrstemp As ADODB.Recordset
                 Dim Ldblsaldo As Double
                
                 Lstrcadenaadel = " OP_Verifica_SaldoAdelantado '" & Trim(txtcodcliente.Text) & "','" & GstrSiteProce & "'"
    
                 Set Lutil = New UTIL_SETUP.C_SETUP
                 Set Lrstemp = Lutil.Auxiliar3(Lstrcadenaadel)
                
                 If Lrstemp!saldo < 0 Then  ' Aún tiene Saldo
                    Ldblsaldo = Lrstemp!saldo * -1
                   
                    If Val(ctnmontofactu.Text) > Ldblsaldo Then
                       MsgBox "Monto excede los " & Str(Ldblsaldo) & " Soles disponibles a facturar ", vbDefaultButton1 + vbExclamation, "Mensaje"
                       Set Lutil = Nothing
                       Set Lrstemp = Nothing
                       Exit Sub
                    Else
                       If cmdaceptarventa.Enabled = True And cmdaceptarventa.Visible = True Then
                          cmdaceptarventa.SetFocus
                       End If
                    End If
                 Else
                    MsgBox "Cliente no tiene Saldo Disponible", vbDefaultButton1 + vbExclamation, "Mensaje"
                    Exit Sub
                 End If
                
                 Set Lutil = Nothing
                 Set Lrstemp = Nothing
            
              ' Fin de Verificacion

           End If
        
        End If
        
        
    End If
End Sub

Private Sub ctnmontofactu_LostFocus()
  ctnmontofactu.BackColor = vbWhite
End Sub

Private Sub ctntotal_GotFocus()
   'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************
 ctntotal.BackColor = vbCyan
End Sub
Private Sub ctntotal_KeyDown(KeyCode As Integer, Shift As Integer)
  
  If KeyCode = vbKeyLeft Or KeyCode = vbKeyUp Then
     If ctncantidad.Enabled = True Then
        ctncantidad.SetFocus
     Else
        txtcodigo.SetFocus
     End If
  End If
  If KeyCode = vbKeyDown Then
     cmdaceptarprodadi.SetFocus
  End If
       
  If KeyCode = 13 Then
     If GAgregandoReg = True Then
        ' Si es que se llega a dar un Enter aquí se tiene que calcular la Cantidad Dividiendo
        ' el Total entre el Precio
        If ctntotal.Text <= 0 Then
           MsgBox "Ingrese un Monto Mayor a Cero", vbDefaultButton1 + vbExclamation, "Advertencia"
           ctntotal.SetFocus
           Exit Sub
        End If
        '@ Jorge: validando cantidad de total combustible no mayor a 200------------------
        If ctntotal.Text > 200 Then
            'Opcion Pedir Contraseña
'           fIngreCodJefPlay.Show vbModal
            'Opcion Mostrar Advertencia
            If MsgBox("El valor ingresado sobrepasa el estandar establecido." + Chr(13) + _
                    "¿Desea realmente ingresar el valor digitado?", _
                    vbDefaultButton2 + vbQuestion + vbYesNo, "Advertencia") = vbNo Then
               ctntotal.SetFocus
               Exit Sub
            End If
        End If
        '---------------------------------------------------------------------------------
        ctncantidad.Text = GFormatodeNumero((ctntotal.Text / lblprecio), GintDecStock)
        GrabarDatosenDetalleTempo
        GAgregandoReg = False
        LimpiarDatosdeIngreso
        txtcodigo.SetFocus
     Else
        If GModificandoReg = True Then
           If Trim(ctntotal.Text) = "" Then
             ctntotal.Text = 0
           End If
           If ctntotal.Text <= 0 Then
             MsgBox "Ingrese un Monto Mayor a Cero", vbDefaultButton1 + vbExclamation, "Advertencia"
             ctntotal.SetFocus
             Exit Sub
           End If
           '@ Jorge: validando cantidad de total combustible no mayor a 200------------------
           If ctntotal.Text > 200 Then
               'Opcion Pedir Contraseña
    '          fIngreCodJefPlay.Show vbModal
               'Opcion Mostrar Advertencia
               If MsgBox("El valor ingresado sobrepasa el estandar establecido." + Chr(13) + _
                       "¿Desea realmente ingresar el valor digitado?", _
                       vbDefaultButton2 + vbQuestion + vbYesNo, "Advertencia") = vbNo Then
                  ctntotal.SetFocus
                  Exit Sub
               End If
           End If
            '---------------------------------------------------------------------------------
            
           GAsignarDatosdeProducto (txtcodigo.Text)
           ctncantidad.Text = GFormatodeNumero((ctntotal.Text) / lblprecio, GintDecStock)
           ActualizarDatosenDetalleTempo
           GModificandoReg = False
           LimpiarDatosdeIngreso
           txtcodigo.SetFocus
 
        End If
     End If
     
  End If
     
       
       
       
       
       
End Sub

Private Sub ctntotal_LostFocus()
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
  ctntotal.BackColor = vbWhite
End Sub

Private Sub dbdocumencliente_Error(ByVal DataError As Integer, Response As Integer)
   Response = 0
End Sub
Private Sub dbdocumencliente_GotFocus()
   LimpiarDatosdeIngreso
   GModificandoReg = False
   GAgregandoReg = False
End Sub

Public Sub MostrarenIngresdeDatos()
   
  If Not IsNull(dbdocumencliente.Bookmark) Then
   MIntSecuencia = dbdocumencliente.Columns(0).Text
   txtcodigo.Text = dbdocumencliente.Columns(1).Text
   lbldescripcion.Caption = dbdocumencliente.Columns(2).Text
   lblprecio.Caption = dbdocumencliente.Columns(3).Text
   ctncantidad.Text = dbdocumencliente.Columns(5).Text
   If dbdocumencliente.Columns(6).Visible = True Then
      ctntotal.Text = dbdocumencliente.Columns(6).Text
   Else
     If dbdocumencliente.Columns(7).Visible = True Then
        ctntotal.Text = dbdocumencliente.Columns(7).Text
     End If
   End If
   
  End If
  
End Sub

Private Sub CargarTransPendiente(IDblCorrelativo As Double)
   
   Dim LUtilSetup As UTIL_SETUP.C_SETUP
      
   If IsNull(MrsDatosCabeceraTemporal!custidss) Then
    txtcodcliente.Text = Empty
   Else
    txtcodcliente.Text = MrsDatosCabeceraTemporal!custidss
   End If
   
   Set LUtilSetup = New UTIL_SETUP.C_SETUP
   
   MintCustomer_user9 = LUtilSetup.Auxiliar3("select isnull(user9,0) as user9 from customer where CUSTIDSS='" & txtcodcliente.Text & "'")!user9
   
   txtrazonsocial.Text = MrsDatosCabeceraTemporal!CUSTNAME
   txtdireccion.Text = MrsDatosCabeceraTemporal!ADDRESS
   txtruc.Text = MrsDatosCabeceraTemporal!TAXREGNBR
   txtcara.Text = MrsDatosCabeceraTemporal!NBRSIDE
   MstrCaraInicial = txtcara.Text
   MintTipoCliente = MrsDatosCabeceraTemporal!TYPECUSTOMER
   GstrTipoClienteDescr = MrsDatosCabeceraTemporal!DSCRTYPECUST
   GstrIddeEstado = MrsDatosCabeceraTemporal!IDESTADO ' A,H,R,I,O
   GstrDescrEstado = MrsDatosCabeceraTemporal!Estado
   GStrNumeroPlaca = MrsDatosCabeceraTemporal!PLACA
   'GintNumeroVale = MrsDatosCabeceraTemporal!NBRBONUS
   GdblKilometraje = MrsDatosCabeceraTemporal!KILOMETRAJE
   If Not IsNull(MrsDatosCabeceraTemporal!CARDID) Then
     GStrIdTarjeta = MrsDatosCabeceraTemporal!CARDID
   Else
     GStrIdTarjeta = Empty
   End If
   If Not IsNull(MrsDatosCabeceraTemporal!NBRCARD) Then
      GStrNumeroTarjeta = MrsDatosCabeceraTemporal!NBRCARD
   Else
      GStrNumeroTarjeta = Empty
   End If
   
   If Not IsNull(MrsDatosCabeceraTemporal!CURYIDCARD) Then
      GStrMonedaenTarjeta = MrsDatosCabeceraTemporal!CURYIDCARD
   Else
            
   End If
        
   If MrsDatosCabeceraTemporal!TYPEPAYMENTID = GC_PAGOEFECTIVO Then
      OptEfectivo.Value = True
   Else
     If MrsDatosCabeceraTemporal!TYPEPAYMENTID = GC_TARJETACRED Then
        Opttarjeta.Value = True
     Else
       If MrsDatosCabeceraTemporal!TYPEPAYMENTID = GC_VALESCRED Then
          Optctacte.Value = True
          ctnmontofactu.Enabled = True
       Else
          If MrsDatosCabeceraTemporal!TYPEPAYMENTID = GC_CONTADOADELANTO Then
             OptAdelanto.Value = True
             
             If MintCustomer_user9 = 1 Then
              ctnmontofactu.Enabled = True
             End If
             
          End If
       End If
     End If
   End If
   
   ' Falta Cargar la variable para saber si tiene placa el cliente
    
   If MintTipoCliente = 1 Then ' Si es del Tipo Crédito o Adelanto
     'Para Habilitar la Cuenta Corriente tengo que Verificar
     'si su estado es Activo
     If GstrIddeEstado = "A" Then
        Optctacte.Enabled = True
        ctnmontofactu.Enabled = True
        OptAdelanto.Enabled = False
     Else
        Optctacte.Enabled = False
        ctnmontofactu.Enabled = False
        OptAdelanto.Enabled = False
     End If
   Else  ' Se tiene que deshabilitar la cuenta corriente
     If MintTipoCliente = 2 Then
        OptAdelanto.Enabled = True
        Optctacte.Enabled = False
        If MintCustomer_user9 = 1 Then
           ctnmontofactu.Enabled = True
        End If
     Else
        Optctacte.Enabled = False
        ctnmontofactu.Enabled = False
        OptAdelanto.Enabled = False
     End If
   End If
                            
   If IsNull(MrsDatosCabeceraTemporal!MONEDACREDITO) Then
      GstrMonedaLimiteCredito = Empty
   Else
      GstrMonedaLimiteCredito = MrsDatosCabeceraTemporal!MONEDACREDITO
   End If
        
   ' Si la Moneda está en Blanco se asume la moneda de la caja
     
   If Trim(GstrMonedaLimiteCredito) = Empty Then
      GstrMonedaLimiteCredito = GStrMonedaCaja
   End If
     
   If GstrMonedaLimiteCredito = GstrCodMonedaBase Then
      'Establecer Nombres de las Etiquetas
      'Con la Moneda de la Caja por defecto
       lbldescafecto.Caption = "Subtotal (Afecto) " & GstrSimboloMonedaBase
       lbldescNoafecto.Caption = "No Afecto " & GstrSimboloMonedaBase
       lbldesIgv.Caption = "IGV " & GstrSimboloMonedaBase
       lbldesTotal.Caption = "Total " & GstrSimboloMonedaBase
   Else
       lbldescafecto.Caption = "Subtotal (Afecto) " & GstrSimboloMonedaExt
       lbldescNoafecto.Caption = "No Afecto " & GstrSimboloMonedaExt
       lbldesIgv.Caption = "IGV " & GstrSimboloMonedaExt
       lbldesTotal.Caption = "Total " & GstrSimboloMonedaExt
   End If
      
   GstrTipodeCambio = MrsDatosCabeceraTemporal!TIPODECAMBIO
   GdblMontoTipoCambio = MrsDatosCabeceraTemporal!MONTOTIPOCAMBIO
   GintDiasdeGracia = MrsDatosCabeceraTemporal!DIASDEGRACIA
            
   GdblLimiteCredito = MrsDatosCabeceraTemporal!LIMITECRED
   GdblDeudaVigente = MrsDatosCabeceraTemporal!DEUDACLIENTE
   GdblSaldoDisponible = GdblLimiteCredito - GdblDeudaVigente
   GdblMontoExtra = MrsDatosCabeceraTemporal!MTOSURPLUS
   GblnAfecto = MrsDatosCabeceraTemporal!AFECTO
      
   ' Verificar Si tiene registros en el detalle
   
   EnlazarGrilla (IDblCorrelativo)
           
End Sub

Private Sub dbdocumencliente_KeyUp(KeyCode As Integer, Shift As Integer)
  ' **************************************************************************
  ' En Caso se quiera Modificar
  ' **************************************************************************
  
  If KeyCode = 13 Then
     If Not IsNull(dbdocumencliente.Bookmark) Then
        
        MostrarenIngresdeDatos
        If dbdocumencliente.Columns(13).Text = True Then
           ctntotal.Enabled = True
           ctncantidad.Enabled = False
           ctntotal.SetFocus
        Else
           ctntotal.Enabled = False
           ctncantidad.Enabled = True
           ctncantidad.SetFocus
        End If
        GModificandoReg = True
        Exit Sub
       
     End If
  End If
  
  ' **************************************************************************
  ' En Caso se quiera Eliminar
  ' **************************************************************************
   
  If KeyCode = vbKeyF3 Then
     cmdeliminar.SetFocus
     cmdeliminar_Click
     Exit Sub
  End If
        
  If KeyCode = vbKeyF7 Then
     OptEfectivo.SetFocus
     If cmdaceptarventa.Visible = True Then
        cmdaceptarventa_Click
     Else
       If cmdaceptarprodadi.Visible = True Then
          cmdaceptarprodadi_Click
       End If
     End If
  End If
  If KeyCode = vbKeyF8 Then
     Opttarjeta.SetFocus
     If cmdaceptarventa.Visible = True Then
        cmdaceptarventa_Click
     Else
       If cmdaceptarprodadi.Visible = True Then
          cmdaceptarprodadi_Click
       End If
     End If
     
  End If
  
  If KeyCode = vbKeyF9 Then
    If OptAdelanto.Enabled = True Then
       OptAdelanto.SetFocus
       If cmdaceptarventa.Visible = True Then
          cmdaceptarventa_Click
       Else
         If cmdaceptarprodadi.Visible = True Then
           cmdaceptarprodadi_Click
         End If
       End If
    End If
  End If
  
  If KeyCode = vbKeyF12 Then
    If Optctacte.Enabled = True Then
       Optctacte.SetFocus
       If cmdaceptarventa.Visible = True Then
          cmdaceptarventa_Click
       Else
         If cmdaceptarprodadi.Visible = True Then
           cmdaceptarprodadi_Click
         End If
       End If
    End If
  End If
    
End Sub

Private Sub dbdocumencliente_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************
End Sub

Private Sub dbdocumencliente_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
End Sub

Private Sub Form_Activate()
   VerPantallaLogo = True  'Activa pantalla de presentacion de logo
   Label10.Caption = VerPantallaLogo '***************
    'lineas nuevas
   If GIntVentaAutoCombust = 0 Then
     If pbderecho_consultar = False Then
         Unload Me
     End If
   End If
   
   'Saber
   
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode <> 0 Then 'Se trecleo algo en pantalla
      'Se activa flag para visualizar ventana logo
      VerPantallaLogo = False 'No se visualize
      tmrLogo.Enabled = False
      Label10.Caption = VerPantallaLogo '*****************
   End If
   
   If KeyCode = 27 Then
      If MsgBox("Seguro que desea Cancelar los Cambios", vbYesNo + vbQuestion, "Advertencia") = vbYes Then
           LimpiarVariablesPublicas
           GLimpiarDatosdePantalla
           If GIntVentaAutoCombust = 1 Then
              Unload Me
           End If
      End If
  End If
'@ Jorge: los vendedores ya no podran hacer cierre X o cierre Z -------------------
'  en la etiqueta lblmensaje fue quitado: - Cambio de Turno [F5]  -  Cierre X [F11]  -  CierreZ [F6]
'  If KeyCode = vbKeyF11 Then
'     If GIntVentaAutoCombust = 0 Then
'        FCierreX_Playa.Show vbModal
'     End If
'  End If
'
'  If KeyCode = vbKeyF6 Then
'    If GIntVentaAutoCombust = 0 Then
'        FCierreZ_PLaya.Show vbModal
'    End If
'  End If
'@ TAMPOCO PODRAN CONFIRMAR SU CAMBIO DE TURNO--------------------------------------
'  If KeyCode = vbKeyF5 Then
'    If GIntVentaAutoCombust = 0 Then
'     GintTurnoaCambiar = GobjFacturacionCombust.ObtenerTurnoaCambiar
'     If GintTurnoaCambiar <> -1 Then
'        FSeleccionTurno.Show vbModal
'     Else
'        MsgBox "No existe Turno Configurado", vbDefaultButton1 + vbExclamation, "Advertencia"
'     End If
'    End If
'  End If
  
  
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
  
  If KeyCode = vbKeyF7 Then
     OptEfectivo.SetFocus
     If cmdaceptarventa.Visible = True Then
        cmdaceptarventa_Click
     Else
       If cmdaceptarprodadi.Visible = True Then
          cmdaceptarprodadi_Click
       End If
     End If
  End If
  
  If KeyCode = vbKeyF8 Then
     Opttarjeta.SetFocus
     If cmdaceptarventa.Visible = True Then
        cmdaceptarventa_Click
     Else
       If cmdaceptarprodadi.Visible = True Then
          cmdaceptarprodadi_Click
       End If
     End If
     
  End If
  
  If KeyCode = vbKeyF9 Then
    If OptAdelanto.Enabled = True Then
       OptAdelanto.SetFocus
       If cmdaceptarventa.Visible = True Then
          cmdaceptarventa_Click
       Else
         If cmdaceptarprodadi.Visible = True Then
           cmdaceptarprodadi_Click
         End If
       End If
    End If
  End If
  
  If KeyCode = vbKeyF12 Then
    If Optctacte.Enabled = True Then
       Optctacte.SetFocus
       If cmdaceptarventa.Visible = True Then
          cmdaceptarventa_Click
       Else
         If cmdaceptarprodadi.Visible = True Then
           cmdaceptarprodadi_Click
         End If
       End If
    End If
  End If
 
  
End Sub

Private Sub Form_Load()
sknVentaComb.LoadSkin (App.Path & "\Skins\B-Studio.skn")
sknVentaComb.ApplySkin (Me.hWnd)
'sknVentaComb.ApplyColors = True
            
   Screen.MousePointer = 11
   Me.KeyPreview = True
  'Establecer Medidas del Formulario
       
'   Me.Width = 11940
'   Me.Height = 3900
'   Me.Top = 50
'   Me.Left = 30
    
  'Instanciar los Objetos
  
   Instanciar_Objetos
   
   ctncantidad.Enteros = 10
   ctncantidad.Decimales = GintDecStock
   ctncantidad.ValorPorDefecto
   
   ctntotal.Enteros = 10
   ctntotal.Decimales = GintDecPrecio
   ctntotal.ValorPorDefecto
   
   ctnmontofactu.Enteros = 8
   ctnmontofactu.Decimales = GintDecResultado
   ctnmontofactu.ValorPorDefecto
   
   ' Esta Variable Me Permite determinar si esta pantalla se está levantando
   ' de la pantalla de transacciones pendientes
   
   
   If GblnVienedePendientes = True Then
      
      ' Hay que cargar las variables del Cliente y Verificar
      ' si existe un Detalle para Mostrar la parte del Detalle
      Set MrsDatosCabeceraTemporal = GobjFacturacionCombust.ObtenerDatosCabeceraTemporal(FTranspendientes.lblcorrelativo)
      
      'Llamar a una función  que cargue los datos del cliente (PENDIENTES)
      MDblIdentificador = FTranspendientes.lblcorrelativo
      CargarTransPendiente (MDblIdentificador)
      ' Si el DbGrid de cargo con mas de un Registro
      If MrsGrilla.RecordCount >= 1 Then
         cmdaceptarventa.Visible = False
         dbdocumencliente.Enabled = True
         cmddetalleproductos.Enabled = True
         cmdaceptarprodadi.Enabled = True
         cmdcancelar.Enabled = True
         Me.Height = 8865
         HabiDeshabiTabs (True)
      End If
      ' Se establece la Variable a un Cliente Asignado
      MBlndatosasignados = True
   Else
     'Limpiar las cajas de Texto
   
      txtcodcliente.Text = Empty
      txtruc.Text = Empty
      txtrazonsocial.Text = Empty
      txtdireccion.Text = Empty
      txtcara.Text = Empty
     
     'Establecer Nombres de las Etiquetas
     'Con la Moneda de la Caja por defecto
  
      lbldescafecto.Caption = "Subtotal (Afecto) " & GstrSimboloMoneda
      lbldescNoafecto.Caption = "No Afecto " & GstrSimboloMoneda
      lbldesIgv.Caption = "IGV " & GstrSimboloMoneda
      lbldesTotal.Caption = "Total " & GstrSimboloMoneda
      
     ' No hay Ningún Cliente Asignado
   
      MBlndatosasignados = False
     
     ' Por defecto Todos son Afectos
     
      GblnAfecto = True
      
     ' Deshabilitar la Ctacte
      
      Optctacte.Enabled = False
      ctnmontofactu.Enabled = False
       
     ' Deshabilitar Adelanto
      
      OptAdelanto.Enabled = False
       
     ' Hay que Obtener el Correlativo y enlazar la Grilla
     ' Este Correlativo en el Caso que sea Facturación Automática se carga al iniciar una
     ' nueva transaccion al credito
         
     ' Si la Facturación es Manual el Correlativo se Carga cada vez que se
     ' inicie una nueva transacción Manual
     
     ' Cuando se llame a esta pantalla desde una modificacion hay
     ' que cargar el correlativo de la Cabecera
      
      HabiDeshabiTabs (False)
      MDblIdentificador = MobjCorrelativo.ObtenerCorrelativo(GCUSERID)
      EnlazarGrilla (MDblIdentificador)
       
   End If
       
   ' Preguntar si la Venta es Manual
   If GIntVentaAutoCombust = 0 Then
      Call gseguridad(Me)
      If pbderecho_consultar Then
            ObtenerConfiguracionTicket
            MnuOperaciones.Visible = True
            
            cmdaceptarventa.Visible = False
            lblcara.Visible = False
            txtcara.Visible = False
            lblvendedor.Visible = False
            
            'Se Habilitala Grilla
            dbdocumencliente.Enabled = True
              
            'Como es Manual el Boton de Detalle de Productos
            'está presionado por defecto
              
            cmddetalleproductos.Visible = False
            cmdaceptarprodadi.Enabled = True
            cmdcancelar.Enabled = True
'            Me.Height = 8865
'            lblmensaje.Visible = True
'            MnuOperaciones.Visible = False **********45*************
            HabiDeshabiTabs (True)
     Else
       MsgBox ("No tiene Derechos para Ingresar a Venta Combustible "), vbCritical + vbDefaultButton1, "Mensaje"
     End If
   Else  'La Facturacion es Automatica
'      MnuOperaciones.Visible = False *********45*************
            
      If GblnVienedePendientes = False Then
'         Me.Height = 3900
         HabiDeshabiTabs (False)
      End If
   End If
   Me.Caption = "Facturación Combustible (05.020.00)" & Space(45) & GstrPuntodeVenta & " [" & GstrTerminal & "] " & "Fecha de Proceso [" & GDatFechaProcesoVentas & "]"
   lblFecha.Caption = "Chincha   -   ICA   " & CStr(Format(Date, "Long Date"))
   
   'Me.Caption = "Facturación Combustible (05.020.00)" & Space(87) & "Fecha de Proceso [" & GDatFechaProcesoVentas & "]"
   Screen.MousePointer = 0

    
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

'    MsgBox CStr(Button) & " " & CStr(X) & " " & CStr(Y)


End Sub

Private Sub Form_Unload(Cancel As Integer)
   'Destruir Instancias de los Objetos
    
   ' Variable que Indica si la Transaccion vino de pendiente
    MstrCaraInicial = Empty
    Destruir_Instancias
End Sub

Private Sub Fratipo_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************
End Sub


Private Sub Fratipo_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
End Sub


Private Sub mnucambTurnVend_Click()
  GintTurnoaCambiar = GobjFacturacionCombust.ObtenerTurnoaCambiar
  If GintTurnoaCambiar <> -1 Then
     FSeleccionTurno.Show vbModal
  Else
     MsgBox "No existe Turno Configurado"
  End If
End Sub

Private Sub MnuCierrex_Click()
  FCierreX_Playa.Show vbModal
End Sub

Private Sub mnucierrez_Click()
  FCierreZ_PLaya.Show vbModal
End Sub

Private Sub OptAdelanto_Click()
  Imgtarjeta.Visible = False
  Imgefectivo.Visible = False
  ImgCtacte.Visible = False
  ImgAdelanto.Visible = True
End Sub

Private Sub OptAdelanto_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
     If cmdaceptarventa.Enabled = True And cmdaceptarventa.Visible = True Then
        'cmdaceptarventa.SetFocus
        If ctnmontofactu.Enabled = True Then
           ctnmontofactu.SetFocus
        Else
           cmdaceptarventa.SetFocus
        End If
     Else
        txtcodigo.SetFocus
     End If
  End If
End Sub

Private Sub Optctacte_Click()

  ImgCtacte.Visible = True
  Imgefectivo.Visible = False
  Imgtarjeta.Visible = False
  ImgAdelanto.Visible = False
  
End Sub

Private Sub Optctacte_KeyPress(KeyAscii As Integer)
   '@ Jorge: ERROR!!!!!
   On Error Resume Next '@MODIFICADO
   If KeyAscii = 13 Then
       ctnmontofactu.SetFocus
   End If
End Sub

Private Sub Optctacte_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************
End Sub

Private Sub Optctacte_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
End Sub

Private Sub OptEfectivo_Click()
  
  Imgefectivo.Visible = True
  Imgtarjeta.Visible = False
  ImgCtacte.Visible = False
  ImgAdelanto.Visible = False
  
  'Como no es Crédito Blanqueo el Monto a Facturar
   ctnmontofactu.ValorPorDefecto
  
End Sub

Private Sub OptEfectivo_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      If cmdaceptarventa.Enabled = True And cmdaceptarventa.Visible = True Then
         cmdaceptarventa.SetFocus
      Else
         txtcodigo.SetFocus
      End If
   End If
End Sub

Private Sub OptEfectivo_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************
End Sub

Private Sub OptEfectivo_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
End Sub

Private Sub Opttarjeta_Click()
  Imgtarjeta.Visible = True
  Imgefectivo.Visible = False
  ImgCtacte.Visible = False
  ImgAdelanto.Visible = False
  'Como no es Crédito Blanqueo el Monto a Facturar
   ctnmontofactu.ValorPorDefecto

End Sub
Public Function GAsignarDatosdeProducto(ByVal StrCodigodeArticulo As String) As String
 Dim LStrTipodeCambio As String
 Dim LstrMensaje As String
  '******************************************************
  'Capturar Datos Básicos del Producto
  '******************************************************
  ' Aquí Debo Invocar a una Función de la libreria que me retorna los
  ' valores del artículo y volverlos a cargar
    
 Set MrsProducto = GobjFacturacionCombust.ObtenerDatosdeArticulo(txtcodcliente.Text, StrCodigodeArticulo)
       
 If MrsProducto!encontrado = 0 Then
    LstrMensaje = "Código de Artículo no Existe"
    GAsignarDatosdeProducto = LstrMensaje
    Exit Function
 End If
       
       
 If MrsProducto!Status = True Then
 
    If MrsProducto!stksales = False Then
    
        If MrsProducto!STKFISI = False Then
                  
                 txtcodigo.Text = MrsProducto!SKU
                  
                 'Se tiene que Verificar que el Artículo no este repetido en el detalle
                  
                 If GAgregandoReg = True Then
                   If GobjFacturacionCombust.ExisteArticuloenDetalle(txtcodigo.Text, MDblIdentificador) = True Then
                      LstrMensaje = "Código de Artículo ya Fue Registrado"
                      GAsignarDatosdeProducto = LstrMensaje
                      Exit Function
                   End If
                 End If
                 
                 If IsNull(MrsProducto!altern) Then
                  MStrCodigoAlternativo = Empty
                 Else
                  MStrCodigoAlternativo = MrsProducto!altern
                 End If
                 
                 Mstrdescripcion = MrsProducto!DESCR
                 
                 MdblCostoBase = MrsProducto!STDCOSTPEN
                 MdblCostoExt = MrsProducto!STDCOSTUSD
                                                                
                 ' Es de Venta en Playa ----------
                 If MrsProducto!STKfuel = True Then
                    If GIntVentaAutoCombust = 1 Then
                       If MrsProducto!VENTAENAUTO = 1 Then
                            If GstrCategoriaFuels = MrsProducto!CLASSID Then ' Si es Combustible
                               MIntCombustible = 1
                            Else
                               MIntCombustible = 0
                            End If
                       Else
                         ' Si es que está en Venta Automática no se puede despachar Combustible
                          If GstrCategoriaFuels = MrsProducto!CLASSID Then ' Si es Combustible
                             MIntCombustible = 1
                             LstrMensaje = "No se puede Despachar Combustible en Venta Automática"
                             GAsignarDatosdeProducto = LstrMensaje
                             Exit Function
                          Else
                             MIntCombustible = 0
                          End If
                       End If
                    Else
                       If GstrCategoriaFuels = MrsProducto!CLASSID Then ' Si es Combustible
                          MIntCombustible = 1
                       Else
                          MIntCombustible = 0
                       End If
                    End If
                 Else
                    LstrMensaje = "Artículo no se puede venderse en Playa"
                    GAsignarDatosdeProducto = LstrMensaje
                    Exit Function
                 End If
                ' ---------------------------------
                       
                 If MIntCombustible = 1 Then   ' Si es Combustible
                    ctncantidad.Enabled = False
                    ctntotal.Enabled = True
                 Else
                    ctncantidad.Enabled = True
                    ctntotal.Enabled = False
                 End If
                 
                 
                 MintInventariable = MrsProducto!STKITEM
                 MdblImpuestoIgv = MrsProducto!taxValue
                 
                 ' Precio del InventoryDat
                 
                 MdblPrecioDat = MrsProducto!preciodat
                 ' Este Precio Vendría ser el Precio de Facturación
                 
                 MdblPrecio = MrsProducto!precio
                                  
                 MStrMonedaPrecio = MrsProducto!curyid
                 
                '******************************************************
                'Manejo de los Precios
                '******************************************************
                      
                 If GstrTipodeCambio = Empty Then
                    LStrTipodeCambio = GstrTipoCambioVentas
                 Else
                    ' Si es que se carga el Tipo de Cambio del Cliente
                    LStrTipodeCambio = GstrTipodeCambio
                 End If
                     
                '********************************************************************
                ' Calculo del Precio en Moneda Base y Extranjera (Incluyen IGV)
                '********************************************************************
                
                 If MStrMonedaPrecio = GstrCodMonedaBase Then
                    MDblPrecioMonBase = MdblPrecio
                    MDblPrecioMonExtranjera = MobjVentasGeneral.ConvertirMoneda(MdblPrecio, MStrMonedaPrecio, GstrMonedaExtranjera, GDatFechaProcesoVentas, LStrTipodeCambio, GintDecPrecio)
                    MDblPrecioDatMonBase = MdblPrecioDat
                    MDblPrecioDatExtranjera = MobjVentasGeneral.ConvertirMoneda(MdblPrecioDat, MStrMonedaPrecio, GstrMonedaExtranjera, GDatFechaProcesoVentas, LStrTipodeCambio, GintDecPrecio)
                 Else
                    MDblPrecioMonBase = MobjVentasGeneral.ConvertirMoneda(MdblPrecio, MStrMonedaPrecio, GstrCodMonedaBase, GDatFechaProcesoVentas, LStrTipodeCambio, GintDecPrecio)
                    MDblPrecioMonExtranjera = MdblPrecio
                    MDblPrecioDatMonBase = MobjVentasGeneral.ConvertirMoneda(MdblPrecioDat, MStrMonedaPrecio, GstrCodMonedaBase, GDatFechaProcesoVentas, LStrTipodeCambio, GintDecPrecio)
                    MDblPrecioDatExtranjera = MdblPrecioDat
                 End If
                  
                 ' Determinar el Precio en Moneda de la Caja (Incluye IGV)
                 ' Si la Moneda del Cliente está en Blanco entonces se
                 ' asume la moneda de la caja
                 
                 'GstrMonedaLimiteCredito / GStrMonedaCaja
                 'GStrMonedaCaja = GstrCodMonedaBase
                 If Trim(GstrMonedaLimiteCredito) = Empty Then
                    'TE TIENE QUE FIJAR ES ESTA PARTE Y ADEMAS VERIFICAR SI LA MONEDA PUEDE SER NULL
                    If GStrMonedaCaja = GstrCodMonedaBase Then
                       MdblPrecioMonCaja = MDblPrecioMonBase
                       MdblPrecioDatMonCaja = MDblPrecioDatMonBase
                       If MIntCombustible = 0 Then  ' Si el producto no es un Combustible
                          If MdblPrecioMonCaja < MdblCostoBase Then
                             ' Generar Mensaje
                               LstrMensaje = "Precio no puede ser menor al Costo"
                               GAsignarDatosdeProducto = LstrMensaje
                               Exit Function
                          End If
                       End If
                    Else
                       MdblPrecioMonCaja = MDblPrecioMonExtranjera
                       MdblPrecioDatMonCaja = MDblPrecioDatExtranjera
                       If MIntCombustible = 0 Then  ' Si el producto no es un Combustible
                         If MdblPrecioMonCaja < MdblCostoExt Then
                             ' Generar Mensaje
                               LstrMensaje = "Precio no puede ser menor al Costo"
                               GAsignarDatosdeProducto = LstrMensaje
                               Exit Function
                         End If
                       End If
                    End If
                 Else
                    If GstrMonedaLimiteCredito = GstrCodMonedaBase Then
                       'Si la Moneda del Cliente no está Vacía entonces la caja asume la moneda del cliente
                       MdblPrecioMonCaja = MDblPrecioMonBase
                       MdblPrecioDatMonCaja = MDblPrecioDatMonBase
                       If MIntCombustible = 0 Then  ' Si el producto no es un Combustible
                          If MdblPrecioMonCaja < MdblCostoBase Then
                             ' Generar Mensaje
                               LstrMensaje = "Precio no puede ser menor al Costo"
                               GAsignarDatosdeProducto = LstrMensaje
                               Exit Function
                          End If
                       End If
                    Else
                       MdblPrecioMonCaja = MDblPrecioMonExtranjera
                       MdblPrecioDatMonCaja = MDblPrecioDatExtranjera
                       If MIntCombustible = 0 Then  ' Si el producto no es un Combustible
                          If MdblPrecioMonCaja < MdblCostoExt Then
                             ' Generar Mensaje
                               LstrMensaje = "Precio no puede ser menor al Costo"
                               GAsignarDatosdeProducto = LstrMensaje
                               Exit Function
                          End If
                       End If
                    End If
                    
                 End If
                                  
                 ' Los precios en la Grilla se deben Mostrar con IGV, pero vienen sin IGV
                 lbldescripcion.Caption = Mstrdescripcion
                 lblprecio.Caption = GFormatodeNumero(MdblPrecioMonCaja, GintDecPrecio)
                 
                 If Val(lblprecio.Caption) = 0 Then
                    LstrMensaje = "Precio de Artículo no Puede ser Cero"
                    GAsignarDatosdeProducto = LstrMensaje
                    Exit Function
                 End If
                 
            Else
               LstrMensaje = "Toma de Inventario está Activada para el artículo"
               GAsignarDatosdeProducto = LstrMensaje
               Exit Function
            End If
     Else
        LstrMensaje = "Artículo Bloqueado para Venta"
        GAsignarDatosdeProducto = LstrMensaje
        Exit Function
     End If
    
Else
   If IsNull(MrsProducto!precio) Then
     LstrMensaje = "Artículo no Tiene Precio Registrado"
     GAsignarDatosdeProducto = LstrMensaje
     Exit Function
   Else
     LstrMensaje = "Artículo Desactivado, No se puede Vender"
     GAsignarDatosdeProducto = LstrMensaje
     Exit Function
   End If
End If
        
        
End Function
Public Sub GAsignarDatosdeCliente()

   txtruc.Text = Trim(GrsCliente!ruc)
   txtrazonsocial.Text = GrsCliente!RAZONSOCIAL
   txtdireccion.Text = GrsCliente!DIRECCION
   
   MintCustomer_user9 = GrsCliente!user9
   
   If IsNull(GrsCliente!credito) Then
     MintTipoCliente = 0
   Else
     MintTipoCliente = GrsCliente!credito
   End If
   
   If Not IsNull(GrsCliente!TIPOCLIENTE) Then
     GstrTipoClienteDescr = GrsCliente!TIPOCLIENTE
   Else
     GstrTipoClienteDescr = Empty
   End If
   ' Variables de Manejo para el Límite de Crédito
   
   GstrIddeEstado = GrsCliente!IDESTADO ' A,H,R,I,O
   GstrDescrEstado = GrsCliente!Estado
      
   If IsNull(GrsCliente!MONEDACREDITO) Then
      GstrMonedaLimiteCredito = Empty
   Else
      GstrMonedaLimiteCredito = GrsCliente!MONEDACREDITO
   End If
        
   ' Si la Moneda está en Blanco se asume la moneda de la caja
   ' Por si se quiera ingresar productos
   
   If Trim(GstrMonedaLimiteCredito) = Empty Then
      GstrMonedaLimiteCredito = GStrMonedaCaja
   End If
   
   If GstrMonedaLimiteCredito = GstrCodMonedaBase Then
      'Establecer Nombres de las Etiquetas
      'Con la Moneda de la Caja por defecto
      lbldescafecto.Caption = "Subtotal (Afecto) " & GstrSimboloMonedaBase
      lbldescNoafecto.Caption = "No Afecto " & GstrSimboloMonedaBase
      lbldesIgv.Caption = "IGV " & GstrSimboloMonedaBase
      lbldesTotal.Caption = "Total " & GstrSimboloMonedaBase
   Else
      lbldescafecto.Caption = "Subtotal (Afecto) " & GstrSimboloMonedaExt
      lbldescNoafecto.Caption = "No Afecto " & GstrSimboloMonedaExt
      lbldesIgv.Caption = "IGV " & GstrSimboloMonedaExt
      lbldesTotal.Caption = "Total " & GstrSimboloMonedaExt
   End If
      
   GstrTipodeCambio = GrsCliente!TIPODECAMBIO
   
   'If GstrMonedaLimiteCredito = GStrMonedaCaja Then
    GdblMontoTipoCambio = MobjVentasGeneral.ObtenerMontoTipodeCambio(GstrCodMonedaBase, GstrMonedaExtranjera, GDatFechaProcesoVentas, GstrTipodeCambio)
   'Else
      'GdblMontoTipoCambio = MobjVentasGeneral.ObtenerMontoTipodeCambio(GstrMonedaLimiteCredito, GStrMonedaCaja, GDatFechaProcesoVentas, GstrTipodeCambio)
   'End If
    
   GintDiasdeGracia = GrsCliente!DIASDEGRACIA
            
   GdblLimiteCredito = MobjVentasGeneral.ConvertirMoneda(GrsCliente!LIMITECRED, GstrMonedaLimiteCredito, GStrMonedaCaja, GDatFechaProcesoVentas, GstrTipodeCambio, GintDecResultado)
   GdblDeudaVigente = MobjVentasGeneral.ConvertirMoneda(GrsCliente!DEUDACLIENTE, GstrMonedaLimiteCredito, GStrMonedaCaja, GDatFechaProcesoVentas, GstrTipodeCambio, GintDecResultado)
   GdblSaldoDisponible = GdblLimiteCredito - GdblDeudaVigente
   GdblMontoExtra = MobjVentasGeneral.ConvertirMoneda(GrsCliente!EXTRA, GstrMonedaLimiteCredito, GStrMonedaCaja, GDatFechaProcesoVentas, GstrTipodeCambio, GintDecResultado)
   GblnAfecto = GrsCliente!AFECTO
         
   'Variable que Indica que los Datos del Cliente
   'Fueron Cargados con éxito
      
   MBlndatosasignados = True
    
End Sub

Private Sub Opttarjeta_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      If cmdaceptarventa.Enabled = True And cmdaceptarventa.Visible = True Then
         cmdaceptarventa.SetFocus
      Else
         txtcodigo.SetFocus
      End If
   End If
End Sub

Private Sub Opttarjeta_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************
End Sub

Private Sub Opttarjeta_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
End Sub

Private Sub tmrLogo_Timer()
    'Presenta la ventana de presentacion del sistema
    If VerPantallaLogo = True Then
       FVentaCombustible.Show vbModal
    End If
End Sub

Private Sub txtcara_Change()
 If MBlnCaraAsignada = True Then
    lblvendedor.Caption = Empty
 End If
End Sub
Private Sub txtcara_GotFocus()
 txtcara.BackColor = vbCyan
End Sub

Private Sub txtcara_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyDown Then
     txtcara_KeyPress (13)
  End If
  If KeyCode = vbKeyUp Then
     txtdireccion.SetFocus
  End If
End Sub

Private Sub txtcara_KeyPress(KeyAscii As Integer)
    KeyAscii = GBloqueaCaracter(KeyAscii)
    If Not IsNumeric(Chr(KeyAscii)) Then
      If (KeyAscii = 8 Or KeyAscii = 13 Or KeyAscii = 32) Then
          If KeyAscii = 13 Then
             If Trim(txtcara.Text) <> Empty Then
               Dim LstrMensaje As String
               MBlnCaraAsignada = False
               LstrMensaje = MobjDispensador.ValidarCaras(txtcara.Text, GstrPuntodeVenta)
               ' Primero se Tiene que Validar que las caras sean Validas
               If LstrMensaje <> Empty Then
                  MsgBox LstrMensaje, vbDefaultButton1 + vbExclamation, "Advertencia"
                  MBlnCaraAsignada = False
                  txtcara.Text = Empty
                  Exit Sub
               End If
                 
               ' Hay que Obtener el Vendedor
                 Set MrsDatosVendedorCara = GobjFacturacionCombust.ObtenerVendedordeCara(txtcara.Text)
                                                        
                  If Not MrsDatosVendedorCara.EOF Then
                    If Not IsNull(MrsDatosVendedorCara!SALESPERID) Then
                       lblvendedor.Caption = MrsDatosVendedorCara!SALESPERID
                    Else
                       MsgBox "No existe Vendedor configurado para la cara " & Trim(txtcara.Text), vbDefaultButton1 + vbExclamation, "Advertencia"
                       MBlnCaraAsignada = False
                       txtcara.SetFocus
                       Exit Sub
                    End If
                  Else
                     MsgBox "No existe Vendedor configurado para la cara " & Trim(txtcara.Text), vbDefaultButton1 + vbExclamation, "Advertencia"
                     MBlnCaraAsignada = False
                     txtcara.SetFocus
                     Exit Sub
                  End If
                  
                 Set MrsDatosVendedorCara = Nothing
                 'Fin de Obtener el Vendedor
                 MBlnCaraAsignada = True
             End If
             
             ' Preguntar por el tipo de cliente
             ' De acuerdo a esto nos Ubicamos en los OptionsButton
             
              If MintTipoCliente = 0 Then
                 OptEfectivo.SetFocus
              Else
                 If MintTipoCliente = 1 Then
                    If Optctacte.Enabled = True Then
                       Optctacte.SetFocus
                    Else
                       OptEfectivo.SetFocus
                    End If
                 Else
                   If MintTipoCliente = 2 Then
                      OptAdelanto.SetFocus
                   End If
                 End If
              End If
          End If
      Else
          KeyAscii = 0
      End If
    End If
End Sub

Private Sub txtcara_LostFocus()
 If Trim(txtcara.Text) <> Empty Then
    Dim LstrMensaje As String
    LstrMensaje = MobjDispensador.ValidarCaras(txtcara.Text, GstrPuntodeVenta)
    ' Primero se Tiene que Validar que las caras sean Validas
    If LstrMensaje <> Empty Then
       MsgBox LstrMensaje, vbDefaultButton1 + vbExclamation, "Advertencia"
       txtcara.Text = Empty
       txtcara.SetFocus
       Exit Sub
    End If
 End If

 txtcara.BackColor = vbWhite
End Sub

Private Sub txtcodcliente_Change()
  If MBlndatosasignados = True Then
     LimpiarDatosdelCliente
     ' Deshabilitar la Ctacte
     
     Optctacte.Enabled = False
     ctnmontofactu.ValorPorDefecto
     ctnmontofactu.Enabled = False
     
     'Tambien se tiene que limpiar las Variables Cargadas para este cliente
         
  End If
End Sub

Private Sub txtcodcliente_GotFocus()

   txtcodcliente.BackColor = vbCyan
End Sub

Private Sub txtcodcliente_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyF2 Then
       Dim LArrayBusqueda(1 To 3, 1 To 3) As Variant
       Dim LrsClientesAyuda As ADODB.Recordset
       
       Gintayuda = 1
       Set LrsClientesAyuda = MobjVentasGeneral.ListarClientesAyuda
              
       LArrayBusqueda(1, 1) = "CUSTIDSS"
       LArrayBusqueda(1, 2) = "Código"
       LArrayBusqueda(1, 3) = 1200
       LArrayBusqueda(2, 1) = "CUSTNAME"
       LArrayBusqueda(2, 2) = "Descripción"
       LArrayBusqueda(2, 3) = 4500
       LArrayBusqueda(3, 1) = "TAXREGNBR"
       LArrayBusqueda(3, 2) = "RUC"
       LArrayBusqueda(3, 3) = 1200
      
       GrecibeUbicacion = 0
       GrecibeColumnaID = Empty
       GrecibeColumnaOpcional = Empty
  
       FBusquedaCombus.GObtenerRegistros LrsClientesAyuda, LArrayBusqueda, 3, 2
       FBusquedaCombus.Show vbModal
       If GrecibeUbicacion <> 0 Then
           txtcodcliente.Text = GrecibeColumnaID
           txtcodcliente_KeyPress (13)
       End If
       Set LrsClientesAyuda = Nothing
  End If
  If KeyCode = vbKeyDown Then
     txtcodcliente_KeyPress (13)
  End If
End Sub

Private Sub txtcodcliente_KeyPress(KeyAscii As Integer)

  KeyAscii = GBloqueaCaracter(KeyAscii)
    
  'RUTINA PARA PERMITIR SOLO NUMEROS
    
  ' If Not IsNumeric(Chr(KeyAscii)) Then
  '    If (KeyAscii = 8 Or KeyAscii = 13 Or KeyAscii = 32) Then
          'Rutina de Control de  Código de cliente
             If KeyAscii = 13 Then
                'Verificar si el código del cliente es valido (es de 11 dígitos)
                                           
                'Aqui se tiene que preguntar por el Tipo de Cliente
                 If Trim(txtcodcliente.Text) = Empty Then
                    ' No se requiere el nombre pero tiene la posibilidad de ingresar nombre
                    ' Deshabilitar la Ctacte
                       OptAdelanto.Enabled = False
                       Optctacte.Enabled = False
                       
                       ctnmontofactu.ValorPorDefecto
                       ctnmontofactu.Enabled = False
                       txtrazonsocial.SetFocus
                 Else
                     'Ha ingresado un Código de Cliente y se tiene que proceder a revisar su Tipo
                       Set GrsCliente = MobjVentasGeneral.ListarDatosdeClienteFactura(txtcodcliente.Text)
                       If GrsCliente.EOF Then
                          ' Si el Cliente no existe ,hay que agregarlo
                          ' Deshabilitar la Ctacte
                            OptAdelanto.Enabled = False
                            Optctacte.Enabled = False
                            
                            ctnmontofactu.ValorPorDefecto
                            ctnmontofactu.Enabled = False
                          ' Asignar el campo codigo cliente al ruc
                           If IsNumeric(txtcodcliente.Text) Then
                            txtruc.Text = txtcodcliente.Text
                            txtruc.Text = Trim(txtruc.Text)
                           End If
                           txtruc.SetFocus
                       Else
                          ' El cliente Existe y hay que mostrar sus datos adicionales
                          ' si es que es por credito (L ó C) O ADELANTO
                          ' caso contrario no se muestra la pantalla de saldos
                           GAsignarDatosdeCliente
              
                           If MintTipoCliente = 1 Then ' Si es del Tipo Crédito o Adelanto
                              'Para Habilitar la Cuenta Corriente tengo que Verificar
                              'si su estado es Activo
                              If GstrIddeEstado = "A" Then
                                 Optctacte.Enabled = True 'NO CREDITO , NO CONTADO ..........:::::::______::::::
                                 Optctacte.Value = True
                                 ctnmontofactu.Enabled = True 'AQUI
                                 GblnconPlacas = GobjFacturacionCombust.VerificarClienteconPlaca(txtcodcliente.Text)
                                 
                                 '@ JORGE: AQUI CODIFICAR PARA REGISTRAR VALES DE CONSUMO INTERNO--------------------
                                 EsValeInterno = False
                                 Optctacte.Caption = "Credito                   [F12]"
                                 If Trim(txtruc.Text) = "20367525135" Then
                                    Optctacte.Caption = "Vale Interno          [F12]"
                                    EsValeInterno = True
                                 End If
                                 '@¨Preparar formato de Numero de Bonus
                                 '-----------------------------------------------------------------------------------
                              Else
                                 Optctacte.Enabled = False
                                 ctnmontofactu.Enabled = False
                              End If
                              txtrazonsocial.SetFocus
                           Else
                              If MintTipoCliente = 2 Then 'El tipo de Cliente es Adelanto
                                 If GstrIddeEstado = "A" Then
                                    OptAdelanto.Enabled = True
                                    OptAdelanto.Value = True
                                    If MintCustomer_user9 = 1 Then
                                      ctnmontofactu.Enabled = True
                                    End If
                                    GblnconPlacas = GobjFacturacionCombust.VerificarClienteconPlaca(txtcodcliente.Text)
                                 Else
                                    OptAdelanto.Enabled = False
                                 End If
                                 txtrazonsocial.SetFocus
                              End If
                              If MintTipoCliente = 0 Then 'El tipo de Cliente es Contado u Otros
                                 ' Deshabilitar la Ctacte
                                   Optctacte.Enabled = False
                                   ctnmontofactu.Enabled = False
                                   GblnconPlacas = GobjFacturacionCombust.VerificarClienteconPlaca(txtcodcliente.Text)
                                   
                                   If txtcara.Visible = True Then
                                      txtcara.SetFocus
                                   Else
                                      'Como es un Cliente Contado / es probable que page en efectivo
                                      OptEfectivo.SetFocus
                                   End If
                            End If ' Fin de Cliente es Credito O Contado
                      End If ' El Cliente Existe
                   End If ' Fin de Código de Cliente no está en Blanco
                   
                End If ' Pertenece al End If de Keyascci 13
             End If ' Fin de Si teclas son 13,8,32
          'Fin de Control de Código de Cliente
  '    Else
  '        KeyAscii = 0
  '    End If
  '  End If
  
  'FIN DE RUTINAS PARA PERMITIR SOLO NUMEROS
  
  End Sub

Private Sub txtcodcliente_LostFocus()
   txtcodcliente.BackColor = vbWhite
   
   If Trim(txtcodcliente.Text) = Empty Then
       ' No se requiere el nombre pero tiene la posibilidad de ingresar nombre
       ' Deshabilitar la Ctacte
                   Optctacte.Enabled = False
                   ctnmontofactu.ValorPorDefecto
                   ctnmontofactu.Enabled = False
                       'txtrazonsocial.SetFocus
   Else
                     'Ha ingresado un Código de Cliente y se tiene que proceder a revisar su Tipo
                    Set GrsCliente = MobjVentasGeneral.ListarDatosdeClienteFactura(txtcodcliente.Text)
                      If GrsCliente.EOF Then
                          ' Si el Cliente no existe ,hay que agregarlo
                          ' Deshabilitar la Ctacte
                            Optctacte.Enabled = False
                            ctnmontofactu.ValorPorDefecto
                            ctnmontofactu.Enabled = False
                          ' Asignar el campo codigo cliente al ruc
                           If IsNumeric(txtcodcliente.Text) Then
                            txtruc.Text = txtcodcliente.Text
                           End If
                           'txtruc.SetFocus
                      Else
                          ' El cliente Existe y hay que mostrar sus datos adicionales
                          ' si es que es por credito (L ó C) O ADELANTO
                          ' caso contrario no se muestra la pantalla de saldos
                           GAsignarDatosdeCliente
              
                          If MintTipoCliente = 1 Then ' Si es del Tipo Crédito o Adelanto
                              'Para Habilitar la Cuenta Corriente tengo que Verificar
                              'si su estado es Activo
                              If GstrIddeEstado = "A" Then
'                                 Optctacte.Enabled = True
                                 Optctacte.Value = True
                                 ctnmontofactu.Enabled = True
                                 GblnconPlacas = GobjFacturacionCombust.VerificarClienteconPlaca(txtcodcliente.Text)
                              Else
                                 Optctacte.Enabled = False
                                 ctnmontofactu.Enabled = False
                              End If
                    
                              'txtrazonsocial.SetFocus
                           Else
                              If MintTipoCliente = 2 Then 'El tipo de Cliente es Adelanto
                                 If GstrIddeEstado = "A" Then
                                    OptAdelanto.Enabled = True
                                    
                                    If MintCustomer_user9 = 1 Then
                                       ctnmontofactu.Enabled = True
                                    End If
                                    
                                    GblnconPlacas = GobjFacturacionCombust.VerificarClienteconPlaca(txtcodcliente.Text)
                                 Else
                                    OptAdelanto.Enabled = False
                                 End If
                              End If
                              If MintTipoCliente = 0 Then 'El tipo de Cliente es Contado u Otros
                                 ' Deshabilitar la Ctacte
                                   Optctacte.Enabled = False
                                   ctnmontofactu.Enabled = False
                                   GblnconPlacas = GobjFacturacionCombust.VerificarClienteconPlaca(txtcodcliente.Text)
                                   
                                   If txtcara.Visible = True Then
                                      'txtcara.SetFocus
                                   Else
                                      'Como es un Cliente Contado / es probable que page en efectivo
                                      'OptEfectivo.SetFocus
                                   End If
                              End If ' Fin de Cliente es Credito O Contado
                           End If ' El Cliente Existe
                        End If
   End If ' Fin de Código de Cliente no está en Blanco
                   
End Sub

Private Sub txtcodcliente_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************

End Sub

Private Sub txtcodcliente_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
End Sub

Private Sub txtcodigo_GotFocus()
  On Error Resume Next
  '************************VALIDACION CLIENTES*********************
  Call ValidacionClientes
'  If ValidacionClientes = False Then
''     Exit Sub
'  End If
  txtcodigo.BackColor = vbCyan
  txtcodigo.SelStart = 0
  txtcodigo.SelLength = Len(txtcodigo.Text)
  
End Sub

Private Sub txtcodigo_KeyDown(KeyCode As Integer, Shift As Integer)
     If KeyCode = vbKeyUp Then
        dbdocumencliente.SetFocus
     End If
     If KeyCode = vbKeyRight Or KeyCode = vbKeyDown Then
        
     End If
           
     If KeyCode = vbKeyF2 Then
       Dim LArrayBusqueda(1 To 4, 1 To 3) As Variant
              
       Gintayuda = 2
       
       LArrayBusqueda(1, 1) = "Codigo"
       LArrayBusqueda(1, 2) = "Código"
       LArrayBusqueda(1, 3) = 1200
       LArrayBusqueda(2, 1) = "Descripcion"
       LArrayBusqueda(2, 2) = "Descripción"
       LArrayBusqueda(2, 3) = 3500
       LArrayBusqueda(3, 1) = "PConvert"
       LArrayBusqueda(3, 2) = "Precio_Venta"
       LArrayBusqueda(3, 3) = 1200
       LArrayBusqueda(4, 1) = "StockActual"
       LArrayBusqueda(4, 2) = "Stock"
       LArrayBusqueda(4, 3) = 1200
       
       GrecibeUbicacion = 0
       GrecibeColumnaID = Empty
       GrecibeColumnaOpcional = Empty
       
       ' Inicializar Variables del Articulo
       GintStatus = 0
       GintBloqueaVentas = 0
       GintEsCombustible = 0
       GintVentCombenAutomatic = 0
  
       FBusquedaCombus.GObtenerRegistros MrsListadoArticulos, LArrayBusqueda, 4, 2, 7500
       '@ Jorge: Modificada la presentacion
'       FBusquedaCombus.DBListar.BackColor = RGB(0, 65, 128)
'       FBusquedaCombus.DBListar.ForeColor = RGB(255, 255, 255)
       FBusquedaCombus.Show vbModal
       If GrecibeUbicacion <> 0 Then
           'Verificar si Artículo está con Status Activo
           
           If GintStatus = 1 Then  ' Está Activo
             If GintBloqueaVentas = 1 Then
                MsgBox "Artículo Bloqueado para Venta", vbDefaultButton1 + vbExclamation, "Advertencia"
                Exit Sub
             End If

             If GIntVentaAutoCombust = 1 Then ' La Venta está en Automática
                ' No se pueden Seleccionar Combustibles
                If GintEsCombustible = 1 Then
                   If GintVentCombenAutomatic = 0 Then
                      MsgBox "No se puede Despachar Combustible en Venta Automática", vbDefaultButton1 + vbExclamation, "Advertencia"
                      Exit Sub
                   End If
                End If
             End If
           Else
              MsgBox "Artículo Desactivado, No se puede Vender ", vbDefaultButton1 + vbExclamation, "Advertencia"
              Exit Sub
           End If
           
           '*****************************************************************
           txtcodigo.Text = GrecibeColumnaID
           lbldescripcion = GrecibeColumnaOpcional
    
           txtcodigo_KeyPress (13)
       End If
    End If

End Sub

Private Sub txtcodigo_KeyPress(KeyAscii As Integer)
KeyAscii = GBloqueaCaracter(KeyAscii)
     
 If KeyAscii = 13 Then
     If Trim(txtcodigo.Text) = Empty Then
        MsgBox "Ingrese Código de Artículo", vbDefaultButton1 + vbExclamation, "Advertencia"
        Exit Sub
     End If
          
     Dim LstrMensaje As String
     GAgregandoReg = True
     LstrMensaje = GAsignarDatosdeProducto(txtcodigo.Text)
     
     If LstrMensaje <> Empty Then
        MsgBox LstrMensaje, vbDefaultButton1 + vbExclamation, "Advertencia"
        LimpiarDatosdeIngreso
        txtcodigo.SetFocus
        GAgregandoReg = False
        Exit Sub
     End If
          
     'Verificar si la Configuracion está en Automáticoo en Manual
     
     If GIntVentaAutoCombust = 1 Then
       ' No se permite ingresar Comsbutibles
       ' Si la Venta está en automático
       ' El Igv del Combustible está incluído
       ' Si se compra algo mas hay que añadirle el Igv
     Else
       ' Si se ingresa Combustible se deshabilita la Cantidad
       ' Se habilita el total
       
     End If
                        
     ' Realizar Validaciones previas : Convertir a Moneda de Caja
     ' Igv si es manual hay que verificar el Impuesto del inventory()afecto o no
     ' si el clienet es afecto se aplica el porcentaje de inventory
     ' si no es afecto no se hace caso al igv del inventory
            
     ' Si se Cargo con éxito el producto entonces habilito el flag de agregando registro
     
     If ctncantidad.Enabled = True Then
        ctncantidad.Text = GFormatodeNumero(1, GintDecStock)
        ctncantidad.SetFocus
     Else
       If ctntotal.Enabled = True Then
          ctntotal.SetFocus
       End If
     End If
     
     'GAgregandoReg = True
            
  End If
  
End Sub

Private Sub txtcodigo_LostFocus()
  txtcodigo.BackColor = vbWhite
End Sub

Private Sub txtcodigo_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************
End Sub

Private Sub txtcodigo_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
End Sub

Private Sub txtdireccion_GotFocus()
'@ VALIDACION DE RUC ----------------------
'If Len(Trim(txtruc.Text)) < 11 Then
'   MsgBox "EL RUC debe tener 11 Dígitos", vbDefaultButton1 + vbExclamation, "Advertencia-TXTDIRECCIOM"
'   txtruc.SetFocus
'   Exit Sub
'End If
'@ ----------------------------------------
  txtdireccion.BackColor = vbCyan
  
End Sub

Private Sub txtdireccion_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyDown Then
     txtdireccion_KeyPress (13)
  End If
  If KeyCode = vbKeyUp Then
     txtrazonsocial.SetFocus
  End If
End Sub

Private Sub txtdireccion_KeyPress(KeyAscii As Integer)
  KeyAscii = GBloqueaCaracter(KeyAscii)
  If KeyAscii = 13 Then
     If txtcara.Visible = True Then
        txtcara.SetFocus
     Else
        If MintTipoCliente = 1 Then 'El Cliente es de Credito (L o C) o Adelanto
          If Optctacte.Enabled = True Then
             Optctacte.SetFocus
          Else
             OptEfectivo.SetFocus
          End If
        Else                        'El Cliente es al Contado
           OptEfectivo.SetFocus
        End If
     End If
  End If
  
End Sub

Private Sub txtdireccion_LostFocus()
  txtdireccion.BackColor = vbWhite
End Sub

Private Sub txtdireccion_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************

End Sub

Private Sub txtdireccion_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
End Sub

Private Sub txtrazonsocial_GotFocus()
'@ VALIDACION DE RUC ----------------------
'If Len(Trim(txtruc.Text)) < 11 Then
'   MsgBox "EL RUC debe tener 11 Dígitos", vbDefaultButton1 + vbExclamation, "Advertencia-TXTRAZONSOCIAL"
'   txtruc.SetFocus
'   Exit Sub
'End If
'@ ----------------------------------------

 txtrazonsocial.BackColor = vbCyan
End Sub

Private Sub txtrazonsocial_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyDown Then
     txtrazonsocial_KeyPress (13)
  End If
  If KeyCode = vbKeyUp Then
     txtruc.SetFocus
  End If
End Sub

Private Sub txtrazonsocial_KeyPress(KeyAscii As Integer)
  
  KeyAscii = GBloqueaCaracter(KeyAscii)
  If KeyAscii = 13 Then
    If Trim(txtrazonsocial.Text) = Empty Then
       If Trim(txtruc.Text) <> Empty Then
          ' Si tiene RUC está obligado a ingresar Razón Social
          MsgBox "Ingrese Razón Social", vbDefaultButton1 + vbExclamation, "Advertencia"
          txtrazonsocial.SetFocus
          Exit Sub
       Else
          'EL ruc está vacío
          If GIntVentaAutoCombust = 1 Then
             txtcara.SetFocus
          Else
             OptEfectivo.SetFocus
          End If
       End If
    Else
       txtdireccion.SetFocus
    End If
  End If
  
End Sub

Private Sub txtrazonsocial_LostFocus()
  txtrazonsocial.BackColor = vbWhite
End Sub

Private Sub txtrazonsocial_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************

End Sub

Private Sub txtrazonsocial_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
End Sub

Private Sub txtruc_GotFocus()
  txtruc.BackColor = vbCyan
End Sub

Private Sub txtruc_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyDown Then
     txtruc_KeyPress (13)
  End If
  If KeyCode = vbKeyUp Then
     txtcodcliente.SetFocus
  End If
End Sub

Private Sub txtruc_KeyPress(KeyAscii As Integer)
     
  KeyAscii = GBloqueaCaracter(KeyAscii)
  
  If Not IsNumeric(Chr(KeyAscii)) Then
    If (KeyAscii = 8 Or KeyAscii = 13 Or KeyAscii = 32) Then
      If KeyAscii = 13 Then
         txtrazonsocial.SetFocus
       End If
    Else
       KeyAscii = 0
    End If
  End If
       
End Sub
Public Sub EnlazarGrilla(ByVal MDblIdentificador As Double)
       
 ' Inicializa Variables -----------------------------------------------------------------
 
 LdblImpuesto = 0
 LdblTotalBase = 0
 LdblTotalExt = 0
 LDblIGVBase = 0
 LDblIGVExt = 0
 LDblSubAfectoBase = 0
 LDblSubAfectoExt = 0
 LDblNoAfectoBase = 0
 LDblNoAfectoExt = 0
            
 ' Fin de Inicializacionde Variables-----------------------------------------------------
      
 Set MrsGrilla = GobjFacturacionCombust.ObtenerDatosTemporal(MDblIdentificador, GintDecResultado)
     
  '***************************************************
  ' Parte que recalcula los Datos de los Resultados
  '***************************************************
  
  If Not MrsGrilla.EOF Then
   MrsGrilla.MoveFirst
   
   'Capturo el Primer Impuesto de la Grilla
   LdblImpuesto = MrsGrilla.Fields("%_Imp")
   'Inicializo la variable si es falso todos son Afectos
   BlnExisteunNoAfecto = False
   'Inicializo la variable Por defecto todos los impuestos son iguales
   BlnTodosLosImpIguales = True
   
   Do While Not MrsGrilla.EOF
     If MrsGrilla!AFECTO = 1 Then
       'Comparo los impuestos para revisar si son iguales
       If MrsGrilla.Fields("%_Imp") <> LdblImpuesto Then
          BlnTodosLosImpIguales = False
       End If
       
       LDblSubAfectoBase = LDblSubAfectoBase + MrsGrilla!SUBTOTALPEN
       LDblSubAfectoExt = LDblSubAfectoExt + MrsGrilla!SUBTOTALUSD
     Else
       LDblNoAfectoBase = LDblNoAfectoBase + MrsGrilla!SUBTOTALPEN
       LDblNoAfectoExt = LDblNoAfectoExt + MrsGrilla!SUBTOTALUSD
       BlnExisteunNoAfecto = True
     End If
     
     LDblIGVBase = LDblIGVBase + MrsGrilla!TAXPEN
     LDblIGVExt = LDblIGVExt + MrsGrilla!TAXUSD
     LdblTotalBase = LdblTotalBase + MrsGrilla!TOTALBASE
     LdblTotalExt = LdblTotalExt + MrsGrilla!TOTALEXTR
     MrsGrilla.MoveNext
   Loop
      
  If BlnExisteunNoAfecto = False Then ' Es decir Todos son Afectos
      ' Ademas se tiene que verificar que que todos los impuestos son iguales
      If BlnTodosLosImpIguales = True Then
        LDblSubAfectoBase = GFormatodeNumero(LdblTotalBase / (1 + (LdblImpuesto / 100)), GintDecResultado)
        LDblSubAfectoExt = GFormatodeNumero(LdblTotalExt / (1 + (LdblImpuesto / 100)), GintDecResultado)
        LDblIGVBase = LdblTotalBase - LDblSubAfectoBase
        LDblIGVExt = LdblTotalExt - LDblSubAfectoExt
      End If
   End If
   
  End If
  
  '*********************************************************************************
  'Esta parte asigna a las Etiquetas de los Resultados los Valores Calculados arriba
  'Teniendo en Consideración la Moneda del Cliente y de la Caja
  '*********************************************************************************
  
  If Trim(GstrMonedaLimiteCredito) = Empty Then
    If GStrMonedaCaja = GstrCodMonedaBase Then
       lblSubtotalafecto.Caption = GFormatodeNumero(LDblSubAfectoBase, GintDecResultado)
       lblSubtotalNoafecto.Caption = GFormatodeNumero(LDblNoAfectoBase, GintDecResultado)
       lbligv.Caption = GFormatodeNumero(LDblIGVBase, GintDecResultado)
       lbltotal.Caption = GFormatodeNumero(LdblTotalBase, GintDecResultado)
    Else
       lblSubtotalafecto.Caption = GFormatodeNumero(LDblSubAfectoExt, GintDecResultado)
       lblSubtotalNoafecto.Caption = GFormatodeNumero(LDblNoAfectoExt, GintDecResultado)
       lbligv.Caption = GFormatodeNumero(LDblIGVExt, GintDecResultado)
       lbltotal.Caption = GFormatodeNumero(LdblTotalExt, GintDecResultado)
    End If
   Else
     If GstrMonedaLimiteCredito = GstrCodMonedaBase Then
        ' Si la Moneda del Cliente no está Vacía Manda su Moneda
       lblSubtotalafecto.Caption = GFormatodeNumero(LDblSubAfectoBase, GintDecResultado)
       lblSubtotalNoafecto.Caption = GFormatodeNumero(LDblNoAfectoBase, GintDecResultado)
       lbligv.Caption = GFormatodeNumero(LDblIGVBase, GintDecResultado)
       lbltotal.Caption = GFormatodeNumero(LdblTotalBase, GintDecResultado)
     Else
       lblSubtotalafecto.Caption = GFormatodeNumero(LDblSubAfectoExt, GintDecResultado)
       lblSubtotalNoafecto.Caption = GFormatodeNumero(LDblNoAfectoExt, GintDecResultado)
       lbligv.Caption = GFormatodeNumero(LDblIGVExt, GintDecResultado)
       lbltotal.Caption = GFormatodeNumero(LdblTotalExt, GintDecResultado)
     End If
   End If
   
   '*************************************************
   Set dbdocumencliente.DataSource = MrsGrilla
   If Not MrsGrilla.EOF Then
     MrsGrilla.MoveLast
   End If
   dbdocumencliente.Refresh
   
   '*************************************************
   'Formato de la Grilla
   '************************************************
   'dbdocumencliente.HeadFont
   dbdocumencliente.Columns(0).Width = 380 'Numero
   
   dbdocumencliente.Columns(1).Width = 1500 'Codigo
   dbdocumencliente.Columns(2).Width = 4800 'Descripcion
   
   dbdocumencliente.Columns(3).Width = 1200  'Precio
   dbdocumencliente.Columns(3).Alignment = dbgRight
   dbdocumencliente.Columns(3).NumberFormat = GMascara(GintDecPrecio)
   
   dbdocumencliente.Columns(4).Width = 590 'Impuesto
   dbdocumencliente.Columns(4).Alignment = dbgRight
   dbdocumencliente.Columns(4).NumberFormat = GMascara(GintDecPrecio)
   
   dbdocumencliente.Columns(5).Width = 920 'Cantidad
   dbdocumencliente.Columns(5).Alignment = dbgRight
   dbdocumencliente.Columns(5).NumberFormat = GMascara(GintDecStock)
      
   If Trim(GstrMonedaLimiteCredito) = Empty Then
      If GStrMonedaCaja = GstrCodMonedaBase Then
        dbdocumencliente.Columns(6).Visible = True
        dbdocumencliente.Columns(6).Width = 1500 'Total Base
        dbdocumencliente.Columns(6).Alignment = dbgRight
        dbdocumencliente.Columns(6).NumberFormat = GMascara(GintDecPrecio)
        dbdocumencliente.Columns(6).Caption = "Total"
        dbdocumencliente.Columns(7).Visible = False
      Else
        dbdocumencliente.Columns(7).Visible = True
        dbdocumencliente.Columns(7).Width = 1500 'Total Extranjero
        dbdocumencliente.Columns(7).Alignment = dbgRight
        dbdocumencliente.Columns(7).NumberFormat = GMascara(GintDecPrecio)
        dbdocumencliente.Columns(7).Caption = "Total"
        dbdocumencliente.Columns(6).Visible = False
      End If
   Else
      If GstrMonedaLimiteCredito = GstrCodMonedaBase Then
         dbdocumencliente.Columns(6).Visible = True
         dbdocumencliente.Columns(6).Width = 1500 'Total Base
         dbdocumencliente.Columns(6).Alignment = dbgRight
         dbdocumencliente.Columns(6).NumberFormat = GMascara(GintDecPrecio)
         dbdocumencliente.Columns(6).Caption = "Total"
         dbdocumencliente.Columns(7).Visible = False
      Else
         dbdocumencliente.Columns(7).Visible = True
         dbdocumencliente.Columns(7).Width = 1500 'Total Extranjero
         dbdocumencliente.Columns(7).Alignment = dbgRight
         dbdocumencliente.Columns(7).NumberFormat = GMascara(GintDecPrecio)
         dbdocumencliente.Columns(7).Caption = "Total"
         dbdocumencliente.Columns(6).Visible = False
      End If
   End If
         dbdocumencliente.Columns(8).Visible = False
         dbdocumencliente.Columns(9).Visible = False
         dbdocumencliente.Columns(10).Visible = False
         dbdocumencliente.Columns(11).Visible = False
         dbdocumencliente.Columns(12).Visible = False
         dbdocumencliente.Columns(13).Visible = False
  
End Sub

Public Function VerificarFacturacion() As Boolean
    
  'GStrMonedaCaja
  Dim Lintdocumentosvencidos As Integer
  Dim MrsDocumentoVencido As ADODB.Recordset
  Dim LDblMontoaFacturar As Double
  Dim LDblMontoFree As Double
  
  MstrMensaje = Empty
  Lintdocumentosvencidos = 0
  LDblMontoFree = 0
  VerificarFacturacion = True
    
  'Verificar si el RUC es Válido
   
  'Verificar si existen Documentos Vencidos
  
  Set MrsDocumentoVencido = GobjFacturacionCombust.ObtenerDocumentosVencidos(txtcodcliente.Text)
    
  If Not MrsDocumentoVencido.EOF Then
     LDblMontoFree = MrsDocumentoVencido!MontoLibre
     LDblMontoFree = MobjVentasGeneral.ConvertirMoneda(LDblMontoFree, GstrMonedaLimiteCredito, GStrMonedaCaja, GDatFechaProcesoVentas, GstrTipodeCambio, GintDecResultado)
     
     Do While Not MrsDocumentoVencido.EOF
        Lintdocumentosvencidos = Lintdocumentosvencidos + MrsDocumentoVencido!Vencidos
        MrsDocumentoVencido.MoveNext
     Loop
     
  End If
                              
  'Verificar con el Saldo Disponible + MontoExtra  están en Moneda de la Caja
  
  LDblMontoaFacturar = MobjVentasGeneral.ConvertirMoneda(ctnmontofactu.Text, GstrMonedaLimiteCredito, GStrMonedaCaja, GDatFechaProcesoVentas, GstrTipodeCambio, GintDecResultado)
         
  If LDblMontoaFacturar > GdblSaldoDisponible + GdblMontoExtra Then
     If LDblMontoFree >= LDblMontoaFacturar Then
       GoTo TERMINAR
     Else
       MstrMensaje = "Excede el Límite de Crédito"
       VerificarFacturacion = False
       GoTo TERMINAR
     End If
  End If
                    
  If Lintdocumentosvencidos >= 1 Then
     If (LDblMontoFree >= LDblMontoaFacturar) _
        And LDblMontoFree <> 0 Then  ' OSEA PASA CON AYUDA DEL FP6
        GoTo TERMINAR
     Else
       MstrMensaje = "NO SE PUEDE FACTURAR,DOCUMENTOS VENCIDOS"
       VerificarFacturacion = False
       GoTo TERMINAR
     End If
  End If
      
TERMINAR:
        
  'Destruir Objetos
  
  Set MrsDocumentoVencido = Nothing
         
End Function

Public Sub EmitirDocumentoDirectamente(IntContadoCredito As Integer, StrCodMonedaTarjeta As String, _
                                       strCodVendedor As String, StrCodUsuario As String)
  Dim LStrMoneda As String
  Dim LIntAfecto As Integer
  Dim LstrTipodePago  As String
  Dim LintContadoEfectivo As Integer
  Dim LdblPagoEfectivoBase As Double
  Dim LdblPagoEfectivoExt As Double
  Dim lrsimprimirclone As ADODB.Recordset
  Dim lrsimprimirVales As ADODB.Recordset
  Dim StrDescrVendedor As String
 
  LdblPagoEfectivoBase = 0
  LdblPagoEfectivoExt = 0
 
  'Obtener el Tipo de Pago
      
   If OptEfectivo.Value = True Then
      LstrTipodePago = GC_PAGOEFECTIVO
      LintContadoEfectivo = 1
      IntContadoCredito = LintContadoEfectivo
      LdblPagoEfectivoBase = LdblTotalBase
      LdblPagoEfectivoExt = LdblTotalExt
      Set lrsimprimirVales = GobjFacturacionCombust.ObtenerValesdeTemp(MDblIdentificador).Clone
   Else
      If Opttarjeta.Value = True Then
        LstrTipodePago = GC_TARJETACRED
        LintContadoEfectivo = 1
        IntContadoCredito = LintContadoEfectivo
      Else
        If Optctacte.Value = True Then '@ JORGE: Ventas al credito
           LstrTipodePago = GC_VALESCRED
           LintContadoEfectivo = 0
           IntContadoCredito = LintContadoEfectivo
           Set lrsimprimirVales = GobjFacturacionCombust.ObtenerValesdeTemp(MDblIdentificador).Clone
           '@ Jorge: AÑADIR CODIGO PARA DETERMINAR SI DOCUMENTO ES Guia de Remision o Vale consumo Interno
           '.......................................................
           '........................................................
        Else
           If OptAdelanto.Value = True Then
              LstrTipodePago = GC_CONTADOADELANTO
              LintContadoEfectivo = 1
              IntContadoCredito = LintContadoEfectivo
              LdblPagoEfectivoBase = LdblTotalBase
              LdblPagoEfectivoExt = LdblTotalExt
              Set lrsimprimirVales = GobjFacturacionCombust.ObtenerValesdeTemp(MDblIdentificador).Clone
           Else
              LstrTipodePago = GC_OTROS
              LintContadoEfectivo = 0
              IntContadoCredito = LintContadoEfectivo
           End If

        End If
      End If
   End If
   
  'Si la moneda del cliente está vacía
  
   If Trim(GstrMonedaLimiteCredito) = Empty Then
      LStrMoneda = GStrMonedaCaja
   Else
      LStrMoneda = GstrMonedaLimiteCredito
   End If
   
   If Trim(GstrTipodeCambio) = Empty Then
     GstrTipodeCambio = GstrTipoCambioVentas
   End If
   
   If GdblMontoTipoCambio = 0 Then
      GdblMontoTipoCambio = MobjVentasGeneral.ObtenerMontoTipodeCambio(GstrCodMonedaBase, GstrMonedaExtranjera, GDatFechaProcesoVentas, GstrTipodeCambio)
   End If
                     
  ' Si es que se pagó por Tarjeta entonces el curyidasume la moneda de
  ' la Tarjeta
  ' If Trim(StrCodMonedaTarjeta) <> Empty Then
  '    LStrMoneda = StrCodMonedaTarjeta
  ' End If
                    
  'Preguntar si la Venta es Automática
   
   If GIntVentaAutoCombust = 1 Or GIntVentaAutoCombust = 0 Then
      ' El Store Procedure Determina si es Boleta o si es Factura
      ' En esta Parte no llamo a la Placa
      ' Si es Automatica tampoco puedo requerir Cara
      
      If GblnAfecto = True Then
         LIntAfecto = 1
      Else
         LIntAfecto = 0
      End If
                    
      ' Hay que Clonear los Registros
          
      Set lrsimprimirclone = GobjFacturacionCombust.ObtenerDatosTemporalparaImpresion(MDblIdentificador).Clone
            
      ' Fin de Clonear los Registros
      
      ' Hay que Obtener la Descripción del Vendedor
      
        StrDescrVendedor = GobjFacturacionCombust.ObtenerNombreVendedor(strCodVendedor)
        
        
      ' *****************************
      Dim LDatosTran(1, 11) As Variant
                
      LDatosTran(1, 1) = ""
      LDatosTran(1, 2) = ""
      LDatosTran(1, 3) = ""
      LDatosTran(1, 4) = ""
      LDatosTran(1, 5) = ""
      LDatosTran(1, 6) = ""
      LDatosTran(1, 7) = ""
      LDatosTran(1, 8) = ""
      LDatosTran(1, 9) = ""
      LDatosTran(1, 10) = ""
                  
      ' *****************************
      ' Jorge: Desde aqui empieza el grabar e imprimir el documento
      
      Set MrsEmision = GobjFacturacionCombust.EmitirDocumentodeVenta(txtcara.Text, "", 1, 0, IntContadoCredito, _
                                                     MDblIdentificador, LstrTipodePago, LStrMoneda, strCodVendedor, StrCodUsuario, _
                                                     "", "", LdblTotalBase, LdblTotalExt, LDblSubAfectoBase, LDblSubAfectoExt, _
                                                     LDblIGVBase, LDblIGVExt, 0, 0, LDblNoAfectoBase, LDblNoAfectoExt, 0, 0, 0, 0, 0, 0, _
                                                     LdblPagoEfectivoBase, LdblPagoEfectivoExt, _
                                                     txtcodcliente.Text, txtruc.Text, txtrazonsocial.Text, GStrNumeroPlaca, GstrTipodeCambio, GdblMontoTipoCambio, _
                                                     0, 0, "", 0, GstrPuntodeVenta, GstrTerminal, GdblKilometraje, txtdireccion.Text, GStrIdTarjeta, _
                                                     GStrNumeroTarjeta, StrCodMonedaTarjeta, GstrDescripcionTarjeta, LDatosTran)
                                                     
      If Trim(MrsEmision!STATUSSTOCK) = "" And Trim(MrsEmision!numerodocumento) <> Empty And Trim(MrsEmision!TOMAINVENTARIO) = "" Then
         Imprimir_Ticket MrsEmision!numerodocumento, 40, FDatosClientCombust.txtrazonsocial, FDatosClientCombust.txtruc, FDatosClientCombust.txtdireccion, _
                         LStrMoneda, MDblIdentificador, MrsEmision!SUBTOTALBASE, _
                         MrsEmision!SUBTOTALEXT, MrsEmision!TOTALIGVBASE, MrsEmision!TOTALIGVEXT, MrsEmision!TOTALBASE, MrsEmision!TOTALEXT, MrsEmision!TOTALNOAFECTOBASE, _
                         MrsEmision!TOTALNOAFECTOEXT, lrsimprimirclone, MrsEmision!TipoPago, MrsEmision!MonedaTarjeta, MrsEmision!Turno, "", StrDescrVendedor, MrsEmision!DESCTARJETA, _
                         MrsEmision!NumeroTarjeta, lrsimprimirVales, MrsEmision!PLACA, 0, MrsEmision!FechaServidor
      Else
         If Trim(MrsEmision!STATUSSTOCK) = "SNEGATIVO" Then
            MsgBox "Stock Negativo Venta fue Abortada", vbDefaultButton1 + vbExclamation, "Advertencia"
         End If
         If Trim(MrsEmision!TOMAINVENTARIO) = "IFISICO" Then
            MsgBox "Toma de Inventario fue Activada, Venta fue Abortada", vbDefaultButton1 + vbExclamation, "Advertencia"
         End If
         
      End If
      Set lrsimprimirclone = Nothing
      Set lrsimprimirVales = Nothing
      LimpiarVariablesPublicas
   Else
      ' Si no es Automática no Necesito Cara
              
   End If
     
End Sub

Public Sub GrabarDatosenTemporal()
  Dim LStrMoneda As String
  Dim LIntAfecto As Integer
  Dim LstrTipodePago  As String
  Dim LintContadoEfectivo As Integer
  
  'Obtener el Tipo de Pago
   
   If OptEfectivo.Value = True Then
      LstrTipodePago = GC_PAGOEFECTIVO
      LintContadoEfectivo = 1
   Else
      If Opttarjeta.Value = True Then
        LstrTipodePago = GC_TARJETACRED
        LintContadoEfectivo = 1
      Else
        If Optctacte.Value = True Then
           LstrTipodePago = GC_VALESCRED
           LintContadoEfectivo = 0
        Else
          If OptAdelanto.Value = True Then
            LstrTipodePago = GC_CONTADOADELANTO
            LintContadoEfectivo = 1
          Else
            LstrTipodePago = GC_OTROS
            LintContadoEfectivo = 0
          End If
        End If
      End If
   End If
   
  'Si la moneda del cliente está vacía
  
   If Trim(GstrMonedaLimiteCredito) = Empty Then
      LStrMoneda = GStrMonedaCaja
   Else
      LStrMoneda = GstrMonedaLimiteCredito
   End If
   
   If Trim(GstrTipodeCambio) = Empty Then
     GstrTipodeCambio = GstrTipoCambioVentas
   End If
         
  'Hay que preguntar si el monto del tipo de cambio es cero
         
   If GdblMontoTipoCambio = 0 Then
      GdblMontoTipoCambio = MobjVentasGeneral.ObtenerMontoTipodeCambio(GstrCodMonedaBase, GstrMonedaExtranjera, GDatFechaProcesoVentas, GstrTipodeCambio)
   End If
         
  'Preguntar si la Venta es Automática
   
   If GIntVentaAutoCombust = 1 Then
      ' El Store Procedure Determina si es Boleta o si es Factura
      ' En esta Parte no llamo a la Placa
      ' Si es Automatica tampoco puedo requerir Cara
      
      If GblnAfecto = True Then
         LIntAfecto = 1
      Else
         LIntAfecto = 0
      End If
      
      GobjFacturacionCombust.GrabarenCabeceraenTemporal LintContadoEfectivo, txtcara.Text, MDblIdentificador, 0, LstrTipodePago, LStrMoneda, _
                                                        GstrCodigoVENDEDOR, GCUSERID, "", "", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
                                                        txtcodcliente.Text, txtruc.Text, txtrazonsocial.Text, GStrNumeroPlaca, GstrTipodeCambio, GdblMontoTipoCambio, _
                                                        0, 0, "", 0, GstrPuntodeVenta, GstrTerminal, GdblKilometraje, txtdireccion.Text, MintTipoCliente, GstrTipoClienteDescr, _
                                                        GstrIddeEstado, GstrDescrEstado, GstrMonedaLimiteCredito, GstrTipodeCambio, GdblMontoTipoCambio, _
                                                        GintDiasdeGracia, GdblLimiteCredito, GdblDeudaVigente, GdblMontoExtra, LIntAfecto, GStrIdTarjeta, GStrNumeroTarjeta, GStrMonedaenTarjeta, GstrDescripcionTarjeta
                                                              
      LimpiarVariablesPublicas
   Else
      ' Si no es Automática no Necesito Cara
       
              
   End If
   
End Sub
Public Sub GLimpiarDatosdePantalla()
    txtcodcliente.Text = Empty
    txtruc.Text = Empty
    txtrazonsocial.Text = Empty
    txtdireccion.Text = Empty
    If txtcara.Visible = True Then
       txtcara.Text = Empty
    End If
    OptEfectivo.Value = True
    ctnmontofactu.ValorPorDefecto
    
    'Eliminar los Datos de la Grilla
    GobjFacturacionCombust.EliminarTodosRegDetalleTemporal (MDblIdentificador)
    EnlazarGrilla (MDblIdentificador)
    '--------------------------------
    txtcodigo.Text = Empty
    lbldescripcion.Caption = Empty
    lblprecio.Caption = GFormatodeNumero(0, GintDecPrecio)
    ctncantidad.ValorPorDefecto
    ctntotal.ValorPorDefecto
    MDblIdentificador = MobjCorrelativo.ObtenerCorrelativo(GCUSERID)
    txtcodcliente.SetFocus
    GblnconPlacas = False
End Sub
Public Sub LimpiarVariablesPublicas()

    GStrIdTarjeta = Empty
    GStrNumeroTarjeta = Empty
    GStrMonedaenTarjeta = Empty
    GstrDescripcionTarjeta = Empty
    GStrNumeroPlaca = Empty
    GintNumeroVale = Empty
    GdblKilometraje = Empty
    GstrIddeEstado = Empty
    GstrDescrEstado = Empty
    GstrMonedaLimiteCredito = Empty
    MintTipoCliente = 0 'Contado
    GintDiasdeGracia = 0
    GdblLimiteCredito = 0
    GdblDeudaVigente = 0
    GdblMontoExtra = 0
    
End Sub

Public Sub ActualizarDatosenDetalleTempo()
   Dim LStrTipodeCambio As String
   Dim LStrMoneda As String
    
   Dim LdblImpBase As Double
   Dim LdblImpExt As Double
    
   Dim LDblSubTotalBase As Double
   Dim LDblSubTotalExt As Double
    
   Dim LdblTotalBase As Double
   Dim LdblTotalExt As Double
    
    
   'Verificar el Tipo de Cambio
   
    If Trim(GstrTipodeCambio) = Empty Then
       LStrTipodeCambio = GstrTipoCambioVentas
    Else
       LStrTipodeCambio = GstrTipodeCambio
    End If
                     
   'Si la moneda del cliente está vacía
    
    If Trim(GstrMonedaLimiteCredito) = Empty Then
        LStrMoneda = GStrMonedaCaja
    Else
        LStrMoneda = GstrMonedaLimiteCredito
    End If
                  
    If MIntCombustible = 1 Then ' Si el Producto Ingresado es Combustible
       
       If LStrMoneda = GstrCodMonedaBase Then
          LdblTotalBase = GFormatodeNumero(ctntotal.Text, GintDecResultado)
          LdblTotalExt = MobjVentasGeneral.ConvertirMoneda(ctntotal.Text, LStrMoneda, GstrMonedaExtranjera, GDatFechaProcesoVentas, LStrTipodeCambio, GintDecResultado)
       Else
          'La moneda es Extranjera
          LdblTotalExt = GFormatodeNumero(ctntotal.Text, GintDecResultado)
          LdblTotalBase = MobjVentasGeneral.ConvertirMoneda(ctntotal.Text, GstrMonedaExtranjera, GstrCodMonedaBase, GDatFechaProcesoVentas, LStrTipodeCambio, GintDecResultado)
       End If
       LDblSubTotalBase = GFormatodeNumero(LdblTotalBase / (1 + (MdblImpuestoIgv / 100)), GintDecResultado)
       LDblSubTotalExt = GFormatodeNumero(LdblTotalExt / (1 + (MdblImpuestoIgv / 100)), GintDecResultado)
       
    Else
       
       LdblTotalBase = GFormatodeNumero(ctncantidad.Text * MDblPrecioMonBase, GintDecResultado)
       LdblTotalExt = GFormatodeNumero(ctncantidad.Text * MDblPrecioMonExtranjera, GintDecResultado)
    
       LDblSubTotalBase = GFormatodeNumero(GFormatodeNumero(ctncantidad.Text * MDblPrecioMonBase, GintDecResultado) / (1 + (MdblImpuestoIgv / 100)), GintDecResultado)
       LDblSubTotalExt = GFormatodeNumero(GFormatodeNumero(ctncantidad.Text * MDblPrecioMonExtranjera, GintDecResultado) / (1 + (MdblImpuestoIgv / 100)), GintDecResultado)
       
    End If
    
     If GblnAfecto = True Then
       If MdblImpuestoIgv = 0 Then
          LdblImpBase = 0
          LdblImpExt = 0
       Else
          LdblImpBase = LdblTotalBase - LDblSubTotalBase
          LdblImpExt = LdblTotalExt - LDblSubTotalExt
       End If
    Else
       '*********************************************************
       ' NADIE ME DA RAZON / NO SE TIENE CLARO
       '*********************************************************
        MdblImpuestoIgv = 0
        LdblImpBase = 0
        LdblImpExt = 0
    End If
         
    ' GstrMonedaLimiteCredito: contiene la moneda del cliente o la moneda de la caja
    
    If Trim(GstrMonedaLimiteCredito) = Empty Then
       LStrMoneda = GStrMonedaCaja
    Else
       LStrMoneda = GstrMonedaLimiteCredito
    End If
         
    ' Recordar Verificar si se está haciendo la toma de Inventario
    ' MdblPrecioMonCaja : contiene el precio a moneda del cliente o moneda de la caja
    
    GobjFacturacionCombust.ActualizarRegistroenDetalleTemporal MDblIdentificador, txtcodigo.Text, MIntSecuencia, LStrMoneda, _
                                                               MdblImpuestoIgv, 0, LdblTotalBase, LdblTotalExt, _
                                                               LdblImpBase, LdblImpExt, MintInventariable, 0, MdblPrecioDatMonCaja, _
                                                               MdblPrecioMonCaja, MStrCodigoAlternativo, ctncantidad.Text
                
    ' Despues de Grabar tengo que Refrescar los Resultados
    EnlazarGrilla (MDblIdentificador)
                  
End Sub
Public Sub GrabarDatosenDetalleTempo()
    Dim LStrTipodeCambio As String
    Dim LStrMoneda As String
              
    Dim LdblImpBase As Double
    Dim LdblImpExt As Double
    
    Dim LDblSubTotalBase As Double
    Dim LDblSubTotalExt As Double
    
    Dim LdblTotalBase As Double
    Dim LdblTotalExt As Double
                    
                    
   ' El precio está con IGV
   ' Hay que tener en cuenta como se calculan los subtotales cunado se ingresa el Total
                     
   'Verificar el Tipo de Cambio
   
   If Trim(GstrTipodeCambio) = Empty Then
      LStrTipodeCambio = GstrTipoCambioVentas
   Else
      LStrTipodeCambio = GstrTipodeCambio
   End If
                     
   'Si la moneda del cliente está vacía
    
   If Trim(GstrMonedaLimiteCredito) = Empty Then
       LStrMoneda = GStrMonedaCaja
   Else
       LStrMoneda = GstrMonedaLimiteCredito
   End If
                  
   If MIntCombustible = 1 Then ' Si el Producto Ingresado es Combustible
     If LStrMoneda = GstrCodMonedaBase Then
        LdblTotalBase = GFormatodeNumero(ctntotal.Text, GintDecResultado)
        LdblTotalExt = MobjVentasGeneral.ConvertirMoneda(ctntotal.Text, LStrMoneda, GstrMonedaExtranjera, GDatFechaProcesoVentas, LStrTipodeCambio, GintDecResultado)
     Else
       'La moneda es Extranjera
        LdblTotalExt = GFormatodeNumero(ctntotal.Text, GintDecResultado)
        LdblTotalBase = MobjVentasGeneral.ConvertirMoneda(ctntotal.Text, GstrMonedaExtranjera, GstrCodMonedaBase, GDatFechaProcesoVentas, LStrTipodeCambio, GintDecResultado)
     End If
     LDblSubTotalBase = GFormatodeNumero(LdblTotalBase / (1 + (MdblImpuestoIgv / 100)), GintDecResultado)
     LDblSubTotalExt = GFormatodeNumero(LdblTotalExt / (1 + (MdblImpuestoIgv / 100)), GintDecResultado)
     
   Else
                 
     LdblTotalBase = GFormatodeNumero(ctncantidad.Text * MDblPrecioMonBase, GintDecResultado)
     LdblTotalExt = GFormatodeNumero(ctncantidad.Text * MDblPrecioMonExtranjera, GintDecResultado)
    
     LDblSubTotalBase = GFormatodeNumero(GFormatodeNumero(ctncantidad.Text * MDblPrecioMonBase, GintDecResultado) / (1 + (MdblImpuestoIgv / 100)), GintDecResultado)
     LDblSubTotalExt = GFormatodeNumero(GFormatodeNumero(ctncantidad.Text * MDblPrecioMonExtranjera, GintDecResultado) / (1 + (MdblImpuestoIgv / 100)), GintDecResultado)
   End If
    ' Si el cliente es Afecto
    
    If GblnAfecto = True Then
             
       ' Cálculos de los Impuestos en Moneda Base y Extranjera
             
       If MdblImpuestoIgv = 0 Then
          LdblImpBase = 0
          LdblImpExt = 0
       Else
          'LdblImpBase = GFormatodeNumero(GFormatodeNumero(((MdblImpuestoIgv / 100) * MDblPrecioMonBase), GintDecPrecio) * ctncantidad.Text, GintDecResultado)
          'LdblImpExt = GFormatodeNumero(GFormatodeNumero(((MdblImpuestoIgv / 100) * MDblPrecioMonExtranjera), GintDecPrecio) * ctncantidad.Text, GintDecResultado)
          LdblImpBase = LdblTotalBase - LDblSubTotalBase
          LdblImpExt = LdblTotalExt - LDblSubTotalExt
       End If
              
    Else
       ' Si el Cliente es No afecto , entonces
       ' Ningun producto es afecto
       ' Si algun producto viene con Igv entonces lo grabamos como 0
       '*********************************************************
       ' NADIE ME DA RAZON / NO SE TIENE CLARO
       '*********************************************************
        
        MdblImpuestoIgv = 0
        LdblImpBase = 0
        LdblImpExt = 0
       
    End If
        
                                           
    'Recordar Verificar si se está haciendo la toma de Inventario
                                                 
    GobjFacturacionCombust.GrabarRegistroenDetalleTemporal Empty, MDblIdentificador, 0, txtcodigo.Text, LStrMoneda, _
                                                           0, 0, 0, "", 0, 0, 0, 0, MdblImpuestoIgv, 0, LdblTotalBase, LdblTotalExt, _
                                                           LdblImpBase, LdblImpExt, MintInventariable, 0, MdblPrecioDatMonCaja, _
                                                           MdblPrecioMonCaja, MdblCostoBase, MdblCostoExt, MStrCodigoAlternativo, _
                                                           Mstrdescripcion, ctncantidad.Text, GCUSERID, 0, MIntCombustible, GstrPuntodeVenta, "UND"
                
    ' Despues de Grabar tengo que Refrescar los Resultados
    EnlazarGrilla (MDblIdentificador)
        
End Sub

Public Sub LimpiarDatosdeIngreso()
    txtcodigo.Text = Empty
    lbldescripcion.Caption = Empty
    lblprecio.Caption = Empty
    ctncantidad.ValorPorDefecto
    ctntotal.ValorPorDefecto
End Sub
Public Sub ActualizarDatosenTemporal()
  Dim LStrMoneda As String
  Dim LIntAfecto As Integer
  Dim LstrTipodePago  As String
  Dim LintContadoEfectivo As Integer
   
  ' Obtener el Tipo de Pago
   
   If OptEfectivo.Value = True Then
   
      'GStrIdTarjeta  GStrNumeroTarjeta, GStrMonedaenTarjeta, GstrDescripcionTarjeta
      LstrTipodePago = GC_PAGOEFECTIVO
      LintContadoEfectivo = 1
   Else
      If Opttarjeta.Value = True Then
        LstrTipodePago = GC_TARJETACRED
        LintContadoEfectivo = 1
      Else
        If Optctacte.Value = True Then
           'GStrIdTarjeta, GStrNumeroTarjeta, GStrMonedaenTarjeta, GstrDescripcionTarjeta
           LstrTipodePago = GC_VALESCRED
           LintContadoEfectivo = 0
        Else
          If OptAdelanto.Value = True Then
             LstrTipodePago = GC_CONTADOADELANTO
             LintContadoEfectivo = 1
          Else
             LstrTipodePago = GC_OTROS
             LintContadoEfectivo = 0
          End If
        End If
      End If
   End If
   
   'Si la moneda del cliente está vacía
   
   If Trim(GstrMonedaLimiteCredito) = Empty Then
      LStrMoneda = GStrMonedaCaja
   Else
      LStrMoneda = GstrMonedaLimiteCredito
   End If
   
   'Verificar el Tipo de Cambio
   
   If Trim(GstrTipodeCambio) = Empty Then
     GstrTipodeCambio = GstrTipoCambioVentas
   End If
        
   If GdblMontoTipoCambio = 0 Then
      GdblMontoTipoCambio = MobjVentasGeneral.ObtenerMontoTipodeCambio(GstrCodMonedaBase, GstrMonedaExtranjera, GDatFechaProcesoVentas, GstrTipodeCambio)
   End If
           
   'Preguntar si la Venta es Automática
   
   If GIntVentaAutoCombust = 1 Then
      ' El Store Procedure Determina si es Boleta o si es Factura
      ' En esta Parte no llamo a la Placa
      ' Si es Automatica tampoco puedo requerir Cara
      ' GStrNumeroPlaca
      ' GintNumeroVale
      ' GdblKilometraje

      
      If GblnAfecto = True Then
         LIntAfecto = 1
      Else
         LIntAfecto = 0
      End If
      
      GobjFacturacionCombust.ActualizarenCabeceraenTemporal LintContadoEfectivo, txtcara.Text, MDblIdentificador, LstrTipodePago, LStrMoneda, _
                                                            GstrCodigoVENDEDOR, GstrCodigoUsuariO, "", "", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
                                                            txtcodcliente.Text, txtruc.Text, txtrazonsocial.Text, GStrNumeroPlaca, GstrTipodeCambio, GdblMontoTipoCambio, _
                                                            0, 0, "", 0, GstrPuntodeVenta, GstrTerminal, GdblKilometraje, txtdireccion.Text, MintTipoCliente, GstrTipoClienteDescr, _
                                                            GstrIddeEstado, GstrDescrEstado, GstrMonedaLimiteCredito, GstrTipodeCambio, GdblMontoTipoCambio, _
                                                            GintDiasdeGracia, GdblLimiteCredito, GdblDeudaVigente, GdblMontoExtra, LIntAfecto, GStrIdTarjeta, GStrNumeroTarjeta, GStrMonedaenTarjeta, GstrDescripcionTarjeta
 
      LimpiarVariablesPublicas
   Else
      ' Si no es Automática no Necesito Cara
     
              
   End If
   
   
End Sub

Private Sub txtruc_LostFocus()
    
'  On Error GoTo errin
'  If RTrim(LTrim(Trim(txtruc.Text))) <> Empty Then
'     If Len(RTrim(LTrim((Trim(txtruc.Text))))) <> 11 Then
'        If MsgBox("EL RUC debe tener 11 dígitos.", vbDefaultButton1 + _
                    vbExclamation + vbOKCancel, "Advertencia01") = vbOK Then
           If ValidacionClientes = False Then
'           txtruc.SetFocus
                 Exit Sub
           End If
'        Else
'           txtcodcliente = Empty
'           txtruc = Empty
'           txtdireccion = Empty
'           txtrazonsocial = Empty
'           txtcodigo.SetFocus
'        End If
'     End If
'  End If
'  txtruc.BackColor = vbWhite
'   txtruc.BackColor = vbCyan
  
'  Exit Sub
'errin:
'    MsgBox Err.Description & " " & Err.Number, vbCritical, "ERROR!!!!!!!!!!!!"
    
End Sub

Private Sub HabiDeshabiTabs(BlnValor As Boolean)
    dbdocumencliente.TabStop = BlnValor
    fraingresos.Enabled = BlnValor
    cmdaceptarprodadi.TabStop = BlnValor
    cmdcancelar.TabStop = BlnValor
End Sub



Private Sub txtruc_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  'Se activa flag para visualizar ventana logo
    VerPantallaLogo = False 'No se visualize
    tmrLogo.Enabled = False
    Label10.Caption = VerPantallaLogo '*****************

End Sub

Private Sub txtruc_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  VerPantallaLogo = True  'la ultima tecla presionada
  tmrLogo.Enabled = True
  Label10.Caption = VerPantallaLogo '****************
End Sub


