VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "crystl32.ocx"
Begin VB.Form FAprobarParteDiario 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Aprobación de Parte Diario"
   ClientHeight    =   3195
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7230
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   7230
   Begin Crystal.CrystalReport CRAprobarParteDiario 
      Left            =   3240
      Top             =   2280
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   348160
      WindowControlBox=   -1  'True
      WindowMaxButton =   -1  'True
      WindowMinButton =   -1  'True
      WindowState     =   2
      PrintFileLinesPerPage=   60
      WindowShowSearchBtn=   -1  'True
   End
   Begin VB.Frame Frame1 
      Height          =   1560
      Left            =   45
      TabIndex        =   2
      Top             =   0
      Width           =   7065
      Begin MSComCtl2.DTPicker DtpFecha 
         Height          =   300
         Left            =   1560
         TabIndex        =   11
         Top             =   660
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   529
         _Version        =   393216
         Enabled         =   0   'False
         Format          =   16777217
         CurrentDate     =   39693
      End
      Begin VB.CommandButton cmdvistaprecia 
         Caption         =   "Vista Previa"
         Height          =   735
         Left            =   5520
         Picture         =   "0514000.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   240
         Width           =   1335
      End
      Begin VB.CommandButton cmdBuscar 
         Enabled         =   0   'False
         Height          =   375
         Left            =   4560
         Picture         =   "0514000.frx":030A
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   240
         Width           =   375
      End
      Begin MSDataListLib.DataCombo DtcAlmacen 
         Height          =   315
         Left            =   1560
         TabIndex        =   4
         Top             =   240
         Width           =   2970
         _ExtentX        =   5239
         _ExtentY        =   556
         _Version        =   393216
         Style           =   2
         Text            =   ""
         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 Label3 
         Caption         =   "Fecha"
         Height          =   270
         Left            =   120
         TabIndex        =   12
         Top             =   660
         Width           =   1890
      End
      Begin VB.Label lbldiferperm 
         Alignment       =   1  'Right Justify
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   1560
         TabIndex        =   10
         Top             =   1080
         Width           =   1575
      End
      Begin VB.Label Label2 
         Caption         =   "Diferencia Pemitida"
         Height          =   255
         Left            =   120
         TabIndex        =   9
         Top             =   1080
         Width           =   1815
      End
      Begin VB.Label Label1 
         Caption         =   "Almacén"
         Height          =   270
         Left            =   120
         TabIndex        =   5
         Top             =   240
         Width           =   1890
      End
   End
   Begin VB.CommandButton CMD_CANCELAR 
      Cancel          =   -1  'True
      Caption         =   "Cancelar"
      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            =   5520
      Picture         =   "0514000.frx":083C
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   2040
      Width           =   1575
   End
   Begin VB.CommandButton cmdaprobar 
      Caption         =   "&Aprobar"
      Default         =   -1  'True
      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            =   3840
      Picture         =   "0514000.frx":0B46
      Style           =   1  'Graphical
      TabIndex        =   0
      Tag             =   "R ASDASD"
      Top             =   2040
      Width           =   1665
   End
   Begin MSComCtl2.Animation Animation1 
      Height          =   765
      Left            =   120
      TabIndex        =   7
      Top             =   1920
      Visible         =   0   'False
      Width           =   3615
      _ExtentX        =   6376
      _ExtentY        =   1349
      _Version        =   393216
      BackColor       =   -2147483644
      FullWidth       =   241
      FullHeight      =   51
   End
   Begin VB.Label lblprocesando 
      Caption         =   "Cerrando Parte Diario ..."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   2760
      Visible         =   0   'False
      Width           =   3735
   End
End
Attribute VB_Name = "FAprobarParteDiario"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Se retiraron los Fuentes de la red el 24/04/2003
Option Explicit
'******************************************************************************************
' Variables para el control de Seguridad
'******************************************************************************************
  
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

'******************************************************************************************
Dim ldat_Fecha As Date

Public GrecibeUbicacion As BookmarkEnum
Public GrecibeColumnaID As String
Public GrecibeColumnaOpcional As String

Private MobjAlmacen As DB_INV_MANTENIMIENTOS.C_ALMACEN
Private MobjVentasGeneral As DB_OP_FACTURACION.C_VENTASGENERAL
Private MobjMoneda As DB_MA_MANTENIMIENTOS.C_MONEDA
Private MobjUtilSetup As UTIL_SETUP.C_SETUP
Private MstrDescrMoneda As String
Private MdblMontoTipoCambio As Double

Private Sub CMD_CANCELAR_Click()
  Unload Me
End Sub
Private Sub cmdaprobar_Click()

On Error GoTo errhandler:

 Dim LVarResultado As Variant
 
 Screen.MousePointer = 11
 
 ' Hay que Verificar si es que el Parte Diario ya está cerrado
 
  If MobjVentasGeneral.MostrarStatusParteDiario(DtcAlmacen.BoundText) = True Then
    If MsgBox("Existe un registro de parte diario para la fecha " & MobjUtilSetup.ObtenerFechaProcesoInventarios & ". ¿Desea comtinuar de todas maneras?", vbQuestion + vbYesNo + vbDefaultButton2) = vbNo Then
        ' MsgBox "Parte Diario ya fue cerrado", vbDefaultButton1 + vbExclamation, "Advertencia"
         Screen.MousePointer = 0
         Exit Sub
     End If
  End If

 ' *************************************************************************
 ' Hay que llamar al Store de Reproceso de Controles
 ' *************************************************************************
 
  lblprocesando.Visible = True
  lblprocesando.Caption = "Reprocesando Información "
  lblprocesando.Refresh
  Animation1.Open GstrReportesVta & "Proceso.avi"
  Animation1.Visible = True
  Animation1.Play
  MobjVentasGeneral.ReprocesarParteDiario DtcAlmacen.BoundText, GCUSERID, MobjUtilSetup.ObtenerFechaProcesoInventarios
  Animation1.AutoPlay = False
  Animation1.Stop
  Animation1.Visible = False
  lblprocesando.Visible = False
    
    
' LVarResultado = MobjVentasGeneral.AprobarParteDiario(dtcAlmacen.BoundText, GCUSERID)
'
' If Trim(LVarResultado(1, 1)) = Empty Then
    If MsgBox("Datos Correctos desea cerrar el parte diario", vbQuestion + vbYesNo, "Cerrar Parte Diario") = vbYes Then
       lblprocesando.Caption = "Cerrando Parte Diario ..."
       lblprocesando.Refresh
       lblprocesando.Visible = True
       Animation1.Open GstrReportesVta & "Proceso.avi"
       Animation1.Visible = True
       Animation1.Play
       MobjVentasGeneral.CerrarParteDiario DtcAlmacen.BoundText, GstrCodMonedaBase, _
                                          GstrMonedaExtranjeraModgen, GCUSERID, GstrTipoCambioVentas
    
        
       Animation1.AutoPlay = False
       Animation1.Stop
       Animation1.Visible = False
       lblprocesando.Visible = False
             
       Dim datFechaProceso As Date
       datFechaProceso = MobjUtilSetup.ObtenerSetupGeneral!DATEPROCE
       GDatFechaProceso = datFechaProceso
             
       MsgBox "Parte Diario Cerrado con éxito,la fecha de Proceso aumentará en un día ", vbDefaultButton1 + vbInformation, "Mensaje"
       
       'Comienza la Parte de Impresión
       
       CRAprobarParteDiario.StoredProcParam(0) = DtcAlmacen.BoundText
       CRAprobarParteDiario.StoredProcParam(1) = Format(GDatFechaProceso, "yyyymmdd")
       CRAprobarParteDiario.StoredProcParam(2) = GstrCodMonedaBase
       CRAprobarParteDiario.StoredProcParam(3) = GstrMonedaExtranjeraModgen
       CRAprobarParteDiario.StoredProcParam(4) = GCUSERID
       
'       CRAprobarParteDiario.ReportFileName = GstrReportesVta + "rpt_ParteDiarioValorizado.rpt"
'       CRAprobarParteDiario.WindowTitle = "Reporte de Parte Diario Valorizado"
       CRAprobarParteDiario.ReportFileName = GstrReportesVta + "rpt_ListarParteDiarioSimple.rpt"
       CRAprobarParteDiario.WindowTitle = "Reporte de Parte Diario Simple"

'       CRAprobarParteDiario.Formulas(1) = "formusuario=stringvar strusuario; strusuario:='" & GCUSERID & "'"
'       CRAprobarParteDiario.Formulas(2) = "formscreen=stringvar strscreen; strscreen:='05.140.00'"
'       CRAprobarParteDiario.Formulas(3) = "formdecresultado=" & GintDecResultado
'       CRAprobarParteDiario.Formulas(4) = "formalmacen=stringvar stralmacen; stralmacen:='" & dtcAlmacen.Text & "'"
'       CRAprobarParteDiario.Formulas(5) = "formfechaproceso=stringvar strfechaproces; strfechaproces:='" & CStr(ldat_Fecha) & "'"
'       CRAprobarParteDiario.Formulas(6) = "formtipocambio=Numbervar DblTipoCambio; DblTipoCambio:=" & MdblMontoTipoCambio & ""
'       CRAprobarParteDiario.Formulas(7) = "formmoneda=stringvar strmoneda; strmoneda:='" & MstrDescrMoneda & "'"
       
       CRAprobarParteDiario.Formulas(1) = "formusuario=stringvar strusuario; strusuario:='" & GCUSERID & "'"
       CRAprobarParteDiario.Formulas(2) = "formscreen=stringvar strscreen; strscreen:='05.140.00'"
       CRAprobarParteDiario.Formulas(3) = "formdecresultado=" & GintDecResultado
       CRAprobarParteDiario.Formulas(4) = "formalmacen=stringvar stralmacen; stralmacen:='" & DtcAlmacen.Text & "'"
'      CRAprobarParteDiario.Formulas(5) = "formfechaproceso=stringvar strfechaproces; strfechaproces:='" & CStr(GDatFechaProceso) & "'"
       CRAprobarParteDiario.Formulas(5) = "formfechaproceso=stringvar strfechaproces; strfechaproces:='" & CStr(GDatFechaProceso) & "'"
       CRAprobarParteDiario.Formulas(6) = "formtipocambio=Numbervar DblTipoCambio; DblTipoCambio:=" & MdblMontoTipoCambio & ""
       CRAprobarParteDiario.Formulas(7) = "formmoneda=stringvar strmoneda; strmoneda:='" & MstrDescrMoneda & "'"
       
       CRAprobarParteDiario.Action = 1
            

       Me.Caption = "Aprobación del Parte Diario  [Fecha de Proceso:" & datFechaProceso & "]"
               
    End If
' Else
'    MsgBox LVarResultado(1, 1), vbDefaultButton1 + vbExclamation, "Advertencia"
' End If
 
 Screen.MousePointer = 0
 
Exit Sub

errhandler:
  Screen.MousePointer = 0
  Animation1.AutoPlay = False
  Animation1.Stop
  Animation1.Visible = False
  lblprocesando.Visible = False
  
  MsgBox MensajedeError(Err.Number, Err.Description), vbDefaultButton1 + vbExclamation, "Advertencia"
End Sub

Private Sub CmdBuscar_Click()
 Dim ArrayBusqueda(1 To 2, 1 To 3) As Variant
 
 ArrayBusqueda(1, 1) = "Siteid"
 ArrayBusqueda(1, 2) = "Código "
 ArrayBusqueda(1, 3) = 1000
 ArrayBusqueda(2, 1) = "Name"
 ArrayBusqueda(2, 2) = "Descripción "
 ArrayBusqueda(2, 3) = 4000
      
 FBusquedasVta.GObtenerRegistros MobjAlmacen.ListarAlmacenesPorStatus(1), ArrayBusqueda, 2, 2
 FBusquedasVta.Show vbModal
    
 If GrecibeUbicacion <> 0 Then
    DtcAlmacen.BoundText = GrecibeColumnaID
 End If
 
End Sub

Private Sub cmdvistaprecia_Click()

On Error GoTo errhandler
ldat_Fecha = DtpFecha.Value
       Screen.MousePointer = 11
       CRAprobarParteDiario.StoredProcParam(0) = DtcAlmacen.BoundText
      CRAprobarParteDiario.StoredProcParam(1) = Format(GDatFechaProceso, "yyyymmdd")
       'CRAprobarParteDiario.StoredProcParam(1) = Format(ldat_Fecha, "yyyymmdd")
       CRAprobarParteDiario.StoredProcParam(2) = GstrCodMonedaBase
       CRAprobarParteDiario.StoredProcParam(3) = GstrMonedaExtranjeraModgen
       CRAprobarParteDiario.StoredProcParam(4) = GCUSERID
       
'      CRAprobarParteDiario.ReportFileName = GstrReportesVta + "rpt_ParteDiarioValorizado.rpt"
'      CRAprobarParteDiario.WindowTitle = "Reporte de Parte Diario Valorizado"
       CRAprobarParteDiario.ReportFileName = GstrReportesVta + "rpt_ListarParteDiarioSimple.rpt"
       CRAprobarParteDiario.WindowTitle = "Reporte de Parte Diario Simple"

       CRAprobarParteDiario.Formulas(1) = "formusuario=stringvar strusuario; strusuario:='" & GCUSERID & "'"
       CRAprobarParteDiario.Formulas(2) = "formscreen=stringvar strscreen; strscreen:='05.140.00'"
       CRAprobarParteDiario.Formulas(3) = "formdecresultado=" & GintDecResultado
       CRAprobarParteDiario.Formulas(4) = "formalmacen=stringvar stralmacen; stralmacen:='" & DtcAlmacen.Text & "'"
      CRAprobarParteDiario.Formulas(5) = "formfechaproceso=stringvar strfechaproces; strfechaproces:='" & CStr(GDatFechaProceso) & "'"
       'CRAprobarParteDiario.Formulas(5) = "formfechaproceso=stringvar strfechaproces; strfechaproces:='" & CStr(ldat_Fecha) & "'"
       CRAprobarParteDiario.Formulas(6) = "formtipocambio=Numbervar DblTipoCambio; DblTipoCambio:=" & MdblMontoTipoCambio & ""
       CRAprobarParteDiario.Formulas(7) = "formmoneda=stringvar strmoneda; strmoneda:='" & MstrDescrMoneda & "'"
              
              
       CRAprobarParteDiario.WindowShowPrintSetupBtn = True
       CRAprobarParteDiario.Action = 1
       Screen.MousePointer = 0
Exit Sub
errhandler:
      Screen.MousePointer = 0
      MsgBox Err.Description, vbDefaultButton1 + vbExclamation, "Advertencia"
End Sub

Private Sub DtpFecha_Change()
ldat_Fecha = DtpFecha.Value
FAprobarParteDiario.Caption = "Aprobación del Parte Diario  [Fecha de Proceso:" & ldat_Fecha & "]"
End Sub

Private Sub DtpFecha_Click()
'ldat_Fecha = DtpFecha.Value
'FAprobarParteDiario.Caption = "Aprobación del Parte Diario  [Fecha de Proceso:" & ldat_Fecha & "]"
End Sub

Private Sub Form_Load()

  Me.Left = (Screen.Width - Me.Width) / 2
  Me.Top = 100
    
  Me.Caption = "Aprobación del Parte Diario  [Fecha de Proceso:" & GDatFechaProceso & "]"
  Set MobjVentasGeneral = New DB_OP_FACTURACION.C_VENTASGENERAL
  Set MobjAlmacen = New DB_INV_MANTENIMIENTOS.C_ALMACEN
  Set MobjMoneda = New DB_MA_MANTENIMIENTOS.C_MONEDA
  Set MobjUtilSetup = New UTIL_SETUP.C_SETUP
          
  Call CargaDataCombo(DtcAlmacen, MobjAlmacen.ListarAlmacenesPorStatus(1), "SiteId", "Name")
  DtcAlmacen.BoundText = GstrSiteProce
  lbldiferperm.Caption = GdbldiferenciaPermitida
  MstrDescrMoneda = MobjMoneda.ListarPorMonedaID(GstrCodMonedaBase)!DESCR
  MdblMontoTipoCambio = MobjVentasGeneral.ObtenerMontoTipodeCambio(GstrCodMonedaBase, GstrMonedaExtranjeraModgen, GDatFechaProceso, GstrTipoCambioVentas)
  cmdBuscar.Enabled = True
  DtpFecha.Value = GDatFechaProceso

  
End Sub

Private Sub Form_Unload(Cancel As Integer)

  Set MobjVentasGeneral = Nothing
  Set MobjAlmacen = Nothing
  Set MobjMoneda = Nothing
  Set MobjUtilSetup = Nothing
  
End Sub

Sub salir_formulario()
  MDIFVENTAS.Toolbar1.Buttons(18).Caption = "Salir"    ' boton salir
  CMD_CANCELAR_Click
End Sub


