VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "crystl32.ocx"
Begin VB.Form FMensajeTPC 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Mensaje"
   ClientHeight    =   2400
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4560
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2400
   ScaleWidth      =   4560
   StartUpPosition =   2  'CenterScreen
   Begin Crystal.CrystalReport crError 
      Left            =   360
      Top             =   1800
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   348160
      PrintFileLinesPerPage=   60
   End
   Begin VB.CommandButton cmdDetalles 
      Caption         =   "Ver detalles >>"
      Height          =   495
      Left            =   2940
      TabIndex        =   1
      Top             =   1800
      Width           =   1215
   End
   Begin VB.CommandButton cmdAceptar 
      Caption         =   "Aceptar"
      Height          =   495
      Left            =   1620
      TabIndex        =   0
      Top             =   1800
      Width           =   1215
   End
   Begin VB.Image Image1 
      Height          =   570
      Left            =   405
      Picture         =   "FMensajeTPC.frx":0000
      Stretch         =   -1  'True
      Top             =   630
      Width           =   570
   End
   Begin VB.Shape Shape2 
      Height          =   1455
      Left            =   1440
      Top             =   240
      Width           =   2895
   End
   Begin VB.Label lblMensaje 
      Caption         =   $"FMensajeTPC.frx":0442
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1455
      Left            =   1560
      TabIndex        =   2
      Top             =   240
      Width           =   2655
   End
End
Attribute VB_Name = "FMensajeTPC"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Mcadena As String
Public McodCliente As String
Public MdesCliente As String

Private Sub cmdAceptar_Click()
    Unload Me
End Sub


Private Sub cmdDetalles_Click()
    crError.ReportFileName = GstrReportesInv + "rpt_ErrorTPC_Cliente.rpt"
    crError.WindowTitle = "Relación Cliente-TPC"
    crError.Formulas(1) = "formusuario=stringvar strusuario; strusuario:='" & GCUSERID & "'"
    crError.Formulas(2) = "formscreen=stringvar strscreen; strscreen:='01.080.00'"
    crError.Formulas(3) = "formCliente=stringvar strCliente; strCliente:='" & MdesCliente & "'"
    
    crError.StoredProcParam(0) = McodCliente
    crError.StoredProcParam(1) = Mcadena
    
    crError.WindowState = crptMaximized
    crError.WindowShowPrintSetupBtn = True
    crError.Action = 1
    crError.Reset
End Sub
