diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index 2f4fc8fea..05955771f 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -832,6 +832,8 @@ Partial Class AF_AF
Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoActivoFijo.SelectedIndexChanged
CargaFolios()
ModalidadesPaginaAF()
+ LatLong.Visible = UsuarioActual.CveEmpresa = 158 And ((DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZO") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZO") Or (DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS"))
+ UPEstatus.Update()
End Sub
Private Sub CargaFolios()
@@ -939,9 +941,14 @@ Partial Class AF_AF
TxtFechaBaja.Text = If(ObjActivoFijo.FechaBaja = New Date(1900, 1, 1), "", ObjActivoFijo.FechaBaja.ToString("dd/MM/yyyy"))
- DdlTipoActivoFijo.SelectedValue = ObjActivoFijo.CveTipoActivoFijo.ToString
+ DdlTipoActivoFijo.SelectedValue = ObjActivoFijo.CveTipoActivoFijo.ToString()
CargaSubTipoActivoFijo()
- DdlSubTipoActivoFijo.SelectedValue = ObjActivoFijo.CveSubTipoActivoFijo.ToString
+ DdlSubTipoActivoFijo.SelectedValue = ObjActivoFijo.CveSubTipoActivoFijo.ToString()
+ LatLong.Visible = UsuarioActual.CveEmpresa = 158 And ((DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZO") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZO") Or (DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS"))
+ TxtLatitud.Text = ObjActivoFijo.DtResultados.Rows(0)("Lat").ToString()
+ TxtLongitud.Text = ObjActivoFijo.DtResultados.Rows(0)("Long").ToString()
+
+ UPEstatus.Update()
If ObjActivoFijo.CveMovimientoInv > 0 Then
UpAFInvMovimiento.Visible = True
@@ -2483,7 +2490,7 @@ Partial Class AF_AF
DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.ToEntero, TxtPorDepreciacion.Text.Trim.ToDouble,
TxtObservaciones.Text.Trim, Ddlclientes.SelectedValue.ToEntero, CveMovimientoSalidaInv, UsuarioActual.CveUsuario, CveEmpresaActual, CveMarca:=DdlMarcas.SelectedValue.ToEntero,
CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero,
- FechaBaja:=FechaBaja) > 0 Then
+ FechaBaja:=FechaBaja, Lat:=TxtLatitud.Text, Longi:=TxtLongitud.Text) > 0 Then
ViewState("CveActivoFijo") = ObjAF.CveActivoFijo
Else
ErrorGuardar = True
@@ -2589,7 +2596,7 @@ Partial Class AF_AF
DdlSubProyecto.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.Trim.ToEntero, DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.ToEntero,
TxtPorDepreciacion.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, Ddlclientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveEmpresaActual,
CveMarca:=DdlMarcas.SelectedValue.ToEntero, CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero,
- FechaBaja:=FechaBaja) Then
+ FechaBaja:=FechaBaja, Lat:=TxtLatitud.Text, Longi:=TxtLongitud.Text) Then
'Comentado porque te redirecciona no se ocupa - 22 Enero 2016 - Israel Piña
'CargaDatos()
@@ -3098,7 +3105,8 @@ Partial Class AF_AF
CargaCaracteristicas()
CargaDispositivos()
ModalidadesPaginaAF()
-
+ LatLong.Visible = UsuarioActual.CveEmpresa = 158 And ((DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZO") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZO") Or (DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS"))
+ UPEstatus.Update()
End Sub
#Region "CARGAR CUENTA CONTABLE"
diff --git a/App_Code/CalendarEvent.vb b/App_Code/CalendarEvent.vb
index 9f32f75d6..20e8810af 100644
--- a/App_Code/CalendarEvent.vb
+++ b/App_Code/CalendarEvent.vb
@@ -36,8 +36,9 @@ Public Class CalendarEvent
Public Property CvePersonal As Integer
Public Property CveCliente As Integer
Public Property CveProveedor As Integer
-
-
+ Public Property CveOS As Integer
+ Public Property CveOSDetalle As Integer
+ Public Property CveUsuarioAtendio As Integer
diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb
index d06e61b3a..9e5a61305 100644
--- a/App_Code/ClsAF.vb
+++ b/App_Code/ClsAF.vb
@@ -400,9 +400,12 @@ Public Class ClsAF
Public Function AddActivosFijos(Codigo As String, Descripcion As String, ValorCompra As Double, FechaCompra As Date, CveSubTipoActivoFijo As Integer, CvePersonalResponsable As Integer, NoSerie As String, Año As Integer,
CveSubProyecto As Integer, Cuenta As Integer, CveEstadoActivoFijo As Integer, IdCtaContDepreciacion As Integer, PorDepreciacion As Double, Observaciones As String, CveCliente As Integer,
CveMovimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveModelo As Integer = -1, Optional CveGrupo As Integer = -1,
- Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1, Optional FechaBaja As Date = MinFecha) As Integer
+ Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1, Optional FechaBaja As Date = MinFecha,
+ Optional Lat As String = "", Optional Longi As String = "") As Integer
Dim Retorno As Integer = -1
+
+
DataAdapter("PA_AF_ActivosFijosAdd")
With SqlAdapter.SelectCommand.Parameters
@@ -432,6 +435,9 @@ Public Class ClsAF
.Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
.Add("@FechaBaja", SqlDbType.Date).Value = FechaBaja
+ .Add("@Lat", SqlDbType.VarChar).Value = Lat
+ .Add("@Long", SqlDbType.VarChar).Value = Longi
+
.Add("@CveActivoFijo", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
End With
@@ -445,8 +451,11 @@ Public Class ClsAF
If Ex1.Message.Contains("Número: 2627;") Then
If Ex1.Message.Contains("UN_ActivoFijo") Then
Alert("El Codigo ya se encuentra registrado", TipoMensaje.MsgAdvertencia)
+ ElseIf Ex1.Message.Contains("FK_AF_ActivosFijos_AF_SubTiposActivosFijos") Then
+ Alert("Capture un SubTipo de Activo Fijo Valido", TipoMensaje.MsgAdvertencia)
+
Else
- Alert("Ya existe un Activo Fijo con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
+ Alert("Ya existe un Activo Fijo con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
End If
Else
@@ -462,7 +471,8 @@ Public Class ClsAF
CvePersonalResponsable As Integer, NoSerie As String, Año As Integer, CveSubProyecto As Integer, IdCtaContActivoFijo As Integer,
CveEstadoActivoFijo As Integer, IdCtaContDepreciacion As Integer, PorDepreciacion As Double, Observaciones As String, CveCliente As Integer,
CveUsuarioModifico As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveModelo As Integer = -1, Optional CveGrupo As Integer = -1,
- Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1, Optional FechaBaja As Date = MinFecha) As Boolean
+ Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1, Optional FechaBaja As Date = MinFecha,
+ Optional Lat As String = "", Optional Longi As String = "") As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_ActivosFijosUpdate")
@@ -495,6 +505,8 @@ Public Class ClsAF
.Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre
.Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
.Add("@FechaBaja", SqlDbType.Date).Value = FechaBaja
+ .Add("@Lat", SqlDbType.VarChar).Value = Lat
+ .Add("@Long", SqlDbType.VarChar).Value = Longi
End With
Try
@@ -503,6 +515,8 @@ Public Class ClsAF
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
Alert("Ya existe un Activo Fijo con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
+ ElseIf Ex1.Message.Contains("FK_AF_ActivosFijos_AF_SubTiposActivosFijos") Then
+ Alert("Capture un SubTipo de Activo Fijo Valido", TipoMensaje.MsgAdvertencia)
Else
Me.OnError("Ocurrió un error al guardar los cambios en el Activo Fijo", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index fda2358d9..78225137a 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -1,6 +1,7 @@
Imports System.Data
Imports System.Data.SqlClient
Imports Extensiones
+Imports HigLabo
Public Class ClsNominas
Implements IDisposable
@@ -998,7 +999,7 @@ Public Class ClsNominas
End With
Try
SqlAdapter.Fill(Data)
- Retorno = True
+ retorno = True
Catch ex As Exception
OnError("Ocurrió un error al autorizar la nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
@@ -2402,6 +2403,7 @@ Public Class ClsNominas
Try
DTSet = New DataSet()
DataAdapter("PA_Nom_NominaEmpleadoSimulador", CommandType.StoredProcedure)
+ SqlAdapter.SelectCommand.CommandTimeout = 2400
With SqlAdapter.SelectCommand.Parameters
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
@@ -2616,7 +2618,40 @@ Public Class ClsNominas
End Try
Return retorno
End Function
- Public Function GetNominaEmpleado(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, Optional RegimenContratacion As Integer = 1, Optional CvePersonal As Integer = -1, Optional SalarioDiario As Decimal = 0) As Boolean
+ Public Function GetNominaEmpleado(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer,
+ Optional RegimenContratacion As Integer = 1, Optional CvePersonal As Integer = -1, Optional NetoxSalario As Decimal = 0, Optional Neto As Decimal = 0,
+ Optional CveTipoTrabajador As Integer = -1) As Boolean
+ Dim retorno As Boolean = False
+ Try
+ DTSet = New DataSet()
+ DataAdapter("PA_Nom_NominaEmpleadosz", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+ .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+ .Add("@CveTurno", SqlDbType.Int).Value = CveTurno
+ .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
+ .Add("@Agrupador", SqlDbType.VarChar).Value = Agrupador
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@RegimenContratacion", SqlDbType.Int).Value = RegimenContratacion
+ .Add("@CvePersonal", SqlDbType.Decimal).Value = CvePersonal
+ .Add("@NetoxSalario", SqlDbType.Decimal).Value = NetoxSalario
+ .Add("@Neto", SqlDbType.Decimal).Value = Neto
+ .Add("@CveTipoTrabajador", SqlDbType.Decimal).Value = CveTipoTrabajador
+ End With
+
+
+ SqlAdapter.Fill(DTSet)
+ retorno = True
+ Catch sqEx As SqlException
+ retorno = False
+ OnError("Ocurrió un error al Realizar el cálculo de nómina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Catch ex As Exception
+ retorno = False
+ OnError("Ocurrió un error al Realizar el cálculo de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+ Public Function GetNominaEmpleadoV(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, Optional RegimenContratacion As Integer = 1, Optional CvePersonal As Integer = -1, Optional SalarioDiario As Decimal = 0, Optional CveTipoTrabajador As Integer = -1) As Boolean
Dim retorno As Boolean = False
Try
DTSet = New DataSet()
@@ -2631,6 +2666,7 @@ Public Class ClsNominas
.Add("@RegimenContratacion", SqlDbType.Int).Value = RegimenContratacion
.Add("@CvePersonal", SqlDbType.Decimal).Value = CvePersonal
.Add("@SalarioDiario", SqlDbType.Decimal).Value = SalarioDiario
+ .Add("@CveTipoTrabajador", SqlDbType.Decimal).Value = CveTipoTrabajador
End With
diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb
index c4148db68..227fd3a8c 100644
--- a/App_Code/ClsOS.vb
+++ b/App_Code/ClsOS.vb
@@ -62,6 +62,8 @@ Public Class ClsOS
Public Property Telefono As String = ""
Public Property CveModeloAuto As Integer = -1
Public Property Año As String = ""
+ Public Property CorreoOS As String = ""
+ Public Property FechaInicio As DateTime
Private Class Especificaciones
Public CveValor As Integer
@@ -475,7 +477,7 @@ Public Class ClsOS
Return Retorno
End Function
Public Function GetOrdenesServicios(CveOS As Integer, CveCliente As Integer, Folio As Integer, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer,
- CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
+ CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveOSDetalle As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_OS_OrdenesServiciosGet")
@@ -488,6 +490,9 @@ Public Class ClsOS
.Add("@CveEstatusOrdenServicio", SqlDbType.Int).Value = CveEstatusOrdenServicio
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
+ .Add("@CveOSDetalle", SqlDbType.Int).Value = CveOSDetalle
+
+
End With
Try
SqlAdapter.Fill(Data)
@@ -523,7 +528,11 @@ Public Class ClsOS
Me.Telefono = Data.Rows(0)("TelefonoContacto").ToString
Me.CveModeloAuto = Data.Rows(0)("CveModeloAuto").ToString.ToEntero
+ Me.CorreoOS = Data.Rows(0)("CorreoOS").ToString
Me.Año = Data.Rows(0)("Año").ToString
+ Me.FechaInicio = Data.Rows(0)("FechaInicio").ToString.ToDateTime
+ Me.CveOSDetalle = Data.Rows(0)("CveOSDetalle").ToString.ToEntero
+
End If
Retorno = True
Catch ex As Exception
@@ -577,7 +586,7 @@ Public Class ClsOS
End Function
Public Function AddOrdenesServicios(CveCliente As Integer, CveSubProyecto As Integer, PersonaSolicito As String, FechaRecepcion As Date, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer,
CveUsuario As Integer, CveEmpresa As Integer, CveCotizacion As Integer, CveVenta As Integer, CveOSPadre As Integer, CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1,
- Optional Direccion As String = "-1", Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1") As Boolean
+ Optional Direccion As String = "-1", Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1", Optional Correo As String = "") As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_OS_OrdenesServiciosAdd")
@@ -602,6 +611,7 @@ Public Class ClsOS
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
.Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto
.Add("@Año", SqlDbType.VarChar).Value = Año
+ .Add("@Correo", SqlDbType.VarChar).Value = Correo
.Add("@CveOS", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output
@@ -646,7 +656,7 @@ Public Class ClsOS
End Function
Public Function UpdateOrdenesServicios(PersonaSolicito As String, FechaRecepcion As String, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer, CveOS As Integer, CveUsuarioModifico As Integer,
CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, Optional Direccion As String = "-1",
- Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1") As Boolean
+ Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1", Optional CveSubProyecto As Integer = -1, Optional Correo As String = "-1") As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_OS_OrdenesServiciosUpdate")
@@ -662,10 +672,12 @@ Public Class ClsOS
.Add("@CveOS", SqlDbType.Int).Value = CveOS
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
.Add("@Direccion", SqlDbType.VarChar).Value = Direccion
+ .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
.Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto
.Add("@Año", SqlDbType.VarChar).Value = Año
+ .Add("@Correo", SqlDbType.VarChar).Value = Correo
End With
@@ -700,6 +712,34 @@ Public Class ClsOS
Return Retorno
End Function
+
+
+ Public Function UpdateOrdenesServiciosFinaliza(CveOS As Integer, CveOSDetalle As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_OS_OrdenesServiciosFinalizaUpdate")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveOS", SqlDbType.Int).Value = CveOS
+ .Add("@CveOSDetalle", SqlDbType.Int).Value = CveOSDetalle
+ .Add("@CvePS", SqlDbType.Int).Value = CvePS
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+
+ Catch ex As Exception
+ OnError("Ocurrió un error al guardar los cambios en La Orden de Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
+
+
Public Function RemoveOrdenesServicios(CveOrdenServicio As Integer) As Boolean
Dim Retorno As Boolean = False
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 75e53dde0..efe2c4f5d 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9676,14 +9676,20 @@ Public Class ClsPaginas
tImporteCompra = (Pago.ImportePago * TCValuacionCompra).RoundSQL
tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
End If
+ Dim ImportePagoMN As Decimal = Pago.ImportePago
+ Dim UsaComplementaria As Boolean = True
If CompraActual.CveMoneda > 1 Then ImporteME = Pago.ImportePago
- 'movimiento de pago proveedor
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, Pago.CveConceptoPago, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+ If UsuarioActual.CveEmpresa.Contiene(13, 83) Then 'caso excepcional de complementarias
+ UsaComplementaria = False
+ ImportePagoMN = (Pago.ImportePago * TCValuacionCompra).RoundSQL
+ End If
+ 'movimiento de pago proveedor
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImportePagoMN, Pago.CveConceptoPago, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
'movimiento de pago proveedor Complementaria
- If Not ErrorMovtos AndAlso CompraActual.CveMoneda > 1 Then
+ If Not ErrorMovtos AndAlso CompraActual.CveMoneda > 1 AndAlso UsaComplementaria Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (ImporteME * TCValuacionCompra - ImporteME).RoundSQL, CveConceptoContableComplementaria, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
@@ -9833,7 +9839,7 @@ Public Class ClsPaginas
End If
- If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then ' D E U D O R D I V E R S O
+ If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then ' D E U D O R D I V E R S O
Dim Ret As New ConceptosRetenciones
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
@@ -10219,9 +10225,9 @@ Public Class ClsPaginas
Dim Ret As New ConceptosRetenciones
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
- If ObjConta.GetRetCuenta(38, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
+ If ObjConta.GetRetCuenta(38, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero
- If ObjConta.GetRetCuenta(39, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
+ If ObjConta.GetRetCuenta(39, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSTrasladado").ToString.ToEntero
End If
diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb
index bbac807ee..2ba9024bc 100644
--- a/App_Code/LogicNominas.vb
+++ b/App_Code/LogicNominas.vb
@@ -19,6 +19,7 @@ Public Class LogicNominas
sw.Start()
End If
+ hasfiniquito = False
Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False, versionTimbre) 'CvePersonal, CvePeriodo,
If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then
If Not cfdi.Timbrado Then
@@ -232,7 +233,7 @@ Public Class LogicNominas
End If
Next
- hasfiniquito = objNomina.DtResultados.COUNT("SATCveConcepto", "(Tipo = 'P' AND SATCveConcepto IN ('022', '023','025')) OR (Tipo = 'D' AND SATCveConcepto = '101')") > 0
+ hasfiniquito = objNomina.DtResultados.COUNT("SATCveConcepto", "(Tipo = 'P' AND SATCveConcepto IN ('022', '023','025')) ") > 0 'OR (Tipo = 'D' AND SATCveConcepto = '101')
TotalPercepciones = DtPercepciones.SUM("Importe").ToString().ToDecimal()
@@ -399,7 +400,7 @@ Public Class LogicNominas
Dim otrp = New CFDINominaOtrosPagos With {.TipoOtroPago = Row("SATCveConcepto").ToString(), .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(),
.Importe = Row("Importe").ToString().ToDecimal().Abs(), .Subsidiocausado = Row("ImporteValor").ToString().ToDecimal().Abs()}
If Row("SATCveConcepto").ToString().ToEntero() = 4 Then
- otrp.ejercicio = DateTime.Now.Year - 1
+ otrp.ejercicio = DateTime.Now.Year - If(DateTime.Now.Month = 12, 0, 1)
otrp.SaldoAFavor = Row("ImporteValor").ToString().ToDecimal().Abs()
otrp.RemanenteSalFav = Row("ImporteValor").ToString().ToDecimal().Abs() - Row("Importe").ToString().ToDecimal().Abs()
End If
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index ef98beb14..ae5d47fc5 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -240,7 +240,7 @@ Namespace Extensiones
strLineaTMP = String.Format("{0} {0}{3}{2}:{1}{0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto)
Try
- ArchivoW = New StreamWriter(String.Format("{0}\Log.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+ ArchivoW = New StreamWriter(String.Format("{0}\Log\Log.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch ex As Exception
Exit Sub
End Try
@@ -260,7 +260,7 @@ Namespace Extensiones
Dim strLineaTMP As String
strLineaTMP = String.Format("{0} {1}:{2} {3} {0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto)
Try
- ArchivoW = New StreamWriter(String.Format("{0}\LogMail.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+ ArchivoW = New StreamWriter(String.Format("{0}\Log\LogMail.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch ex As Exception
Exit Sub
End Try
@@ -280,7 +280,7 @@ Namespace Extensiones
' strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
strLineaTMP = String.Format("{0}{1} .. PAC: {2} - Modulo: {3} ..{4}:{5}", Chr(13), Chr(10), CvePAC, Modulo, Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString)
Try
- ArchivoW = New StreamWriter(String.Format("{0}\LogTimbrado.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+ ArchivoW = New StreamWriter(String.Format("{0}\Log\LogTimbrado.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch ex As UnauthorizedAccessException
'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError)
Exit Sub
@@ -303,7 +303,7 @@ Namespace Extensiones
strLineaTMP = String.Format("{0} {1}:{2} {3} {0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto)
Try
- ArchivoW = New StreamWriter(String.Format("{0}\LogCancelacionSAT.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+ ArchivoW = New StreamWriter(String.Format("{0}\Log\LogCancelacionSAT.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch ex As Exception
Exit Sub
End Try
@@ -1600,6 +1600,11 @@ Namespace Extensiones
Public Function FCButton(ByVal Row As GridViewRow, ByVal Control As String) As Button
Return DirectCast(Row.FindControl(Control), Button)
+ End Function
+
+
+ Public Function FCHtmlTableRow(ByVal Row As GridViewRow, ByVal Control As String) As HtmlTableRow
+ Return DirectCast(Row.FindControl(Control), HtmlTableRow)
End Function
diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx
index 4c6b6c44b..f376401a6 100644
--- a/Ashx/CargaEventos.ashx
+++ b/Ashx/CargaEventos.ashx
@@ -136,13 +136,15 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
cevent.CvePersonal = dr("CvePersonal").ToString.ToEntero
cevent.CveCliente = dr("CveCliente").ToString.ToEntero
cevent.CveProveedor = dr("CveProveedor").ToString.ToEntero
-
-
-
cevent.NombreCliente = dr("NombreCliente").ToString
cevent.NombreProveedor = dr("NombreProveedor").ToString
cevent.NomprePersonal = dr("NomprePersonal").ToString
+
+ cevent.CveOS = dr("CveOS").ToString.ToEntero
+ cevent.CveOSDetalle = dr("CveOSDetalle").ToString.ToEntero
+ cevent.CveUsuarioAtendio = dr("CveUsuarioAtendio").ToString.ToEntero
+
cevent.NombreAcercamiento = dr("NombreAcercamiento").ToString
'11/05/2018 - Evento Gasto Recurrente
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index f4c75902a..fb76766aa 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2698,7 +2698,7 @@ Partial Class Bancos_IE
End If
Case "AC" ' Acreedores Diversos
If CveProveedor > 0 Then
- CveConceptoCompra = 42 'Prestamo a acreedor diverso
+ CveConceptoCompra = 48 'anticipo a acreedor diverso
CveConceptoContable = 30 'Bancos
'limpio el iva
HdnProvPorIVA.Value = "0"
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index e95df4dd1..8941c6e1b 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -878,7 +878,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
Next
- Dim UsaComplementariaBancos As Boolean = Not UsuarioActual.CveEmpresa.Contiene(7, 11, 122, 145)
+ Dim UsaComplementariaBancos As Boolean = Not UsuarioActual.CveEmpresa.Contiene(7, 11, 122, 145, 13, 83)
Dim ConceptoMovimiento As String = $"{TxtPagueseA.Text.Trim} - {TxtObservaciones.Text} {If(Pago.TCPago > 1, $" TC:{Pago.TCPago}", "")}"
Dim Referencia As String = $"{HdnTipoTransaccionAbreviatura.Value}: {TxtFolio.Text.Trim}"
Dim tImporteMN As Decimal = TxtImporte.Text.ToDecimal
@@ -899,10 +899,13 @@ Partial Class Bancos_ProveedoresAbonar
End If
Else
+ Dim ImporteME As Decimal = 0
+ If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then
+ ImporteME = tImporteMN
+ tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
+ End If
- If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
-
- If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
+ If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=tImporteMN) Then
MsgError = "No se pudo insertar la póliza"
End If
diff --git a/CRM/EmpresaCRM.aspx b/CRM/EmpresaCRM.aspx
index 7d4d2f15f..c1a340b30 100644
--- a/CRM/EmpresaCRM.aspx
+++ b/CRM/EmpresaCRM.aspx
@@ -489,7 +489,7 @@
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index c83d36b37..7e75d120d 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1785,7 +1785,7 @@ Partial Class Compras_Compras
If Validada And Not EnListadoEFOS Then
Try
- XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", ""))
+ XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", "").Replace("o;?", ""))
Catch ex As Exception
Try
Dim oReader = New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
@@ -4956,7 +4956,7 @@ Partial Class Compras_Compras
End If
- If UsuarioActual.Empresa.UsaAC Then
+ If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then
If TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0 Then
ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
@@ -5263,7 +5263,7 @@ Partial Class Compras_Compras
End If
End If
- If Not ErrorAC Then
+ If Not ErrorAC AndAlso Not TieneError Then
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
@@ -5524,90 +5524,98 @@ Partial Class Compras_Compras
Dim indice = 0
Dim ImporteConcepto As Decimal = 0
- For Each tCveAlmacen As Integer In ListAlmacenes
- If GvInv.Rows(indice).FCDropDownList("DdlRecibirInv").SelectedValue = "1" Then
- Continue For
- End If
- indice += 1
-
- Dim fecha As Date = TxtFecha.Text.ToDate
- If Not UsuarioActual.Empresa.UsaAC Then fecha = Now
-
- CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, 2, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Comp/G2")
-
- If CveMovimientoInventario <= 0 Then
- ErrorMovInv = True
- Else
-
- Dim DtDetalle As New DataTable
- Dim DtEquivalencias As DataTable
- Dim CveProducto As Integer
- Dim CantidadInv As Decimal
- Dim PUInv As Decimal
- Dim CveUnidad As Integer
- Dim CostoIndirecto As Decimal
- Dim tDescuento As Decimal = 0
-
- ListaMovimientosAlmacen.Add(CveMovimientoInventario)
- For Each Dr As DataRow In DtInv.Rows
+ If DdlTipoComprobante.SelectedValue = "Fac" Then
+ For Each tCveAlmacen As Integer In ListAlmacenes
+ If GvInv.Rows(indice).FCDropDownList("DdlRecibirInv").SelectedValue = "1" Then
+ Continue For
+ End If
+ indice += 1
- CveProducto = Dr("CvePS").ToString.ToEntero
- CveUnidad = Dr("CveUM").ToString.ToEntero
- CantidadInv = Dr("Cantidad").ToString.ToDecimal
- PUInv = Dr("PU").ToString.ToDecimal
- tDescuento = Dr("Descuento").ToString.ToDecimal / CantidadInv
- CostoIndirecto = Dr("CostoIndirectoAlmacen").ToString.ToDecimal
+ Dim fecha As Date = TxtFecha.Text.ToDate
+ If Not UsuarioActual.Empresa.UsaAC Then fecha = Now
- If Dr("CveMetodoInventario").ToString.ToEntero = 5 Then
- 'SI FUE POR SERIE LOTE
- DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("CvePS = {0}", Dr("CvePS")))
- If DtDetalle.Rows.Count > 0 Then
- For Each drr As DataRow In DtDetalle.Rows
- If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=drr("Serie").ToString, FechaCaducidad:=drr("FechaCaducidad").ToString.ToDate, CostoIndirecto:=Dr("CostoIndirectoAlmacen").ToString.ToDecimal, CveCompraDetalle:=Dr("CveCompraDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
+ CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, 2, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Comp/G2")
+
+ If CveMovimientoInventario <= 0 Then
+ ErrorMovInv = True
+ Else
+
+ Dim DtDetalle As New DataTable
+ Dim DtEquivalencias As DataTable
+ Dim CveProducto As Integer
+ Dim CantidadInv As Decimal
+ Dim PUInv As Decimal
+ Dim CveUnidad As Integer
+ Dim CostoIndirecto As Decimal
+ Dim tDescuento As Decimal = 0
+
+ ListaMovimientosAlmacen.Add(CveMovimientoInventario)
+
+
+ For Each Dr As DataRow In DtInv.Rows
+
+ CveProducto = Dr("CvePS").ToString.ToEntero
+ CveUnidad = Dr("CveUM").ToString.ToEntero
+ CantidadInv = Dr("Cantidad").ToString.ToDecimal
+ PUInv = Dr("PU").ToString.ToDecimal
+ tDescuento = Dr("Descuento").ToString.ToDecimal / CantidadInv
+ CostoIndirecto = Dr("CostoIndirectoAlmacen").ToString.ToDecimal
+
+ If Dr("CveMetodoInventario").ToString.ToEntero = 5 Then
+ 'SI FUE POR SERIE LOTE
+ DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("CvePS = {0}", Dr("CvePS")))
+ If DtDetalle.Rows.Count > 0 Then
+ For Each drr As DataRow In DtDetalle.Rows
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=drr("Serie").ToString, FechaCaducidad:=drr("FechaCaducidad").ToString.ToDate, CostoIndirecto:=Dr("CostoIndirectoAlmacen").ToString.ToDecimal, CveCompraDetalle:=Dr("CveCompraDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
+ ErrorMovInv = True
+ Exit For
+ End If
+
+ Next
+ End If
+ Else
+
+ 'UNIDAD BASE - EQUIVALENCIAS - INVENTARIO
+ If UsuarioActual.CveEmpresa = 1 Then
+ DtEquivalencias = New DataTable
+ DtEquivalencias = GlobalDTProductosServiciosEquivalencias(CveProducto, -1, UsuarioActual.CveEmpresa)
+ Dim CveUnidadBase As Integer = DtEquivalencias.FiltroPrimeroValor("CveUM", "UnidadBase = 'True'").ToEntero
+ Dim drUMBase As DataRow = DtEquivalencias.FiltroPrimero("UnidadBase = 'True'")
+
+ 'SI LA UNIDAD ACTUAL NO ES LA BASE SACA PROPORCION (EQUIVALENTE)
+ If CveUnidadBase <> CveUnidad Then
+ ' LO QUE PUSE LO QUE VALE UNIDAD BASE LO QUE VALE UNIDAD SELECCIONADA
+ CantidadInv = Dr("Cantidad").ToString.ToDecimal * drUMBase("Cantidad").ToString.ToDecimal / DtEquivalencias.FiltraParametros(String.Format("CveUM = {0}", CveUnidad)).Rows(0)("Cantidad").ToString.ToDecimal
+ PUInv = PUInv * Dr("Cantidad").ToString.ToDecimal / CantidadInv
+ CostoIndirecto = CostoIndirecto * Dr("Cantidad").ToString.ToDecimal / CantidadInv
+ CveUnidad = CveUnidadBase
+ End If
+ End If
+
+ 'si no es por serie lote
+ ImporteConcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, PUInv, PUInv * TipoCambioGuardar) - If(DdlMoneda.SelectedValue.ToEntero = 1, tDescuento, tDescuento * TipoCambioGuardar)
+ ImporteConcepto = If(UsuarioActual.Empresa.UsaAC, ImporteConcepto * IVA, ImporteConcepto)
+ If Dr("CveAlmacen").ToString.ToEntero = tCveAlmacen Then
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, CantidadInv, CveUnidad, Dr("CvePS").ToString.ToEntero, ImporteConcepto, -1, PUTC:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, Dr("PU").ToString.ToDecimal), CostoIndirecto:=CostoIndirecto, CveCompraDetalle:=Dr("CveCompraDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
ErrorMovInv = True
Exit For
End If
-
- Next
- End If
- Else
-
- 'UNIDAD BASE - EQUIVALENCIAS - INVENTARIO
- If UsuarioActual.CveEmpresa = 1 Then
- DtEquivalencias = New DataTable
- DtEquivalencias = GlobalDTProductosServiciosEquivalencias(CveProducto, -1, UsuarioActual.CveEmpresa)
- Dim CveUnidadBase As Integer = DtEquivalencias.FiltroPrimeroValor("CveUM", "UnidadBase = 'True'").ToEntero
- Dim drUMBase As DataRow = DtEquivalencias.FiltroPrimero("UnidadBase = 'True'")
-
- 'SI LA UNIDAD ACTUAL NO ES LA BASE SACA PROPORCION (EQUIVALENTE)
- If CveUnidadBase <> CveUnidad Then
- ' LO QUE PUSE LO QUE VALE UNIDAD BASE LO QUE VALE UNIDAD SELECCIONADA
- CantidadInv = Dr("Cantidad").ToString.ToDecimal * drUMBase("Cantidad").ToString.ToDecimal / DtEquivalencias.FiltraParametros(String.Format("CveUM = {0}", CveUnidad)).Rows(0)("Cantidad").ToString.ToDecimal
- PUInv = PUInv * Dr("Cantidad").ToString.ToDecimal / CantidadInv
- CostoIndirecto = CostoIndirecto * Dr("Cantidad").ToString.ToDecimal / CantidadInv
- CveUnidad = CveUnidadBase
End If
+
End If
- 'si no es por serie lote
- ImporteConcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, PUInv, PUInv * TipoCambioGuardar) - If(DdlMoneda.SelectedValue.ToEntero = 1, tDescuento, tDescuento * TipoCambioGuardar)
- ImporteConcepto = If(UsuarioActual.Empresa.UsaAC, ImporteConcepto * IVA, ImporteConcepto)
- If Dr("CveAlmacen").ToString.ToEntero = tCveAlmacen Then
- If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, CantidadInv, CveUnidad, Dr("CvePS").ToString.ToEntero, ImporteConcepto, -1, PUTC:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, Dr("PU").ToString.ToDecimal), CostoIndirecto:=CostoIndirecto, CveCompraDetalle:=Dr("CveCompraDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
- ErrorMovInv = True
- Exit For
- End If
- End If
- End If
+ i = i + 1
+ Next
+ End If
+ Next
+ End If
+
+
- i = i + 1
- Next
- End If
- Next
End If
If AplicarCostoIndirecto(ObjInventario, ObjCompras) Then
@@ -6598,9 +6606,12 @@ Partial Class Compras_Compras
End If
Else
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
- ErrorPrepoliza = True
+ If Not CveCompraRefacturacion > 0 Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+ ErrorPrepoliza = True
+ End If
End If
+
End If
Case 6
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
@@ -6755,17 +6766,19 @@ Partial Class Compras_Compras
Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacion69}").ToString.ToEntero
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaDevolucion, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=DiferenciaDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69, CveClasificacion:=CveClasificacion69) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaDevolucion.RoundSQL(), Referencia, 69, Concepto, FechaMovimiento, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=DiferenciaDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69, CveClasificacion:=CveClasificacion69) Then
ErrorPrepoliza = True
End If
End If
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TotalRealDevolucion, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=TotalRealDevolucion * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, TotalRealDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TotalRealDevolucion.RoundSQL(), Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=(TotalRealDevolucion * tipoCambioActual).RoundSQL(), ImporteME:=If(tipoCambioActual = 1, 0, TotalRealDevolucion).RoundSQL(), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
End If
+
+
Else
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento.RoundSQL, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
End If
End If
@@ -6954,6 +6967,8 @@ Partial Class Compras_Compras
Case 5 'Proveedores
If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor
Dim UsaComplementaria As Boolean = True
+
+ If UsuarioActual.CveEmpresa.Contiene(13, 83) Then UsaComplementaria = False
If tipoCambioActual <> 1 Then
Select Case ConceptoContable
Case 5
@@ -7145,11 +7160,11 @@ Partial Class Compras_Compras
'PROVISION de NC
IdCtaContable = CtaProveedorExtranjera
- Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.selectedvalue, ddlmoneda.selectedvalue.toentero, False)
+ Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False)
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, CveCon, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza) Then
IdCtaContable = CtaProveedorComplementaria
- CveCon = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.selectedvalue, ddlmoneda.selectedvalue.toentero, True)
+ CveCon = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, True)
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, CveCon, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
ErrorPrepoliza = True
@@ -13484,6 +13499,25 @@ Partial Class Compras_Compras
PU = (((Dr.FCTextBox("TxtCantidad").Text.ToDecimal * Dr.DataKey("PU").ToString.ToDecimal)) + dif) / Dr.FCTextBox("TxtCantidad").Text.ToDecimal
End If
+
+ If ObjInventario.GetExistenciasProducto(Dr.DataKey("CvePS").ToString.ToEntero, Dr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, CveAlmacen,
+ FechaMovto:=TxtFecha.Text.ToDateTime.AddHours(Now.Hour).AddMinutes(Now.Minute).AddSeconds(Now.Second).ToString("yyyy/MM/dd HH:mm")) Then
+
+ Dim Existencia As Decimal = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", CveAlmacen)).ToDecimal
+
+ If Dr.FCTextBox("TxtCantidad").Text.ToDouble > Existencia Then
+ Alert($"No hay existencia suficiente del producto {Dr.DataKey("PS").ToString} en la fecha:{TxtFecha.Text}", TipoMensaje.MsgAdvertencia)
+ ErrorMovInv = True
+ Exit For
+ End If
+
+ Else
+ ErrorMovInv = True
+ Exit For
+ End If
+
+
+
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr.FCTextBox("TxtCantidad").Text.ToDouble, Dr.DataKey("CveUM").ToString.ToEntero, Dr.DataKey("CvePS").ToString.ToEntero, PU, -1, CveMovimientoDetalleEntrada:=Dr.DataKey("CveMovimientoDetalle").ToString.ToEntero) Then
ErrorMovInv = True
Exit For
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index ab07955c3..fc5f5df39 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -5431,19 +5431,31 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString))
CveFolio = dr("Folio").ToString
- If RutaReporte.Exists Then
- params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString))
- params.Add(New ReportParameter("RFC", dr("RFC").ToString))
- params.Add(New ReportParameter("Vendedor", " "))
- params.Add(New ReportParameter("Correo", dr("Correo").ToString))
- params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString))
- params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
- params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString))
- params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
- params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
- params.Add(New ReportParameter("Copia", "Copia: Original"))
- params.Add(New ReportParameter("Equipo", dr("Equipo").ToString))
- End If
+ 'If RutaReporte.Exists Then
+ params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString))
+ params.Add(New ReportParameter("RFC", dr("RFC").ToString))
+ params.Add(New ReportParameter("Vendedor", " "))
+ params.Add(New ReportParameter("Correo", dr("Correo").ToString))
+ params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString))
+ params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
+ params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString))
+ params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
+ 'params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
+ params.Add(New ReportParameter("Copia", "Copia: Original"))
+ params.Add(New ReportParameter("Equipo", dr("Equipo").ToString))
+
+ params.Add(New ReportParameter("DireccionOS", dr("DireccionOS").ToString))
+ params.Add(New ReportParameter("Telefono", dr("Telefono").ToString))
+ params.Add(New ReportParameter("CorreoOS", dr("CorreoOS").ToString))
+
+ params.Add(New ReportParameter("ModeloMarca", dr("ModeloMarca").ToString))
+ params.Add(New ReportParameter("Año", dr("Año").ToString))
+ params.Add(New ReportParameter("TelefonoContacto", dr("TelefonoContacto").ToString))
+
+ 'End If
+
+
+
End If
End If
@@ -5899,23 +5911,29 @@ Partial Class PopUpVerFactura
Dim ObjIE As New ClsBancos()
Dim Tabla As DataTable
ObjIE.GetBancosIEMovimientosDepositos(CveIE, UsuarioActual.CveEmpresa)
- Tabla = ObjIE.DtResultados
- Dim params As New List(Of ReportParameter)
- params.Add(New ReportParameter("Fecha", Now.ToDateTime.ToString))
- params.Add(New ReportParameter("FechaIE", ObjIE.DtResultados(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
- params.Add(New ReportParameter("CuentaCaja", CuentaCaja))
- params.Add(New ReportParameter("CuentaDeposito", CuentaDeposito))
- If Archivo.Exists Then
- params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DepositoCaja.rdlc", Tabla, params, "DepositoCaja")
- Else
- params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
- ImprimirPDF("Empresas\Grales\Formatos\DepositoCaja.rdlc", Tabla, params, "DepositoCaja")
+ If ObjIE.DtResultados IsNot Nothing AndAlso ObjIE.DtResultados.Rows.Count > 0 Then
+ Tabla = ObjIE.DtResultados
+
+ Dim params As New List(Of ReportParameter)
+ params.Add(New ReportParameter("Fecha", Now.ToDateTime.ToString))
+ params.Add(New ReportParameter("FechaIE", ObjIE.DtResultados(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
+ params.Add(New ReportParameter("CuentaCaja", CuentaCaja))
+ params.Add(New ReportParameter("CuentaDeposito", CuentaDeposito))
+
+ If Archivo.Exists Then
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DepositoCaja.rdlc", Tabla, params, "DepositoCaja")
+ Else
+ params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+ ImprimirPDF("Empresas\Grales\Formatos\DepositoCaja.rdlc", Tabla, params, "DepositoCaja")
+ End If
End If
+
+
ObjIE.Dispose()
End Sub
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 2a712db9b..c17a2cb31 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -575,7 +575,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 272) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
- If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
+ If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
If CveConceptoContable.Contiene(30, 204, 66, 92) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
diff --git a/Empresas/119/Formatos/Factura.rdlc b/Empresas/119/Formatos/Factura.rdlc
index 7a5502e98..50fccdf60 100644
--- a/Empresas/119/Formatos/Factura.rdlc
+++ b/Empresas/119/Formatos/Factura.rdlc
@@ -1,4170 +1,5 @@
-
-
-
-
-
-
- true
- true
-
-
-
-
- Serie:
-
-
-
-
-
-
-
- =Parameters!Serie.Value
-
-
-
-
-
-
-
- Folio:
-
-
-
- =Parameters!Folio.Value
-
-
-
-
-
-
- Textbox81
- 0.36804in
- 5.50529in
- 0.18682in
- 2.05349in
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- Embedded
- Logo119
- Fit
- 0.23694in
- 0.8541in
- 1.39456in
- 1
-
-
-
-
-
- true
- true
-
-
-
-
- Cliente:
-
-
-
- =Parameters!ClienteCodigo.Value
-
-
-
- -
-
-
-
- =Parameters!ClienteNombre.Value
-
-
-
-
-
-
-
-
- Domicilio:
-
-
-
- =Parameters!ClienteDireccion.Value
-
-
-
- ,
-
-
-
- =Parameters!ClienteCiudad.Value
-
-
-
- ,
-
-
-
- =Parameters!ClienteEstado.Value
-
-
-
-
-
-
- Textbox36
- 1.83775cm
- 4.3204cm
- 0.96667cm
- 14.87889cm
- 2
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 3.08165cm
- 0.635cm
- 0cm
- 18.56429cm
- 3
-
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
- POR ESTE PAGARE ME(NO) OBLIGO(AMOS) INCONDICIONALMENTE A PAGAR A LA ORDEN DE
-
-
-
- AGROQUIMICOS JAM, S.A. DE C.V.
-
-
-
- AL VENCIMIENTO ABAJO INDICADO. EN LA CIUDAD DE HERMOSILLO, SONORA O EN CUALQUIER OTRO LUGAR QUE SE ME REQUIERA DE PAGO, RENUNCIANDO EXPRESAMENTE AL FUERO DE MI DOMICILIO. LA CANTIDAD DE
-
-
-
- $
-
-
-
- =Parameters!Total.Value
-
-
-
-
-
-
-
-
- SON:
-
-
-
- =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value)
-
-
-
-
-
-
-
-
-
-
-
-
- LA SUMA ANTERIOR SI NO FUERA CUBIERTA A SU VENCIMIENTO, CAUSARA INTERES MORATORIO A RAZON DEL
-
-
-
- 3.00% MENSUAL
-
-
-
- Y EN CASO DEL COBRO JUDICIAL SE CARGARAN LOS GASTOS QUE ESTOS GENEREN.
-
-
-
-
-
-
- Textbox75
- 1.53269in
- 0.25in
- 1.30172in
- 7.30878in
- 4
-
-
-
- true
- true
-
-
-
-
- a
-
-
-
- =cdate(Parameters!Fecha.Value)
-
-
-
-
-
-
-
-
- Vencimiento el
-
-
-
- =Parameters!Vencimiento.Value
-
-
-
-
-
-
- Textbox38
- 8.17569cm
- 3.93558cm
- 1.07625cm
- 5.19875cm
- 5
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 10.25697cm
- 3.93558cm
- 0cm
- 5.19875cm
- 6
-
-
-
-
-
- true
- true
-
-
-
-
- S U S C R I P T O R
-
-
-
-
-
-
- Textbox39
- 10.43336cm
- 3.93558cm
- 0.6cm
- 5.19875cm
- 7
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 10.25697cm
- 11.9387cm
- 0cm
- 5.19875cm
- 8
-
-
-
-
-
- true
- true
-
-
-
-
- NOMBRE Y FIRMA DEL AVAL
-
-
-
-
-
-
- Textbox39
- 10.43336cm
- 11.9387cm
- 0.6cm
- 5.19875cm
- 9
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
- Start
-
- true
- 7.66395in
- 0.18226in
- 4.422in
- 7.87128in
-
- =iif(Parameters!AplicaPagare.Value="0",True,False)
-
-
-
-
-
-
- true
- true
-
-
-
-
- Facturado a:
-
-
-
-
-
-
-
-
- Cliente:
-
-
-
- =Parameters!ClienteNombre.Value
-
-
-
-
-
-
-
-
- RFC:
-
-
-
- =Parameters!ClienteRFC.Value
-
-
-
-
-
-
-
-
- Calle:
-
-
-
-
-
-
-
- =Parameters!ClienteCalle.Value & IIF(Parameters!ClienteNoExt.Value <> "", " No.Ext: " & Parameters!ClienteNoExt.Value & iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,""),iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,""))
-
-
-
-
-
-
-
-
- Colonia:
-
-
-
-
-
-
-
- =Parameters!ClienteColonia.Value
-
-
-
-
-
-
-
-
- Ciudad:
-
-
-
- =Parameters!ClienteCiudad.Value
-
-
-
-
-
-
-
- Estado:
-
-
-
-
-
-
-
- =Parameters!ClienteEstado.Value
-
-
-
-
-
-
-
-
- Municipio y/o Delegación:
-
-
-
- =Parameters!ClienteMunicipio.Value
-
-
-
-
-
-
-
-
-
-
-
-
- Pais:
-
-
-
- =Parameters!ClientePais.Value
-
-
-
-
-
-
-
- CP:
-
-
-
-
-
-
-
- =Parameters!ClienteCP.Value
-
-
-
-
-
-
-
-
- Pedido/Contrato:
-
-
-
- =Parameters!PedidoContrato.Value
-
-
-
-
-
-
-
-
- Orden Compra:
-
-
-
- =Parameters!OrdenCompra.Value
-
-
-
-
-
-
-
-
- Reg.fiscal:
-
-
-
-
-
-
-
- =Parameters!RegimenFiscalCodigo.Value
-
-
-
-
-
-
- Textbox2
- 0.05159in
- 4.31439cm
- 2.04917in
- 3.35209in
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
- true
- true
-
-
-
-
- "Este documento es una representación impresa de un CFDI"
-
-
-
-
-
-
-
-
- Folio fiscal:
-
-
-
- =Parameters!FolioFiscal.Value
-
-
-
-
-
-
-
-
- Fecha y hora de certificación:
-
-
-
- =Parameters!FechaCertificacion.Value
-
-
-
- Número de serie del Certificado de Sello Digital:
-
-
-
- =Parameters!CertificadoContribuyente.Value
-
-
-
-
-
-
-
-
- Sello digital del CFDI: Número de serie del Certificado de Sello Digital del SAT:
-
-
-
- =Parameters!SerieCertificadoSAT.Value
-
-
-
-
-
-
-
-
- =Parameters!SelloCFDI.Value
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Cadena original del complemento de certificación digital del SAT:
-
-
-
-
-
-
-
-
- =Parameters!CadenaOriginal.Value
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Sello digital del SAT:
-
-
-
-
-
-
-
-
- =Parameters!SelloSAT.Value
-
-
-
-
-
-
- Textbox45
- 0.01167cm
- 3.00771cm
- 16.43974cm
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- External
- =Parameters!QR.Value
- FitProportional
- 0.0444in
- 6.56374in
- 1.13974in
- 1.53682in
- 1
-
-
-
-
-
- true
- 3.44576in
- 0.02339in
- 1.21305in
- 8.22763in
- 2
-
-
-
-
-
- true
- true
-
-
-
-
- Domicilio fiscal:
-
-
-
-
-
-
-
-
- Agroquímicos JAM, S.A. de C.V.
-
-
-
-
-
-
-
-
- AJA850608L7A
-
-
-
-
-
-
-
-
- Carretera a Bahia Kino KM. 12 S /N
-
-
-
-
-
-
-
-
- C.P. 83220 Col. La Manga
-
-
-
-
-
-
-
-
- Hermosillo, Son. México.
-
-
-
-
-
-
-
-
- Regimen General de Ley Personas Morales
-
-
-
-
-
-
-
-
-
-
- Textbox32
- 2.84726cm
- 0.08425cm
- 2.50687cm
- 4.12431cm
- 3
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
-
-
-
-
- TIPO DE DOCUMENTO:
-
-
-
- =Parameters!Tipo.Value
-
-
-
-
-
-
-
-
-
-
-
-
- Serie:
-
-
-
- =Parameters!Serie.Value
-
-
-
- Folio:
-
-
-
- =Parameters!Folio.Value
-
-
-
-
-
-
-
-
- Fecha:
-
-
-
-
-
-
-
- = Parameters!Fecha.Value
-
-
-
-
-
-
-
-
- Moneda:
-
-
-
-
-
-
-
- =Parameters!MonedaAbreviatura.Value
-
-
-
-
-
-
-
-
-
-
-
-
- =iif(Parameters!TipoCambio.Value <= 1, "", "Tipo Cambio: " & Parameters!TipoCambio.Value)
-
-
-
-
-
-
-
-
- Forma de pago:
-
-
-
- =Parameters!FormaPago.Value
-
-
-
-
-
-
-
-
- Método de pago:
-
-
-
- =Parameters!MetodoPago.Value
-
-
-
-
-
-
-
-
- Uso CFDI:
-
-
-
- =Parameters!UsoCFDI.Value
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Textbox4
- 0.05022in
- 5.05067in
- 1.31095in
- 3.21285in
- 4
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Expedido en
-
-
-
- :
-
-
-
-
-
-
-
-
- =Parameters!DomicilioSucursal.Value
-
-
-
-
-
-
-
-
- AJA850608L7A
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Vendedor:
-
-
-
- =Parameters!VendedorNombre.Value
-
-
-
-
-
-
- Textbox40
- 3.615cm
- 13.26812cm
- 1.61889cm
- 7.72123cm
- 5
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
- 0.54927in
-
-
- 0.58129in
-
-
- 0.8527in
-
-
- 2.31203in
-
-
- 0.69781in
-
-
- 0.57354in
-
-
- 0.59047in
-
-
- 0.61967in
-
-
- 0.64182in
-
-
- 0.79194in
-
-
-
-
- 0.19645in
-
-
-
-
- true
- true
-
-
-
-
- CANT
-
-
-
-
-
-
- Textbox22
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- UNIDAD
-
-
-
-
-
-
- Textbox15
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- CLAVE SAT
-
-
-
-
-
-
- Textbox29
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- DESCRIPCIÓN
-
-
-
-
-
-
- Textbox17
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Obj. Imp.
-
-
-
-
-
-
- Textbox30
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- PU
-
-
-
-
-
-
- Textbox3
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- DESC.
-
-
-
-
-
-
- Textbox8
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- IVA
-
-
-
-
-
-
- Textbox2
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- IEPS
-
-
-
-
-
-
- Textbox4
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- TOTAL
-
-
-
-
-
-
- Textbox1
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.14436in
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Cantidad.Value
-
-
-
-
-
-
- Cantidad1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!UM.Value
-
-
-
-
-
-
- UM
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!SATClaveProdServ.Value
-
-
-
-
-
-
- SATClaveProdServ
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!PS.Value & " " & Fields!Obs.Value
-
-
-
-
-
-
- PS
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!CodigoObjetoImpuesto.Value
-
-
-
-
-
-
- ObjetoImpuesto
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!PU.Value
-
-
-
-
-
-
- PU
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Descuento.Value
-
-
-
-
-
-
- Descuento
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =iif(cdbl(Fields!ImporteIVA.Value) > 0, Format(Fields!ImporteIVA.Value,"###,###,###.00") & "(" & cdbl(Fields!PorcentajeIVA.Value) * 100 & "%)","")
-
-
-
-
-
-
- ImporteIVA
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =iif(cdbl(Fields!PorcentajeIEPS.Value) > 0, Format( Fields!ImporteIEPS.Value,"###,###,###.00") & "(" & Round(cdbl(Fields!PorcentajeIEPS.Value) * 100,0) & "%)","")
-
-
-
-
-
-
- ImporteIEPS
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Cantidad.Value * Fields!PU.Value
-
-
-
-
-
-
- TiempoEntrega
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- After
-
-
-
-
-
-
- DsOC
- 2.13003in
- 0.04048in
- 0.34081in
- 8.21054in
- 6
-
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox5
- 6.46081cm
- 0.10282cm
- 0.14316cm
- 20.88652cm
- 7
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox5
- 7.23218cm
- 15.05252cm
- 0.14316cm
- 5.93682cm
- 8
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =UCase(Parameters!ImporteLetra.Value)
-
-
-
-
-
-
- ImporteLetra
- 2.94534in
- 2.02374in
- 0.18861in
- 6.23978in
- 9
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox5
- 8.11324cm
- 0.07107cm
- 0.1cm
- 20.88652cm
- 10
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox5
- 12.00801cm
- 0.10282cm
- 0.14316cm
- 20.85477cm
- 11
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Observaciones.Value
-
-
-
-
-
-
- Textbox1
- 6.7098cm
- 5.1403cm
- 0.34219cm
- 9.73903cm
- 12
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
- 2.99824cm
-
-
-
-
- 0.48004cm
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Importe.Value
-
-
-
-
-
-
- Importe
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- =Fields!ImpuestoLocal.Value
-
-
-
- 2.93858cm
-
-
- true
- true
-
-
-
-
- =IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value)
-
-
-
-
-
-
- ImpuestoLocal
-
-
- White
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- DataSet1
- 6.67453cm
- 15.05252cm
- 0.48004cm
- 5.93682cm
- 13
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- CFDI Relacionados
-
-
-
-
-
-
- Textbox5
- 0.14926cm
- 0.07193cm
- 0.54004cm
- 20.7077cm
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Tipo Relación:
-
-
-
-
-
-
- Textbox29
- 0.83025cm
- 4.78817cm
- 0.41981cm
- 5.31841cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!TipoRelacionTexto.Value
-
-
-
-
-
-
- Textbox29
- 0.83025cm
- 10.10658cm
- 0.41981cm
- 7.14985cm
- 2
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
- 2.42456cm
-
-
- 2.05585cm
-
-
- 3.03631cm
-
-
- 7.7847cm
-
-
-
-
- 0.44125cm
-
-
-
-
- true
- true
-
-
-
-
- Folio
-
-
-
-
-
-
- Textbox10
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Fecha
-
-
-
-
-
-
- Textbox12
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Importe
-
-
-
-
-
-
- Textbox21
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Folio Fiscal
-
-
-
-
-
-
- Textbox11
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.41479cm
-
-
-
-
- true
- true
-
-
-
-
- =Fields!SerieFolio.Value
-
-
-
-
-
-
- SerieFolio
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Fecha.Value
-
-
-
-
-
-
- Fecha
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Importe.Value
-
-
-
-
-
-
- Importe1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!FolioFiscal.Value
-
-
-
-
-
-
- FolioFiscal
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- After
-
-
-
-
-
-
- DataSet4
- 1.39643cm
- 3.28643cm
- 0.85604cm
- 15.30142cm
- 3
-
-
-
-
-
- true
- 14.53691cm
- 0.10282cm
- 2.25247cm
- 20.89818cm
- 14
-
- =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True)
-
-
-
-
-
-
- true
- true
-
-
-
-
- "REVISAR SU FACTURA Y SUS PRODUCTOS AL MOMENTO DE RECIBIRLAS, YA QUE NO SE REALIZARAN CAMBIOS EN FACTURA NI SE ACEPTARAN DEVOLUCIONES DE MERCANCIA DESPUES DE
-
-
-
-
-
-
-
-
- 72 HORAS
-
-
-
- POSTERIORES A LA FECHA DE ELABORACIÓN"
-
-
-
-
-
-
- Textbox1
- 8.2454cm
- 0.10282cm
- 0.34219cm
- 20.85477cm
- 15
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- Embedded
- jam3
- FitProportional
- 0.13104cm
- 0.08425cm
- 2.5433cm
- 4.13cm
- 16
-
-
-
-
-
-
-
-
- 1.83852cm
-
-
- 1.21168cm
-
-
- 1.69623cm
-
-
-
-
- 0.44125cm
-
-
-
-
- true
- true
-
-
-
-
- IMPUESTO
-
-
-
-
-
-
- Textbox10
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- TASA
-
-
-
-
-
-
- Textbox12
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- IMPORTE
-
-
-
-
-
-
- Textbox21
-
-
- #008204
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.41479cm
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Impuesto.Value
-
-
-
-
-
-
- Impuesto
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!tasa.Value
-
-
-
-
-
-
- tasa
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Importe.Value
-
-
-
-
-
-
- Importe2
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- After
-
-
-
-
-
-
- DataSet3
- 6.7098cm
- 0.10282cm
- 0.85604cm
- 4.74643cm
- 17
-
- =IIf(Fields!Importe.Value = 0, True,False)
-
-
-
-
-
-
- true
- true
-
-
-
-
- Nombre Comercial:
-
-
-
-
-
-
-
-
- Beneficiario:
-
-
-
-
-
-
-
-
-
-
-
-
- Banco:
-
-
-
-
-
-
-
-
-
-
-
-
- Clabe:
-
-
-
-
-
-
-
-
- Cuenta:
-
-
-
-
-
-
-
-
-
-
- Textbox1
- 12.32756cm
- 0.10282cm
- 2.03296cm
- 3.74249cm
- 18
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- AGROQUIMICOS JAM SA DE CV
-
-
-
-
-
-
-
-
- AGROQUIMICOS JAM SA DE CV
-
-
-
-
-
-
-
-
- BBVA BANCOMER, MONEDA NACIONAL
-
-
-
-
-
-
-
-
- 012760004510539065
-
-
-
-
-
-
-
-
- 0451053906
-
-
-
-
-
-
- Textbox1
- 12.32756cm
- 3.84531cm
- 2.03295cm
- 5.75197cm
- 19
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Nombre Comercial:
-
-
-
-
-
-
-
-
- Beneficiario:
-
-
-
-
-
-
-
-
-
-
-
-
- Banco:
-
-
-
-
-
-
-
-
-
-
-
-
- Clabe:
-
-
-
-
-
-
-
-
- Cuenta:
-
-
-
-
-
-
-
-
-
-
- Textbox1
- 12.32756cm
- 9.70311cm
- 2.03295cm
- 4.17266cm
- 20
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- AGROQUIMICOS JAM SA DE CV
-
-
-
-
-
-
-
-
- AGROQUIMICOS JAM SA DE CV
-
-
-
-
-
-
-
-
- BBVA BANCOMER, MONEDA DOLARES
-
-
-
-
-
-
-
-
- 012760001097398900
-
-
-
-
-
-
-
-
- 0109739890
-
-
-
-
-
-
- Textbox1
- 12.32756cm
- 13.87577cm
- 2.03294cm
- 6.94061cm
- 21
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- VERSION
-
-
-
- =Parameters!CFDIVersion.Value
-
-
-
-
-
-
- Textbox5
- 16.89169cm
- 17.31584cm
- 0.65292cm
- 3.68516cm
- 22
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 30.69831cm
-
-
-
-
- 21.001cm
-
-
- 0.63499cm
- true
- true
-
-
- true
- true
-
-
-
-
- Fecha Impresión:
-
-
-
- =Parameters!FechaImpresion.Value
-
-
-
-
-
-
- Textbox31
- 0.11289cm
- 8.85735cm
- 0.41981cm
- 6.02198cm
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- ="Página " & Globals.PageNumber & " de " & Globals.TotalPages
-
-
-
-
-
-
- Textbox35
- 0.11289cm
- 18.37079cm
- 0.41981cm
- 2.5cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 27.94cm
- 21.59cm
- 0cm
- 0cm
- 0.5cm
- 0.5cm
- 1.27cm
-
-
+0
@@ -4500,6 +335,3987 @@
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Serie:
+
+
+
+
+
+
+
+ =Parameters!Serie.Value
+
+
+
+
+
+
+
+ Folio:
+
+
+
+ =Parameters!Folio.Value
+
+
+
+
+
+
+ Textbox81
+ 0.36804in
+ 5.50529in
+ 0.18682in
+ 2.05349in
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ Embedded
+ Logo119
+ Fit
+ 0.23694in
+ 0.8541in
+ 1.39456in
+ 1
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Cliente:
+
+
+
+ =Parameters!ClienteCodigo.Value
+
+
+
+ -
+
+
+
+ =Parameters!ClienteNombre.Value
+
+
+
+
+
+
+
+
+ Domicilio:
+
+
+
+ =Parameters!ClienteDireccion.Value
+
+
+
+ ,
+
+
+
+ =Parameters!ClienteCiudad.Value
+
+
+
+ ,
+
+
+
+ =Parameters!ClienteEstado.Value
+
+
+
+
+
+
+ Textbox36
+ 1.83775cm
+ 4.3204cm
+ 0.96667cm
+ 14.87889cm
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 3.08165cm
+ 0.635cm
+ 0cm
+ 18.56429cm
+ 3
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+ POR ESTE PAGARE ME(NO) OBLIGO(AMOS) INCONDICIONALMENTE A PAGAR A LA ORDEN DE
+
+
+
+ AGROQUIMICOS JAM, S.A. DE C.V.
+
+
+
+ AL VENCIMIENTO ABAJO INDICADO. EN LA CIUDAD DE HERMOSILLO, SONORA O EN CUALQUIER OTRO LUGAR QUE SE ME REQUIERA DE PAGO, RENUNCIANDO EXPRESAMENTE AL FUERO DE MI DOMICILIO. LA CANTIDAD DE
+
+
+
+ $
+
+
+
+ =Parameters!Total.Value
+
+
+
+
+
+
+
+
+ SON:
+
+
+
+ =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value)
+
+
+
+
+
+
+
+
+
+
+
+
+ LA SUMA ANTERIOR SI NO FUERA CUBIERTA A SU VENCIMIENTO, CAUSARA INTERES MORATORIO A RAZON DEL
+
+
+
+ 3.00% MENSUAL
+
+
+
+ Y EN CASO DEL COBRO JUDICIAL SE CARGARAN LOS GASTOS QUE ESTOS GENEREN.
+
+
+
+
+
+
+ Textbox75
+ 1.53269in
+ 0.25in
+ 1.30172in
+ 7.30878in
+ 4
+
+
+
+ true
+ true
+
+
+
+
+ a
+
+
+
+ =cdate(Parameters!Fecha.Value)
+
+
+
+
+
+
+
+
+ Vencimiento el
+
+
+
+ =Parameters!Vencimiento.Value
+
+
+
+
+
+
+ Textbox38
+ 8.17569cm
+ 3.93558cm
+ 1.07625cm
+ 5.19875cm
+ 5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 10.25697cm
+ 3.93558cm
+ 0cm
+ 5.19875cm
+ 6
+
+
+
+
+
+ true
+ true
+
+
+
+
+ S U S C R I P T O R
+
+
+
+
+
+
+ Textbox39
+ 10.43336cm
+ 3.93558cm
+ 0.6cm
+ 5.19875cm
+ 7
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 10.25697cm
+ 11.9387cm
+ 0cm
+ 5.19875cm
+ 8
+
+
+
+
+
+ true
+ true
+
+
+
+
+ NOMBRE Y FIRMA DEL AVAL
+
+
+
+
+
+
+ Textbox39
+ 10.43336cm
+ 11.9387cm
+ 0.6cm
+ 5.19875cm
+ 9
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+ Start
+
+ true
+ 7.66395in
+ 0.18226in
+ 4.422in
+ 7.87128in
+
+ =iif(Parameters!AplicaPagare.Value="0",True,False)
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Facturado a:
+
+
+
+
+
+
+
+
+ Cliente:
+
+
+
+ =Parameters!ClienteNombre.Value
+
+
+
+
+
+
+
+
+ RFC:
+
+
+
+ =Parameters!ClienteRFC.Value
+
+
+
+
+
+
+
+
+ Calle:
+
+
+
+
+
+
+
+ =Parameters!ClienteCalle.Value & IIF(Parameters!ClienteNoExt.Value <> "", " No.Ext: " & Parameters!ClienteNoExt.Value & iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,""),iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,""))
+
+
+
+
+
+
+
+
+ Colonia:
+
+
+
+
+
+
+
+ =Parameters!ClienteColonia.Value
+
+
+
+
+
+
+
+
+ Ciudad:
+
+
+
+ =Parameters!ClienteCiudad.Value
+
+
+
+
+
+
+
+ Estado:
+
+
+
+
+
+
+
+ =Parameters!ClienteEstado.Value
+
+
+
+
+
+
+
+
+ Municipio y/o Delegación:
+
+
+
+ =Parameters!ClienteMunicipio.Value
+
+
+
+
+
+
+
+
+
+
+
+
+ Pais:
+
+
+
+ =Parameters!ClientePais.Value
+
+
+
+
+
+
+
+ CP:
+
+
+
+
+
+
+
+ =Parameters!ClienteCP.Value
+
+
+
+
+
+
+
+
+ Pedido/Contrato:
+
+
+
+ =Parameters!PedidoContrato.Value
+
+
+
+
+
+
+
+
+ Orden Compra:
+
+
+
+ =Parameters!OrdenCompra.Value
+
+
+
+
+
+
+
+
+ Reg.fiscal:
+
+
+
+
+
+
+
+ =Parameters!RegimenFiscalCodigo.Value
+
+
+
+
+
+
+ Textbox2
+ 0.05159in
+ 4.31439cm
+ 2.04917in
+ 3.35209in
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+ true
+ true
+
+
+
+
+ "Este documento es una representación impresa de un CFDI"
+
+
+
+
+
+
+
+
+ Folio fiscal:
+
+
+
+ =Parameters!FolioFiscal.Value
+
+
+
+
+
+
+
+
+ Fecha y hora de certificación:
+
+
+
+ =Parameters!FechaCertificacion.Value
+
+
+
+ Número de serie del Certificado de Sello Digital:
+
+
+
+ =Parameters!CertificadoContribuyente.Value
+
+
+
+
+
+
+
+
+ Sello digital del CFDI: Número de serie del Certificado de Sello Digital del SAT:
+
+
+
+ =Parameters!SerieCertificadoSAT.Value
+
+
+
+
+
+
+
+
+ =Parameters!SelloCFDI.Value
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Cadena original del complemento de certificación digital del SAT:
+
+
+
+
+
+
+
+
+ =Parameters!CadenaOriginal.Value
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Sello digital del SAT:
+
+
+
+
+
+
+
+
+ =Parameters!SelloSAT.Value
+
+
+
+
+
+
+ Textbox45
+ 0.01167cm
+ 3.00771cm
+ 16.43974cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ External
+ =Parameters!QR.Value
+ FitProportional
+ 0.0444in
+ 6.56374in
+ 1.13974in
+ 1.53682in
+ 1
+
+
+
+
+
+ true
+ 3.44576in
+ 0.02339in
+ 1.21305in
+ 8.22763in
+ 2
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Domicilio fiscal:
+
+
+
+
+
+
+
+
+ Agroquímicos JAM, S.A. de C.V.
+
+
+
+
+
+
+
+
+ AJA850608L7A
+
+
+
+
+
+
+
+
+ Carretera a Bahia Kino KM. 12 S /N
+
+
+
+
+
+
+
+
+ C.P. 83220 Col. La Manga
+
+
+
+
+
+
+
+
+ Hermosillo, Son. México.
+
+
+
+
+
+
+
+
+ Regimen General de Ley Personas Morales
+
+
+
+
+
+
+
+
+
+
+ Textbox32
+ 2.84726cm
+ 0.08425cm
+ 2.50687cm
+ 4.12431cm
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+
+ TIPO DE DOCUMENTO:
+
+
+
+ =Parameters!Tipo.Value
+
+
+
+
+
+
+
+
+
+
+
+
+ Serie:
+
+
+
+ =Parameters!Serie.Value
+
+
+
+ Folio:
+
+
+
+ =Parameters!Folio.Value
+
+
+
+
+
+
+
+
+ Fecha:
+
+
+
+
+
+
+
+ = Parameters!Fecha.Value
+
+
+
+
+
+
+
+
+ Moneda:
+
+
+
+
+
+
+
+ =Parameters!MonedaAbreviatura.Value
+
+
+
+
+
+
+
+
+
+
+
+
+ =iif(Parameters!TipoCambio.Value <= 1, "", "Tipo Cambio: " & Parameters!TipoCambio.Value)
+
+
+
+
+
+
+
+
+ Forma de pago:
+
+
+
+ =Parameters!FormaPago.Value
+
+
+
+
+
+
+
+
+ Método de pago:
+
+
+
+ =Parameters!MetodoPago.Value
+
+
+
+
+
+
+
+
+ Uso CFDI:
+
+
+
+ =Parameters!UsoCFDI.Value
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Textbox4
+ 0.05022in
+ 5.05067in
+ 1.31095in
+ 3.21285in
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Expedido en
+
+
+
+ :
+
+
+
+
+
+
+
+
+ =Parameters!DomicilioSucursal.Value
+
+
+
+
+
+
+
+
+ AJA850608L7A
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Vendedor:
+
+
+
+ =Parameters!VendedorNombre.Value
+
+
+
+
+
+
+ Textbox40
+ 3.615cm
+ 13.26812cm
+ 1.61889cm
+ 7.72123cm
+ 5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+ 0.54927in
+
+
+ 0.58129in
+
+
+ 0.8527in
+
+
+ 2.31203in
+
+
+ 0.69781in
+
+
+ 0.57354in
+
+
+ 0.59047in
+
+
+ 0.61967in
+
+
+ 0.64182in
+
+
+ 0.79194in
+
+
+
+
+ 0.19645in
+
+
+
+
+ true
+ true
+
+
+
+
+ CANT
+
+
+
+
+
+
+ Textbox22
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ UNIDAD
+
+
+
+
+
+
+ Textbox15
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ CLAVE SAT
+
+
+
+
+
+
+ Textbox29
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ DESCRIPCIÓN
+
+
+
+
+
+
+ Textbox17
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Obj. Imp.
+
+
+
+
+
+
+ Textbox30
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ PU
+
+
+
+
+
+
+ Textbox3
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ DESC.
+
+
+
+
+
+
+ Textbox8
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ IVA
+
+
+
+
+
+
+ Textbox2
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ IEPS
+
+
+
+
+
+
+ Textbox4
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ TOTAL
+
+
+
+
+
+
+ Textbox1
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.14436in
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Cantidad.Value
+
+
+
+
+
+
+ Cantidad1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!UM.Value
+
+
+
+
+
+
+ UM
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!SATClaveProdServ.Value
+
+
+
+
+
+
+ SATClaveProdServ
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!PS.Value & " " & Fields!Obs.Value
+
+
+
+
+
+
+ PS
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!CodigoObjetoImpuesto.Value
+
+
+
+
+
+
+ ObjetoImpuesto
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!PU.Value
+
+
+
+
+
+
+ PU
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Descuento.Value
+
+
+
+
+
+
+ Descuento
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =iif(cdbl(Fields!ImporteIVA.Value) > 0, Format(Fields!ImporteIVA.Value,"###,###,###.00") & "(" & cdbl(Fields!PorcentajeIVA.Value) * 100 & "%)","")
+
+
+
+
+
+
+ ImporteIVA
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =iif(cdbl(Fields!PorcentajeIEPS.Value) > 0, Format( Fields!ImporteIEPS.Value,"###,###,###.00") & "(" & Round(cdbl(Fields!PorcentajeIEPS.Value) * 100,0) & "%)","")
+
+
+
+
+
+
+ ImporteIEPS
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Cantidad.Value * Fields!PU.Value
+
+
+
+
+
+
+ TiempoEntrega
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+
+ DsOC
+ 2.13003in
+ 0.04048in
+ 0.34081in
+ 8.21054in
+ 6
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox5
+ 6.46081cm
+ 0.10282cm
+ 0.14316cm
+ 20.88652cm
+ 7
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox5
+ 7.23218cm
+ 15.05252cm
+ 0.14316cm
+ 5.93682cm
+ 8
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =UCase(Parameters!ImporteLetra.Value)
+
+
+
+
+
+
+ ImporteLetra
+ 2.94534in
+ 2.02374in
+ 0.18861in
+ 6.23978in
+ 9
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox5
+ 8.11324cm
+ 0.07107cm
+ 0.1cm
+ 20.88652cm
+ 10
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox5
+ 12.00801cm
+ 0.10282cm
+ 0.14316cm
+ 20.85477cm
+ 11
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Observaciones.Value
+
+
+
+
+
+
+ Textbox1
+ 6.7098cm
+ 5.1403cm
+ 0.34219cm
+ 9.73903cm
+ 12
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+ 2.99824cm
+
+
+
+
+ 0.48004cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Importe.Value
+
+
+
+
+
+
+ Importe
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ =Fields!ImpuestoLocal.Value
+
+
+
+ 2.93858cm
+
+
+ true
+ true
+
+
+
+
+ =IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value)
+
+
+
+
+
+
+ ImpuestoLocal
+
+
+ White
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ DataSet1
+ 6.67453cm
+ 15.05252cm
+ 0.48004cm
+ 5.93682cm
+ 13
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ CFDI Relacionados
+
+
+
+
+
+
+ Textbox5
+ 0.14926cm
+ 0.07193cm
+ 0.54004cm
+ 20.7077cm
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Tipo Relación:
+
+
+
+
+
+
+ Textbox29
+ 0.83025cm
+ 4.78817cm
+ 0.41981cm
+ 5.31841cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!TipoRelacionTexto.Value
+
+
+
+
+
+
+ Textbox29
+ 0.83025cm
+ 10.10658cm
+ 0.41981cm
+ 7.14985cm
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+ 2.42456cm
+
+
+ 2.05585cm
+
+
+ 3.03631cm
+
+
+ 7.7847cm
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Folio
+
+
+
+
+
+
+ Textbox10
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Fecha
+
+
+
+
+
+
+ Textbox12
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Importe
+
+
+
+
+
+
+ Textbox21
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Folio Fiscal
+
+
+
+
+
+
+ Textbox11
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.41479cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!SerieFolio.Value
+
+
+
+
+
+
+ SerieFolio
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Fecha.Value
+
+
+
+
+
+
+ Fecha
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Importe.Value
+
+
+
+
+
+
+ Importe1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!FolioFiscal.Value
+
+
+
+
+
+
+ FolioFiscal
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+
+ DataSet4
+ 1.39643cm
+ 3.28643cm
+ 0.85604cm
+ 15.30142cm
+ 3
+
+
+
+
+
+ true
+ 14.53691cm
+ 0.10282cm
+ 2.25247cm
+ 20.89818cm
+ 14
+
+ =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True)
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ "REVISAR SU FACTURA Y SUS PRODUCTOS AL MOMENTO DE RECIBIRLAS, YA QUE NO SE REALIZARAN CAMBIOS EN FACTURA NI SE ACEPTARAN DEVOLUCIONES DE MERCANCIA DESPUES DE
+
+
+
+
+
+
+
+
+ 72 HORAS
+
+
+
+ POSTERIORES A LA FECHA DE ELABORACIÓN"
+
+
+
+
+
+
+ Textbox1
+ 8.2454cm
+ 0.10282cm
+ 0.34219cm
+ 20.85477cm
+ 15
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ Embedded
+ jam3
+ FitProportional
+ 0.13104cm
+ 0.08425cm
+ 2.5433cm
+ 4.13cm
+ 16
+
+
+
+
+
+
+
+
+ 1.83852cm
+
+
+ 1.21168cm
+
+
+ 1.69623cm
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+ IMPUESTO
+
+
+
+
+
+
+ Textbox10
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ TASA
+
+
+
+
+
+
+ Textbox12
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ IMPORTE
+
+
+
+
+
+
+ Textbox21
+
+
+ #008204
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.41479cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Impuesto.Value
+
+
+
+
+
+
+ Impuesto
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!tasa.Value
+
+
+
+
+
+
+ tasa
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Importe.Value
+
+
+
+
+
+
+ Importe2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+
+ DataSet3
+ 6.7098cm
+ 0.10282cm
+ 0.85604cm
+ 4.74643cm
+ 17
+
+ =IIf(Fields!Importe.Value = 0, True,False)
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Nombre Comercial:
+
+
+
+
+
+
+
+
+ Beneficiario:
+
+
+
+
+
+
+
+
+
+
+
+
+ Banco:
+
+
+
+
+
+
+
+
+
+
+
+
+ Clabe:
+
+
+
+
+
+
+
+
+ Cuenta:
+
+
+
+
+
+
+
+
+
+
+ Textbox1
+ 12.32756cm
+ 0.10282cm
+ 2.03296cm
+ 3.74249cm
+ 18
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ AGROQUIMICOS JAM SA DE CV
+
+
+
+
+
+
+
+
+ AGROQUIMICOS JAM SA DE CV
+
+
+
+
+
+
+
+
+ BBVA BANCOMER, MONEDA NACIONAL
+
+
+
+
+
+
+
+
+ 012760004510539065
+
+
+
+
+
+
+
+
+ 0451053906
+
+
+
+
+
+
+ Textbox1
+ 12.32756cm
+ 3.84531cm
+ 2.03295cm
+ 5.75197cm
+ 19
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Nombre Comercial:
+
+
+
+
+
+
+
+
+ Beneficiario:
+
+
+
+
+
+
+
+
+
+
+
+
+ Banco:
+
+
+
+
+
+
+
+
+
+
+
+
+ Clabe:
+
+
+
+
+
+
+
+
+ Cuenta:
+
+
+
+
+
+
+
+
+
+
+ Textbox1
+ 12.32756cm
+ 9.70311cm
+ 2.03295cm
+ 4.17266cm
+ 20
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ AGROQUIMICOS JAM SA DE CV
+
+
+
+
+
+
+
+
+ AGROQUIMICOS JAM SA DE CV
+
+
+
+
+
+
+
+
+ BBVA BANCOMER, MONEDA DOLARES
+
+
+
+
+
+
+
+
+ 012760001097398900
+
+
+
+
+
+
+
+
+ 0109739890
+
+
+
+
+
+
+ Textbox1
+ 12.32756cm
+ 13.87577cm
+ 2.03294cm
+ 6.94061cm
+ 21
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ VERSION
+
+
+
+ =Parameters!CFDIVersion.Value
+
+
+
+
+
+
+ Textbox5
+ 16.89169cm
+ 17.31584cm
+ 0.65292cm
+ 3.68516cm
+ 22
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 30.69831cm
+
+
+
+
+ 21.001cm
+
+
+ 0.63499cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ Fecha Impresión:
+
+
+
+ =Parameters!FechaImpresion.Value
+
+
+
+
+
+
+ Textbox31
+ 0.11289cm
+ 8.85735cm
+ 0.41981cm
+ 6.02198cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages
+
+
+
+
+
+
+ Textbox35
+ 0.11289cm
+ 18.37079cm
+ 0.41981cm
+ 2.5cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 27.94cm
+ 21.59cm
+ 0cm
+ 0cm
+ 0.5cm
+ 0.5cm
+ 1.27cm
+
+
+
+ String
diff --git a/Empresas/140/Formatos/OrdenServicio.rdlc b/Empresas/140/Formatos/OrdenServicio.rdlc
new file mode 100644
index 000000000..4a541f29e
--- /dev/null
+++ b/Empresas/140/Formatos/OrdenServicio.rdlc
@@ -0,0 +1,2173 @@
+
+
+ 0
+
+
+
+ System.Data.DataSet
+ /* Local Connection */
+
+ f55ecc33-47ff-4fc5-a233-35ea9bb1f578
+
+
+
+ System.Data.DataSet
+ /* Local Connection */
+
+ f55ecc33-47ff-4fc5-a233-35ea9bb1f578
+
+
+
+
+
+ DataSet
+ /* Local Query */
+
+
+
+ Cantidad
+ System.String
+
+
+ UM
+ System.String
+
+
+ Clasificacion
+ System.String
+
+
+ PS
+ System.String
+
+
+ Observaciones
+ System.String
+
+
+ CuentaEquipoMostar
+ System.String
+
+
+
+ DataSet
+ C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd
+ DataTable1
+
+
+
+
+
+
+
+ DataSet2
+ /* Local Query */
+
+
+
+ Cantidad
+ System.String
+
+
+ PS
+ System.String
+
+
+
+ DataSet
+ C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd
+ DataTable1
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ 2.27009cm
+
+
+ 13.92687cm
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Cantidad
+
+
+
+
+
+
+ Textbox25
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Producto
+
+
+
+
+
+
+ Textbox12
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Cantidad.Value
+
+
+
+
+
+
+ Cantidad
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!PS.Value
+
+
+
+
+
+
+ PS
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.20312cm
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox29
+
+
+
+ Black
+
+
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox32
+
+
+
+ Black
+
+
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+ Before
+
+
+
+ DataSet1
+ 2.78954cm
+ 0.06614cm
+ 1.08562cm
+ 16.19696cm
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Recibió
+
+
+
+
+
+
+ Textbox34
+ 6.98296cm
+ 3.99525cm
+ 0.6cm
+ 2.5cm
+ 1
+
+ true
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 8.48254cm
+ 3.11891cm
+ 0cm
+ 4.11396cm
+ 2
+
+ true
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Solicitó
+
+
+
+
+
+
+ Textbox34
+ 6.98296cm
+ 12.70798cm
+ 0.6cm
+ 2.5cm
+ 3
+
+ true
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 8.48254cm
+ 11.99039cm
+ 0cm
+ 4.27271cm
+ 4
+
+ true
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Solicito.Value
+
+
+
+
+
+
+ Textbox36
+ 8.54576cm
+ 11.99039cm
+ 0.6cm
+ 4.27271cm
+ 5
+
+ true
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Recibio.Value
+
+
+
+
+
+
+ Textbox37
+ 8.54576cm
+ 3.11891cm
+ 0.6cm
+ 4.11396cm
+ 6
+
+ true
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Material Utilizado
+
+
+
+
+
+
+ Textbox3
+ 4.43255cm
+ 0.08599cm
+ 0.56825cm
+ 3.16146cm
+ 7
+
+ true
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+ 0.72729cm
+
+
+ 1.5428cm
+
+
+ 12.86353cm
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+ #
+
+
+
+
+
+
+ Textbox23
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Cantidad
+
+
+
+
+
+
+ Textbox25
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Descripción
+
+
+
+
+
+
+ Textbox12
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+ Black
+ 1pt
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =RowNumber(Nothing)
+
+
+
+
+
+
+ Textbox24
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Cantidad.Value
+
+
+
+
+
+
+ Cantidad
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!PS.Value
+
+
+
+
+
+
+ PS
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+ Black
+ 1pt
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.20312cm
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Clasificacion1
+
+
+
+ Black
+
+
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox29
+
+
+
+ Black
+
+
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox32
+
+
+
+ Black
+
+
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+ Before
+
+
+
+ DataSet2
+ 5.17719cm
+ 0.06614cm
+ 1.08562cm
+ 15.13362cm
+ 8
+
+ true
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Detalle
+
+
+
+
+
+
+ Textbox3
+ 2.14015cm
+ 0.08599cm
+ 0.50475cm
+ 3.16146cm
+ 9
+
+ true
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Datos del vehiculo
+
+
+
+
+
+
+ Textbox3
+ 0.17639cm
+ 0.08599cm
+ 0.56825cm
+ 5.22521cm
+ 10
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Marca Modelo
+
+
+
+
+
+
+ Textbox3
+ 0.71688cm
+ 0.08599cm
+ 0.56825cm
+ 5.22521cm
+ 11
+
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Año
+
+
+
+
+
+
+ Textbox3
+ 0.71688cm
+ 5.3112cm
+ 0.56825cm
+ 5.22521cm
+ 12
+
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!ModeloMarca.Value
+
+
+
+
+
+
+ Textbox3
+ 1.28513cm
+ 0.08599cm
+ 0.56825cm
+ 5.22521cm
+ 13
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Año.Value
+
+
+
+
+
+
+ Textbox3
+ 1.28513cm
+ 5.3112cm
+ 0.56825cm
+ 5.22521cm
+ 14
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 3.60069in
+
+
+ 7.99085in
+
+
+ 4.83183cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ =Parameters!NombreEmpresa.Value
+
+
+
+
+
+
+ Textbox1
+ 0.22833cm
+ 4.1049cm
+ 0.6cm
+ 10.98903cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ ORDEN DE SERVICIO
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Textbox2
+ 0.86361cm
+ 5.85115cm
+ 0.52945cm
+ 7.58473cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 4.83183cm
+ 0.08599cm
+ 0cm
+ 20.21078cm
+ 2
+
+
+
+
+
+ true
+ true
+
+
+
+
+ OS:
+
+
+
+ =Parameters!FolioOS.Value
+
+
+
+
+
+
+ Textbox4
+ 0.08989in
+ 5.98416in
+ 0.29178in
+ 1.98439in
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Fecha:
+
+
+
+ =Parameters!FechaRecibido.Value
+
+
+
+
+
+
+
+
+
+
+ Textbox18
+ 1.36809cm
+ 11.46032cm
+ 1.98807cm
+ 8.7798cm
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Cliente:
+
+
+
+ =Parameters!Cliente.Value
+
+
+
+
+
+
+
+
+
+
+
+
+ Domicilio:
+
+
+
+ =Parameters!DireccionOS.Value
+
+
+
+
+
+
+
+
+ Descripción:
+
+
+
+ =Parameters!Descripcion.Value
+
+
+
+
+
+
+
+
+ Telefono:
+
+
+
+ =Parameters!TelefonoContacto.Value
+
+
+
+
+
+
+
+
+ Correo:
+
+
+
+ =Parameters!CorreoOS.Value
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Textbox2
+ 1.007in
+ 0.08599cm
+ 0.85363in
+ 4.40864in
+ 5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ Embedded
+ Logo
+ FitProportional
+ 0.17584cm
+ 0.08599cm
+ 2.24083cm
+ 4.1049cm
+ 6
+
+
+
+
+
+
+
+
+
+
+ 1.00188cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages
+
+
+
+
+
+
+ Textbox3
+ 0.2734cm
+ 17.14236cm
+ 0.68085cm
+ 3.13456cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Usuario:
+
+
+
+
+
+
+ Textbox8
+ 0.2734cm
+ 0.06614cm
+ 0.68085cm
+ 1.60042cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!UsuarioImprimio.Value
+
+
+
+
+
+
+ Textbox9
+ 0.2734cm
+ 1.61047cm
+ 0.68085cm
+ 5.14936cm
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Impresión:
+
+
+
+
+
+
+ Textbox10
+ 0.2734cm
+ 6.93622cm
+ 0.68085cm
+ 2.92333cm
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!FechaImpresion.Value
+
+
+
+
+
+
+ Textbox11
+ 0.2734cm
+ 9.84544cm
+ 0.68085cm
+ 4.32745cm
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 0.15874cm
+ 0.08599cm
+ 0cm
+ 20.21078cm
+ 5
+
+
+
+
+
+
+
+
+
+ 27.94cm
+ 21.59cm
+ 0.5cm
+ 0.5cm
+ 1cm
+ 1cm
+ 0.13cm
+
+
+
+
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+
+
+ image/jpeg
+ /9j/4AAQSkZJRgABAQEAYABgAAD/4QBkRXhpZgAATU0AKgAAAAgABQESAAMAAAABAAEAAAExAAIAAAARAAAASlEQAAEAAAABAQAAAFERAAQAAAABAAAuI1ESAAQAAAABAAAuIwAAAABBZG9iZSBJbWFnZVJlYWR5AAD/2wBDAAIBAQIBAQICAgICAgICAwUDAwMDAwYEBAMFBwYHBwcGBwcICQsJCAgKCAcHCg0KCgsMDAwMBwkODw0MDgsMDAz/2wBDAQICAgMDAwYDAwYMCAcIDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCACTATcDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9/KKKKACiiigArk/jj8cvC/7N/wAMdS8Z
+eNNU/sbw3pBiF3efZ5bjyvNlSFP3cSu7ZkkQfKpxnJwASOsr8t/+Dln4wtbeE/hj8P7e802Rb68uvEGoWm4NeQGFFt7WQjOVjfz7wAkYZojg/IwrhzLGfVcNKut1t6vRH3HhvwiuJuI8Lks5OMKknzNbqEU5Ss2mk2k1FtNczV09j6c/4fc/swf9FN/8t3Vv/kWj/h9z+zB/0U7/AMt3Vv8A5Fr+fuivi/8AWvF/yx+5/wCZ/Zn/ABKjwl/0EYn/AMDpf/KT+gT/AIfc/sw/9FN/8t3Vv/kWj/h91+zD/wBFM/8ALd1b/wCRa/n7oo/1rxf8sfuf+Yf8So8Jf9BGJ/8AA6X/AMpP6BD/AMFuv2Ycf8lM/wDLd1b/AORa1fBH/BYf9mz4geKLXR7H4paXb3V5v8t9SsL3TbVdqFzvuLmGOFOFIG9xuOFGWIB/nmoqo8WYu+sY/c/8zOr9FDhVwap4nEKXRuVNpPzXsldeV16n9V6sGHFLX89//BND/gpn4i/YB+IRhnF1rnw51qdX1vRFYF4mwF+2Wu4gLcKoAIJCzKoRyCI5Iv6EK+syvNKeNpuUVZrddj+TfFDwuzDgrHww2KmqlKom6dRK3Ny25k43fLKN1dXas003rYooqn4j8RWPhHw/fatql5bafpml28l3d3VzII4baGNS7yOx4VVUEkngAE16m2rPzOMZSkoxV29keO/tG/8ABRn4M/sl+Orfwz8QPGQ0DW7qyTUY7YaVe3e6B3dFYtBC6jLRuNpIPGcYIJ4H/h9z+zB/0U7/AMt3Vv8A5Fr8Rf2xPj7N+1F+1D448eSS3klv4i1aaawF3FHFPDZKfLtInWMlA0dukSHBbJUksxJY+a18HiOKsQqklSjHlvpdPb7z+7Mi+irkFTLqFTM69dV5Qi5qMqaipNXaSlSbsnpq7u19Nj+gT/h91+zD/wBFN/8ALd1b/wCRaP8Ah91+zD/0Uz/y3dW/+Ra/n7orH/WvF/yx+5/5
+nrf8So8Jf9BGJ/8AA6X/AMpP6BP+H3X7MP8A0Uz/AMt3Vv8A5FrV8D/8Fh/2a/iF4nt9IsPinpVvdXQYpJqdhe6ZartUsd1xcwxwpwONzjJwBkkCv55qKqPFmKvrGP3P/MzrfRP4WcGqWJxCl0blTa+aVJX+9ep/VdFKs8asjKysMqwOQR6inV/Mb+z9+1F8QP2V/Fba18P/ABVqnhq9mwJ1gZZLe7AV1XzoJA0U20SOV8xG2lty4PNfpz/wT3/4L8WXji80/wAI/HBbPR9WupobOy8UWkKwafKPL2l78F8QO0igmWNfJ/fcpAkZZvewHEmHryUKi5G++q+/T8UfhfHX0beIMioTxuX1Fi6MFd8qcai7v2d5XS/uybtduKP05rzL9pf9sf4a/se6Npd98RvFVr4bh1qd7exRrea6numRdzlYoUeQooK7n27VLoCQXUH00HNfhz/wX8/abt/jX+2HbeEdK1H7dovw1sDp0qp5LwpqczeZdmORCWbCrbQurkFJbaRdoIJbuzfMPqeHdWPxbK/9dj4Hwj4BjxfxDDK67lGioynUlG3MopWVm1JXcnFarZs/Rr/h9z+zB/0U7/y3dW/+RaP+H3P7MH/RTf8Ay3dW/wDkWv5+6K+R/wBa8X/LH7n/AJn9bf8AEqPCX/QRif8AwOl/8pP6BP8Ah91+zD/0Uz/y3dW/+Ra9A/Zv/wCCivwc/a48c3Xhv4e+MD4g1qxsX1Ke3/sm+tfLt1kjjZ908KKfnlQYBz82cYBI/m7r9tv+DeP9n6P4b/seaj45mFu2ofEjVHkjeKV2K2Vm0ltEkikBVcT/AGxsrnKyJk5G1fUyjPMXjMQqUlG1m3ZPb7+9j8y8XPA/hThDh2ea0K1eVZyjCmpSpuLlJ3d7Uk7KCk9GrtJdT76oooLbRX1x/JB4n+0h/wAFFPg5+yN45tfDfxC8Yf8ACP61fWKalDb/ANlXt3vt3kkjV90ELqMvFIME5+XOMEE+f/8A
+D7r9mH/opn/lu6t/8i1+J/7Z37WGuftqftCa14+1yH7C2obILHTkuZJ4dLtIxtigQufq7FQqtJJI4Vd5A8rr4TEcVV1VkqKjy30une33n92cP/RVySpltCpnFatHEOKc1CdPlUnulek3ptu9dnY/oE/4fdfsw/8ARTP/AC3dW/8AkWj/AIfc/swf9FN/8t3Vv/kWv5+6CcdeB3rD/WvGfyx+5/5nsP6KXCKV3icT/wCB0v8A5Sf03/s3ftTeA/2ufA934k+Huuf8JBotjfvpk1x9iuLTZcJHHIybZ40Y4SWM5Ax82M5BA9Brw/8A4JxfAjS/2ef2Lvh9oth4ffw3qF9otnquuW00Lx3T6nPbRNctOH+cS7/kKt9wIqABUCj3CvvMPKpKlGVW3M1rbY/hXiLD4GhmmIoZY5OhGclBzacmk7JtxSjrvorBRRRWx4oUUUUAFFFFAAelfzc/8FFf2hdM/ao/bV+IHjnRY9ujatfJBYPuc/are2gitY58OiMvmpAsuxlBTzNpyRk/uX/wU9+Pmvfsy/sL+PvGPhee2tfEFhb29tZTzpvFu1zdQ2zSKMgGRElZ0zldyKWVlBU/zlV8XxZivgwy/wAT/Jfqf2h9E3hf/feI6nlRhr/hnUuv/Bdn/iQUUUV8Wf2gFFFFABRRRQAZr+pL4V6VrOhfDDw5Y+ItSXWPENnpltBql+sQiF9dLEqzTBF4XfIGbaOBnAr8P/8Agkv/AMEsLz9tPx2nibxpZ6np3wv0UpPJvgntj4oYvKnkW0+0IY1khZZ2jfegIVdrOHT93gMCvvOFcJUp051pqyla3yvr+Oh/CP0qeLMvx+PwmT4OanUw/O6jWqi58lo37pRbkul431TSK+Rf+C3v7QE3wI/4J/8AiSGykurfUvHVxF4Wt5ooo5FjS4V3uRIH6I9rDcR7lBZWlQjafmX66r8Ov+C/37TFv8aP2w7XwjpeoNeaP8NbA6fKq+S8C6lM3mXRjdCWbCC2
+hdXwUktpF2jBLepnmL+r4OTW70Xz/wCAflfgbwm8/wCL8NSmr06L9rPS6tBppPylPli79G/Q+FKKKtaHod94n1uz03TbO61DUtRnS1tLS2iaae6ldgqRoigszsxACgEkkAV+Xn+oEpKKcpOyRVor7k/Z9/4Ij+KfElpoOufE/wARWXgnSNRhW8n0O0ia68Rxp5iYhliYLDau8RLgu7vGSoaEsHRfo7wd/wAEn/gH4Fub7d4d8R+MY7llER8R65KrWwXdzGLEWoBcMNwkMmNq7SvzbvjOIvELh3I5OlmGKiqiteEbzmr91FPlt15mn96v+R5143cM4CbpUZyryW/s43W9n70nGL76NrzPyNor9WvEf/Bvt4P+I3w0muvh94l8ZaF4gj3vA/iSW2vdMvdqsFi3Qwwyx7n25lCyBQrjYxxj8pSMGvrMDiqWMwdLMMM+alVV4ys1dd7SSfXqvQ+o4N8Qcm4njW/sqbcqLSnFppx5r28nez2b21sFFFFbn2x+1X/BJf8Abw1TVP8AgmH411jXpNM1/WPgZYXcVtp0Ei2tzPplpp6zWazbQ23d5c0Cy+XysGSHdXZvxp8c+NdU+JXjfWfEetXX27WvEF9PqV/ceWsf2i4mkaSV9qAKu52Y4UADOAAOK1PBXxf1vwF4E8ZeG7G4P9j+OrG3sdUtnd/LcQXkN3DKFDBfNR4doZg2EmlAxvJrl69THZlLEUaVOX2Vr5v/AIZL8T8x4H8OcNw9nGaZnQUUsVUi4pK3LBRu15XqSlotLKPkkUUUV5Z+nGp4H8F6p8SPGuj+HdEtft2ta9ew6dYWwkWP7RcTSLHGm5yFXc7KMsQBnJIFf1BfDj4faP8ACbwBovhjw9Yppuh+H7KLT7C1V2fyIYkCIu5iWYgAZZiWJySSSTX8yfwS+Nvij9nP4oaX4z8G6p/Y3iTRvN+x3n2aK48nzYXhf5JVdDmOR15U4zkYIBr6C/4fcftPf9FO/wDLd0n/AORa
++iyPNMPglJ1U3KVtktl81/SR/O/jl4XcRcaVcLSyyrShQoqTfPKonKcmk9IwlG0YxXK73vKStbf+gSvmH/gsL8e9Q/Z6/YG8Y6poXiJvDXibUntdL0m5hkEdy8ktxGJkhJ5En2UXDBl+ZApZSpUEfkz/AMPuP2nv+inf+W7pP/yLXlP7Tf7bfxP/AGx/7E/4WR4m/wCEj/4R3z/7O/4l1pZ/Z/P8vzf9RFHu3eTH97ONvGMnPrYziihOhKFKMlJqyvZWv10fQ/J+D/ov55gs7wuNzatQlQpzjOcYucnJRfMo8sqcYtSaUZXfwtvXZ+U0UUV8Of3AFfSX/BJP9nzVf2hv29PAdvp58q18I6hD4q1OcqjCC2spo5ACrOpbzJvJh+XcV87dtKq1fNtfsB/wbf8A7Ov/AAjvwm8afE+/s9t14lvU0TSpJ9PMci2lsN80kM7ffilmkVGCDaHseSzLhPUyXC/WMXCD2Wr9F/Vj8u8ZuKv7A4RxeMg/3k17OH+Kp7t/+3Y80tdPd2ex+mAooor9UP8ALAKKKKACiiigAoooJwKAPyN/4OQf2lbXX/GXgn4U6XqPnNoCya7rtvGYpI4p5VCWiOQTIkqRee5RgoKXUTfNkFfzBr1T9t39o7/hrf8Aat8bfEJbX7Fa+Ib8GyhaPy5I7SGNLe28xd7gS+TFGX2sV3ltuFwB5XX5PmmK+sYqdXpfT0Wi/wAz/WDwt4X/ANXuFsHlclacYKU+/PP35p9+VtxXWyQUUUV55+gBRRXVfB74IeLv2gPGUPh/wX4d1TxJq0oVmhsoS4t4y6R+bM/3IYgzoGlkKou4FmA5qoxcnaKOfFYuhhaUsRiZqEI6uUmkku7bsl8zla+7P2Av2wP2V/Anxa8KXnjj4I23g/VNEtzOPFqa5qWt2iX6J8srac+/YrHcUK+c0cnlkAY8xM/4O/8ABEbxh4ht47rx94t0HwVFLG5Flp6rruoRyB9qiQRSJbBGUM25bh2G
+UBTltv2H8D/2Cfg3+z1p+qWul+CtP8YNqThvt/jW1ttau7dRkKsSmFIYgOW4jLEsdzsFQL8Xmnixw3kE+bEYqEpr7EEqsrrpppF/4pQZ/P8A4k+IvCmOwU8vjWrVZNON8PUnTjaWjvNNU5q19HGrF7ONmff+i+MNI8ReHLLWNP1TTr7SdSjjmtL23uUlt7pJMeW0cikqytkYIJByMVpZr5R1LW7zWRELy8urvyARF50rSeWDjIG4nGcD8hXb6N+0XrGj+HYbPyLe7uYWwLm4ZnLR9gwyCWB/izyOoJ5PmZB9K/IcVi6tPM6E8PSjFOEvjcn1TjFe639nVrR3krpH8K4rhKvFJ0Hza7Poumul/PReSO0/aw/aI0v9k79nTxZ8Q9Xi+0WnhmxM6W25k+2XDssVvBvVHKebM8ce/aQm/ceAa/AvXf2U/jt+1J8V9S8Wv8LfFVvdfEDUbjXDezaTNpmkM907XBZbm52wpE2/5C8uDlQCxIz+12s/FvxR42vY4Ybi4hZiDHb6erISQD0xlz3OCSPyrzj4/fH7wn+z5qGnt8VvHFh4amvkjaKG8mkv9RMLmTa/2WASXAjPlygOyLGGUqWDEA45p48f6wVXQ4XyyviVHRSaUIJvrKXvcqta3M4+drn7F4S8RY7hNVaWX4WNbFV+vvzlypaRjTgk3713Jpu+i0td/nZ8G/8AgiV8SPGGowt4217wn8PdO84pKXvF1m9MYUHzI4rMvEeTt2yTRngnGMZ+3/2Yf2E/AP7GcOi694X0s6x4w0mCaxn8aXttKkl1JKzlvKgeWSC3/dFUBRRLsDAsd77vnP4+f8Fu9B8Napb2/wAJvBra2bcobjVPGAK28zK0gYRWVvIrbTiFleWfoXRoc4avknX/APgo58ePEmv3GpTfFrx1azXEflGDT9Uk0+zjHliP93a25SCL5R/Ai4b5vvfNW1bLeLs3wkqGNxFPAX29gpVKq20lUc4xSv8A8+0m9ua17/uW
+L4b8RuL6DWaVI4ahJfw37ilurSjHnm4tbxqTavZ8l7NftIPAOu4/5Aurf+Acn+FYnjfUbP4X2cF14r1LS/CNpdP5UNzr19DpUE0mM7FkuGRWfGTtBzgE4wDX4wJ+3R8bY2LL8YviorN1I8WX/P8A5Frz/wAZ+ONa+I/ia61rxFrGqa9rN9tNzf6jdSXV1cbVCrvkkJZsKqgZPAAHavg4/RzyFSTni60l1VoRf32l+TOHAfR5zF1f9txsFD+7CTfprJJeuvofpL/wUj/4KQ+H/Anwhvvh98M/EOh+JPEXjG2udL8S6lZS/bLfR9OdEzBbyqGt5nuUkIaRJH8lY3TashDp+Y1FFftmR5Lg8ny+llmAjy0qasr6tvrKT0vKT1bsl0SUUor974J4JwHDOBeEwd5Sk+ac3bmm+l7bKK0jFaJau8nKTKKK2PDHgbUvF+m67eWUSNa+G9P/ALU1GVnCi3gM8NsrY6tunuIIwFBIMgJwoZh60Yt6I+tq1oU481RpK6WvdtJL1baSXVtJamPRRRSNAoorrfgV8DvE37SXxX0fwT4P09dU8Ra48i2lu1xHbqwjieWQl5GVQFjjdjk5O3ABJANRjKUlGKu2c+KxVHC0J4nEyUIQTlKTdkkldtt6JJatnJUV9hf8OJP2k/8AoT9J/wDB/Zf/AByj/hxJ+0n/ANCfpP8A4P7L/wCOV3f2TjP+fUvuZ8P/AMRX4N/6GdD/AMGR/wAz49or2X9q39gn4lfsVWehzfELS9P0n/hIpJk0+OHUYbp5/JCGVsRs2AvmRgk45cYzzjxquOtRnSlyVFZ9mfXZTnGBzTDLGZdVjVpSvaUXeLs7OzWjs9H5hRRRWZ6Ra0HQr3xRrllpmm2d1qGpalPHa2lrawtNPcyuwVI40UFmdmIAUAkkgDmv6Y/2T/2etN/ZS/Z08I/D7SpPPtvDVisElwA6/bLhmMlxPtZ3KebM8kmzcQu/aPlAFfiP/wAESv2fo/j5/wAF
+AfDMl3Hazab4Fhk8VXUUs8kTu1uyJbGPYPmZbuW2cqxVSkbg5+4379jgV91wnhbU54h9XZei3/H8j+GfpXcVOtmGF4fpS92lH2k1/elpG/nGKb9J9ehRRRX1x/IoUUUUAFFFFABXy3/wWH/aln/ZX/Ye8RXmmzPb+IPFjr4b0qVQ2beS4RzLKGV1ZGS3SdkcE7ZRFkEZFfUlfiz/AMHEP7S9r8T/ANpjQ/hza6bcW8nwvglN3eyyDbeTX8NpPtRB0RI0i+YnJZ3G0BQzeTnWM+r4SU1u9F6v/JXfyP1bwV4SXEPF2FwtSPNSpv2tTtyw1Seq0lPlg7a+8fnrRW94E0Xw/qd+sniTXbzRtMSZYpRp+m/2hfsrRysJIoXkhhZVdI0ffPGwEysqybWA9A/Z4+Lfwm+EusaHrHiv4W+IPiBq2kzNPNa3PiyG00W/bcxiD2osHkKoChKNOyuyHcCjGOvzOnSUmuaSiu7/AMld/gf6aZhmVShCf1ehOtOP2YqMb3TtaVSUIPs7SbV9UcD8OPhR4p+MWuS6X4R8NeIPFWpQQNdSWmkafLfTxwqyqZCkSswQM6AsRgF1GeRX158Hv+CHHj7xd/Zsvi/xN4f8LLqCSFtP00f25q1sylgm+KJktyGC7vluSyqwyudwWx4e/wCC8vxC+H2k3Wj+E/hp8HPDfhuR5Ps+k22k3i2ttGzE7REl0kIY5JYpGodiWK5NeE+Nf+Ckfx28dapFdz/FLxbpTQxCEQ6Dd/2HbMAzNuaCyEUTOdxBcqWICgnCqBx5hQrNKGEqxj3k4uTWq2jzQV7X1bkk/svr+b4+r4h5lUdPB06OBp/zSn7Wo9NNFBwXdpp9LSet/wBE/Av/AASx+Cn7NPgG31Hxh4ZbVr3S7qG5n8T+NNSbTtNjcbFVTbl47VYmlAIiuGn3GQxs0gIFek/En9sP4S/DL4f6SdS+MHwzj0eySLT7DSfD9+uorYqkbeXGtrp8cgiRUUoH2hF+
+VdwyoP4n+PfiT4i+KviFtX8Ua/rXiTVpI1ia91S+lvLhkXOFMkjM2Bk4GcDNYtfF5jwHSzSEqedYyvXg/sKUaVPR3V6dKMVJrvJyfmfL1PA3F5nUjiOIc0qVpp30Wkb7qHO5qK/wwiv7p+qU/wDwWW+CMLMq2nxQlKkgMug2O18HGRm/BweoyAfYVxGlf8F5fD2nRt5/wRur52AAM3jUqqH2CWS9fcnpXxp+zZ+xf8UP2vL++g+Hfg/UPES6bGZLq4EkVraw8qNhnndIvMO8ER7t5GWCkKxH6x/8E9f+CF2g/srfEPTfHXjrXrPxv4m02KKbT9PisPL03R7wZLzBnYtcOh2+U7JFsIL7C+xo/S4d8F+GqdZVcJl0LdXU5qkf/Aaspxb9F9x8rxvlPhnwlh6kMxlKviLe7SVWam5W05vZOPIndXc9LX5U3o/ffhN8CPFviz4AeHL7xpp/h3w38RriFp9VsdJlnk06AvIxSLMjysJEi2ByrMpkDhSy7WHXeGf2Zra0nim1S+N4oXL28SGNd3H8eclevQKTx06H1KvC/wDgpB+1TJ+xx+x94s8aWTWLa9HHHp+iw3NwsPnXk7iNWQMD5rRKXnMYGWWBxlRll+xxfghwK8b/AGtWwELxS91XVP3Vv7OLUG2t048r3avdn8e4HMM2zbHwy/BO069RRjFaJOcrKKbu1FN6Xei6n5F/8FBf+Cm/jbx58VPiV4D8CeK2034RXV62lW9lYR2rDUIIdsckgvETz5IbiRJJADKQ0c2w5T5a+N6BxRXNGMIQVKjFQhHSMYpKMV2ilokuiSsf6pcN8M5fkWChgsvpxikoqTSSlNpJc02leUnbWTu33Ciiig+gCiiigAor0D9nr9lb4iftWeKJNI+HvhPVfE11b4+0SQKsdrZ5SR1864kKww7xFJt8x13lSq5PFfod+zr/AMG3E2q6PoOqfFDx9cabNcRNLqnh/Q7KNprYkP5ca3zuyFlJjLkQMuQ6
+KxG2WvQweV4rE60oO3fZfe/0Pz/i7xQ4Y4a9zNcXGNT+SPvz2urxjdxT6OXLHzPiL9h/9gDx7+3b8RYdL8NWM1joEMjDVPEd1bv/AGdpiqFZlLgYknIdNsKnc24E7UDOvu//AAVi+EHhH9hD4WfD/wCAXhK3a81O6RfGXi3X7m1RZ9buR59rabWDlo44wb4CDG1FkjO53aV2/bDwJ8P9B+FnhO10Lw1o2l+H9FsQ32ew061S1toNzF22xoAo3MzMcDksSckk1/OB+3N+0q37Xf7VvjP4gC3a1s9bvAmnwMhR4rOFFgtw673AkMUaM4VivmM5GAQB7WZZfSy7Cct71J6X8t3b8F3d/kfivhz4gZt4h8WvEyj7LAYNc6prXmqSvGm6j6u3NOKXuxcFu1zHk1FFFfKn9VBX6h/8G3P7OWoXPjTxt8WpriOPSbW0fwna24Tc1zcO9tdTOW3fII0SEAbTv888jYQ35eGv6QP+Ccv7M9v+yd+xz4J8JjT20/WGsI9S11ZPJaZ9SuFElwJHiAWTy2Pkq2WIjhjXc20E/RcM4T2uK9o9oK/z6fqfzr9Jjiz+y+Ff7OpP95i5cnT4I2lN/wDpMf8At70PcKKK5n40fFTT/gb8I/E3jLVllk03wvpdxqlxHEV82ZIY2kKJuIBdtu1QSMsQM1+iykoq72P878Ph6lerGhRXNKTSSW7bdkl6s/Fb/gvZ+1JN8cf2ypPB9ncWs/h34Ywf2bbm3uI7hJb2ZY5LyQsqgo6sI7domZtjWjH5WZlHw9Wn408Y6l8RPGOreINaunv9Y1y8lv765dVVrieVy8jkKAAWZicAAc9KzK/IsZiZYivKtLq/w6fcj/XTgzhulkGR4XJ6NrUYJO3WW85f9vSbl8woore+Fnw7v/i98TvDnhPSmt11TxRqltpNmZ3KRCa4lWJN7AEhdzjJAOBng1zRi27I+irVoUacqtV2jFNt9ktW/kj9ov8Ag37/AGY7j4M/siXn
+jLVLH7HrHxKvhewlmlWRtNgBjtd8bgKu52uZVZMh454m3HgL94Vzvwh+G1l8GvhP4Y8IabNdXGneFdJtdHtZbllaaWK3hSJGcqFUsVQEkADJOAOldFX67gcOsPQhRXRfj1/E/wAjONuJKmf59is3qP8AizbXlFaQXyikvkFFFFdR8sFFFFABRRRQAV8z/EX/AII//s9/Fnx5rPibxB4FuNQ1zxBeS399dNr+pIZppGLu21bgKoyThVAVRgAAACvI/wDg4g+MPi74J/sV+GNV8G+KfEfhHVLjxra2kt5oupTWFxJCbG/Yxs8TKxQsiEqTglFPUCvzF/YS+Lfx6/bX/ar8K/DH/hor4u+Gf+Em+1/8TL/hJNRvPs3kWc9z/qvtMe7d5O374xuzzjB9bD8Owx2GeIquPLG+6vay1f3HdlnE+Z5PWcsrr1KM5KzdOcoNq+zcWrq/R6H69t/wQ7/ZkP8AzTucfTxDqf8A8kUh/wCCHP7Mp/5p7cD/ALmHUv8A5Irxz/hy/wDHr/o+T4u/9+9R/wDlrXk3wL/Yk+JX7X/wp1rxN8G/2+viV40/sm5ewCXseuaPCbpY0kEcjSXjSopWRTvWFxyQMkEDjjw7lbTkpQst37N2V9rvlPov+IocYrT+0sR/4Pn/APJH11/w43/Zl/6J/df+FDqX/wAfo/4cb/sy/wDRP7r/AMKHUv8A4/X5a/trfDT9tn9grTv7W8cfFj4jTeF5r+HS7TXdL+Il5cWl9cyQPMESNpkuVwscoJkhRcxnBIKlvnT/AIeBfHr/AKLd8Xf/AAsdR/8Aj1ejR4GwtaHPS9m13UV/kZS8WOLouzzLE/8Ag6p/8kfuzB/wQ9/ZjhPzfDqaX2bxDqfH5XArrvhD/wAEp/2ffgZ4yi8QeHfhno8erW4HkTahc3OqLbMrpIskaXUsiRyqyKVkUB15AYAkH8Z/+CfHiH9pX/goH+0baeAtH+PnxY0a3Szm1PVdUk8WX840y0j2
+qZfKNyhlJlkhjCK2cygnCqzD741T/gkF8adDvdOtr39vL4oWdxrFwbOwina+je9nEUkxiiB1XLuIoZZNq5OyJ2xhSRzYjhfAYWpy1JQjLfSDv+CMq/iRxTjKUqVbMMROEtGnWm0/Jpysz9I1QIMKAB7Clr8c/wDgon+xD+0h+wn+zdc/EbTv2rPi946s9L1C2t9Utv7UvtM+wW8xMa3G9tQkMn79oI9iKW/fbuFRjXwB/wAPAvj1/wBFu+Lv/hY6j/8AHq9PC8O/WYe0o1U1ts/1PjZ4rkdpRP6i683/AGmv2TfAv7YPg2x8P/EDSZta0fTr0ajBbJez2oWdUeNXLQurHCSSDBOPmPHTH4Bfsx/tceOfin48u9P+JH7XPxe+Fehw2D3EGrfb9a1z7RcCSNVt/JgnDruRpH3k7R5WOrCvun9mT9hHxz+2P4Du/E3w3/4KCfFzxHodjfvpk9z/AGbrNn5dwkccjJsn1GNzhJYzkDHzdcggYY3h+nSTjiait1vGTX32aO3Lc4xWErxxWBlKnUi7xlGXLJPummmvkfU3/Djf9mX/AKJ/df8AhQ6l/wDH6P8Ahxv+zL/0T+6/8KHUv/j9fLP7Tf7CPjn9jjwHZ+JviR/wUE+LvhzQ76/TS4Ln+zdavN9y8ckqpsg1GRxlIZDkgL8uM5IB+Fv2nP2uPHHws8e2en/Df9rr4vfFTQ5rBLifVvt+taH9nuDJIrW/kzzs7bUWN94OD5uOqmuTC8H4LEfweV+fs2l97Vj62fipxfD4syxH/g+f/wAkfsf/AMON/wBmX/on91/4UOpf/H6Vf+CHH7Mob/kn1y3sfEOpf/H6/Cn/AIeBfHn/AKLd8Xv/AAsNR/8Aj1frp/w5f+PX/R8nxd/796j/APLWjGcI4HCtKu4K+3uX/JMKfipxfP4cyxP/AIPqf/JHtK/8EQ/2YVP/ACTRm+viLVeP/JmvQPg5/wAE2/gT8BXik8NfC/wrDdW96uoW95f2
+x1S8tZ02lHinujJLFtKKwCMAGBYAEkn8y/jv4Eg/Zm+Kuq+CfG//AAUi+Lui+KNE8n7bZf8ACP8AiK58nzYUmj/eQ3rxtmORG+Vjjdg4IIHxDrv7e/xwsNbvLey+PHxd1CzhneOC6/4SzUovtMYYhZNhmyu4YODyM4rowfB2Hqe/Q5V58jX3NpX+R5+YeInEmKpOhjcfXqQe8ZVpyXzTk0f1AYxRX82/7Jv7RHx6/ai/aQ8HfD3/AIaC+Luh/wDCWailh9v/AOEn1G5+y7gTv8v7Qm7GOm4fWv0x/wCHL/x6/wCj5Pi7/wB+9R/+WtXi8lp4aShXrJN67Sf5JnzFPEOavGP5H6EeKfDlv4w8NahpN211Ha6nbSWkzW1w9tMEkUq2yWMq8bYJw6MGU8gggGvlj/hxv+zL/wBE/uv/AAodS/8Aj9fHv7L/AOyh4o/bWt/ER+Ff/BQr4teKpfC4g+3q+l67p6wNOJfJBM98mQ3kycoGxt5HIz4H+3V8Iv20v+CfWh6brXjL41eO9T8N6pPHZRavo3xB1Ga3W7dZnFs0crxz7/Lgd9wiMeCo37sqMHw5hMTVVKdSLl0UotP/AMmR7uUcYZ1k8JLK8TVoxlZy9nUlFO21+Vq9ru19j9Pv+HG/7Mv/AET+6/8ACh1L/wCP0f8ADjf9mX/on91/4UOpf/H6/Cr/AIeBfHr/AKLd8Xf/AAsdR/8Aj1fc/wDwTH/Zd+PX/BRv4Eav42/4a3+Lvg3+ytfm0P7F/aGo6h5vl29tN5vmfb4sZ+0bdu042ZzzgPFcE4TD0/aVuRL/AAX/ACR7EPFbi6TtHMsR/wCDqn/yR+gngP8A4I3fs7/DPxzoviTRfA9xa6x4fv4NSsZm1y/lEM8MiyRsUeYq2GUHDAg4wQRX1AOK/F3/AIKb/sufHr/gnL8BtJ8b/wDDXHxd8Zf2pr8Oh/Yv7Q1HT/K8y3uZvN8z7fLnH2fbt2jO/ORjB+Fv+HgXx6/6Ld8X
+f/Cx1H/49XRl/ClKdPnwk48r7Ra/RHgZ3xZmmaVIzzavUrSirJ1JubSfROTdl6H9Rdcj8dfgZ4Z/aT+FmqeC/GWntqnhvWfK+12q3EluZfKmSZPnjZXGJI0PBGcYPBIr+f8A/Yb+IH7TH7dP7SWhfDzQfjp8XdP/ALQ33Go6o/ifVbiHSLOJd0txIqS/REDMivLLEhdN+4foXrn/AASA+NXhiyjudS/by+KWn28lxBaJLctfxI808qQwxAtqoBeSWRI1XqzuqjJIFZ4zJKNF+xxFZarblk9H6JnBgsxr0ascThbxnBpxknZxkndNPRpp6prZntv/AA43/Zl/6J/df+FDqX/x+j/hxv8Asy/9E/uv/Ch1L/4/XyD+3N/wTu/aY/ZH/Zt1z4iaD+1f8XPH3/CM7LjUdLS81WymWzJ2y3EbJeT7vKyruGVFWJZXLjZtb86P+HgXx6/6Ld8Xf/Cx1H/49WOE4MweJhz0HBrb4Lfmj66p4rcXQdpZliP/AAdU/wDkj91f+HG/7Mv/AET+6/8ACh1L/wCP10fwl/4JF/s+/BH4jaT4s8P+A0h1zQ5xdWM11ql5eR28w+7IIppWjLKfmUlSVYKy4ZVI/B74f/tj/tH/ABS8eaH4Y0H4x/F2+1zxHfwaXp1t/wAJrfRfabmaRY4o9zzqi7nZRliAM5JA5r9Ofhh/wRz/AGqNW0GaTxp+2P468P6mtwVit9F1jV9XgeHapDtLLdWrK5YuCgjIAVTvJYqqxPCWCwjTqyhF9Pd1/BGVXxM4qxVKVCrmGIlCSaknWm009GmnKzTWjT3R+nY4or8of2ZP2E/HP7ZHgG88T/Df/goH8XfEWh2OoPpc9wdN1qz8u5SOORo9lxqMb8JNGchcfN1yDj5R/b08Pftef8E7Ne8OWfjr46eOr+DxVBPNp97ovj3VLi3kaFkE0TCRo5FdBJC2Sm0iVdrMQ4Xpo5NTq1PYwrLm7OMk/wAUj46WIcVzOOnyP6DK
+K/nG/Yc/bh+NXi79tX4P6Tq3xf8Aijqml6n420a1vLO78VX01vdwvfQq8ciNKVdGUkFWBBBINf0c1x5nl0sFVVKTvdX09Wv0NKNZVFdBRRRXmmwUUUUAfnT/AMHN3/JhnhP/ALH2z/8ATfqNfmH/AMEgPi94a+A//BRT4d+LPGGsWug+HdJ/tL7Xf3JIig8zTLuJM4BPMjovTqwr+gz9pz9k/wCH37Y/gO08L/EjQf8AhI9DsL9NThtvt1zZ+XcpHJGr77eSNzhJpBgnb82cZAI8LH/BCX9lM/8ANK//AC5dX/8AkqvpctzjD0MHLC1lL3r7W2at1ZyVqEpVFOPQ6r/h7z+zX/0V7wr/AN9S/wDxFfPn7G//AAVr8K/BT4XalD+0P+0d8P8Ax54kvNUZ9NufC+iXk629p5MY2S/Z7GIZ8wORmEEA/wCsfIWP1n/hxH+yn/0Sv/y5dX/+SqP+HEf7Kf8A0Sv/AMuXV/8A5KrkjUyxQcPf1t0jfTs+nn3LtWvfT8T82/8AgsJ8Yf2VfjZ8JdD1b4Q+KPEXi34mQ6xBbXV7rWo+I7+4j0hYbtmiEmqMyBBcPEwVDuBZiOC+fz1r+i7/AIcR/sp/9Er/APLl1f8A+SqP+HEf7Kf/AESv/wAuXV//AJKr3MHxDg8NS9lFTa87N/mc9TCzm+Z2PlL/AIIf/HH4CfsK/s9a1deMPip4Ft/G3jy7tr+6Frd3cj2tklsht7SdHiVEnhlmvN/lggmTG9wq7fQf+Cgv/BV/9lrxjr/wxh1DxR488ZDwV4ntPG9onge1tXt472yY+Ql293syjb5PkhYNgEsV+Qn2z/hxH+yn/wBEr/8ALl1f/wCSqP8AhxH+yn/0Sv8A8uXV/wD5Kry6mMy+piHiJ+0bf+HtbubKnVUeRW/E6k/8FeP2aXX/AJK94Vx/vS//ABFfz2ftZfDvwX8Kf2hvE2g/DvxZ/wAJx4Js50bSNZKBWuYZIkk2NjAZ4mdomYBQ
+7RlgqBgo/dVP+CL/AOxvJ42bwyvgXSW8SR2Q1NtKHjDVPty2hkMQuDD9s3+UZAU3427gRnPFav8Aw4j/AGU/+iV/+XLq/wD8lV0ZbmeBwUnKnzu62aj8nuRVo1Ki1sfzo1+u3/BAj9uz4R/sw/se+JdB8feO9F8L6xeeMbnUIbW8L75IGsrGNZBtUjBaOQfVTX1x/wAOI/2U/wDolf8A5cur/wDyVR/w4j/ZT/6JX/5cur//ACVXVj8+wOLo+xmppeSj/mRTwtSEuZWPkf8A4L7ft2fCP9p79jzw1oPgHx3ovijWLPxla6hNa2ZcyRwLZX0bSHcoGA0kY+rCvyJr+i7/AIcR/sp/9Er/APLl1f8A+SqP+HEf7Kf/AESv/wAuXV//AJKoy/PsDhKXsYKbW+qj/mFTC1Jy5nY/nRPIr+lj/h7z+zX/ANFe8K/99S//ABFee+Lv+CMv7Gvw/OljXvA+j6J/bd/FpWnfb/GOp232+8lz5VtDvvB5kz7W2xrlm2nAODWx/wAOI/2U/wDolf8A5cur/wDyVXNmWaYDGuMqimrX2UfLzLo0alO9rHyv+1l/wUL+JHi/9oHxBqPwh/a++B/hb4d3H2f+ydL1S18y7tdttEs29m0qYndOJXGZW4YdPuj8ifF2hL4W8Wappceo6drEem3k1ql/p7u9pfBHKiaFnVGMb43KWVSVIyAeK/oe/wCHEf7Kf/RK/wDy5dX/APkqj/hxH+yn/wBEr/8ALl1f/wCSq1wOeYHCq1OMtkvhgtu7TTfzFUw9Se7X3s/D3/gnB8RdE+En7dHww8S+JNSt9I0LRtbiub28nz5dvGA2WbAJxz6V+9n/AA95/Zr/AOiv+Ff++pf/AIiuV/4cR/sp/wDRK/8Ay5dX/wDkqj/hxH+yn/0Sv/y5dX/+Sq58yzLL8bNVKimrK2ij/mVRpVaasrfifLP/AASH/wCC1V34s/4WF/w0h8WNJh+z/wBm/wDCO/bNNtrHOftf
+2rb9lgTd0t87844xjJz57/wXq+PHwB/aQ+E2g+IvAHjhfF3xAi8RRRyQx63qFxb2WntZyrMYbSVzbW4aSC03mKNGdlBOSWJ+6P8AhxH+yn/0Sv8A8uXV/wD5Ko/4cR/sp/8ARK//AC5dX/8Akqpp5hl1PErE0lOL7JRS2t36hKlVcOR2/E/nRr9dv+CBH7dfwj/Zh/Y98S6D4+8d6L4X1i88ZXV/Da3hfzJIGsrGNZBtUjBaNx9VNfXH/DiP9lP/AKJX/wCXLq//AMlUf8OI/wBlP/olf/ly6v8A/JVd2YZ9gcXR9jNTS8lH/MzpYapCXMrHyR/wX2/bs+EX7T37HfhvQfAPjzRfFGsWfjK11Ca1sy5kjgWyvo2kO5QMBpIx9WFfkRX9F3/DiT9lP/olf/ly6v8A/JVA/wCCEv7KZ/5pWP8AwpdX/wDkqll+fYHCUvYwU2r31Uf8wq4apOXM7HxT/wAEFvi/8Af2PfhH4g8ZePPiJ4T0r4heMrg2iWs5Z7jSdNgYhYyfJDRvNMHkdVkdHSO0PDKQPev+Chv/AAVv/Zy8R+DvCmjw/ED4haoI9bt9fS6+HMdhLNa3Gnyxz2y3S6gPKaIzmOVU2Pl7YZwBhvXP+HEf7Kf/AESv/wAuXV//AJKo/wCHEf7Kf/RK/wDy5dX/APkquCrjsvq4n6zP2l73+zby69DaNOqocit+J0lj/wAFhP2Z9SsYbhPi74aWO4jWRRKk8TgEZG5GjDKeeQwBB4IBr8Af20/hz8PvhV+0hr+i/CvxJceLfh/brbNpOq3FzHPPdBraJpt5jSMArOZUAKKcKDgghj+7X/DiP9lP/olf/ly6v/8AJVH/AA4j/ZT/AOiV/wDly6v/APJVaZbmeAwU3Knzu61T5fv3/q5NajUqKzt+J/PR8P8A+wT490P/AISr+1/+EX/tCD+2P7K8v7f9j8xfP+z+Z+787y92zf8ALuxnjNfuJ+zZ+3f8GPib4f0nR9K/bP8A
+ijoVxZaRDK1t4wtvD9jPbKqxp5U17eaR5dxcKWAYieVnKu4ZwGeu98c/8EYf2Nvhh4Xudc8S+BdI8O6LZlBcahqfjHU7S1gLusab5JLwKu53VRk8swA5IrWH/BCT9lM/80r/APLl1f8A+Sq2zDOMDi0udTVvKL/Nsmlh6kNrfiYvwY/bz0fUvAfjWH9o74tfsg63oclkotbDwVr7aiLyDZN9rjuba5d2n3L5QSOJGL5ddpJUV+aH/BVzxr+xx4k8GWDfs76PIPG2ra6dS1XULS31K0063tGjn8y3WC6ZEjLTPCyJBCERY2UFBhG/Un/hxH+yn/0Sv/y5dX/+Sqpwf8ESP2Q7nxDc6TH8O7GTVrO3iu7iyXxZqpuIIZWkSKV4/te5UdoZlViMMYnAJKnHNg8wwNCr7WHtPRWS+aTKqUqko8rsfh3/AME+/wDk/T4Jf9j7oX/pwgr+oqvl34ff8EX/ANmn4WePdE8T6D8NvsGueHb+DVNOuf8AhINUl+z3EEiyRPse5ZG2uqnDAg4wQRxX1FXFneYU8ZXVWkmklbX1b6N9zTD0nTjZhRQG3UV450BXzZ4t+Mnxi1v9tlvBfgvxN+zfP4T0eSyutZ0O/wBVvpvGtvYHyGupjbRERxMVm/dFwUO+IsfnwPpOvzY/4J5fCP4r3v8AwWq/aI+JHjbwt4k0/wAO3dtqmiabrOo6W1hb30CalaRWC25ZEE6/Y7MfvIwwIRWdt0gLd2CpxlGpOVvdjpfq7ozqSd0l3Pkb/goHLB8Yv+C2nxClj+G/iH9obQfDcNvBc+F/D2oXe4LFptvBKpms0lkhWC9kbeqgYmBRsFmB+3v2A/h7rnw8/Y1+KHi74Hfs4/8ACj/ilf38NnbeGfG+r6teQ6+lmscqSE3fkvGGS7u44yuxDKo3ybQdux4X/wCCTvxW+Dnx6+Knjj4Y/tI/8IJ/wtbX59c1Ky/4V9Z6ns33FxPFF5lxcNny/tMi7lVN2ckdAO6/
+aN/YS+M37Rv7MGi/DnUP2kLuxuJIL618Xavb+C7aF/FsM06vBGY4p4zapFErQssT4nR2EgIJU+xicdRnTp0YzXKlFP4+iu7xsovVeb29VzwpyTcmtde357nzZ+y7/wAFivj3+3engvwt8KPAvg3/AITeFb5vHWr69o9+vhbSRukfT/Jmt7qSWMyxQyIwmUlpcBPlDEem/tEf8FGPjXrP/BTOb9nj4H+G/At3PpOkxXWsan4s0++ktrKZrb7W0pltJspbGKa0iVniBM8mzOGQm7c/8ENvCvwg/aR8E/E74C+Jv+FSat4R8wz2F7p03iWw1MurxtkT3SSx74ZZon2ycqyGPynUu3lXgn9jv4t/tMf8FPvj98VvDviLxx+zzq2hanZaLoeqXnhk6hY+KLFLaWxuGWO48qK4ic2VtOv+sRPNjOCwjkCvgJzlUppKKi3aSeknJJXte/la9luH71Kz3v8AgekfFL9tD9qf9jP4l/DGb4w+Gfgtr3gDxz4mt/DN5c+Bk1aXUbGafIj2xTFpJHwJJFSKCUyCBo8xtJGTR/ag/wCCuviC2/bQ1r4PfCvWvgb4bXwVYPLrviX4l61JbaVeXgaAGytHtpRiWHzSrq+XLpMuxPI3Sd34H/4JZeJvF37THhj4kfHb4yXvxqm8DQrJ4b04+H18PW+kXyXMNxHeBbS48t2BiwytGfMHlhyyxqtZXi//AIJB654N/bB8WfGL4I/GS8+EeseOIJl1m1m8MW/iJJpridbi5eJrmUCNJZY45Nm1irh9rqjCNcY1MDzrntdReqUlG99NLN6L+7a5VqttO/lc8t+F/wDwWg8eeDv24fA/wu+It18DPiBoXjz7LZW+s/CnUbi9j0y8u7o28AmknlKttdB5kYCssc6SKzFfKfu/2U/25v2j/wBsT9qj4gab4T0f4Or8H/h342k0S5127ttSFxqunpeSKRZTxzSQTXQtUWQkhUBmhYgLIor6L/Zf+A/xc+Fmuate
+fEv47XnxWgubdYbCyXwhp2g29i+7LyuYA0krkBVUb1VQXyrkqU86/Yo/4JnX/wCxd+xZ8QPhPpfxIvLzVPGlxqN3Z+JrXSm0+40Sa6sYbVJI41uGZniaEShllQkkAbSN1RUr4PllyxjzWSW7T11eytZafkVGNS6ve39eZ80fso/tIfCv9mnXP2nv2nNa8M+D7fRY/iBe+D9G1TwrqV1eax4sM18LmdxHeXrWkgkSS1uB9lMYKQ3LBAiKDZ+FP/BWf41fH7wND4u0vx9+xL4B03WLi5az0Dxj4nv4Nc02FLiSONLlVkVS5VAwcKgdWVwqBto9V+D/APwQs8GeHP2HtW+CPjjxdq/izT7/AMX/APCYWusaZajR7rTbn7NDbBURpLiN/wB3HKpLhgVnOFVlVxp/Dr/gnx+0t8J/AWi+F9B/bAax0Lw7Yw6bp1sfhZpc32e3hQRxx75JmdtqqoBZicDrXTOvgZuUrpyuknLmtypW092XzvbyM1Gokv0tv96PNtR/4LoXl/8A8Eo5vjTY+HdN034hW/iODwYNPvIJbjSLrUwkVzNIgSVZVgazMrqHcMkg2EyBQ74Xx7/4KG/to/szfsm6N8XvGnhH4AaHpesXEFv/AGHdR6jb65ambzDHvt5LtVLlUDmGN3mRWJeNBHN5f0z/AMFHP+CdOrf8FAfgN4R8AyfEb+wrPw7qEeqXup3ugJqF/q9xFbvAjnyZraGLImmZwkW1mZNojVSra3/BTj9gH/h418BtI8Ef8JZ/whv9la/Drn23+y/7Q83y7e5g8ry/Nixn7Ru3bjjZjHORhRxGBTheKs5Nyvd8sdLJbX6+ZUo1NdemnqeafGz/AIKmeINQ0T4K+DfhL4T0vVvjd8cfD2n+KbHStZuGOj+HtOnga4lmuJwYTOVSK4VViKsRC7kA+XFN0ug3P7c1prtjLqln+ynfaWlxG15bWd1r1rcTQ7x5ipK6SLG5XIDmNwp52NjadD9sz/gnTqn7
+RP7RvgP4ueA/iI3wt+I3gewutLXV/wCwU1wXdtKsipH5E0ywpsFxd/NsYt9o5PyJh3wu/ZG/aE0L4o+HNW8ZftVan4s8O6Lefa7vRbPwBpmjtqoEboIZJ0Zz5RL/ADDYSQMqY5AkiYqeGVJez5U7O6kpN3u9E0rWta2vqVafNrf5WPAP2+tZbxh/wV6+COgXvw/+G91H4Q8PWnjrV/FurSalBN4XsbW+uZrqV7u3nhh8iL7Ivkm8iaJZ58NtWZhWz+zz/wAFBv2lP+Ci03ifxP8AAnwf8IfC/wAOdB1E6Ra3Hj65vptQ1KcL5jHbZNiMiGS3ZkKlVMuFllwxX2nRP+Caumx/t7fFT4za14gh13R/ip4V/wCEUvvCs2lbY44GhsYZC1x5x8xXWzIK+UvE2M/L83k3wF/4JGfFz9kHQta8O/CH9qC68H+D9T1afVo9Ou/h5p2q3CO6xxgyXEsuXcRQxKSqxoShYIu4ito1sLKmotrmjGKXMpNJ6uWiT16bWJ5Zp36X6W+Rb/YQ/b8+OPxT/wCCh3j74E/GLw/8OtHvPA+gzao8vhuG5/0hxNYiF1kluJAYZIbsSAFFkG5AwRgyV9Y/tMftFeG/2TPgV4i+Ifi6S8j8P+GbdZrgWkBnuJneRYooo04BeSWSNAWKoC4LMqhmHz7/AME+f+CVn/DF/wAefiJ8TfEXjr/hY3jb4gbvN1H+xf7H+y+dcNc3n7qOeSJvPmEDcIvl+ThcB2FfQX7TP7Ovhv8Aaz+BXiP4eeLo7yTQPE1usNwbScw3EDpIssUsbcjfHLHG4DBkJQBlZSVPHjJYaWJj7P4PdvZNX/msnr3tc0pqfI77nyX8AP2jP20v2t/hJpnxG8IaD+zl4X8K+KXnutI03xINc/tSC0E8iRec0WI5NyoGEiBVkVlcKoYKOk/4I1ft3/E3/goN8LfGXi/x3pfgnS9J0nVotH0oaFBcwzSTpCJrnzlmmlG0LPa7CpHJkyOBXG/D
+j/gkp8cvhF+z6fhZ4b/awm0nwL9ku7FdOi+G9kzpFdPK84W4a5M6lmmkO4SBlLfKVwMfR3/BPX9inTf2BP2ZtN+HtjqUOuXUN3c3+o6ulj9ibVJ5ZCRI0XmSbWWEQxffORCp4zgdWMqYT2U1T5W21y2Uk1HXdtLXZdSacZ8yvfz23PPf+CuP7fni/wDYD+BVjrngvwLeeKNU1KcrLqt1YzT6F4ehSSFS968TKyvK0yRwoXQMxdt2YxHJzf7NH7fPxH8S/Ab4nfETxVrn7OvxE0PwX4Qk8T2tv8Oddv0v4JI7aW4S2vre6jd7fzkjYAvseJonUxOS3l+wftafs4/Ff40eKfDup/Df48at8J4tGEjXOnp4as9YtNQlKuiSMJCj8JLIGjkaSIlYXVEkj3t5v+yj/wAEn7X4E/D/AOOum+LfiBq3jjWv2gvtEfiPVbbS4NHEUc0dyrtBCplRJS97cuW/1fMYEShDvxpywiwtp257+d7X9LKy7N37Dlz891sY/wDwTj/4KceI/wBpf9gT4k/Gb4haPotvL8Pr7U/Ms/DlvJCtxa2WnW94QFnmkzKxkkXJdV+7wOSex/4JF/tlePP27P2W7zx54+0HSNCvH1+5sNM/suxuLW0vrOKKD98nnySGT9+1xGXRtu6IrgMjV4R8L/8AgiT8WPg18AvEXwu8NftRy6X4D8V/af7U0wfDy1l+1faIUgmHmvdNKgeNFUhHUdehJJ+4P2Z/2dPDX7JnwL8O/DzwhFeR+H/DUDxW5u7gz3EzPI8sssjnALySySOQoVQXIVVUBRWOlg1GfsLNylpZP3Yrpqlq32uKn7S65ui+9ngv/BZr9mrxh+03+yDHY+DrWx1ibwtrMXifU9Cupb1R4lsrS2uXbT0S0HnSyTSNEFjVoyWAKyIwU15H/wAEirr4EfFr9oXxB448JeH774W/G7SPDMfhrxr4BWzj0nTYZke2+1XtrZfO6KtzAsJ/eKUKgyxLJKJJPd/2
+sP2MPiz8aP2h9D8efDv9ofxF8KbfRdIXTjoUOj/2tpt5NvuS1zJbyXKW7uUnVB5kLFTCjBshdtb9iP8A4JsN+y/8a/G/xU8ZeP8AVPil8VPHS/ZLvXrmxXTIoLP9yxgS2SR0BLwx/NnaqRRJGkYV99U8RTjgnSdTXoldO7eqelmvO9wlFupzW/L/AIc+b9D/AOC0Xjj9p/xlr2ofCvXv2cvhr4F0l4LS0/4XBrzadrWqzGMPM6QWty22JGIUEja2QQ7NvSLY+Ev/AAWh146X8fPDXjS5+EepeMvhZ4RuPFWh+JfCGoyXXhDWcQW6w2heaUStMbu6t4QEYeY7vGAjIpl7D4Qf8Ek/id+yPp2qeHvgh+0xq/gXwPqN/wD2mul6p4G0zXbtbhoIYpZHupDHu3eSpAWNFUADBOXb1L4yfsI+Mv2if2DPEvwg8d/GG88T+JPFFxBNP4rm8NWlqlskN5BcJDFY2zRLs2wBSXlZy0jtu27Y13q1MvulFLlbS+1zJXV2/ds9L3Sb30JjGru9/lb8zyD9kD9qP9r79rr9mBvipptt8ALXS9S0jUbrQdKh0rVJtS1O+tZpII7SQSXsUECSyQyATec+zKEoQW28tpn/AAXs0bTP+CZMfxK1TUPAd58bLmWfTofCFpLNCq3RupFileAvJMtulqFnZi4R2HlCWN5FA+3v2Uv2eNL/AGUP2b/B3w60lop7TwrpkdnJcJCYVvrg5e4udhZ9hmmaSUruYKZCASBXz1+y7/wRV+GP7Kf7ZeqfFrw9LeR29vAsPhfw+jzfZ/DrPa/Z7qV5pJpJLp5Q0hUPtWMTONrkRtHhHEYKUpupGyTvFJWulf3W+l9NfJ+SK5aiSs/X/M8e/wCCgvxS8QanP+zh8Gf2gPC/wn8d+JviZ8QbefUbbQZ9UtNP0GxE0dlG0YF0lxLPIt5MyyybYQUkTyZCgkPfX37dvxH+MH7Uuu/A/wDZX8J/Dm10j4P2DWXiDWPF9hf2
++i2txDKlsmnWiWYXyvL2Squ8YlEE3lqEhDy9h+1x/wAErv8Ahqb9vL4Y/G7/AITv+wf+Fc/2V/xJv7F+1f2j9i1GW9/1/np5e/zdn+rbbjd82cDH+IH/AASV1bw5+1trnxe+BvxUPwX1zxZYT2+vx/8ACNJ4j/tO4uLxru5uM3lwUi8xxD8kaBV8n5cB2FaxrYOVOMZNXs3qpcqk31S8trX8yXGom7f8Gx6R+zhqv7Vq/GFrP4t6T8CZPBIst7X3hO71OK8W4YvtEaXAcSBPLAdWEQxcIySOY3jPyL+yF+2t4B8HfFT9t741DwP8NLX/AIQG8VbHXNBeeJ/FcclzfR26tO0s8KG8ltrQtLbRIsssvmush2kfbX7L/wACPi58LNf1S8+Jnx2vPitb3FusNhYr4Q07Qbeyfdl5XMAaSV8BVUb1RQZMq5KGPxf4A/8ABHHSfhF/wT0+I3wC1rxh/wAJVaePtQuNUj1b+yXsf7NuTDarbSeStyxk8me0imx5iq+NjDbnOVOth0pqo1ryr3VJJq95bpdF1+RUozdree/4GT4B+Ov7cHx2+Dln8RvCnhP9nTStB8SWL63oWgardanPrL2cgMlpHJLHIts00kRjIYtEv7wb1hO5E8x+OX/BRnUv22/+CCvxS8f2ljN4T8TWMtr4W1yO1k/0eWWS809Ln7OSS/kTW13tKP8AMvmOhLhRI/pY/wCCYP7QX/Chf+FY/wDDWn/FD/2B/wAIuNN/4Vfpv/IO+z/ZvI83z/N/1Py79+/vuzzXqeo/sI+MPhP8Cvh/8PfgJ8X7z4QaB4Kt7qG6N14ZtPEtxrjzSLL5sj3DKInEpuHIjAQm4ICoqIo09thYyi1ytqSaspJJLVqV1d30WifclRm1128tzH/4IeeH7/w1/wAEs/hTb6lZXmn3EkGoXaRXMLRO8M2p3c0MoDAEpJE8ciN0ZHVhkEGivq9RtUUV4+IrOrVlVf2m397udEY8sUhaKKKxKCii
+igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA/9k=
+
+
+ Cm
+ 40c94aad-a12a-44fb-ab0d-ea36a9656792
+
\ No newline at end of file
diff --git a/Empresas/72/Formatos/OrdenServicio.rdlc b/Empresas/72/Formatos/OrdenServicio.rdlc
index 6cd8c2940..29e9ea5ef 100644
--- a/Empresas/72/Formatos/OrdenServicio.rdlc
+++ b/Empresas/72/Formatos/OrdenServicio.rdlc
@@ -1,2604 +1,5 @@
-
-
-
-
- true
- true
-
-
-
-
- DATOS DEL CLIENTE
-
-
-
-
-
-
- Textbox165
- 3.63358cm
- 0.11767cm
- 0.47364cm
- 18.64497cm
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- FECHA
-
-
-
-
-
-
- Textbox165
- 0.5338cm
- 8.89208cm
- 0.47364cm
- 4.43083cm
- 1
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- DESCRIPCIÓN DEL SERVICIO EN PROCESO
-
-
-
-
-
-
- Textbox165
- 6.93966cm
- 0.12111cm
- 0.48cm
- 18.65153cm
- 2
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- VIGENCIA
-
-
-
-
-
-
- Textbox165
- 2.08369cm
- 8.89208cm
- 0.47364cm
- 4.43083cm
- 3
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- FOLIO
-
-
-
-
-
-
- Textbox165
- 0.5338cm
- 13.4993cm
- 0.47364cm
- 5.24334cm
- 4
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!FolioOS.Value
-
-
-
-
-
-
- Textbox165
- 1.00743cm
- 13.4993cm
- 0.97042cm
- 5.26334cm
- 5
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- White
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!CodigoDeServicio.Value
-
-
-
-
-
-
- Textbox165
- 2.62788cm
- 13.4993cm
- 0.89986cm
- 5.26334cm
- 6
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- White
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- CÓDIGO DE SERVICIO
-
-
-
-
-
-
- Textbox165
- 2.15424cm
- 13.4993cm
- 0.47364cm
- 5.25334cm
- 7
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- Embedded
- Logo1
- FitProportional
- 0.1546in
- 0.09795in
- 1.2065in
- 1.21875in
- 8
-
-
-
-
-
- true
- true
-
-
-
-
- SOLICITUD DE
-
-
-
-
-
-
-
-
- SERVICIO
-
-
-
-
-
-
- Textbox165
- 1.00743cm
- 3.3444cm
- 2.52032cm
- 5.37129cm
- 9
-
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
- White
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- RECEPCIÓN DE
-
-
-
-
-
-
- Textbox165
- 10.0666cm
- 0.13112cm
- 0.44775cm
- 18.65497cm
- 10
-
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
- #eceaed
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Descripcion.Value
-
-
-
-
-
-
- Textbox165
- 13.97806cm
- 0.13112cm
- 0.99688cm
- 18.64497cm
- 11
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- White
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- FALLA REPORTADA
-
-
-
-
-
-
- Textbox165
- 13.39858cm
- 0.13112cm
- 0.47364cm
- 18.64497cm
- 12
-
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
-
- Black
-
- 1pt
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- NOMBRE Y FIRMA DEL TÉCNICO
-
-
-
-
-
-
-
-
- ASIGNADO AL SERVICIO
-
-
-
-
-
-
- Textbox165
- 16.28274cm
- 0.13112cm
- 0.89754cm
- 6.17587cm
- 13
-
-
-
- Black
-
- 1pt
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
- White
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- NOMBRE Y FIRMA DE ENTERADO DEL
-
-
-
-
-
-
-
-
- COORDINADOR EMPRESARIAL
-
-
-
-
-
-
- Textbox165
- 16.28274cm
- 6.48338cm
- 0.89754cm
- 6.17587cm
- 14
-
-
-
- Black
-
- 1pt
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
- White
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- NOMBRE Y FIRMA DEL CLIENTE
-
-
-
-
-
-
- Textbox165
- 16.28274cm
- 12.96369cm
- 0.89754cm
- 5.54792cm
- 15
-
-
-
- Black
-
- 1pt
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
- White
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- POLÍTICAS
-
-
-
-
-
-
- Textbox165
- 17.68299cm
- 0.13112cm
- 0.47421cm
- 18.64497cm
- 16
-
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
- White
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- 1. Toda solicitud será descrita de forma clara para ofrecerle un mejor servicio.
-2. La recepción y atención de las solicitudes de servicio se efectuará conforme se vayan recibiendo de acuerdo al número de su reporte.
-3. El tiempo estimado para realizar el diagnóstico de su equipo será de 48 horas, posteriores a la recepción de su solicitud. El diagnostico
-tiene un costo de $200 pesos, el cual deberá cubrirlo al momento de ingresar su equipo. Sin factura y pago de diagnóstico este reporte no
-será procesado.
-4. El tiempo de reparación del equipo estará sujeto a la autorización del Cliente y de acuerdo a la disponibilidad de componentes en
-Compuproveedores, fabricantes y/o proveedores.
-5. El Cliente recibirá una liga al correo electrónico que indicó al momento de ingresar su equipo, en donde podrá consultar el seguimiento a
-su servicio.
-6. Una vez que reciba la notificación por correo electrónico, de que su equipo ha sido reparado podrá pasar a nuestras oficinas en un horario
-de lunes a viernes de 8:00 a.m. a 12:00 a.m. y de 2:00 p.m. a 4:00 p.m.
-7. Una vez realizada la reparación de su equipo, podrá permanecer por 10 días hábiles en Compuproveedores/HP store, posteriormente del
-día 11 al 20 hábil se cobrara un 3% diario del monto total de la reparación por concepto de almacenaje. Después de este periodo
-Compuproveeores no se hace responsable por el resguardo de su equipo.
-
-
-
-
-
-
- Textbox165
- 18.58053cm
- 0.13112cm
- 7.1417cm
- 17.72549cm
- 17
-
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
-
- White
-
- 1pt
-
- White
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Copia.Value
-
-
-
-
-
-
- Copia
- 25.72223cm
- 0.13112cm
- 0.6cm
- 18.38049cm
- 18
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
- 9.31248cm
-
-
- 9.31248cm
-
-
-
-
- 0.54708cm
-
-
-
-
- true
- true
-
-
-
-
- CLIENTE
-
-
-
- :
-
-
-
- =Parameters!Cliente.Value
-
-
-
-
-
-
- Textbox2
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- NO. DE CLIENTE:
-
-
-
-
-
-
-
- =Parameters!NoDeCliente.Value
-
-
-
-
-
-
- Textbox4
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.54709cm
-
-
-
-
- true
- true
-
-
-
-
- DIRECCIÓN:
-
-
-
-
-
-
-
- =Parameters!ClienteCalle.Value
-
-
-
-
-
-
- Textbox3
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- RFC:
-
-
-
-
-
-
-
- =Parameters!RFC.Value
-
-
-
-
-
-
- Textbox5
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.57354cm
-
-
-
-
- true
- true
-
-
-
-
- POBLACIÓN:
-
-
-
-
-
-
-
- =Parameters!ClienteCiudad.Value
-
-
-
-
-
-
- Textbox8
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- VENDEDOR:
-
-
-
-
-
-
-
- =Parameters!Vendedor.Value
-
-
-
-
-
-
- Textbox9
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.6cm
-
-
-
-
- true
- true
-
-
-
-
- CONTACTAR A:
-
-
-
-
-
-
-
- =Parameters!Cliente.Value
-
-
-
-
-
-
- Textbox19
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- CORREO:
-
-
-
-
-
-
-
- =Parameters!Correo.Value
-
-
-
-
-
-
- Textbox20
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- After
-
-
-
-
-
- Before
-
-
- Before
-
-
-
- DataSet1
- 4.10722cm
- 0.11767cm
- 2.26771cm
- 18.62496cm
- 19
-
-
- 7pt
-
-
-
- true
- true
-
-
-
-
- TELÉFONO:
-
-
-
- =Parameters!ClienteTelefono.Value
-
-
-
- EXT.: TELÉFONO ADICIONAL:
-
-
-
- =Parameters!ClienteTelefono.Value
-
-
-
- CELULAR:
-
-
-
- =Parameters!ClienteTelefono.Value
-
-
-
-
-
-
- Textbox21
- 6.37494cm
- 0.11767cm
- 0.49417cm
- 18.64497cm
- 20
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
- 1.47694cm
-
-
- 1.47694cm
-
-
- 1.47694cm
-
-
-
-
- 0.97042cm
-
-
-
-
- true
- true
-
-
-
-
- Día
-
-
-
-
-
-
-
-
- =Day(Parameters!FechaRecibido.Value)
-
-
-
-
-
-
- Textbox42
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Mes
-
-
-
-
-
-
-
-
- =Month(Parameters!FechaRecibido.Value)
-
-
-
-
-
-
- Textbox44
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Año
-
-
-
-
-
-
-
-
- =Year(Parameters!FechaRecibido.Value)
-
-
-
-
-
-
- Textbox46
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- DataSet1
- 1.00743cm
- 8.89208cm
- 0.97042cm
- 4.43082cm
- 21
-
-
-
-
-
-
-
-
- 1.47694cm
-
-
- 1.47694cm
-
-
- 1.47694cm
-
-
-
-
- 0.97042cm
-
-
-
-
- true
- true
-
-
-
-
- Día
-
-
-
-
-
-
-
-
- =Microsoft.VisualBasic.DateAndTime.Day(Parameters!FechaRecibido.Value)
-
-
-
-
-
-
- Textbox42
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Mes
-
-
-
-
-
-
-
-
- =Microsoft.VisualBasic.DateAndTime.Month(Parameters!FechaRecibido.Value)
-
-
-
-
-
-
- Textbox44
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Año
-
-
-
-
-
-
-
-
- =Microsoft.VisualBasic.DateAndTime.Year(Parameters!FechaRecibido.Value)
-
-
-
-
-
-
- Textbox46
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- DataSet1
- 2.55733cm
- 8.89208cm
- 0.97042cm
- 4.43082cm
- 22
-
-
-
-
-
-
-
-
- 9.32749cm
-
-
- 9.32749cm
-
-
-
-
- 0.57354cm
-
-
-
-
- true
- true
-
-
-
-
- SUCURSARL:
-
-
-
-
-
-
-
- =Parameters!Sucursal.Value
-
-
-
-
-
-
- Textbox11
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- LUGAR DE SERVICIO:
-
-
-
-
-
-
-
- Taller
-
-
-
-
-
-
- Textbox15
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.52062cm
-
-
-
-
- true
- true
-
-
-
-
- TIPO DE SERVICIO:
-
-
-
-
-
-
-
- =Parameters!TipoServicio.Value
-
-
-
-
-
-
- Textbox17
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- TIPO DE EQUIPO:
-
-
-
-
-
-
-
- =Parameters!TipoEquipo.Value
-
-
-
-
-
-
- Textbox22
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- DataSet1
- 7.41966cm
- 0.12111cm
- 1.09416cm
- 18.65498cm
- 23
-
-
- 9pt
-
-
-
- true
- true
-
-
-
-
- ( ) Bandeja
-
-
-
-
-
-
-
-
- ( ) Cabezales
-
-
-
-
-
-
-
-
- ( ) Cable corriente
-
-
-
-
-
-
-
-
- ( ) Cable paralelo
-
-
-
-
-
-
-
-
- ( ) Cable USB
-
-
-
-
-
-
-
-
- ( ) Cartuchos de tinta
-
-
-
-
-
-
-
-
- ( ) Otros
-
-
-
-
-
-
-
-
- ( ) Tóner
-
-
-
-
-
-
- Textbox32
- 10.5849cm
- 0.13112cm
- 2.63729cm
- 3.53804cm
- 24
-
-
-
-
-
-
- 1.64066cm
-
-
- 1.82591cm
-
-
- 8.24827cm
-
-
- 6.93013cm
-
-
-
-
- 0.6cm
-
-
-
-
- true
- true
-
-
-
-
- Cantidad
-
-
-
-
-
-
- Textbox14
-
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- UM
-
-
-
-
-
-
- Textbox18
-
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Descripcion
-
-
-
-
-
-
- Textbox25
-
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Observaciones
-
-
-
-
-
-
- Textbox27
-
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.6cm
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Cantidad.Value
-
-
-
-
-
-
- Cantidad
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!UM.Value
-
-
-
-
-
-
- UM
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!PS.Value
-
-
-
-
-
-
- PS
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Observaciones.Value
-
-
-
-
-
-
- Observaciones
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- After
-
-
-
-
-
-
- DataSet1
- 8.69021cm
- 0.13112cm
- 1.2cm
- 18.64497cm
- 25
-
-
- 7pt
-
-
-
- 10.79142in
-
-
- 7.54841in
-
-
- 0.71438cm
- true
- true
-
-
- true
- true
-
-
-
-
- Fecha Impresión:
-
-
-
-
-
-
-
- =Today
-
-
-
-
-
-
- Textbox8
- 0.09525cm
- 0.13112cm
- 0.46771cm
- 6.86562cm
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 27.94cm
- 21.59cm
- 1cm
- 1cm
- 1cm
- 1cm
- 0.13cm
-
-
+0
@@ -2651,6 +52,2609 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.
+
+
+
+
+
+ true
+ true
+
+
+
+
+ DATOS DEL CLIENTE
+
+
+
+
+
+
+ Textbox165
+ 3.63358cm
+ 0.11767cm
+ 0.47364cm
+ 18.64497cm
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ FECHA
+
+
+
+
+
+
+ Textbox165
+ 0.5338cm
+ 8.89208cm
+ 0.47364cm
+ 4.43083cm
+ 1
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ DESCRIPCIÓN DEL SERVICIO EN PROCESO
+
+
+
+
+
+
+ Textbox165
+ 6.93966cm
+ 0.12111cm
+ 0.48cm
+ 18.65153cm
+ 2
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ VIGENCIA
+
+
+
+
+
+
+ Textbox165
+ 2.08369cm
+ 8.89208cm
+ 0.47364cm
+ 4.43083cm
+ 3
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ FOLIO
+
+
+
+
+
+
+ Textbox165
+ 0.5338cm
+ 13.4993cm
+ 0.47364cm
+ 5.24334cm
+ 4
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!FolioOS.Value
+
+
+
+
+
+
+ Textbox165
+ 1.00743cm
+ 13.4993cm
+ 0.97042cm
+ 5.26334cm
+ 5
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ White
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!CodigoDeServicio.Value
+
+
+
+
+
+
+ Textbox165
+ 2.62788cm
+ 13.4993cm
+ 0.89986cm
+ 5.26334cm
+ 6
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ White
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ CÓDIGO DE SERVICIO
+
+
+
+
+
+
+ Textbox165
+ 2.15424cm
+ 13.4993cm
+ 0.47364cm
+ 5.25334cm
+ 7
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ Embedded
+ Logo1
+ FitProportional
+ 0.1546in
+ 0.09795in
+ 1.2065in
+ 1.21875in
+ 8
+
+
+
+
+
+ true
+ true
+
+
+
+
+ SOLICITUD DE
+
+
+
+
+
+
+
+
+ SERVICIO
+
+
+
+
+
+
+ Textbox165
+ 1.00743cm
+ 3.3444cm
+ 2.52032cm
+ 5.37129cm
+ 9
+
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+ White
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ RECEPCIÓN DE
+
+
+
+
+
+
+ Textbox165
+ 10.0666cm
+ 0.13112cm
+ 0.44775cm
+ 18.65497cm
+ 10
+
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+ #eceaed
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Descripcion.Value
+
+
+
+
+
+
+ Textbox165
+ 13.97806cm
+ 0.13112cm
+ 0.99688cm
+ 18.64497cm
+ 11
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ White
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ FALLA REPORTADA
+
+
+
+
+
+
+ Textbox165
+ 13.39858cm
+ 0.13112cm
+ 0.47364cm
+ 18.64497cm
+ 12
+
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+
+ Black
+
+ 1pt
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ NOMBRE Y FIRMA DEL TÉCNICO
+
+
+
+
+
+
+
+
+ ASIGNADO AL SERVICIO
+
+
+
+
+
+
+ Textbox165
+ 16.28274cm
+ 0.13112cm
+ 0.89754cm
+ 6.17587cm
+ 13
+
+
+
+ Black
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+ White
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ NOMBRE Y FIRMA DE ENTERADO DEL
+
+
+
+
+
+
+
+
+ COORDINADOR EMPRESARIAL
+
+
+
+
+
+
+ Textbox165
+ 16.28274cm
+ 6.48338cm
+ 0.89754cm
+ 6.17587cm
+ 14
+
+
+
+ Black
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+ White
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ NOMBRE Y FIRMA DEL CLIENTE
+
+
+
+
+
+
+ Textbox165
+ 16.28274cm
+ 12.96369cm
+ 0.89754cm
+ 5.54792cm
+ 15
+
+
+
+ Black
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+ White
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ POLÍTICAS
+
+
+
+
+
+
+ Textbox165
+ 17.68299cm
+ 0.13112cm
+ 0.47421cm
+ 18.64497cm
+ 16
+
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+ White
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ 1. Toda solicitud será descrita de forma clara para ofrecerle un mejor servicio.
+2. La recepción y atención de las solicitudes de servicio se efectuará conforme se vayan recibiendo de acuerdo al número de su reporte.
+3. El tiempo estimado para realizar el diagnóstico de su equipo será de 48 horas, posteriores a la recepción de su solicitud. El diagnostico
+tiene un costo de $200 pesos, el cual deberá cubrirlo al momento de ingresar su equipo. Sin factura y pago de diagnóstico este reporte no
+será procesado.
+4. El tiempo de reparación del equipo estará sujeto a la autorización del Cliente y de acuerdo a la disponibilidad de componentes en
+Compuproveedores, fabricantes y/o proveedores.
+5. El Cliente recibirá una liga al correo electrónico que indicó al momento de ingresar su equipo, en donde podrá consultar el seguimiento a
+su servicio.
+6. Una vez que reciba la notificación por correo electrónico, de que su equipo ha sido reparado podrá pasar a nuestras oficinas en un horario
+de lunes a viernes de 8:00 a.m. a 12:00 a.m. y de 2:00 p.m. a 4:00 p.m.
+7. Una vez realizada la reparación de su equipo, podrá permanecer por 10 días hábiles en Compuproveedores/HP store, posteriormente del
+día 11 al 20 hábil se cobrara un 3% diario del monto total de la reparación por concepto de almacenaje. Después de este periodo
+Compuproveeores no se hace responsable por el resguardo de su equipo.
+
+
+
+
+
+
+ Textbox165
+ 18.58053cm
+ 0.13112cm
+ 7.1417cm
+ 17.72549cm
+ 17
+
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+
+ White
+
+ 1pt
+
+ White
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Copia.Value
+
+
+
+
+
+
+ Copia
+ 25.72223cm
+ 0.13112cm
+ 0.6cm
+ 18.38049cm
+ 18
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+ 9.31248cm
+
+
+ 9.31248cm
+
+
+
+
+ 0.54708cm
+
+
+
+
+ true
+ true
+
+
+
+
+ CLIENTE
+
+
+
+ :
+
+
+
+ =Parameters!Cliente.Value
+
+
+
+
+
+
+ Textbox2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ NO. DE CLIENTE:
+
+
+
+
+
+
+
+ =Parameters!NoDeCliente.Value
+
+
+
+
+
+
+ Textbox4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.54709cm
+
+
+
+
+ true
+ true
+
+
+
+
+ DIRECCIÓN:
+
+
+
+
+
+
+
+ =Parameters!ClienteCalle.Value
+
+
+
+
+
+
+ Textbox3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ RFC:
+
+
+
+
+
+
+
+ =Parameters!RFC.Value
+
+
+
+
+
+
+ Textbox5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.57354cm
+
+
+
+
+ true
+ true
+
+
+
+
+ POBLACIÓN:
+
+
+
+
+
+
+
+ =Parameters!ClienteCiudad.Value
+
+
+
+
+
+
+ Textbox8
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ VENDEDOR:
+
+
+
+
+
+
+
+ =Parameters!Vendedor.Value
+
+
+
+
+
+
+ Textbox9
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ CONTACTAR A:
+
+
+
+
+
+
+
+ =Parameters!Cliente.Value
+
+
+
+
+
+
+ Textbox19
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ CORREO:
+
+
+
+
+
+
+
+ =Parameters!Correo.Value
+
+
+
+
+
+
+ Textbox20
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+ Before
+
+
+ Before
+
+
+
+ DataSet1
+ 4.10722cm
+ 0.11767cm
+ 2.26771cm
+ 18.62496cm
+ 19
+
+
+ 7pt
+
+
+
+ true
+ true
+
+
+
+
+ TELÉFONO:
+
+
+
+ =Parameters!ClienteTelefono.Value
+
+
+
+ EXT.: TELÉFONO ADICIONAL:
+
+
+
+ =Parameters!ClienteTelefono.Value
+
+
+
+ CELULAR:
+
+
+
+ =Parameters!ClienteTelefono.Value
+
+
+
+
+
+
+ Textbox21
+ 6.37494cm
+ 0.11767cm
+ 0.49417cm
+ 18.64497cm
+ 20
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+ 1.47694cm
+
+
+ 1.47694cm
+
+
+ 1.47694cm
+
+
+
+
+ 0.97042cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Día
+
+
+
+
+
+
+
+
+ =Day(Parameters!FechaRecibido.Value)
+
+
+
+
+
+
+ Textbox42
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Mes
+
+
+
+
+
+
+
+
+ =Month(Parameters!FechaRecibido.Value)
+
+
+
+
+
+
+ Textbox44
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Año
+
+
+
+
+
+
+
+
+ =Year(Parameters!FechaRecibido.Value)
+
+
+
+
+
+
+ Textbox46
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ DataSet1
+ 1.00743cm
+ 8.89208cm
+ 0.97042cm
+ 4.43082cm
+ 21
+
+
+
+
+
+
+
+
+ 1.47694cm
+
+
+ 1.47694cm
+
+
+ 1.47694cm
+
+
+
+
+ 0.97042cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Día
+
+
+
+
+
+
+
+
+ =Microsoft.VisualBasic.DateAndTime.Day(Parameters!FechaRecibido.Value)
+
+
+
+
+
+
+ Textbox42
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Mes
+
+
+
+
+
+
+
+
+ =Microsoft.VisualBasic.DateAndTime.Month(Parameters!FechaRecibido.Value)
+
+
+
+
+
+
+ Textbox44
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Año
+
+
+
+
+
+
+
+
+ =Microsoft.VisualBasic.DateAndTime.Year(Parameters!FechaRecibido.Value)
+
+
+
+
+
+
+ Textbox46
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ DataSet1
+ 2.55733cm
+ 8.89208cm
+ 0.97042cm
+ 4.43082cm
+ 22
+
+
+
+
+
+
+
+
+ 9.32749cm
+
+
+ 9.32749cm
+
+
+
+
+ 0.57354cm
+
+
+
+
+ true
+ true
+
+
+
+
+ SUCURSARL:
+
+
+
+
+
+
+
+ =Parameters!Sucursal.Value
+
+
+
+
+
+
+ Textbox11
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ LUGAR DE SERVICIO:
+
+
+
+
+
+
+
+ Taller
+
+
+
+
+
+
+ Textbox15
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.52062cm
+
+
+
+
+ true
+ true
+
+
+
+
+ TIPO DE SERVICIO:
+
+
+
+
+
+
+
+ =Parameters!TipoServicio.Value
+
+
+
+
+
+
+ Textbox17
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ TIPO DE EQUIPO:
+
+
+
+
+
+
+
+ =Parameters!TipoEquipo.Value
+
+
+
+
+
+
+ Textbox22
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ DataSet1
+ 7.41966cm
+ 0.12111cm
+ 1.09416cm
+ 18.65498cm
+ 23
+
+
+ 9pt
+
+
+
+ true
+ true
+
+
+
+
+ ( ) Bandeja
+
+
+
+
+
+
+
+
+ ( ) Cabezales
+
+
+
+
+
+
+
+
+ ( ) Cable corriente
+
+
+
+
+
+
+
+
+ ( ) Cable paralelo
+
+
+
+
+
+
+
+
+ ( ) Cable USB
+
+
+
+
+
+
+
+
+ ( ) Cartuchos de tinta
+
+
+
+
+
+
+
+
+ ( ) Otros
+
+
+
+
+
+
+
+
+ ( ) Tóner
+
+
+
+
+
+
+ Textbox32
+ 10.5849cm
+ 0.13112cm
+ 2.63729cm
+ 3.53804cm
+ 24
+
+
+
+
+
+
+ 1.64066cm
+
+
+ 1.82591cm
+
+
+ 8.24827cm
+
+
+ 6.93013cm
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Cantidad
+
+
+
+
+
+
+ Textbox14
+
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ UM
+
+
+
+
+
+
+ Textbox18
+
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Descripcion
+
+
+
+
+
+
+ Textbox25
+
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Observaciones
+
+
+
+
+
+
+ Textbox27
+
+
+ Silver
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Cantidad.Value
+
+
+
+
+
+
+ Cantidad
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!UM.Value
+
+
+
+
+
+
+ UM
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!PS.Value
+
+
+
+
+
+
+ PS
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Observaciones.Value
+
+
+
+
+
+
+ Observaciones
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+
+ DataSet1
+ 8.69021cm
+ 0.13112cm
+ 1.2cm
+ 18.64497cm
+ 25
+
+
+ 7pt
+
+
+
+ 10.79142in
+
+
+ 7.54841in
+
+
+ 0.71438cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ Fecha Impresión:
+
+
+
+
+
+
+
+ =Today
+
+
+
+
+
+
+ Textbox8
+ 0.09525cm
+ 0.13112cm
+ 0.46771cm
+ 6.86562cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 27.94cm
+ 21.59cm
+ 1cm
+ 1cm
+ 1cm
+ 1cm
+ 0.13cm
+
+
+
+ String
@@ -2800,6 +2804,66 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.
trueReportParameter1
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
diff --git a/Empresas/Grales/Formatos/OrdenServicio.rdlc b/Empresas/Grales/Formatos/OrdenServicio.rdlc
index 93fbfab10..28237868e 100644
--- a/Empresas/Grales/Formatos/OrdenServicio.rdlc
+++ b/Empresas/Grales/Formatos/OrdenServicio.rdlc
@@ -1,2169 +1,5 @@
-
-
-
-
-
-
-
- 0.72729cm
-
-
- 1.5428cm
-
-
- 1.95667cm
-
-
- 10.90686cm
-
-
- 5.04035cm
-
-
-
-
- 0.44125cm
-
-
-
-
- true
- true
-
-
-
-
- #
-
-
-
-
-
-
- Textbox23
-
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
-
-
- #0e2455
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Cantidad
-
-
-
-
-
-
- Textbox25
-
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
-
-
-
-
-
- #0e2455
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- UM
-
-
-
-
-
-
- Textbox27
-
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
-
-
-
-
-
- #0e2455
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Descripción
-
-
-
-
-
-
- Textbox12
-
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
-
-
-
-
-
- #0e2455
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Observaciones Servicio
-
-
-
-
-
-
- Textbox16
-
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
-
-
-
- Black
- 1pt
-
- #0e2455
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.44125cm
-
-
-
-
- true
- true
-
-
-
-
- =RowNumber(Nothing)
-
-
-
-
-
-
- Textbox24
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Cantidad.Value
-
-
-
-
-
-
- Cantidad
-
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!UM.Value
-
-
-
-
-
-
- UM
-
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
- true
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!PS.Value
-
-
-
-
-
-
- PS
-
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Observaciones.Value
-
-
-
-
-
-
- Observaciones
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.20312cm
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Clasificacion1
-
-
-
- Black
-
-
-
-
-
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox29
-
-
-
- Black
-
-
-
-
-
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox30
-
-
-
- Black
-
-
-
-
-
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox32
-
-
-
- Black
-
-
-
-
-
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox33
-
-
-
- Black
-
-
-
-
-
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- After
-
-
-
-
-
- Before
-
-
-
- DataSet1
- 1.26554cm
- 0.06614cm
- 1.08562cm
- 20.17397cm
-
-
-
-
-
- true
- true
-
-
-
-
- Recibió
-
-
-
-
-
-
- Textbox34
- 5.07796cm
- 3.99525cm
- 0.6cm
- 2.5cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 6.57754cm
- 3.11891cm
- 0cm
- 4.11396cm
- 2
-
-
-
-
-
- true
- true
-
-
-
-
- Solicitó
-
-
-
-
-
-
- Textbox34
- 5.07796cm
- 12.70798cm
- 0.6cm
- 2.5cm
- 3
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 6.57754cm
- 11.99039cm
- 0cm
- 4.27271cm
- 4
-
-
-
-
-
- true
- true
-
-
-
-
- =Parameters!Solicito.Value
-
-
-
-
-
-
- Textbox36
- 6.64076cm
- 11.99039cm
- 0.6cm
- 4.27271cm
- 5
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Recibio.Value
-
-
-
-
-
-
- Textbox37
- 6.64076cm
- 3.11891cm
- 0.6cm
- 4.11396cm
- 6
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Descripción
-
-
-
-
-
-
-
-
- =Parameters!Descripcion.Value
-
-
-
-
-
-
- Textbox14
- 0.17639cm
- 0.08599cm
- 0.90571cm
- 20.15412cm
- 7
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Material Utilizado
-
-
-
-
-
-
- Textbox3
- 2.52755cm
- 0.08599cm
- 0.56825cm
- 3.16146cm
- 8
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
- 0.72729cm
-
-
- 1.5428cm
-
-
- 12.86353cm
-
-
-
-
- 0.44125cm
-
-
-
-
- true
- true
-
-
-
-
- #
-
-
-
-
-
-
- Textbox23
-
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
-
-
- #0e2455
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Cantidad
-
-
-
-
-
-
- Textbox25
-
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
-
-
-
-
-
- #0e2455
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Descripción
-
-
-
-
-
-
- Textbox12
-
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
-
-
-
- Black
- 1pt
-
- #0e2455
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.44125cm
-
-
-
-
- true
- true
-
-
-
-
- =RowNumber(Nothing)
-
-
-
-
-
-
- Textbox24
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Cantidad.Value
-
-
-
-
-
-
- Cantidad
-
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!PS.Value
-
-
-
-
-
-
- PS
-
-
-
- Black
- 1pt
-
-
- Black
- 1pt
-
-
-
-
-
- Black
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.20312cm
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Clasificacion1
-
-
-
- Black
-
-
-
-
-
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox29
-
-
-
- Black
-
-
-
-
-
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox32
-
-
-
- Black
-
-
-
-
-
-
-
-
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- After
-
-
-
-
-
- Before
-
-
-
- DataSet2
- 3.27219cm
- 0.06614cm
- 1.08562cm
- 15.13362cm
- 9
-
-
-
-
-
- 2.96528in
-
-
- 8.01303in
-
-
- 4.38204cm
- true
- true
-
-
- true
- true
-
-
-
-
- =Parameters!NombreEmpresa.Value
-
-
-
-
-
-
- Textbox1
- 0.22833cm
- 4.1049cm
- 0.6cm
- 10.98903cm
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- ORDEN DE SERVICIO
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Textbox2
- 0.86361cm
- 5.85115cm
- 0.52945cm
- 7.58473cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- External
- =Parameters!LogoPath.Value
- FitProportional
- 0.22833cm
- 0.06614cm
- 2.22362cm
- 3.60715cm
- 2
-
-
-
-
-
- 4.19577cm
- 0.08599cm
- 0cm
- 20.21078cm
- 3
-
-
-
-
-
- true
- true
-
-
-
-
- OS:
-
-
-
- =Parameters!FolioOS.Value
-
-
-
-
-
-
- Textbox4
- 0.08989in
- 5.98416in
- 0.29178in
- 1.98439in
- 4
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Cliente.Value
-
-
-
-
-
-
-
-
-
-
-
-
- Atención:
-
-
-
- =Parameters!Solicito.Value
-
-
-
-
-
-
-
-
- Tel:
-
-
-
- =Parameters!ClienteTelefono.Value
-
-
-
-
-
-
-
-
- Fecha:
-
-
-
- =Parameters!FechaRecibido.Value
-
-
-
-
-
-
-
-
-
-
- Textbox18
- 1.36809cm
- 11.46032cm
- 1.98807cm
- 8.7798cm
- 5
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Calle:
-
-
-
-
-
-
-
- =Parameters!ClienteCalle.Value
-
-
-
-
-
-
-
-
- Colonia:
-
-
-
-
-
-
-
- =Parameters!ClienteColonia.Value
-
-
-
-
-
-
-
-
-
-
-
-
- Ciudad:
-
-
-
- =Parameters!ClienteCiudad.Value
-
-
-
-
-
-
-
- Estado:
-
-
-
-
-
-
-
- =Parameters!ClienteEstado.Value
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Textbox2
- 1.007in
- 0.08599cm
- 0.56196in
- 4.40864in
- 6
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
- 1.00188cm
- true
- true
-
-
- true
- true
-
-
-
-
- ="Página " & Globals.PageNumber & " de " & Globals.TotalPages
-
-
-
-
-
-
- Textbox3
- 0.2734cm
- 17.14236cm
- 0.68085cm
- 3.13456cm
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Usuario:
-
-
-
-
-
-
- Textbox8
- 0.2734cm
- 0.06614cm
- 0.68085cm
- 1.60042cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!UsuarioImprimio.Value
-
-
-
-
-
-
- Textbox9
- 0.2734cm
- 1.61047cm
- 0.68085cm
- 5.14936cm
- 2
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Fecha Impresión:
-
-
-
-
-
-
- Textbox10
- 0.2734cm
- 6.93622cm
- 0.68085cm
- 2.92333cm
- 3
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!FechaImpresion.Value
-
-
-
-
-
-
- Textbox11
- 0.2734cm
- 9.84544cm
- 0.68085cm
- 4.32745cm
- 4
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 0.15874cm
- 0.08599cm
- 0cm
- 20.21078cm
- 5
-
-
-
-
-
-
-
-
-
- 27.94cm
- 21.59cm
- 0.5cm
- 0.5cm
- 1cm
- 1cm
- 0.13cm
-
-
+0
@@ -2247,6 +83,2173 @@
+
+
+
+
+
+
+
+
+ 0.72729cm
+
+
+ 1.5428cm
+
+
+ 1.95667cm
+
+
+ 10.90686cm
+
+
+ 5.04035cm
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+ #
+
+
+
+
+
+
+ Textbox23
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Cantidad
+
+
+
+
+
+
+ Textbox25
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ UM
+
+
+
+
+
+
+ Textbox27
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Descripción
+
+
+
+
+
+
+ Textbox12
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Observaciones Servicio
+
+
+
+
+
+
+ Textbox16
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+ Black
+ 1pt
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =RowNumber(Nothing)
+
+
+
+
+
+
+ Textbox24
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Cantidad.Value
+
+
+
+
+
+
+ Cantidad
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!UM.Value
+
+
+
+
+
+
+ UM
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!PS.Value
+
+
+
+
+
+
+ PS
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Observaciones.Value
+
+
+
+
+
+
+ Observaciones
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.20312cm
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Clasificacion1
+
+
+
+ Black
+
+
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox29
+
+
+
+ Black
+
+
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox30
+
+
+
+ Black
+
+
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox32
+
+
+
+ Black
+
+
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox33
+
+
+
+ Black
+
+
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+ Before
+
+
+
+ DataSet1
+ 1.26554cm
+ 0.06614cm
+ 1.08562cm
+ 20.17397cm
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Recibió
+
+
+
+
+
+
+ Textbox34
+ 5.07796cm
+ 3.99525cm
+ 0.6cm
+ 2.5cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 6.57754cm
+ 3.11891cm
+ 0cm
+ 4.11396cm
+ 2
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Solicitó
+
+
+
+
+
+
+ Textbox34
+ 5.07796cm
+ 12.70798cm
+ 0.6cm
+ 2.5cm
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 6.57754cm
+ 11.99039cm
+ 0cm
+ 4.27271cm
+ 4
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Solicito.Value
+
+
+
+
+
+
+ Textbox36
+ 6.64076cm
+ 11.99039cm
+ 0.6cm
+ 4.27271cm
+ 5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Recibio.Value
+
+
+
+
+
+
+ Textbox37
+ 6.64076cm
+ 3.11891cm
+ 0.6cm
+ 4.11396cm
+ 6
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Descripción
+
+
+
+
+
+
+
+
+ =Parameters!Descripcion.Value
+
+
+
+
+
+
+ Textbox14
+ 0.17639cm
+ 0.08599cm
+ 0.90571cm
+ 20.15412cm
+ 7
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Material Utilizado
+
+
+
+
+
+
+ Textbox3
+ 2.52755cm
+ 0.08599cm
+ 0.56825cm
+ 3.16146cm
+ 8
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+ 0.72729cm
+
+
+ 1.5428cm
+
+
+ 12.86353cm
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+ #
+
+
+
+
+
+
+ Textbox23
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Cantidad
+
+
+
+
+
+
+ Textbox25
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Descripción
+
+
+
+
+
+
+ Textbox12
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+ Black
+ 1pt
+
+ #0e2455
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =RowNumber(Nothing)
+
+
+
+
+
+
+ Textbox24
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Cantidad.Value
+
+
+
+
+
+
+ Cantidad
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!PS.Value
+
+
+
+
+
+
+ PS
+
+
+
+ Black
+ 1pt
+
+
+ Black
+ 1pt
+
+
+
+
+
+ Black
+ 1pt
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.20312cm
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Clasificacion1
+
+
+
+ Black
+
+
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox29
+
+
+
+ Black
+
+
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox32
+
+
+
+ Black
+
+
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+ Before
+
+
+
+ DataSet2
+ 3.27219cm
+ 0.06614cm
+ 1.08562cm
+ 15.13362cm
+ 9
+
+
+
+
+
+ 2.96528in
+
+
+ 8.01303in
+
+
+ 4.38204cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ =Parameters!NombreEmpresa.Value
+
+
+
+
+
+
+ Textbox1
+ 0.22833cm
+ 4.1049cm
+ 0.6cm
+ 10.98903cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ ORDEN DE SERVICIO
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Textbox2
+ 0.86361cm
+ 5.85115cm
+ 0.52945cm
+ 7.58473cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ External
+ =Parameters!LogoPath.Value
+ FitProportional
+ 0.22833cm
+ 0.06614cm
+ 2.22362cm
+ 3.60715cm
+ 2
+
+
+
+
+
+ 4.19577cm
+ 0.08599cm
+ 0cm
+ 20.21078cm
+ 3
+
+
+
+
+
+ true
+ true
+
+
+
+
+ OS:
+
+
+
+ =Parameters!FolioOS.Value
+
+
+
+
+
+
+ Textbox4
+ 0.08989in
+ 5.98416in
+ 0.29178in
+ 1.98439in
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Cliente.Value
+
+
+
+
+
+
+
+
+
+
+
+
+ Atención:
+
+
+
+ =Parameters!Solicito.Value
+
+
+
+
+
+
+
+
+ Tel:
+
+
+
+ =Parameters!ClienteTelefono.Value
+
+
+
+
+
+
+
+
+ Fecha:
+
+
+
+ =Parameters!FechaRecibido.Value
+
+
+
+
+
+
+
+
+
+
+ Textbox18
+ 1.36809cm
+ 11.46032cm
+ 1.98807cm
+ 8.7798cm
+ 5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Calle:
+
+
+
+
+
+
+
+ =Parameters!ClienteCalle.Value
+
+
+
+
+
+
+
+
+ Colonia:
+
+
+
+
+
+
+
+ =Parameters!ClienteColonia.Value
+
+
+
+
+
+
+
+
+
+
+
+
+ Ciudad:
+
+
+
+ =Parameters!ClienteCiudad.Value
+
+
+
+
+
+
+
+ Estado:
+
+
+
+
+
+
+
+ =Parameters!ClienteEstado.Value
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Textbox2
+ 1.007in
+ 0.08599cm
+ 0.56196in
+ 4.40864in
+ 6
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+ 1.00188cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages
+
+
+
+
+
+
+ Textbox3
+ 0.2734cm
+ 17.14236cm
+ 0.68085cm
+ 3.13456cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Usuario:
+
+
+
+
+
+
+ Textbox8
+ 0.2734cm
+ 0.06614cm
+ 0.68085cm
+ 1.60042cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!UsuarioImprimio.Value
+
+
+
+
+
+
+ Textbox9
+ 0.2734cm
+ 1.61047cm
+ 0.68085cm
+ 5.14936cm
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Impresión:
+
+
+
+
+
+
+ Textbox10
+ 0.2734cm
+ 6.93622cm
+ 0.68085cm
+ 2.92333cm
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!FechaImpresion.Value
+
+
+
+
+
+
+ Textbox11
+ 0.2734cm
+ 9.84544cm
+ 0.68085cm
+ 4.32745cm
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 0.15874cm
+ 0.08599cm
+ 0cm
+ 20.21078cm
+ 5
+
+
+
+
+
+
+
+
+
+ 27.94cm
+ 21.59cm
+ 0.5cm
+ 0.5cm
+ 1cm
+ 1cm
+ 0.13cm
+
+
+
+ String
@@ -2350,6 +2353,102 @@
trueReportParameter1
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+ Cm40c94aad-a12a-44fb-ab0d-ea36a9656792
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index b2305f899..a4319c79c 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -702,64 +702,64 @@ Partial Class General_SaldosIniciales
Dim NuevaClasificacion As Boolean = False
For Each Row As DataRow In dt.Rows
- Dim Codigo As String = Row("Codigo").ToString
- Dim Descripcion As String = Row("Descripcion").ToString
- Dim TipoPS As String = Row("Tipo").ToString.Trim.ToUpper
- Dim CodigoBarras As String = Row("Código Barras").ToString
- Dim UnidadMedida As String = Row("Unidad Medida").ToString.Trim
- Dim Clasificacion As String = Row("Clasificacion").ToString.Trim
- Dim Marca As String = Row("Marca").ToString.Trim
- Dim AplicaSerie As Boolean = If(Row("AplicaSerie").ToString.Trim.ToUpper.Contiene("1", "SI"), True, False)
- Dim Precio As Double = Row("Precio").ToString.ToDouble
- Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal
- Dim Tamaño As String = Row("Tamaño").ToString.Trim
- Dim SATClavePS As String = Row("Código SAT").ToString.Trim
+ Dim Codigo As String = Row("Codigo").ToString()
+ Dim Descripcion As String = Row("Descripcion").ToString()
+ Dim TipoPS As String = Row("Tipo").ToString().Trim.ToUpper
+ Dim CodigoBarras As String = Row("Código Barras").ToString()
+ Dim UnidadMedida As String = Row("Unidad Medida").ToString().Trim
+ Dim Clasificacion As String = Row("Clasificacion").ToString().Trim
+ Dim Marca As String = Row("Marca").ToString().Trim
+ Dim AplicaSerie As Boolean = If(Row("AplicaSerie").ToString().Trim.ToUpper.Contiene("1", "SI"), True, False)
+ Dim Precio As Double = Row("Precio").ToString().ToDouble
+ Dim IEPS As Decimal = Row("IEPS").ToString().ToDecimal
+ Dim Tamaño As String = Row("Tamaño").ToString().Trim
+ Dim SATClavePS As String = Row("Código SAT").ToString().Trim
- Dim Clasificacion2 As String = If(dt.Columns.Contains("Servicio"), Row("Servicio").ToString.Trim, "")
- Dim Litraje As Double = If(dt.Columns.Contains("Conversion Unidad"), Row("Conversion Unidad").ToString.ToDouble, 0)
- Dim RinTamaño As String = If(Row.Table.Columns.Contains("Tamaño de Rin"), Row("Tamaño de Rin").ToString.Trim, "")
- Dim Medida As String = If(Row.Table.Columns.Contains("Medida"), Row("Medida").ToString.Trim, "")
- Dim SATClaveUnidadMedida As String = If(Row.Table.Columns.Contains("Clave Unidad"), Row("Clave Unidad").ToString.Trim, "")
- Dim Linea As String = If(Row.Table.Columns.Contains("Linea"), Row("Linea").ToString.Trim, "")
- Dim Modelo As String = If(Row.Table.Columns.Contains("Modelo"), Row("Modelo").ToString.Trim, "")
- Dim RetIVA As Decimal = If(Row.Table.Columns.Contains("RetIVA"), Row("RetIVA").ToString.Trim.ToDecimal, 0D)
+ Dim Clasificacion2 As String = If(dt.Columns.Contains("Servicio"), Row("Servicio").ToString().Trim, "")
+ Dim Litraje As Double = If(dt.Columns.Contains("Conversion Unidad"), Row("Conversion Unidad").ToString().ToDouble, 0)
+ Dim RinTamaño As String = If(Row.Table.Columns.Contains("Tamaño de Rin"), Row("Tamaño de Rin").ToString().Trim, "")
+ Dim Medida As String = If(Row.Table.Columns.Contains("Medida"), Row("Medida").ToString().Trim, "")
+ Dim SATClaveUnidadMedida As String = If(Row.Table.Columns.Contains("Clave Unidad"), Row("Clave Unidad").ToString().Trim, "")
+ Dim Linea As String = If(Row.Table.Columns.Contains("Linea"), Row("Linea").ToString().Trim, "")
+ Dim Modelo As String = If(Row.Table.Columns.Contains("Modelo"), Row("Modelo").ToString().Trim, "")
+ Dim RetIVA As Decimal = If(Row.Table.Columns.Contains("RetIVA"), Row("RetIVA").ToString().Trim.ToDecimal, 0D)
- Dim CvePS As Integer = DTPS.FiltroPrimeroValor("CvePS", $"Codigo = '{Codigo}'").ToString.ToEntero
+ Dim CvePS As Integer = DTPS.FiltroPrimeroValor("CvePS", $"Codigo = '{Codigo}'").ToString().ToEntero()
Dim CveTipoPS As Integer = If(TipoPS.ToUpper = "PRODUCTO", 2, 1)
- Dim CveClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
- Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}' OR Abreviatura = '{UnidadMedida}'").ToString.ToEntero
- Dim CveSATPS As Integer = ClsPaginas.GlobalDTPSATPS("-1", CodigoSAT:=SATClavePS).FiltroPrimeroValor("CveSATPS", "").ToEntero
- Dim CveTamaño As Integer = GlobalDTAcumTamaños.FiltroPrimeroValor("CveTamaño", $"Tamaño = '{Tamaño}' AND CveEmpresa = {UsuarioActual.CveEmpresa}").ToString.ToEntero
- Dim CveClasificacion2 As Integer = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString.ToEntero
- Dim CveClasificacionDetalle As Integer = GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveClasificacionDetalle", $"ClasificacionDetalle = '{Linea}'").ToString.ToEntero
+ Dim CveClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString().ToEntero()
+ Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}' OR Abreviatura = '{UnidadMedida}'").ToString().ToEntero()
+ Dim CveSATPS As Integer = ClsPaginas.GlobalDTPSATPS("-1", CodigoSAT:=SATClavePS).FiltroPrimeroValor("CveSATPS", "").ToEntero()
+ Dim CveTamaño As Integer = GlobalDTAcumTamaños.FiltroPrimeroValor("CveTamaño", $"Tamaño = '{Tamaño}' AND CveEmpresa = {UsuarioActual.CveEmpresa}").ToString().ToEntero()
+ Dim CveClasificacion2 As Integer = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString().ToEntero()
+ Dim CveClasificacionDetalle As Integer = GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveClasificacionDetalle", $"ClasificacionDetalle = '{Linea}'").ToString().ToEntero()
If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then
If ObjClas.AddClasificaciones(Clasificacion, "", -1, "-1", -1, "-1", -1, "-1",
- GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToString.ToEntero, UsuarioActual.CveUsuario,
+ GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToString().ToEntero(), UsuarioActual.CveUsuario,
UsuarioActual.CveEmpresa) Then
GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
- CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
+ CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString().ToEntero()
NuevaClasificacion = True
End If
End If
If Not CveUnidadMedida > 0 AndAlso UnidadMedida <> "" Then
- If ObjUM.AddUnidadMedida(UnidadMedida, UnidadMedida, "", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).ToEntero > 0 Then
+ If ObjUM.AddUnidadMedida(UnidadMedida, UnidadMedida, "", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).ToEntero() > 0 Then
If ObjUM.GetUnidadesMedida(UsuarioActual.CveEmpresa) Then GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing
- CveUnidadMedida = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}'").ToString.ToEntero
+ CveUnidadMedida = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}'").ToString().ToEntero()
End If
End If
Dim CveMarca As Integer = -1
If Marca <> "" AndAlso DtMarcas IsNot Nothing Then
- CveMarca = DtMarcas.FiltroPrimeroValor("CveMarca", $"Marca = '{Marca}'").ToString.ToEntero
+ CveMarca = DtMarcas.FiltroPrimeroValor("CveMarca", $"Marca = '{Marca}'").ToString().ToEntero()
If Not CveMarca > 0 Then
If ObjPS.AddMarcas(Marca, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
DtMarcas = ObjPS.DtResultados.Copy
- CveMarca = DtMarcas.FiltroPrimeroValor("CveMarca", $"Marca = '{Marca}'").ToString.ToEntero
+ CveMarca = DtMarcas.FiltroPrimeroValor("CveMarca", $"Marca = '{Marca}'").ToString().ToEntero()
End If
End If
End If
@@ -767,12 +767,12 @@ Partial Class General_SaldosIniciales
Dim CveMedida As Integer = -1
If Medida <> "" AndAlso DtMedidas IsNot Nothing Then
- CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero
+ CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString().ToEntero()
If Not CveMedida > 0 Then
If ObjGral.AddMedidas(CveClasificacion, "", Medida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
DtMedidas = ObjGral.DtResultados.Copy
- CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero
+ CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString().ToEntero()
End If
End If
End If
@@ -780,12 +780,12 @@ Partial Class General_SaldosIniciales
Dim CveRinTamaño As Integer = -1
If RinTamaño <> "" AndAlso DtRinTamaño IsNot Nothing Then
- CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero
+ CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString().ToEntero()
If Not CveRinTamaño > 0 Then
If ObjGral.AddRimTamanios(CveClasificacion, "", RinTamaño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
DtRinTamaño = ObjGral.DtResultados.Copy
- CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero
+ CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString().ToEntero()
End If
End If
End If
@@ -793,12 +793,12 @@ Partial Class General_SaldosIniciales
Dim CveModelo As Integer = -1
If Modelo <> "" AndAlso DtModelos IsNot Nothing Then
- CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero
+ CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString().ToEntero()
If Not CveModelo > 0 Then
If ObjGral.AddModelos(CveMarca, "", Modelo, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then
DtModelos = ObjGral.DtResultados.Copy
- CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero
+ CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString().ToEntero()
End If
End If
End If
@@ -810,21 +810,21 @@ Partial Class General_SaldosIniciales
If ObjGral.GetCategorias(UsuarioActual.CveEmpresa, 4) Then
- CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero
+ CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero()
End If
If Not CveCategoria > 0 Then
If ObjGral.AddCategorias(Clasificacion2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4) Then
If ObjGral.GetCategorias(UsuarioActual.CveEmpresa, 4) Then
- CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero
+ CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero()
End If
End If
End If
If ObjClas.GetClasificaciones(UsuarioActual.CveEmpresa) Then
- CveClasificacion2 = ObjClas.DtResultados.FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{ Clasificacion2.Trim }'").ToEntero
+ CveClasificacion2 = ObjClas.DtResultados.FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{ Clasificacion2.Trim }'").ToEntero()
End If
@@ -833,7 +833,7 @@ Partial Class General_SaldosIniciales
If ObjClas.AddClasificaciones(Clasificacion2, "", -1, "-1", -1, "-1", -1, "-1", CveCategoria, UsuarioActual.CveUsuario,
UsuarioActual.CveEmpresa) Then
If ObjClas.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClas.DtResultados
- CveClasificacion2 = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString.ToEntero
+ CveClasificacion2 = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString().ToEntero()
End If
End If
@@ -929,14 +929,14 @@ Partial Class General_SaldosIniciales
For Each Row As DataRow In dt.Rows
- Dim RazonSocial As String = Row("RazonSocial").ToString
+ Dim RazonSocial As String = Row("RazonSocial").ToString()
- Dim CuentaContable As String = Row("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+ Dim CuentaContable As String = Row("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
If CuentaContable.Length > 0 Then
- Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+ Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
If CveCuentaContable > 0 Then
Row("CveCuentaContable") = CveCuentaContable
@@ -948,8 +948,8 @@ Partial Class General_SaldosIniciales
Next
For Each Row As DataRow In dt.Rows
- Dim RazonSocial As String = Row("RazonSocial").ToString
- If Not (Row("TipoProveedor").ToString.Trim.ToUpper).Contiene("PROVEEDOR", "ACREEDOR") Then
+ Dim RazonSocial As String = Row("RazonSocial").ToString()
+ If Not (Row("TipoProveedor").ToString().Trim.ToUpper).Contiene("PROVEEDOR", "ACREEDOR") Then
sbErrores.AppendLine($"Proveedor {RazonSocial} TipoProveedor {Row("TipoProveedor")} invalido. ")
ErrorProv = True
End If
@@ -974,57 +974,57 @@ Partial Class General_SaldosIniciales
For Each Row As DataRow In dt.Rows
- Dim Codigo As String = Row("Codigo").ToString
- Dim RazonSocial As String = Row("RazonSocial").ToString
+ Dim Codigo As String = Row("Codigo").ToString()
+ Dim RazonSocial As String = Row("RazonSocial").ToString()
If RazonSocial.Trim.Length = 0 Then
Continue For
End If
- Dim RFC As String = Row("RFC").ToString.Trim
+ Dim RFC As String = Row("RFC").ToString().Trim
- Dim Dirrecion As String = $"{ Row("Población").ToString}, { Row("Estado").ToString} , Colonia { Row("Colonia").ToString}, {Row("Calle").ToString} #{Row("Número exterior").ToString}"
+ Dim Dirrecion As String = $"{ Row("Población").ToString()}, { Row("Estado").ToString()} , Colonia { Row("Colonia").ToString()}, {Row("Calle").ToString()} #{Row("Número exterior").ToString()}"
- 'Dim NumExt As String = Row("Número exterior").ToString
+ 'Dim NumExt As String = Row("Número exterior").ToString()
- ' Dim Colonia As String = Row("Colonia").ToString
- Dim CodigoPostal As Integer = Row("Código Postal").ToString.ToEntero
+ ' Dim Colonia As String = Row("Colonia").ToString()
+ Dim CodigoPostal As Integer = Row("Código Postal").ToString().ToEntero()
- ' Dim Poblacion As String = Row("Población").ToString
+ ' Dim Poblacion As String = Row("Población").ToString()
- 'Dim Estado As String = Row("Estado").ToString
- Dim Telefono As String = Row("Teléfono").ToString
- Dim ContactoMail As String = Row("Contacto").ToString
- Dim CelularContacto As String = Row("Celular Contacto").ToString
- Dim LimiteCredito As Double = Row("Limite Credito").ToString.ToDouble
- Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString.ToEntero
+ 'Dim Estado As String = Row("Estado").ToString()
+ Dim Telefono As String = Row("Teléfono").ToString()
+ Dim ContactoMail As String = Row("Contacto").ToString()
+ Dim CelularContacto As String = Row("Celular Contacto").ToString()
+ Dim LimiteCredito As Double = Row("Limite Credito").ToString().ToDouble
+ Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString().ToEntero()
- Dim Banco As String = Row("Banco").ToString
- Dim NumeroCuenta As String = Row("N° CUENTA").ToString.Replace("-", "").Replace(" ", "")
- Dim ClabeInter As String = Row("Clabe Inter").ToString.Replace("-", "").Replace(" ", "")
+ Dim Banco As String = Row("Banco").ToString()
+ Dim NumeroCuenta As String = Row("N° CUENTA").ToString().Replace("-", "").Replace(" ", "")
+ Dim ClabeInter As String = Row("Clabe Inter").ToString().Replace("-", "").Replace(" ", "")
- Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString.ToEntero
- Dim CveProveedor2 As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RazonSocial = '{RazonSocial}'").ToString.ToEntero
+ Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString().ToEntero()
+ Dim CveProveedor2 As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RazonSocial = '{RazonSocial}'").ToString().ToEntero()
Dim CveProveedor3 As Integer = 0
- Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString.ToEntero
- Dim TipoProveedor As Integer = If(Row("TipoProveedor").ToString.ToUpper = "PROVEEDOR", 1, 2)
+ Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero()
+ Dim TipoProveedor As Integer = If(Row("TipoProveedor").ToString().ToUpper = "PROVEEDOR", 1, 2)
Dim CveConceptoCuentaAsiganaciones As Integer = If(TipoProveedor = 1, 5, 305)
If Codigo.Trim.Length > 0 Then
- CveProveedor3 = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"Codigo = '{Codigo}'").ToString.ToEntero
+ CveProveedor3 = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"Codigo = '{Codigo}'").ToString().ToEntero()
End If
- Dim CodigoRegimenFiscal As String = Row("Regimen Fiscal").ToString
- Dim ProveedorClasificacion As String = Row("Clasificación Proveedor").ToString
- Dim Moneda As String = Row("Moneda Preferente").ToString
- Dim DIOTTipoTercero As String = Row("Tipo Tercero").ToString.Trim.ToUpper
- Dim DIOTipoOperacion As String = Row("Tipo Operación").ToString
+ Dim CodigoRegimenFiscal As String = Row("Regimen Fiscal").ToString()
+ Dim ProveedorClasificacion As String = Row("Clasificación Proveedor").ToString()
+ Dim Moneda As String = Row("Moneda Preferente").ToString()
+ Dim DIOTTipoTercero As String = Row("Tipo Tercero").ToString().Trim.ToUpper
+ Dim DIOTipoOperacion As String = Row("Tipo Operación").ToString()
Dim CveMoneda As Integer = -1
Dim CveProveedorClasificacion As Integer = -1
@@ -1104,7 +1104,7 @@ Partial Class General_SaldosIniciales
If ProveedorClasificacion.Trim.Length > 0 Then
- CveProveedorClasificacion = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedorClasificacion", $"ProveedorClasificacion = '{ProveedorClasificacion}'").ToString.ToEntero
+ CveProveedorClasificacion = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedorClasificacion", $"ProveedorClasificacion = '{ProveedorClasificacion}'").ToString().ToEntero()
If Not CveProveedorClasificacion > 0 Then
sbErrores.AppendLine($"Proveedor {RazonSocial} Proveedor Clasificacion {ProveedorClasificacion} invalida. ")
ErrorProv = True
@@ -1112,7 +1112,7 @@ Partial Class General_SaldosIniciales
End If
If CodigoRegimenFiscal.Trim.Length > 0 Then
- CveRegimenFiscal = GlobalDTRegimenesFiscales.FiltroPrimeroValor("CveRegimenFiscal", $"CodigoRegimenFiscal= '{CodigoRegimenFiscal}' ").ToEntero
+ CveRegimenFiscal = GlobalDTRegimenesFiscales.FiltroPrimeroValor("CveRegimenFiscal", $"CodigoRegimenFiscal= '{CodigoRegimenFiscal}' ").ToEntero()
If Not CveRegimenFiscal > 0 Then
sbErrores.AppendLine($"Proveedor {RazonSocial} Codigo RegimenFiscal {CodigoRegimenFiscal} invalido. ")
ErrorProv = True
@@ -1231,11 +1231,11 @@ Partial Class General_SaldosIniciales
For Each Row As DataRow In dt.Rows
- Dim RazonSocial As String = Row("RazonSocial").ToString
- Dim CuentaContable As String = Row("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+ Dim RazonSocial As String = Row("RazonSocial").ToString()
+ Dim CuentaContable As String = Row("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
If CuentaContable.Length > 0 Then
- Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+ Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
If CveCuentaContable > 0 Then
Row("CveCuentaContable") = CveCuentaContable
@@ -1264,40 +1264,40 @@ Partial Class General_SaldosIniciales
NumRow = NumRow + 1
- Dim Codigo As String = Row("Codigo").ToString
- Dim RazonSocial As String = Row("RazonSocial").ToString
- Dim RFC As String = Row("RFC").ToString.Trim
- Dim Calle As String = Row("Calle").ToString
- Dim NumExt As Decimal = Row("Número exterior").ToString.ToDecimal
- Dim Colonia As String = Row("Colonia").ToString
- Dim CodigoPostal As String = Row("Código Postal").ToString
- Dim Poblacion As String = Row("Población").ToString
- Dim Estado As String = Row("Estado").ToString.Trim
- Dim Pais As String = Row("Pais").ToString
- Dim Telefono As String = Row("Teléfono").ToString.Replace("-", "").Replace(" ", "").Replace("(", "").Replace(")", "")
- Dim Contacto As String = Row("Contacto").ToString
+ Dim Codigo As String = Row("Codigo").ToString()
+ Dim RazonSocial As String = Row("RazonSocial").ToString()
+ Dim RFC As String = Row("RFC").ToString().Trim
+ Dim Calle As String = Row("Calle").ToString()
+ Dim NumExt As Decimal = Row("Número exterior").ToString().ToDecimal
+ Dim Colonia As String = Row("Colonia").ToString()
+ Dim CodigoPostal As String = Row("Código Postal").ToString()
+ Dim Poblacion As String = Row("Población").ToString()
+ Dim Estado As String = Row("Estado").ToString().Trim
+ Dim Pais As String = Row("Pais").ToString()
+ Dim Telefono As String = Row("Teléfono").ToString().Replace("-", "").Replace(" ", "").Replace("(", "").Replace(")", "")
+ Dim Contacto As String = Row("Contacto").ToString()
- Dim Vendedor As String = Row("Vendedor").ToString
- Dim Clasificacion As String = Row("ClasificacionCliente").ToString
- Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString.ToEntero
+ Dim Vendedor As String = Row("Vendedor").ToString()
+ Dim Clasificacion As String = Row("ClasificacionCliente").ToString()
+ Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString().ToEntero()
- Dim CveVendedor As Integer = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString.ToEntero
- Dim CveClasificación As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
- Dim EsDistribuidor As Boolean = If(dt.Columns.Contains("Es distribuidor"), If(Row("Es distribuidor").ToString.ToUpper = "SI", True, False), False)
- Dim CargoUsado As Boolean = If(dt.Columns.Contains("Cargo Usados"), If(Row("Cargo Usados").ToString.ToUpper = "SI", True, False), False)
- Dim BonificacionUsado As Boolean = If(dt.Columns.Contains("EmitirBon Usado"), If(Row("EmitirBon Usado").ToString.ToUpper = "SI", True, False), False)
+ Dim CveVendedor As Integer = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString().ToEntero()
+ Dim CveClasificación As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString().ToEntero()
+ Dim EsDistribuidor As Boolean = If(dt.Columns.Contains("Es distribuidor"), If(Row("Es distribuidor").ToString().ToUpper = "SI", True, False), False)
+ Dim CargoUsado As Boolean = If(dt.Columns.Contains("Cargo Usados"), If(Row("Cargo Usados").ToString().ToUpper = "SI", True, False), False)
+ Dim BonificacionUsado As Boolean = If(dt.Columns.Contains("EmitirBon Usado"), If(Row("EmitirBon Usado").ToString().ToUpper = "SI", True, False), False)
- Dim LimiteCredito As Decimal = Row("Limite Credito").ToString.ToDecimal
- Dim CobranzaCorreo As String = Row("CorreoPagos").ToString
- Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString.ToEntero
+ Dim LimiteCredito As Decimal = Row("Limite Credito").ToString().ToDecimal
+ Dim CobranzaCorreo As String = Row("CorreoPagos").ToString()
+ Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString().ToEntero()
- Dim DìaVisita As String = If(dt.Columns.Contains("Dia Pago"), Row("Dia Pago").ToString, "")
- Dim DiasPagoEspecifico As String = If(dt.Columns.Contains("Dìa Visita"), Row("Dìa Visita").ToString, "")
- Dim CobranzaContacto As String = If(dt.Columns.Contains("Encargado Pagoa"), Row("Encargado Pago").ToString, "")
- Dim CobranzaTelefono As String = Row("Celular Contacto").ToString.Replace("-", "").Replace(" ", "").Replace("(", "").Replace(")", "")
- Dim CveUsoCFDI As Integer = If(Row("UsoCFDI").ToString = "", -1, GlobalDTSATUsosCFDI().FiltroPrimeroValor("CveUsoCFDI", String.Format("UsoCFDI = '{0}'", Row("UsoCFDI").ToString)).ToEntero)
- Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString.ToEntero
+ Dim DìaVisita As String = If(dt.Columns.Contains("Dia Pago"), Row("Dia Pago").ToString(), "")
+ Dim DiasPagoEspecifico As String = If(dt.Columns.Contains("Dìa Visita"), Row("Dìa Visita").ToString(), "")
+ Dim CobranzaContacto As String = If(dt.Columns.Contains("Encargado Pagoa"), Row("Encargado Pago").ToString(), "")
+ Dim CobranzaTelefono As String = Row("Celular Contacto").ToString().Replace("-", "").Replace(" ", "").Replace("(", "").Replace(")", "")
+ Dim CveUsoCFDI As Integer = If(Row("UsoCFDI").ToString() = "", -1, GlobalDTSATUsosCFDI().FiltroPrimeroValor("CveUsoCFDI", String.Format("UsoCFDI = '{0}'", Row("UsoCFDI").ToString())).ToEntero())
+ Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero()
' CobranzaContacto = Regex.Replace(CobranzaContacto, "[^0-9]", "")
'Telefono
@@ -1311,7 +1311,7 @@ Partial Class General_SaldosIniciales
CobranzaTelefono = ""
End If
- Dim FormaPago As String = If(dt.Columns.Contains("Forma Pago"), Row("Forma Pago").ToString, "")
+ Dim FormaPago As String = If(dt.Columns.Contains("Forma Pago"), Row("Forma Pago").ToString(), "")
Dim CveFormaPago33 As Integer = 99
Select Case FormaPago
@@ -1389,7 +1389,7 @@ Partial Class General_SaldosIniciales
- 'Dim RazonSocial As String = Row("RazonSocial").ToString
+ 'Dim RazonSocial As String = Row("RazonSocial").ToString()
'Contacto
@@ -1404,9 +1404,9 @@ Partial Class General_SaldosIniciales
' Exit For
'End If
Else
- Dim CveSATEstado As Integer = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveSATEstado", String.Format(" NombreEstado ='{0}'", Estado.ToUpper)).ToEntero
+ Dim CveSATEstado As Integer = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveSATEstado", String.Format(" NombreEstado ='{0}'", Estado.ToUpper)).ToEntero()
- If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString, "", Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1,
+ If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString(), "", Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1,
"-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", Codigo, LimiteCredito, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado,
BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago33:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado, CveAdminTrayecto:=0) Then
@@ -1472,38 +1472,38 @@ Partial Class General_SaldosIniciales
DtProveedores = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
Dim RFC As String = ""
Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("")
- Dim CvePS As Integer = drr("CvePS").ToString.ToEntero
- Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString.ToEntero
- Dim CveClasificacion As Integer = drr("CveClasificacion").ToString.ToEntero
+ Dim CvePS As Integer = drr("CvePS").ToString().ToEntero()
+ Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString().ToEntero()
+ Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero()
Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
- Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString}'")
- RFC = Row("RFC").ToString.Trim
- RFC = Row("RFC").ToString.Trim
- Dim Serie As String = Row("Serie").ToString
- Dim Folio As String = Row("Folio").ToString
- Dim Fecha As Date = Row("Fecha").ToString.ToDate
- Dim SubTotal As Decimal = Row("SubTotal").ToString.ToDecimal
- Dim IVA As Decimal = Row("IVA").ToString.ToDecimal
- Dim Total As Decimal = Row("Total").ToString.ToDecimal
- Dim Saldo As Decimal = Row("Saldo").ToString.ToDecimal
- Dim TipoDocto As String = Row("Tipo Documento").ToString
- Dim CveProveedor As Integer = DtProveedores.FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString.ToEntero
- GuardaLog(Sucursal + " - " + Row("Sucursal").ToString)
- Dim RetIVA As Decimal = Row("Ret IVA").ToString.ToDecimal
- Dim RetISR As Decimal = Row("Ret ISR").ToString.ToDecimal
- Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal
- Dim Moneda As String = Row("Moneda").ToString
- Dim TipoCambio As String = Row("Tipo Cambio").ToString
- Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString.ToDate
+ Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString()}'")
+ RFC = Row("RFC").ToString().Trim
+ RFC = Row("RFC").ToString().Trim
+ Dim Serie As String = Row("Serie").ToString()
+ Dim Folio As String = Row("Folio").ToString()
+ Dim Fecha As Date = Row("Fecha").ToString().ToDate
+ Dim SubTotal As Decimal = Row("SubTotal").ToString().ToDecimal
+ Dim IVA As Decimal = Row("IVA").ToString().ToDecimal
+ Dim Total As Decimal = Row("Total").ToString().ToDecimal
+ Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal
+ Dim TipoDocto As String = Row("Tipo Documento").ToString()
+ Dim CveProveedor As Integer = DtProveedores.FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString().ToEntero()
+ GuardaLog(Sucursal + " - " + Row("Sucursal").ToString())
+ Dim RetIVA As Decimal = Row("Ret IVA").ToString().ToDecimal
+ Dim RetISR As Decimal = Row("Ret ISR").ToString().ToDecimal
+ Dim IEPS As Decimal = Row("IEPS").ToString().ToDecimal
+ Dim Moneda As String = Row("Moneda").ToString()
+ Dim TipoCambio As String = Row("Tipo Cambio").ToString()
+ Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString().ToDate
Dim CveMoneda As Integer = 1
- Dim CveProveedorSucursal As Integer = Row("CveProveedorSucursal").ToString.ToEntero
- Dim PorcentajeIVA As String = Row("PorcentajeIVA").ToString
- Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString, "0").ToDecimal
- Dim RetIVAPorcentaje As Decimal = Row("RetIVAPorcentaje").ToString.ToDecimal
- Dim RetISRPorcentaje As Decimal = Row("RetISRPorcentaje").ToString.ToDecimal
+ Dim CveProveedorSucursal As Integer = Row("CveProveedorSucursal").ToString().ToEntero()
+ Dim PorcentajeIVA As String = Row("PorcentajeIVA").ToString()
+ Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString(), "0").ToDecimal
+ Dim RetIVAPorcentaje As Decimal = Row("RetIVAPorcentaje").ToString().ToDecimal
+ Dim RetISRPorcentaje As Decimal = Row("RetISRPorcentaje").ToString().ToDecimal
If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True
@@ -1511,14 +1511,14 @@ Partial Class General_SaldosIniciales
If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For
If Not CveProveedorSucursal > 0 Then CveProveedorSucursal = -1
- TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESOS", "INGRESO", "ING", "FACTURA"), "Fac", "NC").ToString
+ TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESOS", "INGRESO", "ING", "FACTURA"), "Fac", "NC").ToString()
'Temporalmente SE BORRARA
- Dim Transaccion As String = "" 'Row("Transaccion2").ToString
- Dim Folio2 As String = "" 'Row("Folio2").ToString
- Dim CodProvee As String = "" 'Row("CodProvee2").ToString
+ Dim Transaccion As String = "" 'Row("Transaccion2").ToString()
+ Dim Folio2 As String = "" 'Row("Folio2").ToString()
+ Dim CodProvee As String = "" 'Row("CodProvee2").ToString()
'Moneda
If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then
@@ -1542,7 +1542,7 @@ Partial Class General_SaldosIniciales
End If
'Compra
- If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero, SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDouble, FechaVencimiento,
+ If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero(), SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDouble, FechaVencimiento,
False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal,
NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal, TotalOriginal:=Total) Then
ErrorCompras = True
@@ -1551,7 +1551,7 @@ Partial Class General_SaldosIniciales
CveCompra = ObjCompras.CveCompra
'Compra Detalle
- If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero, -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA.ToDecimal, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then
+ If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero(), -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA.ToDecimal, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then
ErrorCompras = True
Exit For
End If
@@ -1559,20 +1559,20 @@ Partial Class General_SaldosIniciales
If TipoDocto = "NC" Then ConceptoContablePago = 60
'PrePólizaDetalle
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio, IIf(TipoDocto = "Fac", 5, 18).ToString.ToEntero, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, Folio, 6, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=SubTotal, CveClasificacion:=CveClasificacion, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio, IIf(TipoDocto = "Fac", 5, 18).ToString().ToEntero(), String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, Folio, 6, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=SubTotal, CveClasificacion:=CveClasificacion, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
If IVA > 0 Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Folio, 14, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IVA, CveSubProyecto:=Sucursal.ToEntero, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA.ToDecimal) Then ErrorCompras = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Folio, 14, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IVA, CveSubProyecto:=Sucursal.ToEntero(), CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA.ToDecimal) Then ErrorCompras = True : Exit For
End If
- If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, Folio, 25, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IEPS, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
+ If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, Folio, 25, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IEPS, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
- If RetIVA > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, RetIVA, Folio, 15, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetIVA, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
- If RetISR > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, RetISR, Folio, 16, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetISR, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
- If ImpuestosLocales > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImpuestosLocales, Folio, 27, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=ImpuestosLocales, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
+ If RetIVA > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, RetIVA, Folio, 15, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetIVA, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
+ If RetISR > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, RetISR, Folio, 16, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetISR, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
+ If ImpuestosLocales > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImpuestosLocales, Folio, 27, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=ImpuestosLocales, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
'Saldo
If Saldo < Total Then
@@ -1618,9 +1618,9 @@ Partial Class General_SaldosIniciales
Dim Encontrados As Integer = 0
Dim StrRFCNoencontrados As New StringBuilder
Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("AplicaParaVenta = 1")
- Dim CvePS As Integer = drr("CvePS").ToString.ToEntero
- Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString.ToEntero
- Dim CveClasificacion As Integer = drr("CveClasificacion").ToString.ToEntero
+ Dim CvePS As Integer = drr("CvePS").ToString().ToEntero()
+ Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString().ToEntero()
+ Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero()
If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorVentas = True
@@ -1630,49 +1630,49 @@ Partial Class General_SaldosIniciales
For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
- Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString}'")
- Dim TipoDocto As String = Row("Tipo Documento").ToString.Trim
- Dim RFC As String = Row("RFC").ToString.Trim
- Dim Serie As String = Row("Serie").ToString
- Dim Folio As Integer = Row("Folio").ToString.ToEntero
- Dim Fecha As Date = Row("Fecha").ToString.ToDate
- Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString.ToDate
- Dim ImpuestoLocal As Decimal = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString.ToDecimal, 0D)
- Dim Amortizacion As Double = If(dt.Columns.Contains("Amort.Ant"), Row("Amort.Ant").ToString.ToDouble, 0.0)
- Dim SubTotal As Decimal = Row("SubTotal").ToString.ToDecimal
- Dim IVA As Decimal = Row("IVA").ToString.ToDecimal
- Dim Total As Decimal = Row("Total").ToString.ToDecimal
- Dim Saldo As Decimal = Row("Saldo").ToString.ToDecimal
- Dim CveCliente As Integer = DtClientes.FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString.ToEntero
- Dim RetIVA As Decimal = Row("Ret IVA").ToString.ToDecimal
- Dim RetISR As Double = Row("Ret ISR").ToString.ToDouble
- Dim Moneda As String = Row("Moneda").ToString
- Dim TipoCambio As String = Row("Tipo Cambio").ToString
+ Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString()}'")
+ Dim TipoDocto As String = Row("Tipo Documento").ToString().Trim
+ Dim RFC As String = Row("RFC").ToString().Trim
+ Dim Serie As String = Row("Serie").ToString()
+ Dim Folio As Integer = Row("Folio").ToString().ToEntero()
+ Dim Fecha As Date = Row("Fecha").ToString().ToDate
+ Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString().ToDate
+ Dim ImpuestoLocal As Decimal = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString().ToDecimal, 0D)
+ Dim Amortizacion As Double = If(dt.Columns.Contains("Amort.Ant"), Row("Amort.Ant").ToString().ToDouble, 0.0)
+ Dim SubTotal As Decimal = Row("SubTotal").ToString().ToDecimal
+ Dim IVA As Decimal = Row("IVA").ToString().ToDecimal
+ Dim Total As Decimal = Row("Total").ToString().ToDecimal
+ Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal
+ Dim CveCliente As Integer = DtClientes.FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString().ToEntero()
+ Dim RetIVA As Decimal = Row("Ret IVA").ToString().ToDecimal
+ Dim RetISR As Double = Row("Ret ISR").ToString().ToDouble
+ Dim Moneda As String = Row("Moneda").ToString()
+ Dim TipoCambio As String = Row("Tipo Cambio").ToString()
Dim CveMoneda As Integer = 1
- Dim Vendedor As String = If(dt.Columns.Contains("Vendedor"), Row("Vendedor").ToString, "")
+ Dim Vendedor As String = If(dt.Columns.Contains("Vendedor"), Row("Vendedor").ToString(), "")
Dim CveVendedor As Integer = 0
- Dim IEPS As Decimal = 0 'Row("IEPS").ToString.ToDecimal
- Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero
- Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "")
- Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Round(Row("PorcentajeIVA").ToString.ToDecimal, 4), 0)
- Dim PorcentajeRetIVA As Decimal = If(dt.Columns.Contains("PorcentajeRetIVA"), Round(Row("PorcentajeRetIVA").ToString.ToDecimal, 4), 0)
+ Dim IEPS As Decimal = 0 'Row("IEPS").ToString().ToDecimal
+ Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString().ToEntero()
+ Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString(), "")
+ Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Round(Row("PorcentajeIVA").ToString().ToDecimal, 4), 0)
+ Dim PorcentajeRetIVA As Decimal = If(dt.Columns.Contains("PorcentajeRetIVA"), Round(Row("PorcentajeRetIVA").ToString().ToDecimal, 4), 0)
- Dim PedidoContrato As String = If(dt.Columns.Contains("Pedido"), Row("Pedido").ToString, "")
+ Dim PedidoContrato As String = If(dt.Columns.Contains("Pedido"), Row("Pedido").ToString(), "")
- GuardaLog(Sucursal + "-" + Row("Folio").ToString)
+ GuardaLog(Sucursal + "-" + Row("Folio").ToString())
'Temporalmente SE BORRARA
- Dim Transaccion As String = "" ' Row("Transaccion2").ToString
- Dim Folio2 As String = "" ' Row("Folio2").ToString
- Dim CodCliente As String = "" 'Row("CodCliente2").ToString
+ Dim Transaccion As String = "" ' Row("Transaccion2").ToString()
+ Dim Folio2 As String = "" ' Row("Folio2").ToString()
+ Dim CodCliente As String = "" 'Row("CodCliente2").ToString()
'If Not CveCliente > 0 Then Alert(String.Format("No se encontró el cliente con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorVentas = True : RFC.GuardaLog : Exit For
- TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESO", "INGRESOS", "ING"), "Ing", IIf(TipoDocto.ToUpper.Contiene("EGRESO", "EGRESOS", "EGS"), "Egs", "Rem")).ToString
+ TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESO", "INGRESOS", "ING"), "Ing", IIf(TipoDocto.ToUpper.Contiene("EGRESO", "EGRESOS", "EGS"), "Egs", "Rem")).ToString()
'PrePóliza
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Venta/SaldoInicial", 1, Total, Total, 1, Fecha, String.Format("{0}-{1}", Serie, Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Vendedor <> "" Then
- CveVendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString.ToEntero
+ CveVendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString().ToEntero()
If Not CveVendedor > 0 Then CveVendedor = 0
Else
CveVendedor = 0
@@ -1702,17 +1702,17 @@ Partial Class General_SaldosIniciales
If TipoDocto.Contiene("Ing", "Egs", "Rem") Then
GuardaLog(Serie & "-" & Folio)
- If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero, CveClienteSucursal, SubTotal, 0, Amortizacion, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble,
+ If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero(), CveClienteSucursal, SubTotal, 0, Amortizacion, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble,
0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, CveVendedor, Folio2, "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, 0, CvePrePoliza,
- UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero, CveSubProyectoEjecucion:=Sucursal.ToEntero,
- CveSubProyectoCobranza:=Sucursal.ToEntero, IEPS:=IEPS,
+ UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero(), CveSubProyectoEjecucion:=Sucursal.ToEntero(),
+ CveSubProyectoCobranza:=Sucursal.ToEntero(), IEPS:=IEPS,
ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestoLocal, PedidoContrato:=PedidoContrato) Then
ErrorVentas = True
Exit For
End If
CveVenta = ObjVentas.CveVenta
- If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, Sucursal.ToEntero, 0, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA) Then
+ If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA) Then
ErrorVentas = True
Exit For
End If
@@ -1735,39 +1735,39 @@ Partial Class General_SaldosIniciales
If UsuarioActual.CveEmpresa.Contiene(119, 158) Then UsaComplementaria = True
'PrePólizaDetalle
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SubTotal, Folio.ToString, 4, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=Sucursal.ToEntero, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total, Folio.ToString, ConceptoContable, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SubTotal, Folio.ToString(), 4, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=Sucursal.ToEntero(), PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total, Folio.ToString(), ConceptoContable, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
If IVA > 0 Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, Folio.ToString, 13, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IVA, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, Folio.ToString(), 13, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IVA, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
End If
- 'If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, Folio.ToString, 38, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IEPS) Then ErrorVentas = True : Exit For
+ 'If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, Folio.ToString(), 38, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IEPS) Then ErrorVentas = True : Exit For
If RetIVA > 0 Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetIVA, Folio.ToString, 8, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=RetIVA, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetIVA, Folio.ToString(), 8, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=RetIVA, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
End If
If ImpuestoLocal > 0 Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImpuestoLocal, Folio.ToString, 27, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImpuestoLocal, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImpuestoLocal, Folio.ToString(), 27, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImpuestoLocal, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
End If
If UsaComplementaria Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total * TipoCambio.ToDecimal - Total, Folio.ToString, 203, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteME:=Total, ImporteMX:=Total * TipoCambio.ToDecimal - Total, TipoCambio:=TipoCambio.ToDecimal, Contabilizable:=False) Then ErrorVentas = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total * TipoCambio.ToDecimal - Total, Folio.ToString(), 203, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteME:=Total, ImporteMX:=Total * TipoCambio.ToDecimal - Total, TipoCambio:=TipoCambio.ToDecimal, Contabilizable:=False) Then ErrorVentas = True : Exit For
End If
'Saldo
If Saldo < Total Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, Folio.ToString, ConceptoContablePago, Folio.ToString, Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total - Saldo, CveVentaAmortizacion:=CveVenta, Contabilizable:=False) Then ErrorVentas = True : Exit For
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, Folio.ToString, 95, Folio.ToString, Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total - Saldo, Contabilizable:=False) Then ErrorVentas = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, Folio.ToString(), ConceptoContablePago, Folio.ToString(), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total - Saldo, CveVentaAmortizacion:=CveVenta, Contabilizable:=False) Then ErrorVentas = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, Folio.ToString(), 95, Folio.ToString(), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total - Saldo, Contabilizable:=False) Then ErrorVentas = True : Exit For
End If
Else
'ANTICIPOS
- Dim CveIE As Integer = ObjIE.AddBancos_IE(1, 1, Fecha, Folio.ToString, "", Total, 1,
+ Dim CveIE As Integer = ObjIE.AddBancos_IE(1, 1, Fecha, Folio.ToString(), "", Total, 1,
1, "Anticipo Cliente", "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total, Folio.ToString, 30, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False) Then ErrorVentas = True : Exit For
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio.ToString, 66, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False) Then ErrorVentas = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total, Folio.ToString(), 30, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False) Then ErrorVentas = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio.ToString(), 66, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False) Then ErrorVentas = True : Exit For
End If
Encontrados = Encontrados + 1
@@ -1815,13 +1815,13 @@ Partial Class General_SaldosIniciales
For Each Row As DataRow In dt.Rows
- Dim Codigo As String = Row("Código").ToString
- Dim Descripcion As String = Row("Descripción").ToString
+ Dim Codigo As String = Row("Código").ToString()
+ Dim Descripcion As String = Row("Descripción").ToString()
- Dim CuentaContable As String = Row("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+ Dim CuentaContable As String = Row("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
If CuentaContable.Length > 0 Then
- Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+ Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
If CveCuentaContable > 0 Then
Row("CveCuentaContable") = CveCuentaContable
@@ -1848,30 +1848,30 @@ Partial Class General_SaldosIniciales
Dim NumRow As Integer = 0
For Each Row As DataRow In dt.FiltraParametros("Descripción <> ''").Rows
- Dim Codigo As String = Row("Código").ToString
- Dim Descripcion As String = Row("Descripción").ToString
- Dim TipoAF As String = Row("Tipo").ToString.Trim
- Dim SubTipo As String = Row("SubTipo").ToString.Trim
- Dim Valor As Decimal = Row("Valor de compra").ToString.ToDecimal
- Dim FechaAF As Date = Row("Fecha de compra").ToString.ToDate
- Dim NumeroSerie As String = Row("No. Serie").ToString
- Dim Año As Integer = Row("Año").ToString.ToEntero
- Dim CuentaContable As String = Row("Cuenta Contable").ToString
- Dim Estado As String = Row("Estado").ToString
- Dim Proyecto As String = Row("Proyecto").ToString
- Dim SubProyecto As String = Row("SubProyecto").ToString
- Dim Cliente As String = Row("Cliente").ToString
- Dim Observaciones As String = Row("Observaciones").ToString
- Dim CtaDepreciacion As Integer = Row("Cuenta Depreciación").ToString.ToEntero
- Dim PorcentajeDepreciacion As Decimal = Row("% Depreciación").ToString.ToDecimal
+ Dim Codigo As String = Row("Código").ToString()
+ Dim Descripcion As String = Row("Descripción").ToString()
+ Dim TipoAF As String = Row("Tipo").ToString().Trim
+ Dim SubTipo As String = Row("SubTipo").ToString().Trim
+ Dim Valor As Decimal = Row("Valor de compra").ToString().ToDecimal
+ Dim FechaAF As Date = Row("Fecha de compra").ToString().ToDate
+ Dim NumeroSerie As String = Row("No. Serie").ToString()
+ Dim Año As Integer = Row("Año").ToString().ToEntero()
+ Dim CuentaContable As String = Row("Cuenta Contable").ToString()
+ Dim Estado As String = Row("Estado").ToString()
+ Dim Proyecto As String = Row("Proyecto").ToString()
+ Dim SubProyecto As String = Row("SubProyecto").ToString()
+ Dim Cliente As String = Row("Cliente").ToString()
+ Dim Observaciones As String = Row("Observaciones").ToString()
+ Dim CtaDepreciacion As Integer = Row("Cuenta Depreciación").ToString().ToEntero()
+ Dim PorcentajeDepreciacion As Decimal = Row("% Depreciación").ToString().ToDecimal
'CLAVES
- Dim CveAF As Integer = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveActivoFijo", $"Codigo = '{Codigo}'").ToString.ToEntero
- Dim CveSubTipoAF As Integer = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubTipoActivoFijo", $"TipoActivoFijo = '{TipoAF}'").ToString.ToEntero
- Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToString.ToEntero
- Dim CveEstadoActivoFijo As Integer = GlobalDTEstadoActivoFijo().FiltroPrimeroValor("CveEstadoActivoFijo", $"EstadoActivoFijo = '{Estado}'").ToString.ToEntero
- Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"Nombre = '{Cliente}'").ToString.ToEntero
- Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString.ToEntero
+ Dim CveAF As Integer = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveActivoFijo", $"Codigo = '{Codigo}'").ToString().ToEntero()
+ Dim CveSubTipoAF As Integer = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubTipoActivoFijo", $"TipoActivoFijo = '{TipoAF}'").ToString().ToEntero()
+ Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToString().ToEntero()
+ Dim CveEstadoActivoFijo As Integer = GlobalDTEstadoActivoFijo().FiltroPrimeroValor("CveEstadoActivoFijo", $"EstadoActivoFijo = '{Estado}'").ToString().ToEntero()
+ Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"Nombre = '{Cliente}'").ToString().ToEntero()
+ Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero()
'VALIDACIONES
@@ -1953,18 +1953,18 @@ Partial Class General_SaldosIniciales
Dim CuentaPadre As String = ""
For Each Row As DataRow In dt.Rows
- NombreCuenta = Row("NombreCuenta").ToString
- CuentaPadre = Row("CuentaPadre").ToString
- Dim Cuenta As String = Row("Cuenta").ToString
- Dim TipoCuenta As String = Row("TipoCuenta").ToString
- Dim AgrupadorSAT As String = Row("AgrupadorSAT").ToString
+ NombreCuenta = Row("NombreCuenta").ToString()
+ CuentaPadre = Row("CuentaPadre").ToString()
+ Dim Cuenta As String = Row("Cuenta").ToString()
+ Dim TipoCuenta As String = Row("TipoCuenta").ToString()
+ Dim AgrupadorSAT As String = Row("AgrupadorSAT").ToString()
Dim CveCuentaPadre As Integer = -1
If NombreCuenta <> "" Then
If ObjConta.GetCuentas(-1, CuentaPadre.Replace("-", ""), -1) Then
If ObjConta.DtResultados.Rows.Count > 0 Then
- CveCuentaPadre = ObjConta.DtResultados().FiltroPrimeroValor("Id").ToEntero
+ CveCuentaPadre = ObjConta.DtResultados().FiltroPrimeroValor("Id").ToEntero()
Else
TieneError = True
Exit For
@@ -1974,7 +1974,7 @@ Partial Class General_SaldosIniciales
Exit For
End If
- Dim IdNew = ObjConta.AddCuenta(Cuenta.Replace("-", ""), NombreCuenta, TipoCuenta, 1, 0, 1, 0, "", 0, CveCuentaPadre, AgrupadorSAT.ToEntero)
+ Dim IdNew = ObjConta.AddCuenta(Cuenta.Replace("-", ""), NombreCuenta, TipoCuenta, 1, 0, 1, 0, "", 0, CveCuentaPadre, AgrupadorSAT.ToEntero())
If IdNew > 0 Then
ContadorUpdate = ContadorUpdate + 1
Else
@@ -2021,20 +2021,20 @@ Partial Class General_SaldosIniciales
For Each Row As DataRow In dt.Rows
- Dim Cuenta As String = Row("Cuenta").ToString.Trim.Replace("-", "")
+ Dim Cuenta As String = Row("Cuenta").ToString().Trim.Replace("-", "")
If Cuenta <> "" Then
- NombreCuenta = Row("NombreCuenta").ToString.Trim
- CuentaPadre = Row("CuentaPadre").ToString.Trim.Replace("-", "")
+ NombreCuenta = Row("NombreCuenta").ToString().Trim
+ CuentaPadre = Row("CuentaPadre").ToString().Trim.Replace("-", "")
- Dim TipoCuenta As String = Row("TipoCuenta").ToString.Trim
- Dim AgrupadorSAT As String = Row("AgrupadorSAT").ToString.Trim
+ Dim TipoCuenta As String = Row("TipoCuenta").ToString().Trim
+ Dim AgrupadorSAT As String = Row("AgrupadorSAT").ToString().Trim
Dim CveCuentaPadre As Integer = -1
- Dim CveAgrupadorSAT As Integer = If(AgrupadorSAT = "0", -1, AgrupadoresSAT.FiltroPrimeroValor("CveAgrupadorSAT", String.Format("CodigoNombre LIKE '%{0}%'", AgrupadorSAT)).ToEntero)
+ Dim CveAgrupadorSAT As Integer = If(AgrupadorSAT = "0", -1, AgrupadoresSAT.FiltroPrimeroValor("CveAgrupadorSAT", String.Format("CodigoNombre LIKE '%{0}%'", AgrupadorSAT)).ToEntero())
If Not CuentaPadre = "" Then
If ObjConta.GetCuentas(-1, CuentaPadre.Replace("-", ""), -1, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then
- CveCuentaPadre = ObjConta.DtResultados().FiltroPrimeroValor("Id").ToEntero
+ CveCuentaPadre = ObjConta.DtResultados().FiltroPrimeroValor("Id").ToEntero()
Else
TieneError = True
Exit For
@@ -2095,10 +2095,10 @@ Partial Class General_SaldosIniciales
For Each Row As DataRow In dt.Rows
- NombreCuenta = Row("NombreCuenta").ToString
- Cuenta = Row("Cuenta").ToString
- Dim TipoCuenta As String = Row("TipoCuenta").ToString
- Dim Importe As Double = Row("Importe").ToString.ToDouble
+ NombreCuenta = Row("NombreCuenta").ToString()
+ Cuenta = Row("Cuenta").ToString()
+ Dim TipoCuenta As String = Row("TipoCuenta").ToString()
+ Dim Importe As Double = Row("Importe").ToString().ToDouble
Dim IdCuenta As Integer = -1
Dim CargoAbono As Boolean = True
Dim YaExiste As Boolean = False
@@ -2106,7 +2106,7 @@ Partial Class General_SaldosIniciales
If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1) Then
If ObjConta.DtResultados.Rows.Count > 0 Then
- IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Id").ToEntero
+ IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Id").ToEntero()
TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo")
Else
Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe} ")
@@ -2142,7 +2142,7 @@ Partial Class General_SaldosIniciales
Alert($"Se agregó la póliza {IdPoliza}")
Else
- Alert($"No encontraron las siguientes cuentas: {Reporte.ToString} ", TipoMensaje.MsgError)
+ Alert($"No encontraron las siguientes cuentas: {Reporte.ToString()} ", TipoMensaje.MsgError)
ObjConta.RollBack()
End If
@@ -2169,14 +2169,14 @@ Partial Class General_SaldosIniciales
CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
For Each Row As DataRow In dt.FiltraParametros("Cuenta <> '' ").Rows
- NombreCuenta = Row("NombreCuenta").ToString
- Cuenta = Row("Cuenta").ToString
+ NombreCuenta = Row("NombreCuenta").ToString()
+ Cuenta = Row("Cuenta").ToString()
- Dim Importe As Decimal = If(Row("Cargo").ToString.ToDecimal <> 0, Row("Cargo").ToString.ToDecimal, Row("Abono").ToString.ToDecimal)
- Dim Concepto As String = Row("Concepto").ToString
+ Dim Importe As Decimal = If(Row("Cargo").ToString().ToDecimal <> 0, Row("Cargo").ToString().ToDecimal, Row("Abono").ToString().ToDecimal)
+ Dim Concepto As String = Row("Concepto").ToString()
Dim IdCuenta As Integer = -1
Dim CveSubProyecto As Integer = -1
- Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
+ Dim TipoMovto As Boolean = If(Row("Cargo").ToString().ToDecimal <> 0, False, True)
Dim YaExiste As Boolean = False
Dim DataTemp As DataTable
Dim Afectable As Boolean = False
@@ -2185,7 +2185,7 @@ Partial Class General_SaldosIniciales
Cuenta = Cuenta.Replace(" ", "")
If ObjConta.GetCuentas(-1, Cuenta.Replace("-", "").Trim, -1, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then
- IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero
+ IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero()
Afectable = ObjConta.DtResultados().FiltroPrimeroValor("Afectable") = "True"
Else
Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe} ")
@@ -2197,10 +2197,10 @@ Partial Class General_SaldosIniciales
Exit For
End If
- Dim SubP As String = Row("SubProyecto").ToString.Trim
+ Dim SubP As String = Row("SubProyecto").ToString().Trim
If SubP <> "" AndAlso SubP <> "-" Then
DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
- CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
+ CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero()
If CveSubProyecto <= 0 Then
Reporte.AppendLine($"'{SubP}' - no se encontró en los subproyectos ")
TieneError = True
@@ -2236,7 +2236,7 @@ Partial Class General_SaldosIniciales
Alert($"Se agregó la póliza {ObjConta.ContaFolio}")
Else
- Alert($"No encontraron las siguientes cuentas: {Reporte.ToString} ", TipoMensaje.MsgError)
+ Alert($"No encontraron las siguientes cuentas: {Reporte.ToString()} ", TipoMensaje.MsgError)
ObjConta.RollBack()
End If
@@ -2259,11 +2259,11 @@ Partial Class General_SaldosIniciales
Dim Fecha As DateTime = (TxtFecha.Text).ToDate
Try
For Each almacenSinRepetir As DataRow In dt.FiltraParametros("Almacen <> ''", DistinctColumns:={"Almacen"}).Rows
- Dim almacenActual As String = almacenSinRepetir("Almacen").ToString.Trim
- Dim CveAlmacen As Integer = AlmacenRef.FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero
+ Dim almacenActual As String = almacenSinRepetir("Almacen").ToString().Trim
+ Dim CveAlmacen As Integer = AlmacenRef.FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero()
If CveAlmacen > 0 Then
- Dim movimientoCabecera As Integer = ObjMovimientos.AddMovimiento(CveAlmacen, DdlConceptoAlmacen.SelectedValue.ToEntero, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
+ Dim movimientoCabecera As Integer = ObjMovimientos.AddMovimiento(CveAlmacen, DdlConceptoAlmacen.SelectedValue.ToEntero(), 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
listadoMovimientos += $"movimiento con folio {ObjMovimientos.Folio} "
If movimientoCabecera > 0 Then
@@ -2271,12 +2271,12 @@ Partial Class General_SaldosIniciales
contadorMovimientos += 1
Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS")}' AND CveEmpresa = {UsuarioActual.CveEmpresa}")
If RowPS IsNot Nothing Then
- Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero
- Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero
+ Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero()
+ Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
If CveUM > 0 Then
- Dim Cantidad As Decimal = nuevaEntrada("Existencia").ToString.ToDecimal
- Dim Valor As Decimal = nuevaEntrada("Valor").ToString.ToDecimal
- Dim Serie As String = If(dt.Columns.Contains("Serie"), nuevaEntrada("Serie").ToString.Trim, "")
+ Dim Cantidad As Decimal = nuevaEntrada("Existencia").ToString().ToDecimal
+ Dim Valor As Decimal = nuevaEntrada("Valor").ToString().ToDecimal
+ Dim Serie As String = If(dt.Columns.Contains("Serie"), nuevaEntrada("Serie").ToString().Trim, "")
If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, (Valor / Cantidad), -1, -1, Serie:=Serie) Then
mensajeError = "No se logró generar el detalle del movimiento"
@@ -2368,23 +2368,23 @@ Partial Class General_SaldosIniciales
For Each dRow As DataRow In dt.Rows
- Dim Clasificacion As String = dRow("Clasificacion").ToString.Trim
- Dim Categoria As String = dRow("Categoria").ToString.Trim
- Dim UsoClasificacion As String = dRow("UsoClasificacion").ToString.Trim.ToUpper
- Dim CuentaContableIngreso As String = dRow("CuentaContableIngreso").ToString.Trim.Replace("-", "")
- Dim CuentaContableGasto As String = dRow("CuentaContableGasto").ToString.Trim.Replace("-", "")
+ Dim Clasificacion As String = dRow("Clasificacion").ToString().Trim
+ Dim Categoria As String = dRow("Categoria").ToString().Trim
+ Dim UsoClasificacion As String = dRow("UsoClasificacion").ToString().Trim.ToUpper
+ Dim CuentaContableIngreso As String = dRow("CuentaContableIngreso").ToString().Trim.Replace("-", "")
+ Dim CuentaContableGasto As String = dRow("CuentaContableGasto").ToString().Trim.Replace("-", "")
Dim CveClasificacion As Integer = -1
Dim CveUsoClasificacion As Integer = -1
Dim CveCategoria As Integer = -1
- CveCategoria = GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", $" Categoria = '{Categoria}' ").ToEntero
+ CveCategoria = GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", $" Categoria = '{Categoria}' ").ToEntero()
If Not CveCategoria > 0 Then
- CveCategoria = GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToEntero
+ CveCategoria = GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToEntero()
If Not CveCategoria > 0 Then
Alert($"Clasificación {Clasificacion} la categoria {Categoria} no es valida.", TipoMensaje.MsgAdvertencia)
ErrorProceso = True
@@ -2408,8 +2408,8 @@ Partial Class General_SaldosIniciales
Exit For
End If
- Dim CveCuentaContableIngreso As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableIngreso}'").ToEntero
- Dim CveCuentaContableGasto As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableGasto}'").ToEntero
+ Dim CveCuentaContableIngreso As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableIngreso}'").ToEntero()
+ Dim CveCuentaContableGasto As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableGasto}'").ToEntero()
If CuentaContableIngreso.Trim.Length > 0 AndAlso CveCuentaContableIngreso <= 0 Then
Alert($"Clasificación {Clasificacion} no se encontro la cuenta de ingreso {CuentaContableIngreso}.", TipoMensaje.MsgAdvertencia)
@@ -2422,7 +2422,7 @@ Partial Class General_SaldosIniciales
End If
- Dim CveClasificaionTemp = DTClasificaiones.FiltroPrimeroValor("CveClasificacion", $"Clasificacion='{Clasificacion}'").ToEntero
+ Dim CveClasificaionTemp = DTClasificaiones.FiltroPrimeroValor("CveClasificacion", $"Clasificacion='{Clasificacion}'").ToEntero()
If CveClasificaionTemp > 0 Then
CveClasificacion = CveClasificaionTemp
@@ -2496,17 +2496,17 @@ Partial Class General_SaldosIniciales
Dim Contador As Integer = 0
For Each dRow As DataRow In DTBancos.Rows
- Dim Fecha As Date = dRow("Fecha").ToString.ToDate
- Dim Importe As Decimal = dRow("Importe").ToString.ToDecimal
- Dim Descripcion As String = dRow("Descripcion").ToString
- Dim Banco As String = dRow("Banco").ToString
- Dim NumCuenta As String = dRow("CuentaBancaria").ToString.Trim
+ Dim Fecha As Date = dRow("Fecha").ToString().ToDate
+ Dim Importe As Decimal = dRow("Importe").ToString().ToDecimal
+ Dim Descripcion As String = dRow("Descripcion").ToString()
+ Dim Banco As String = dRow("Banco").ToString()
+ Dim NumCuenta As String = dRow("CuentaBancaria").ToString().Trim
Dim ImporteMX As Decimal = 0
Dim ImporteME As Decimal = 0
- Dim Moneda As String = dRow("Moneda").ToString
+ Dim Moneda As String = dRow("Moneda").ToString()
Dim CveMoneda As Integer
- Dim TipoCambio As Decimal = dRow("TipoCambio").ToString.ToDecimal
+ Dim TipoCambio As Decimal = dRow("TipoCambio").ToString().ToDecimal
If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN") Then
CveMoneda = 1
@@ -2537,11 +2537,11 @@ Partial Class General_SaldosIniciales
Dim CveTipoTransaccion As Integer = 3 ' tipo transaccion, cheque recibido
- Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveCuenta", $" NumCuenta = '{NumCuenta}'").ToEntero
+ Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveCuenta", $" NumCuenta = '{NumCuenta}'").ToEntero()
If Not CveCuentaBancaria > 0 Then
' se registrará primero
- Dim CveBanco As Integer = GlobalDTBancos().FiltroPrimeroValor("CveBanco", String.Format("CveEmpresa = {0} AND Banco = '{1}'", UsuarioActual.CveEmpresa, Banco)).ToEntero
+ Dim CveBanco As Integer = GlobalDTBancos().FiltroPrimeroValor("CveBanco", String.Format("CveEmpresa = {0} AND Banco = '{1}'", UsuarioActual.CveEmpresa, Banco)).ToEntero()
If CveBanco > 0 Then
Dim CveTipoCuenta As Integer = 2 'tipo de cheques
@@ -2564,11 +2564,11 @@ Partial Class General_SaldosIniciales
FolioStr = CStr(ObjBancos.GetNextFolio(CveCuentaBancaria, CveTipoTransaccion))
Dim CveCuentaContable As Integer = 0
- Dim CuentaContable As String = dRow("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+ Dim CuentaContable As String = dRow("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
If CuentaContable.Length > 0 Then
- CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+ CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
If CveCuentaContable > 0 Then
dRow("CveCuentaContable") = CveCuentaContable
@@ -2597,11 +2597,11 @@ Partial Class General_SaldosIniciales
ErrorProceso = True : Exit For
End If
- Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, CveTipoTransaccion, Fecha, FolioStr.ToString, "", Importe, CveMoneda,
+ Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, CveTipoTransaccion, Fecha, FolioStr.ToString(), "", Importe, CveMoneda,
TipoCambio, Descripcion, "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString, 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString, 95, FolioStr, Fecha, -1, -1, CveIE:=CveIE, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString(), 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString(), 95, FolioStr, Fecha, -1, -1, CveIE:=CveIE, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
End If
@@ -2622,7 +2622,7 @@ Partial Class General_SaldosIniciales
Private Sub ProcesaAnticipoProveedor(DtAnticipoProveedor As DataTable, DTCuentasContables As DataTable)
Dim ErrorProceso As Boolean = False
- Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero
+ Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero()
If Not CveCuentaBancaria > 0 Then
Alert("No se detecto una cuenta Bancaria", TipoMensaje.MsgAdvertencia)
@@ -2641,15 +2641,15 @@ Partial Class General_SaldosIniciales
For Each dRow As DataRow In DtAnticipoProveedor.Rows
- Dim Fecha As Date = dRow("Fecha").ToString.ToDate
- Dim Importe As Decimal = dRow("Importe").ToString.ToDecimal
+ Dim Fecha As Date = dRow("Fecha").ToString().ToDate
+ Dim Importe As Decimal = dRow("Importe").ToString().ToDecimal
Dim ImporteMX As Decimal = 0
Dim ImporteME As Decimal = 0
- Dim Descripcion As String = dRow("Descripcion").ToString
- Dim RFC As String = dRow("RFC").ToString
- Dim Moneda As String = dRow("Moneda").ToString
+ Dim Descripcion As String = dRow("Descripcion").ToString()
+ Dim RFC As String = dRow("RFC").ToString()
+ Dim Moneda As String = dRow("Moneda").ToString()
Dim CveMoneda As Integer
- Dim TipoCambio As Decimal = dRow("TipoCambio").ToString.ToDecimal
+ Dim TipoCambio As Decimal = dRow("TipoCambio").ToString().ToDecimal
@@ -2685,7 +2685,7 @@ Partial Class General_SaldosIniciales
Dim FolioStr As String = ""
FolioStr = CStr(ObjBancos.GetNextFolio(CveCuentaBancaria, 1) + Contador)
- Dim CveProveedor As Integer = GlobalDTCompProveedores(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $" RFC = '{RFC}' ").ToEntero
+ Dim CveProveedor As Integer = GlobalDTCompProveedores(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $" RFC = '{RFC}' ").ToEntero()
If Not CveProveedor > 0 Then
@@ -2695,10 +2695,10 @@ Partial Class General_SaldosIniciales
End If
Dim CveCuentaContable As Integer = 0
- Dim CuentaContable As String = dRow("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+ Dim CuentaContable As String = dRow("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
If CuentaContable.Length > 0 Then
- CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+ CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
If CveCuentaContable > 0 Then
@@ -2730,11 +2730,11 @@ Partial Class General_SaldosIniciales
End If
- Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 1, Fecha, FolioStr.ToString, "", Importe, CveMoneda,
+ Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 1, Fecha, FolioStr.ToString(), "", Importe, CveMoneda,
TipoCambio, Descripcion, "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString, 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveProveedor:=CveProveedor, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString, 10, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveProveedor:=CveProveedor, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString(), 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveProveedor:=CveProveedor, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString(), 10, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveProveedor:=CveProveedor, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
Contador = Contador + 1
Next
@@ -2754,7 +2754,7 @@ Partial Class General_SaldosIniciales
Private Sub ProcesaAnticipoCliente(DTAnticipoCliente As DataTable, DTCuentasContables As DataTable)
Dim ErrorProceso As Boolean = False
- Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero
+ Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero()
If Not CveCuentaBancaria > 0 Then
Alert("No se detecto una cuenta Bancaria", TipoMensaje.MsgAdvertencia)
@@ -2773,15 +2773,15 @@ Partial Class General_SaldosIniciales
For Each dRow As DataRow In DTAnticipoCliente.Rows
- Dim Fecha As Date = dRow("Fecha").ToString.ToDate
- Dim Importe As Decimal = dRow("Importe").ToString.ToDecimal
+ Dim Fecha As Date = dRow("Fecha").ToString().ToDate
+ Dim Importe As Decimal = dRow("Importe").ToString().ToDecimal
Dim ImporteMX As Decimal = 0
Dim ImporteME As Decimal = 0
- Dim Descripcion As String = dRow("Descripcion").ToString
- Dim RFC As String = dRow("RFC").ToString
- Dim Moneda As String = dRow("Moneda").ToString
+ Dim Descripcion As String = dRow("Descripcion").ToString()
+ Dim RFC As String = dRow("RFC").ToString()
+ Dim Moneda As String = dRow("Moneda").ToString()
Dim CveMoneda As Integer
- Dim TipoCambio As Decimal = dRow("TipoCambio").ToString.ToDecimal
+ Dim TipoCambio As Decimal = dRow("TipoCambio").ToString().ToDecimal
If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN") Then
CveMoneda = 1
@@ -2814,7 +2814,7 @@ Partial Class General_SaldosIniciales
Dim FolioStr As String = ""
FolioStr = CStr(ObjBancos.GetNextFolio(CveCuentaBancaria, 3) + Contador)
- Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCliente", $" RFC = '{RFC}' ").ToEntero
+ Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCliente", $" RFC = '{RFC}' ").ToEntero()
If Not CveCliente > 0 Then
@@ -2824,12 +2824,12 @@ Partial Class General_SaldosIniciales
End If
- 'Dim RazonSocial As String = Row("RazonSocial").ToString
+ 'Dim RazonSocial As String = Row("RazonSocial").ToString()
Dim CveCuentaContable As Integer = 0
- Dim CuentaContable As String = dRow("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+ Dim CuentaContable As String = dRow("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
If CuentaContable.Length > 0 Then
- CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+ CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
If CveCuentaContable > 0 Then
@@ -2861,11 +2861,11 @@ Partial Class General_SaldosIniciales
End If
- Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 3, Fecha, FolioStr.ToString, "", Importe, CveMoneda,
+ Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 3, Fecha, FolioStr.ToString(), "", Importe, CveMoneda,
TipoCambio, Descripcion, "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString, 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString, 66, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString(), 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString(), 66, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
Contador = Contador + 1
Next
@@ -3181,15 +3181,15 @@ Partial Class General_SaldosIniciales
For Each Row As DataRow In dt.Rows
- Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString
- Dim ApellidoMaterno As String = Row("Apellido Materno").ToString
- Dim Nombre As String = Row("Nombre").ToString
+ Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString()
+ Dim ApellidoMaterno As String = Row("Apellido Materno").ToString()
+ Dim Nombre As String = Row("Nombre").ToString()
- Dim CuentaContable As String = Row("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+ Dim CuentaContable As String = Row("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
If CuentaContable.Length > 0 Then
- Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+ Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
If CveCuentaContable > 0 Then
Row("CveCuentaContable") = CveCuentaContable
@@ -3216,7 +3216,10 @@ Partial Class General_SaldosIniciales
Dim dTDepartamentos As New DataTable
Dim dTTurno As New DataTable
Dim ObjRH As New ClsRH
-
+ Dim dtTipoTrabajador As New DataTable
+ If (ObjRH.TiposTrabajadorGet(-1, UsuarioActual.CveEmpresa)) Then
+ dtTipoTrabajador = ObjRH.DtResultados
+ End If
Dim dtpuestos = GlobalDTRHPuestos(UsuarioActual.CveEmpresa)
dtpuestos.CaseSensitive = False
If ObjRH.GetRegistrosPatronales(-1, UsuarioActual.CveEmpresa, -1) Then
@@ -3239,45 +3242,46 @@ Partial Class General_SaldosIniciales
For Each Row As DataRow In dt.Rows
Dim myarraystr As String()
Dim RegistroPatronal As String = Row("Registro Patronal").ToString().ToUpper()
- Dim Codigo As String = Row("Código").ToString
- Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString
- Dim ApellidoMaterno As String = Row("Apellido Materno").ToString
- Dim Nombre As String = Row("Nombre").ToString
- Dim CorreoElectronico As String = Row("Correo Electronico").ToString
- Dim FechaIngreso As String = Row("Fecha Ingreso").ToString
- Dim FechaBaja As String = Row("Fecha Baja").ToString
- Dim NumeroSS As String = Row("Numero SS").ToString
- Dim AltaIMSS As String = Row("Alta IMSS").ToString
- Dim SalarioDiario As String = Row("Salario Diario").ToString
- Dim Direccion As String = Row("Dirección").ToString
- Dim FechaNacimiento As String = Row("Fecha Nacimiento").ToString
- Dim LugarNacimiento As String = Row("Lugar Nacimiento").ToString
- Dim Sexo As String = Row("Sexo").ToString
- Dim CodigoPostal As String = Row("Código Postal").ToString
- Dim Ciudad As String = Row("Ciudad").ToString
- Dim EstadoCivil As String = Row("Estado Civil").ToString.ToUpper
- Dim Telefono As String = Row("Teléfono").ToString
- Dim Celular As String = Row("Celular").ToString
- Dim RFC As String = Row("RFC").ToString
- Dim CURP As String = Row("CURP").ToString
- Dim ClabeInterbancaria As String = Row("CLABE").ToString
- Dim EstatusPersonal As String = Row("Estatus Personal").ToString.ToUpper
- Dim SubProyecto As String = Row("SubProyecto").ToString.ToUpper
+ Dim Codigo As String = Row("Código").ToString()
+ Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString()
+ Dim ApellidoMaterno As String = Row("Apellido Materno").ToString()
+ Dim Nombre As String = Row("Nombre").ToString()
+ Dim CorreoElectronico As String = Row("Correo Electronico").ToString()
+ Dim FechaIngreso As String = Row("Fecha Ingreso").ToString()
+ Dim FechaBaja As String = Row("Fecha Baja").ToString()
+ Dim NumeroSS As String = Row("Numero SS").ToString()
+ Dim AltaIMSS As String = Row("Alta IMSS").ToString()
+ Dim SalarioDiario As String = Row("Salario Diario").ToString()
+ Dim Direccion As String = Row("Dirección").ToString()
+ Dim FechaNacimiento As String = Row("Fecha Nacimiento").ToString()
+ Dim LugarNacimiento As String = Row("Lugar Nacimiento").ToString()
+ Dim Sexo As String = Row("Sexo").ToString()
+ Dim CodigoPostal As String = Row("Código Postal").ToString()
+ Dim Ciudad As String = Row("Ciudad").ToString()
+ Dim EstadoCivil As String = Row("Estado Civil").ToString().ToUpper
+ Dim Telefono As String = Row("Teléfono").ToString()
+ Dim Celular As String = Row("Celular").ToString()
+ Dim RFC As String = Row("RFC").ToString()
+ Dim CURP As String = Row("CURP").ToString()
+ Dim ClabeInterbancaria As String = Row("CLABE").ToString()
+ Dim EstatusPersonal As String = Row("Estatus Personal").ToString().ToUpper
+ Dim SubProyecto As String = Row("SubProyecto").ToString().ToUpper
'Nuevas
- Dim Estado As String = Row("Estado").ToString
- Dim NombrePadre As String = Row("Nombre Padre").ToString
- Dim NombreMadre As String = Row("Nombre Madre").ToString
- Dim Puesto As String = Row("Puesto").ToString
- Dim Turno As String = Row("Turno").ToString
- Dim TipoContrato As String = Row("Tipo Contrato").ToString
- Dim Departamento As String = Row("Departamento").ToString
- Dim TipoPeriodo As String = Row("Tipo Periodo").ToString
- Dim Escolaridad As String = Row("Escolaridad").ToString
- Dim SDI As String = Row("SDI").ToString
- Dim MetodoPago As String = Row("Metodo Pago").ToString
- Dim Nominista As String = Row("Nominista").ToString
- Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString.ToEntero
- Dim Saldo As Decimal = Row("Saldo").ToString.ToDecimal
+ Dim Estado As String = Row("Estado").ToString()
+ Dim NombrePadre As String = Row("Nombre Padre").ToString()
+ Dim NombreMadre As String = Row("Nombre Madre").ToString()
+ Dim Puesto As String = Row("Puesto").ToString()
+ Dim Turno As String = Row("Turno").ToString()
+ Dim TipoContrato As String = Row("Tipo Contrato").ToString()
+ Dim Departamento As String = Row("Departamento").ToString()
+ Dim TipoPeriodo As String = Row("Tipo Periodo").ToString()
+ Dim Escolaridad As String = Row("Escolaridad").ToString()
+ Dim SDI As String = Row("SDI").ToString()
+ Dim MetodoPago As String = Row("Metodo Pago").ToString()
+ Dim Nominista As String = Row("Nominista").ToString()
+ Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero()
+ Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal
+ Dim TipoTrabajador As String = Row("Tipo Trabajador").ToString()
Dim NombreCompleto As String = $"{Nombre} {ApellidoPaterno} {ApellidoMaterno}"
@@ -3289,7 +3293,7 @@ Partial Class General_SaldosIniciales
Dim CveGenero As Integer = 0
Dim CveEstadoCivil As Integer = 0
Dim CveEstatusPersonal As Integer = 0
- ' Dim CveSucursal As Integer = GlobalDTSucursales(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSucursal").ToString.ToEntero
+ ' Dim CveSucursal As Integer = GlobalDTSucursales(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSucursal").ToString().ToEntero()
Dim CveRegistroPatronal As Integer
Dim CvePuesto As Integer
Dim CveTurno As Integer
@@ -3301,17 +3305,22 @@ Partial Class General_SaldosIniciales
Dim CveMetodoPago As Integer
Dim CveUsuarioNomina As Integer
Dim CveSubProyecto As Integer
+ Dim CveTipoTrabajador As Integer
myarraystr = Puesto.Split(":"c)
If (myarraystr.Length > 1) Then
CvePuesto = myarraystr(0).ToEntero()
- CvePuesto = dtpuestos.FiltroPrimeroValor("CvePuesto", $"(CvePuesto) = ({CvePuesto})").ToString.ToEntero
+ CvePuesto = dtpuestos.FiltroPrimeroValor("CvePuesto", $"(CvePuesto) = ({CvePuesto})").ToString().ToEntero()
Else
- CvePuesto = dtpuestos.FiltroPrimeroValor("CvePuesto", $"(Puesto) = ('{Puesto}')").ToString.ToEntero
+ CvePuesto = dtpuestos.FiltroPrimeroValor("CvePuesto", $"(Puesto) = ('{Puesto}')").ToString().ToEntero()
End If
- CveRegistroPatronal = dtregistrospatronales.FiltroPrimeroValor("CveRegistroPatronal", $"(RegistroPatronal) = ('{RegistroPatronal}')").ToString.ToEntero
+ CveTipoTrabajador = dtTipoTrabajador.FiltroPrimeroValor("CveTipoTrabajador", $"(TipoTrabajador) = ('{TipoTrabajador}')").ToString().ToEntero()
+ If CveTipoTrabajador = 0 Then
+ CveTipoTrabajador = -1
+ End If
+ CveRegistroPatronal = dtregistrospatronales.FiltroPrimeroValor("CveRegistroPatronal", $"(RegistroPatronal) = ('{RegistroPatronal}')").ToString().ToEntero()
If CvePuesto = 0 Then
CvePuesto = -1
End If
@@ -3319,9 +3328,9 @@ Partial Class General_SaldosIniciales
myarraystr = Turno.Split(":"c)
If (myarraystr.Length > 1) Then
CveTurno = myarraystr(0).ToEntero()
- CveTurno = dTTurno.FiltroPrimeroValor("CveTurno", $"CveTurno = {CveTurno}").ToString.ToEntero
+ CveTurno = dTTurno.FiltroPrimeroValor("CveTurno", $"CveTurno = {CveTurno}").ToString().ToEntero()
Else
- CveTurno = dTTurno.FiltroPrimeroValor("CveTurno", $"Turno = '{Turno}'").ToString.ToEntero
+ CveTurno = dTTurno.FiltroPrimeroValor("CveTurno", $"Turno = '{Turno}'").ToString().ToEntero()
End If
If CveTurno = 0 Then
CveTurno = -1
@@ -3346,10 +3355,10 @@ Partial Class General_SaldosIniciales
myarraystr = Departamento.Split(":"c)
If (myarraystr.Length > 1) Then
CveDepartamento = myarraystr(0).ToEntero()
- CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"CveDepartamento = {CveDepartamento}").ToString.ToEntero
+ CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"CveDepartamento = {CveDepartamento}").ToString().ToEntero()
Else
- CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"Departamento = '{Departamento}'").ToString.ToEntero
+ CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"Departamento = '{Departamento}'").ToString().ToEntero()
End If
If CveDepartamento <= 0 Then
CveDepartamento = -1
@@ -3358,9 +3367,9 @@ Partial Class General_SaldosIniciales
myarraystr = Estado.Split(":"c)
If (myarraystr.Length > 1) Then
CveEstado = myarraystr(0).ToEntero()
- CveEstado = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"CveEstado = {CveEstado}").ToString.ToEntero
+ CveEstado = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"CveEstado = {CveEstado}").ToString().ToEntero()
Else
- CveEstado = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado}'").ToString.ToEntero
+ CveEstado = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado}'").ToString().ToEntero()
End If
If CveEstado = 0 Then
CveEstado = -1
@@ -3369,9 +3378,9 @@ Partial Class General_SaldosIniciales
myarraystr = TipoContrato.Split(":"c)
If (myarraystr.Length > 1) Then
CveTipoContrato = myarraystr(0).ToEntero()
- CveTipoContrato = GlobalDTTiposContrato().FiltroPrimeroValor("CveTipoContrato", $"CveTipoContrato = {CveTipoContrato}").ToString.ToEntero
+ CveTipoContrato = GlobalDTTiposContrato().FiltroPrimeroValor("CveTipoContrato", $"CveTipoContrato = {CveTipoContrato}").ToString().ToEntero()
Else
- CveTipoContrato = GlobalDTTiposContrato().FiltroPrimeroValor("CveTipoContrato", $"TipoContrato = '{TipoContrato}'").ToString.ToEntero
+ CveTipoContrato = GlobalDTTiposContrato().FiltroPrimeroValor("CveTipoContrato", $"TipoContrato = '{TipoContrato}'").ToString().ToEntero()
End If
If CveTipoContrato = 0 Then
CveTipoContrato = -1
@@ -3389,9 +3398,9 @@ Partial Class General_SaldosIniciales
myarraystr = TipoPeriodo.Split(":"c)
If (myarraystr.Length > 1) Then
CveTipoPeriodo = myarraystr(0).ToEntero()
- CveTipoPeriodo = GlobalDTTipoPeriodo().FiltroPrimeroValor("CveTipoPeriodo", $"CveTipoPeriodo = {CveTipoPeriodo}").ToString.ToEntero
+ CveTipoPeriodo = GlobalDTTipoPeriodo().FiltroPrimeroValor("CveTipoPeriodo", $"CveTipoPeriodo = {CveTipoPeriodo}").ToString().ToEntero()
Else
- CveTipoPeriodo = GlobalDTTipoPeriodo().FiltroPrimeroValor("CveTipoPeriodo", $"TipoPeriodo = '{TipoPeriodo}'").ToString.ToEntero
+ CveTipoPeriodo = GlobalDTTipoPeriodo().FiltroPrimeroValor("CveTipoPeriodo", $"TipoPeriodo = '{TipoPeriodo}'").ToString().ToEntero()
End If
If CveTipoPeriodo = 0 Then
CveTipoPeriodo = -1
@@ -3400,9 +3409,9 @@ Partial Class General_SaldosIniciales
myarraystr = Escolaridad.Split(":"c)
If (myarraystr.Length > 1) Then
CveEscolaridad = myarraystr(0).ToEntero()
- CveEscolaridad = GlobalDTEscolaridad().FiltroPrimeroValor("CveEscolaridad", $"CveEscolaridad = {CveEscolaridad}").ToString.ToEntero
+ CveEscolaridad = GlobalDTEscolaridad().FiltroPrimeroValor("CveEscolaridad", $"CveEscolaridad = {CveEscolaridad}").ToString().ToEntero()
Else
- CveEscolaridad = GlobalDTEscolaridad().FiltroPrimeroValor("CveEscolaridad", $"Escolaridad = '{Escolaridad}'").ToString.ToEntero
+ CveEscolaridad = GlobalDTEscolaridad().FiltroPrimeroValor("CveEscolaridad", $"Escolaridad = '{Escolaridad}'").ToString().ToEntero()
End If
'If CveEscolaridad = 0 Then
' CveEscolaridad = -1
@@ -3416,9 +3425,9 @@ Partial Class General_SaldosIniciales
myarraystr = MetodoPago.Split(":"c)
If (myarraystr.Length > 1) Then
CveMetodoPago = myarraystr(0).ToEntero()
- CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"CveMetodoPago = {CveMetodoPago}").ToString.ToEntero
+ CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"CveMetodoPago = {CveMetodoPago}").ToString().ToEntero()
Else
- CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"ClaveSAT = '{MetodoPago}'").ToString.ToEntero
+ CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"ClaveSAT = '{MetodoPago}'").ToString().ToEntero()
End If
If CveMetodoPago = 0 Then
CveMetodoPago = -1
@@ -3427,9 +3436,9 @@ Partial Class General_SaldosIniciales
myarraystr = Nominista.Split(":"c)
If (myarraystr.Length > 1) Then
CveUsuarioNomina = myarraystr(0).ToEntero()
- CveUsuarioNomina = GlobalDTUsuarios(-1, -1).FiltroPrimeroValor("CveUsuario", $"CveUsuario = {CveUsuarioNomina}").ToString.ToEntero
+ CveUsuarioNomina = GlobalDTUsuarios(-1, -1).FiltroPrimeroValor("CveUsuario", $"CveUsuario = {CveUsuarioNomina}").ToString().ToEntero()
Else
- CveUsuarioNomina = GlobalDTUsuarios(-1, -1).FiltroPrimeroValor("CveUsuario", $"Nombre = '{Nominista}'").ToString.ToEntero
+ CveUsuarioNomina = GlobalDTUsuarios(-1, -1).FiltroPrimeroValor("CveUsuario", $"Nombre = '{Nominista}'").ToString().ToEntero()
End If
If CveUsuarioNomina = 0 Then
CveUsuarioNomina = -1
@@ -3462,10 +3471,10 @@ Partial Class General_SaldosIniciales
- Dim CvePersonal As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"NombreCompletoNombre = '{NombreCompleto}'").ToString.ToEntero()
+ Dim CvePersonal As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"NombreCompletoNombre = '{NombreCompleto}'").ToString().ToEntero()
If Not (CvePersonal > 0) Then
- CvePersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"CURP = '{CURP}'").ToString.ToEntero()
+ CvePersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"CURP = '{CURP}'").ToString().ToEntero()
End If
@@ -3523,9 +3532,9 @@ Partial Class General_SaldosIniciales
SDI = SalarioDiario
End If
If Not ObjRH.AddPersonal(Codigo, ApellidoPaterno, ApellidoMaterno, Nombre, CorreoElectronico, FechaIn, CveTipoPeriodo, NumeroSS, CBool(AltaIMSS), SalarioDiario.ToDouble, SalarioDiario.ToDouble, SDI.ToDouble, SDI.ToDouble,
- -1, -1, -1, CveMetodoPago, FechaIn, FechaFn.ToString, CveTipoContrato, Direccion, CveTurno, CvePuesto, CveDepartamento, -1, CveEscolaridad, CveEstadoCivil, CveGenero, -1, FechaBaja, CveEstatusPersonal, FechaNac,
+ -1, -1, -1, CveMetodoPago, FechaIn, FechaFn.ToString(), CveTipoContrato, Direccion, CveTurno, CvePuesto, CveDepartamento, -1, CveEscolaridad, CveEstadoCivil, CveGenero, -1, FechaBaja, CveEstatusPersonal, FechaNac,
LugarNacimiento, Direccion, "", "", "", CodigoPostal, Ciudad, CveEstado, Telefono, "", Celular, RFC, CURP, "", NombrePadre, NombreMadre, -1, CveSATRiesgoPuesto, CveSATRegimenContratacion, -1, CveSubProyecto, "", -1,
- ClabeInterbancaria, "", CveJornada, CveJornada, "", -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina, CveRegistroPatronal:=CveRegistroPatronal) Then
+ ClabeInterbancaria, "", CveJornada, CveJornada, "", -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina, CveRegistroPatronal:=CveRegistroPatronal, CveTipoTrabajador:=CveTipoTrabajador) Then
If (ObjRH.noguardoXcurpb) Then
Else
ErrorRH = True
@@ -3556,7 +3565,7 @@ Partial Class General_SaldosIniciales
Exit For
End If
- Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero
+ Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero()
If Not CveCuentaBancaria > 0 Then
Alert("No se detecto una cuenta Bancaria", TipoMensaje.MsgAdvertencia)
@@ -3581,11 +3590,11 @@ Partial Class General_SaldosIniciales
Exit For
End If
- Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 3, Fecha, FolioStr.ToString, "", Saldo, 1,
+ Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 3, Fecha, FolioStr.ToString(), "", Saldo, 1,
1, "Saldo Inicial", "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, FolioStr.ToString, 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CvePersonal:=CvePersonal, Contabilizable:=False, ImporteMX:=Saldo) Then ErrorRH = True : Exit For
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, FolioStr.ToString, 28, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CvePersonal:=CvePersonal, Contabilizable:=False, ImporteMX:=Saldo) Then ErrorRH = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, FolioStr.ToString(), 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CvePersonal:=CvePersonal, Contabilizable:=False, ImporteMX:=Saldo) Then ErrorRH = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, FolioStr.ToString(), 28, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CvePersonal:=CvePersonal, Contabilizable:=False, ImporteMX:=Saldo) Then ErrorRH = True : Exit For
End If
@@ -3912,7 +3921,8 @@ Partial Class General_SaldosIniciales
libro.Cell(crow, ccol).Value = "Registro Patronal" : ccol = ccol + 1
libro.Cell(crow, ccol).Value = "CuentaContable" : ccol = ccol + 1
libro.Cell(crow, ccol).Value = "Saldo" : ccol = ccol + 1
-
+ libro.Cell(crow, ccol).Value = "Tipo Trabajador" : ccol = ccol + 1
+ '
libro.Range(crow, 1, crow, ccol - 1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189))
libro.Range(crow, 1, crow, ccol - 1).Style.Font.FontColor = ClosedXML.Excel.XLColor.White
diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index f94eafdef..e3be45123 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -572,6 +572,156 @@
+
+
+ <%--CARTA PORTE INICIO--%>
+
+
+
+
+
+
+ Carta Porte
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
+
+
+
+
+
--%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%----%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--CARTA PORTE FIN--%>
+
+
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 757a67bd9..bd8a774a5 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -306,6 +306,61 @@ Partial Class Inventarios_EntradasSalidas
End Property
+ Property RequiereRemolque As Boolean
+ Get
+ If ViewState("RequiereRemolque") Is Nothing Then
+ ViewState("RequiereRemolque") = False
+ End If
+
+ Return Boolean.Parse(ViewState("RequiereRemolque").ToString)
+
+ End Get
+ Set(value As Boolean)
+ ViewState("RequiereRemolque") = value
+ End Set
+ End Property
+
+
+ Property MostrarRemolques As Boolean
+ Get
+ If ViewState("MostrarRemolques") Is Nothing Then
+ ViewState("MostrarRemolques") = False
+ End If
+
+ Return Boolean.Parse(ViewState("MostrarRemolques").ToString)
+
+ End Get
+ Set(value As Boolean)
+ ViewState("MostrarRemolques") = value
+ End Set
+ End Property
+
+
+ Private Property CveMovimientoTimbrado As Integer
+ Get
+ Return CType(ViewState("CveMovimientoTimbrado"), Integer)
+ End Get
+ Set(value As Integer)
+ ViewState("CveMovimientoTimbrado") = value
+ End Set
+ End Property
+
+
+ Property EsApoyoLogistico As Boolean
+ Get
+ If ViewState("EsApoyoLogistico") Is Nothing Then
+ ViewState("EsApoyoLogistico") = False
+ End If
+
+ Return Boolean.Parse(ViewState("EsApoyoLogistico").ToString)
+
+ End Get
+ Set(value As Boolean)
+ ViewState("EsApoyoLogistico") = value
+ End Set
+ End Property
+
+
#End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -317,6 +372,12 @@ Partial Class Inventarios_EntradasSalidas
Exit Sub
End If
+
+ If IfNull(Request("APOYO"), "").ToString = "1" Then
+ DivEmitirTransitorio.Visible = True
+ EsApoyoLogistico = True
+ End If
+
CveMovimiento = -1
CveMovimientoRelacionado = -1
TieneRelacionado = -1
@@ -581,6 +642,10 @@ Partial Class Inventarios_EntradasSalidas
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)")
End If
+ If EsApoyoLogistico Then
+ DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (27)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+ End If
+
DdlAlmacenInventarioFisico.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
DdlAlmacenCambioVigencias.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)")
@@ -612,6 +677,17 @@ Partial Class Inventarios_EntradasSalidas
' CargaDdlPaqueteria()
+ DdlChofer.DataSource = GlobalDTChoferes(UsuarioActual.CveEmpresa)
+ DdlChofer.DataBind()
+
+ DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ TxtFechaEntrega.Text = Now.ToShortDateString
+ TxtFechaLlegada.Text = Now.ToShortDateString
+
+ CargarCamiones()
+
+ CargaClientesCarta()
+
End Sub
Private Sub CargaPS()
DdlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
@@ -1357,6 +1433,16 @@ Partial Class Inventarios_EntradasSalidas
AgregarPS()
End Sub
Private Sub AgregarPS()
+
+
+ Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+ If ChkEmitirTimbrado.Checked AndAlso ChkEmitirCartaPorte.Checked Then
+ If Not ValidaPSSAT(DrPS) Then
+ Exit Sub
+ End If
+ End If
+
+
If Not DdlProducto2.SelectedValue.ToEntero > 0 Then
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
Alert("Es necesario especificar el producto.", TipoMensaje.MsgAdvertencia)
@@ -1365,7 +1451,7 @@ Partial Class Inventarios_EntradasSalidas
AddNew(DdlProducto2.SelectedValue.ToEntero, DdlProducto2.SelectedText, DdlUnidad.SelectedValue.ToEntero, DdlUnidad.SelectedItem.Text, txtCantidad.Text.ToDecimal,
txtPrecio.Text.ToDecimal, TxtnSerie.Text.Replace(" ", String.Empty), LblCodigo.Text, HdnCodigoAF.Value, HdnCveActivoFijo.Value, TxtObservacionesdetalle.Text,
- TxtnLote.Text.Trim, TxtnFechaCaducidad.Text.ToDate, DdlSeccionAlmacen.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedItem.Text, CveCultivoCuadroDetalle:=DdlModalCultivosCuadro.SelectedValue.Toentero)
+ TxtnLote.Text.Trim, TxtnFechaCaducidad.Text.ToDate, DdlSeccionAlmacen.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedItem.Text, CveCultivoCuadroDetalle:=DdlModalCultivosCuadro.SelectedValue.ToEntero)
LimpiarAgregar()
txtCantidad.Text = ""
@@ -1946,6 +2032,42 @@ Partial Class Inventarios_EntradasSalidas
ErrorMovInv = RetornoVirtual.TieneError
End If
+
+
+ Dim SerieInsertadaTimbre As String = ""
+ Dim FolioInsertadoTimbre As Integer = -1
+ Dim CveTimbre As Integer = -1
+
+ If Not ErrorAC And Not ErrorMovInv Then
+
+ If ChkEmitirTimbrado.Checked Then
+
+ Dim ObjGral As New ClsGenerales(ObjInventario.IniciaTransacSQL)
+ Dim CveSubProyectoTimbre As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {DdlAlmacen.SelectedValue}").Rows(0)("CveSubProyecto").ToString.ToEntero
+ Dim Fechallegada As DateTime = (TxtFechaLlegada.Text & " 23:59:59").ToDateTime
+
+ Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, -1, CveMovimiento, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, TxtFechaLlegada.Text.ToDate, "T", "", "", MinFecha, 1, 1, TxtDistancia.Text.ToEntero,
+ CveConfigAutoTransporte:=DdlConfigAuto.SelectedValue.ToEntero, CveCamionRemolque1:=DdlRemolque1.SelectedValue.ToEntero, CveCamionRemolque2:=DdlRemolque2.SelectedValue.ToEntero)
+
+ If CveEntregaAlmacen > 0 Then
+ CveTimbre = ObjGral.AddGralTimbre("Tra", CveSubProyectoTimbre, TxtFechaEntrega.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=ChkEmitirCartaPorte.Checked)
+
+ If CveTimbre > 0 Then
+ SerieInsertadaTimbre = ObjGral.SerieInsertada
+ FolioInsertadoTimbre = ObjGral.FolioInsertado
+ Else
+ ErrorMovInv = True
+ End If
+ Else
+ ErrorMovInv = True
+ End If
+
+ End If
+ End If
+
+
+
+
If Not ErrorAC And Not ErrorMovInv Then
Dim Msg As New StringBuilder
Msg.AppendFormat(" El Movimiento se registro con el Folio: {0}", ObjInventario.Folio, CveMovimiento)
@@ -1963,6 +2085,12 @@ Partial Class Inventarios_EntradasSalidas
ObjInventario.Commit() ' aplica los movimientos insertados
If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
+
+ If ChkEmitirTimbrado.Checked Then
+ CveMovimientoTimbrado = CveMovimiento
+ EmitirTimbrado(CveTimbre, CveMovimientoTimbrado, Msg)
+ End If
+
Alert(Msg.ToString, TipoMensaje.MsgInformacion)
'Limpia Valores cuando inserta de campos especiales
@@ -3617,11 +3745,13 @@ Partial Class Inventarios_EntradasSalidas
#Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
Private Sub InicializaClientes()
If UsuarioActual.CveEmpresa.Contiene(72, 80) AndAlso CveMovimiento <= 0 Then
+
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlClientes.DataBind()
DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClientes.SelectedValue = "-1"
+
End If
End Sub
Protected Sub ActivaClientes()
@@ -5508,10 +5638,322 @@ Partial Class Inventarios_EntradasSalidas
Next
Return Timbre
End Function
+
+#Region "APOYO LOGISTICO"
+
+ Protected Sub ChkEmitirTimbrado_CheckedChanged(sender As Object, e As EventArgs)
+
+ If ChkEmitirTimbrado.Checked Then
+ ChkEmitirCartaPorte.Checked = True
+ ChkEmitirCartaPorte.Visible = True
+ Else
+ ChkEmitirCartaPorte.Visible = False
+ ChkEmitirCartaPorte.Checked = False
+ End If
+
+
+ End Sub
+
+ Protected Sub DldChofer_SelectedIndexChanged(sender As Object, e As EventArgs)
+ ' Dim ObjAcar As New ClsAcarreos()
+
+ ' If ObjAcar.GetChofer(DdlChofer.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, -1) Then
+ ' Dim dr As DataRow = ObjAcar.DtResultados.Rows(0)
+ ' If dr IsNot Nothing Then
+ ' TxtResponsableRecibio.Text = dr("Chofer").ToString
+ ' TxtIdentificacion.Text = dr("Identificacion").ToString
+ ' TxtDomicilio.Text = dr("Domicilio").ToString
+ ' TxtTelefono.Text = dr("Telefono").ToString
+ ' TxtCiudad.Text = dr("Ciudad").ToString
+ ' TxtLicencia.Text = dr("Licencia").ToString
+ ' End If
+ ' End If
+ ' ObjAcar.Dispose()
+ End Sub
+
+ Protected Sub DdlUnidadCamionActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+
+ DvRemolque1.Visible = False
+ DvRemolque2.Visible = False
+
+ DdlRemolque1.SelectedValueExist(-1)
+ DdlRemolque2.SelectedValueExist(-1)
+
+ If DdlUnidadCamion.SelectedValue.ToEntero > 0 Then
+
+
+ Using ObjInv As New ClsInventarios
+
+ If ObjInv.GetCamiones(DdlUnidadCamion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1) Then
+ DdlConfigAuto.SelectedValueExist(ObjInv.DtResultados.FiltroPrimeroValor("CveConfigAutoTransporte"))
+ DdlConfigAuto_SelectedIndexChanged(Nothing, Nothing)
+ End If
+
+ End Using
+
+
+ End If
+
+ UpEmitirTransitorio.Update()
+
+ End Sub
+
+
+ Protected Sub DdlConfigAuto_SelectedIndexChanged(sender As Object, e As EventArgs)
+ ValidaConfiguracionVehiculo()
+ End Sub
+ Private Sub ValidaConfiguracionVehiculo()
+ DvRemolque1.Visible = False
+ DvRemolque2.Visible = False
+
+ DdlRemolque1.SelectedValueExist(-1)
+ DdlRemolque2.SelectedValueExist(-1)
+
+ If DdlConfigAuto.SelectedValue.ToEntero > 0 Then
+
+ Using ObjGrales As New ClsGenerales
+ If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
+ Dim Remolque As String = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero}'")
+
+
+ If Remolque = "1" Then
+ RequiereRemolque = True
+ MostrarRemolques = True
+ End If
+
+ If Remolque = "0, 1" Then
+ RequiereRemolque = False
+ MostrarRemolques = True
+ End If
+
+ If Remolque = "0" Then
+ RequiereRemolque = False
+ MostrarRemolques = False
+ End If
+ End If
+ End Using
+
+ Else
+ RequiereRemolque = False
+ MostrarRemolques = False
+ End If
+
+
+
+
+ If RequiereRemolque Or MostrarRemolques Then
+ DvRemolque1.Visible = True
+ End If
+
+ If Not RequiereRemolque Then
+ DvConfiguracionVeiculo.Visible = False
+ Else
+ DvConfiguracionVeiculo.Visible = True
+ End If
+
+
+ UpEmitirTransitorio.Update()
+ End Sub
+
+ Protected Sub DdlRemolque1_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+ DdlRemolque2.Items.Clear()
+
+ If DdlRemolque1.SelectedValue.ToEntero > 0 Then
+ DvRemolque2.Visible = True
+
+ Using ObjInv As New ClsInventarios
+ If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
+ DdlRemolque2.DataSource = ObjInv.DtResultados.FiltraParametros($"CveCamion <> {DdlRemolque1.SelectedValue.ToEntero}")
+ End If
+ End Using
+
+ DdlRemolque2.DataBind()
+
+
+ Else
+ DvRemolque2.Visible = False
+ End If
+
+ DdlRemolque2.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+ UpEmitirTransitorio.Update()
+
+ End Sub
+
+
+ Function ValidaPSSAT(DrPS As DataRow) As Boolean
+ Dim Respuesta As Boolean = False
+
+ Dim CveSATPS As Integer = DrPS("CveSATPS").ToString.ToEntero
+ Dim PesoKg As Decimal = DrPS("PesoKg").ToString.ToDecimal
+ Dim SATClaveUnidadMedida As String = DrPS("SATClaveUnidadMedida").ToString.Trim
+
+ If CveSATPS > 0 AndAlso PesoKg > 0 AndAlso SATClaveUnidadMedida.Length > 0 Then
+ Respuesta = True
+ Else
+ Respuesta = False
+ Dim SBMensaje As New StringBuilder
+
+ SBMensaje.AppendLine("El producto seleccionado presenta la siguiente situación: ")
+
+ If CveSATPS <= 0 Then SBMensaje.AppendLine("-Producto SAT no asignado. ")
+
+ If PesoKg = 0 Then SBMensaje.AppendLine("-Producto sin peso definido. ")
+
+ If SATClaveUnidadMedida.Length = 0 Then SBMensaje.AppendLine("-Producto sin unidad de medida SAT asignada. ")
+
+ SBMensaje.AppendLine($" Editar Producto ")
+
+ Alert(SBMensaje.ToString, TipoMensaje.MsgAdvertencia)
+
+ End If
+
+ Return Respuesta
+ End Function
+
+
+ Public Sub CargarCamiones()
+
+ DdlConfigAuto.Items.Clear()
+ DdlUnidadCamion.Items.Clear()
+
+ 'DdlUnidadCamion.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
+ 'DdlUnidadCamion.DataBind()
+
+
+
+ Using ObjInv As New ClsInventarios
+
+ If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1, Estatus:=1) Then
+ DdlUnidadCamion.DataSource = ObjInv.DtResultados
+ End If
+
+
+ If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
+ DdlRemolque1.DataSource = ObjInv.DtResultados
+ End If
+
+ End Using
+
+ DdlUnidadCamion.DataBind()
+ DdlUnidadCamion.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+
+
+ DdlRemolque1.DataBind()
+ DdlRemolque1.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+
+
+
+ Using ObjGrales As New ClsGenerales
+
+ If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
+ DdlConfigAuto.DataSource = ObjGrales.DtResultados
+ End If
+
+ End Using
+
+ DdlConfigAuto.DataBind()
+ DdlConfigAuto.Items.Insert(0, New ListItem("Seleccione una", "-1"))
+
+ 'Using ObjGral As New ClsGenerales
+ ' If ObjGral.GetCartaPorteConfigAutoTransportes() Then
+ ' DdlConfigAuto.DataSource = ObjGral.DtResultados
+ ' End If
+ 'End Using
+
+ 'DdlConfigAuto.DataBind()
+
+ End Sub
+
+ Private Sub CargaClientesCarta()
+ DdlClienteCarta.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+ DdlClienteCarta.DataBind()
+
+ DdlClienteCarta.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlClienteCarta.SelectedValue = "-1"
+
+ End Sub
+
+ Private Sub EmitirTimbrado(CveTimbre As Integer, CveMovimientoTimbrado As Integer, ByRef MensajeAlert As StringBuilder)
+
+ Dim ObjTimbres As New Timbres("Tra", CveTimbre, UsuarioActual)
+
+ MensajeAlert.Append("
")
+
+ If ObjTimbres.Timbrar() Then
+
+ Try
+ PdfFactura(ObjTimbres.ObjFactura)
+ Catch ex As Exception
+
+ End Try
+
+ MensajeAlert.Append("Emitido con éxito.")
+ 'XML
+ Dim ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio)
+ If File.Exists(ArchivoXML) Then
+ MensajeAlert.AppendFormat("
", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimientoTimbrado)))
+ End If
+
+ Else
+ MensajeAlert.AppendFormat("
{0}
", ObjTimbres.MsgError.ToString)
+ End If
+
+ End Sub
+
+ Protected Sub DdlClienteCarta_SelectedIndexChanged(sender As Object, e As EventArgs)
+ CargaDireccionesEnvio()
+ End Sub
+
+
+ Private Sub CargaDireccionesEnvio()
+ Dim ObjClientes As New ClsClientes
+ Dim TieneError = False
+
+ DdlDireccionEnvio.Items.Clear()
+ If ObjClientes.DireccionEnvioGet(-1, DdlClienteCarta.SelectedValue.ToEntero, -1) Then
+ DdlDireccionEnvio.DataSource = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1"))
+ DdlDireccionEnvio.DataBind()
+
+ Else
+ TieneError = True
+ End If
+
+ If TieneError Then
+ Alert("Ocurrió un error al obtener las direcciones de envío", TipoMensaje.MsgError)
+ End If
+
+ ObjClientes.Dispose()
+
+
+ DdlDireccionEnvio.Items.Add(New ListItem("Seleccione una", "-1"))
+
+ UpEmitirTransitorio.Update()
+
+ End Sub
+
+#End Region
+
+
Private Class MMovimientoVirtual
Public Property CveMovimientoVirtual As Integer
Public Property FolioVirtual As String
Public Property TieneError As Boolean
End Class
+
+
End Class
diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb
index 2771700f8..4185a3525 100644
--- a/Inventarios/ResguardoMaterial.aspx.vb
+++ b/Inventarios/ResguardoMaterial.aspx.vb
@@ -918,7 +918,7 @@ Partial Class Inventarios_ResguardoMaterial
CveSeccionAlmacen = -1
End If
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero,
- Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen,
+ Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate,
Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
TieneError = True
MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 04f95765b..b4088ea7e 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1510,9 +1510,8 @@ Partial Class Inventarios_TraspasoAlmacen
BtnCancelarTraspaso.Visible = True
End If
- If UsuarioActual.Empresa.Funcionalidad(162) = "1" Then
+ If UsuarioActual.TienePermisoProceso(347) Then
DivRealizarDevolucion.Visible = True
- ChkRealizarDevolucion.Checked = True
End If
End If
@@ -1647,30 +1646,35 @@ Partial Class Inventarios_TraspasoAlmacen
Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
'DEBE CONSIDERAR SOLO LAS FILAS QUE TENGA PRODUCTOS, NO EL TOTALIZADOR
If CvePS > 0 Then
- CveMovimientoDetalleSalida = GvRow.DataKey("CveMovimientoDetalle").ToString.ToEntero
- Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToString.ToDecimal
- Dim PrecioUnitario As Decimal = GvRow.DataKey("PU").ToString.ToDecimal
+ CveMovimientoDetalleSalida = GvRow.DataKey("CveMovimientoDetalle").ToEntero
+ Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal
+
+ If ChkRealizarDevolucion.Checked Then Cantidad = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal
+
+ Dim PrecioUnitario As Decimal = GvRow.DataKey("PU").ToDecimal
If CveMovimientoDetalleSalida <= 0 Then
ErrorMovInv = True
TextoError = "Ocurrió un error al guardar los movimientos de salida"
Exit For
End If
-
- If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, GvRow.DataKey("CveUM").ToEntero, CvePS, PrecioUnitario, -1, -1, Serie:=GvRow.DataKey("Serie").ToString, Lote:=GvRow.DataKey("Lote"), FechaCaducidad:=GvRow.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then
- ErrorMovInv = True
- TextoError = "Ocurrió un error al guardar los movimientos de entrada"
- Exit For
- End If
- 'MOV, Alm, Transito
- If GvRow.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero > 0 Then
- If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTransitorio, Cantidad, GvRow.DataKey("CveUM").ToString.ToEntero, CvePS, PrecioUnitario, CveSeccionAlmacen:=-3, Serie:=GvRow.DataKey("Serie").ToString, Lote:=GvRow.DataKey("Lote").ToString, FechaCaducidad:=GvRow.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=GvRow.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero) Then
+ If Cantidad <> 0 Then
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, GvRow.DataKey("CveUM").ToEntero, CvePS, PrecioUnitario, -1, -1, Serie:=GvRow.DataKey("Serie"), Lote:=GvRow.DataKey("Lote"), FechaCaducidad:=GvRow.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then
ErrorMovInv = True
- TextoError = "Ocurrió un error al guardar los movimientos de salida"
+ TextoError = "Ocurrió un error al guardar los movimientos de entrada"
Exit For
End If
- Else
- CveMovimientoSalidaTransitorio = 0
+ 'MOV, Alm, Transito
+ If GvRow.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero > 0 Then
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTransitorio, Cantidad, GvRow.DataKey("CveUM").ToEntero, CvePS, PrecioUnitario, CveSeccionAlmacen:=-3, Serie:=GvRow.DataKey("Serie"), Lote:=GvRow.DataKey("Lote").ToString, FechaCaducidad:=GvRow.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=GvRow.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero) Then
+ ErrorMovInv = True
+ TextoError = "Ocurrió un error al guardar los movimientos de salida"
+ Exit For
+ End If
+ Else
+ CveMovimientoSalidaTransitorio = 0
+ End If
End If
+
importe += Cantidad * PrecioUnitario
End If
End If
@@ -3350,6 +3354,29 @@ Partial Class Inventarios_TraspasoAlmacen
Return Respuesta
End Function
+ Private Sub CargaDireccionesEnvio()
+ Dim ObjClientes As New ClsClientes
+ Dim TieneError = False
+
+ DdlDireccionEnvio.Items.Clear()
+ If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
+ DdlDireccionEnvio.DataSource = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1"))
+ DdlDireccionEnvio.DataBind()
+ 'DdlDireccionEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ TmpDTEnvioDireccion = ObjClientes.DtResultados
+ Else
+ TieneError = True
+ End If
+
+ If TieneError Then
+ Alert("Ocurrió un error al obtener las direcciones de envío", TipoMensaje.MsgError)
+ End If
+
+ ObjClientes.Dispose()
+ UpCliente.Update()
+
+ End Sub
+
#End Region
End Class
diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb
index 3cf8db7c6..1ec1f9d38 100644
--- a/LogIn.aspx.vb
+++ b/LogIn.aspx.vb
@@ -11,7 +11,7 @@ Partial Class LogIn
#Region " PROPIEDADES "
Private Property CveUsuario As Integer
Get
- Return ViewState("CveUsuario").ToString.ToEntero
+ Return IfNull(ViewState("CveUsuario"), "-1").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveUsuario") = value
diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx
index 50bb92df8..e5f0cdf13 100644
--- a/Nomina/Nomina.aspx
+++ b/Nomina/Nomina.aspx
@@ -401,6 +401,12 @@
+
+
+
+
+
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index 69b5b8280..742f2d086 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -134,6 +134,17 @@ public partial class Nomina_Nomina2 : ClsPaginas
set { ViewState["PermisoEmitir"] = value; }
}
+
+ protected int CveTipoTrabajador
+ {
+ get
+ {
+ if (ViewState["CveTipoTrabajador"] == null) { return 0; }
+ else { return ViewState["CveTipoTrabajador"].ToString().ToEntero(); }
+ }
+
+ set { ViewState["CveTipoTrabajador"] = value; }
+ }
protected int CvePeriodoSeleccionado
{
get
@@ -236,9 +247,25 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (!IsPostBack)
{
- if(UsuarioActual.CveUsuario == 100) {
- Alert("recuerda que solo la empresa (119) tiene activado el timbrado 4.0", TipoMensaje.ToastAdventencia);
+ using (ClsRH objrh = new ClsRH())
+ {
+ if(objrh.TiposTrabajadorGet(-1, UsuarioActual.CveEmpresa))
+ {
+ DataTable dt = objrh.DtResultados;
+ DataRow drow = dt.NewRow();
+ drow["CveTipoTrabajador"] = "-1";
+ drow["TipoTrabajadorB"] = "Todos";
+ dt.Rows.InsertAt(drow, 0);
+ dt.AcceptChanges();
+ DdlTipoTrabajador.DataSource = dt;
+ DdlTipoTrabajador.DataBind();
+ DdlTipoTrabajador.SelectedValueExist( "-1");
+ }
}
+ if (UsuarioActual.CveUsuario == 100)
+ {
+ Alert("recuerda que solo la empresa (119) tiene activado el timbrado 4.0", TipoMensaje.ToastAdventencia);
+ }
//CreaObjetoEmpresa(UsuarioActual);
DataTable dtperinc = null;
using (ClsNominas objnom = new ClsNominas())
@@ -461,6 +488,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
FiltCveTurno = DdlTurno.SelectedValue.ToEntero();
FiltCvePeriodo = DdlPeriodo.SelectedValue.ToEntero();
FiltAgrupador = 1;
+ CveTipoTrabajador = DdlTipoTrabajador.SelectedValue.ToEntero();
HypPDFSTimbrados.Attributes.Add("onclick", string.Format("GETPDF({0},{1})", -1, FiltCvePeriodo));
cargaDatos();
LtlPeriodoseleccionado.Text = string.Format("{0} ({1} Empleados)", DdlPeriodo.SelectedItem.Text, dtempleados.COUNT("CvePersonal", " CvePersonal >0 "));
@@ -519,7 +547,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
LnkFormatoTabular.Visible = true;
HypPDFSTimbrados.Visible = true;
- if (objnom.GetNominaEmpleado(FiltCveProyecto, FiltCveSubProyecto, FiltCveTurno, FiltCvePeriodo, CveEmpresa, FiltAgrupador, DdlRegimenContratacion.SelectedValue.ToEntero()) && objnom.DTSetResultados.Tables.Count > 4)
+ if (objnom.GetNominaEmpleado(FiltCveProyecto, FiltCveSubProyecto, FiltCveTurno, FiltCvePeriodo, CveEmpresa, FiltAgrupador, DdlRegimenContratacion.SelectedValue.ToEntero(), CveTipoTrabajador: CveTipoTrabajador) && objnom.DTSetResultados.Tables.Count > 4)
{
dtempleados = objnom.DTSetResultados.Tables[3];
dtempleadosConceptos = objnom.DTSetResultados.Tables[4];
@@ -6395,7 +6423,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
ObjPersonal.IniciaTransacSQL();
bool OcurrioError = false;
- if (!ObjPersonal.AddAsistenciaMasiva2(DdlPeriodoCM.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+ if (!ObjPersonal.AddAsistenciaMasiva2(DdlPeriodoCM.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,-1))
OcurrioError = true;
if (OcurrioError)
@@ -6597,7 +6625,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
while (Neto != NetoSimulado && continuarV)
{
- if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador, -1, 1, SDI)
+ if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador, -1, 1, Neto)
&& objnom.DTSetResultados.Tables.Count > 1)
{
dtempleadosSimula = objnom.DTSetResultados.Tables[3];
@@ -6646,6 +6674,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
{
continuarV = false;
}
+ continuarV = false;
}
}
if (continuar)
diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx
index 8265b0968..08a14bc03 100644
--- a/OS/OrdenesServicios.aspx
+++ b/OS/OrdenesServicios.aspx
@@ -222,13 +222,19 @@
@@ -1124,6 +1130,53 @@
<%-- FIN HISTORIAL --%>
+
+
+ <%--MODAL FINALIZAR ORDEN INICIO --%>
+
+
+
+
+
+
+
+
Finalizar Orden
+
+
+
+
+
Por favor especificar el producto instalado.
+
+
+
+
+
+ Producto:
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--MODAL FINALIZAR ORDEN INICIO --%>
+
+
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 41947073c..e51c0bf5a 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -383,6 +383,31 @@ Partial Class OS_OrdenesServicios
End If
+ If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+
+ 'DivDetalles.Attributes.Add("style", "display:none") 'No se usa .visible = false pora que la llamada a updatepanel no cause errores de js en el cliente
+ TREstatus.Visible = False
+
+ TREstatus2.Visible = If(TipoEstatus.Contiene(4, 5), False, True)
+
+ DdlPsModalFinalizar.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+
+ If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+ 'DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+ DdlPsModalFinalizar.SelectedText = ""
+ DdlPsModalFinalizar.SelectedValue = "-1"
+ Else
+ DdlPS.ddl.Items.Clear()
+ 'DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
+ DdlPsModalFinalizar.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+ DdlPsModalFinalizar.ddl.DataBind()
+ DdlPsModalFinalizar.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+ End If
+
+
+
+ End If
+
End If
End Sub
@@ -496,6 +521,7 @@ Partial Class OS_OrdenesServicios
TxtDescripcion.Text = ObjOS.Descripcion
TxtSolicito.Text = ObjOS.PersonaSolicito
+ CveOsDetalle = ObjOS.CveOSDetalle
TxtFechaRecibido.Text = ObjOS.FechaRecepcion.ToString
CveFolio = ObjOS.Folio
@@ -788,7 +814,7 @@ Partial Class OS_OrdenesServicios
If ObjCliente.DtResultados.Rows.Count > 0 Then
If CargaPublicoGeneral Then
- CveCliente = ObjCliente.CveCliente
+ Me.CveCliente = ObjCliente.CveCliente
End If
TxtCodigo.Text = ObjCliente.Codigo
@@ -1666,6 +1692,10 @@ Partial Class OS_OrdenesServicios
objOrdenServicio.Dispose()
+
+
+
+
End If
End Sub
Protected Sub GvPS_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvPS.RowDataBound
@@ -1717,6 +1747,10 @@ Partial Class OS_OrdenesServicios
e.Row.FCLabel("LtlCuentaEquipoS").Visible = False
End If
+ If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+ e.Row.FCHtmlTableRow("TREspecificaiones").Visible = False
+ End If
+
End If
End Sub
Protected Sub GvPS_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvPS.RowDeleting
@@ -2785,4 +2819,32 @@ Partial Class OS_OrdenesServicios
End Sub
#End Region
+
+ Protected Sub LnkFinalizar_Click(sender As Object, e As EventArgs)
+ RegistraScript("$('#DVModalFinalizarOrden').modal('show');")
+ End Sub
+
+ Protected Sub LnkModalFinalizarOrden_Click(sender As Object, e As EventArgs)
+
+ Dim TieneError As Boolean = True
+
+ Dim CvePsFinalizar As Integer = DdlPsModalFinalizar.SelectedValue.ToEntero
+
+ If Not CvePsFinalizar > 0 Then
+ Alert("El proiducto es requerido.", TipoMensaje.MsgAdvertencia)
+ End If
+
+ Dim objOS As New ClsOS
+ If objOS.UpdateOrdenesServiciosFinaliza(CveOS, CveOsDetalle, CvePsFinalizar, UsuarioActual.CveEmpresa) Then
+ TieneError = False
+ End If
+ objOS.Dispose()
+
+ If Not TieneError Then
+ Alert("Orden Finalizada Correctamente", TipoMensaje.MsgInformacion, "location.reload(true);")
+ RegistraScript("$('#DVModalFinalizarOrden').modal('hide');")
+ End If
+
+
+ End Sub
End Class
\ No newline at end of file
diff --git a/OS/RepServicioDomicilio.aspx b/OS/RepServicioDomicilio.aspx
index 1ea3a3297..8d9eaa9d8 100644
--- a/OS/RepServicioDomicilio.aspx
+++ b/OS/RepServicioDomicilio.aspx
@@ -117,7 +117,17 @@
-
+
+
+
+
+
+ Agregar Servicios a Domicilio
+
+
+
+
+
@@ -415,92 +425,220 @@
-
-
+
+
-
Asignar Orden de Servicio
+
-
-
-
-
-
-
-
-
-
-
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
+
+ Cliente:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--DESCRIPCION--%>
+
+
+
+
+
+
+
+
+
+ <%--UBICACION--%>
+
+
+
+
+
+
+
+
+
+
+
+ <%--TELEFONO--%>
+
+
+
+
+
+
+
+
+
+ <%--CORREO--%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--MODELO--%>
+
+
+
+
+
+
+
+
+
+ <%--AÑO--%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
+ --%>
+
+
+
+
+
+
+
+
+
+ <%--
+
+
+
+
+
+
+
+
+
+
+
--%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
+
+
+
+
+
+
--%>
+
+
+
+
@@ -508,6 +646,25 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -550,7 +707,7 @@
function selectDate(start, end, allDay) {
- $('#ModalAgenda').modal('show');
+ <%-- $('#ModalAgenda').modal('show');
$("#SpanTituloAgenda").html("Agregar Evento");
$("#HdnCveEvento").val(-1);
@@ -579,14 +736,32 @@
$("#TxtFechaFinRecurrencia").val("");
$("#ChkGastoRecurrente").prop('checked', false);
- $("#TxtImporteGastoRecurrente").val("");
+ $("#TxtImporteGastoRecurrente").val("");--%>
}
+
+
function updateEvent(event, element) {
- $('#ModalAgenda').modal('show');
+
+
+
+ //$('#ModalAgenda').modal('show');
+
+
+ // $get("HdnDiasSemanaAgendar").value =
+
+
- $("#DivDescripcionUpdate").css("display", "block");
+ $('#<%=HFCveOS.ClientID%>').val(event.CveOS);
+ $('#<%=HFCveOsDetalle.ClientID%>').val(event.CveOSDetalle);
+ $('#<%=HFCveUsuarioAtendio.ClientID%>').val(event.CveUsuarioAtendio);
+
+ $('#<%=HFOCveOIEvento.ClientID%>').val(event.id);
+
+ $('#<%=LnkCommando.ClientID%>').click();
+
+<%-- $("#DivDescripcionUpdate").css("display", "block");
$("#<%=TxtDescripcionAgenda.ClientID%>").css("display", "none");
$("#HdnCveEvento").val(event.id);
@@ -667,7 +842,7 @@
$("#<%=LblEmpresaCRM.ClientID%>").text(event.EmpresaCRM);
} else {
$("#<%=LblEmpresaCRM.ClientID%>").css("display", "none")
- }
+ }--%>
}
function RadionButtonSelectedValueSet(name, SelectdValue) {
@@ -887,6 +1062,8 @@
function InitCalendar() {
$(document).ready(function () {
Calendario();
+
+ $("#TxtModalFechaOS").val("" + start.format("DD/MM/YYYY 08:00"));
});
}
diff --git a/OS/RepServicioDomicilio.aspx.vb b/OS/RepServicioDomicilio.aspx.vb
index cad20304b..535c6e939 100644
--- a/OS/RepServicioDomicilio.aspx.vb
+++ b/OS/RepServicioDomicilio.aspx.vb
@@ -7,6 +7,8 @@ Imports Microsoft.Reporting.WebForms
Imports System.Web.Services
Imports Telerik.Web.UI
Imports APP_Code_CSharp
+Imports AjaxControlToolkit.AsyncFileUpload.Constants
+Imports System
Partial Class OS_RepServicioDomicilio
Inherits ClsPaginas
@@ -115,15 +117,15 @@ Partial Class OS_RepServicioDomicilio
- Private Property CveOSAsignar As Integer
+ Private Property CveOrdenServicioTipo As Integer
Get
- If ViewState("CveOSAsignar") Is Nothing Then
- ViewState("CveOSAsignar") = -1
+ If ViewState("CveOrdenServicioTipo") Is Nothing Then
+ ViewState("CveOrdenServicioTipo") = -1
End If
- Return ViewState("CveOSAsignar").ToString.ToEntero
+ Return ViewState("CveOrdenServicioTipo").ToString.ToEntero
End Get
Set(value As Integer)
- ViewState("CveOSAsignar") = value
+ ViewState("CveOrdenServicioTipo") = value
End Set
End Property
@@ -176,9 +178,89 @@ Partial Class OS_RepServicioDomicilio
End Property
+ Private Property CveOSAsignar As Integer
+ Get
+ If ViewState("CveOSAsignar") Is Nothing Then
+ ViewState("CveOSAsignar") = -1
+ End If
+ Return ViewState("CveOSAsignar").ToString.ToEntero
+ End Get
+ Set(value As Integer)
+ ViewState("CveOSAsignar") = value
+ End Set
+ End Property
+
+ Private Property TipoAccion As OSModalTipoAccion
+ Get
+ If ViewState("TipoAccion") Is Nothing Then
+ ViewState("TipoAccion") = OSModalTipoAccion.Agregar
+ End If
+ Return DirectCast(ViewState("TipoAccion"), OSModalTipoAccion)
+ End Get
+ Set(value As OSModalTipoAccion)
+ ViewState("TipoAccion") = value
+ End Set
+ End Property
+ Private Property CveTecnicoAsignarOrioginal As Integer
+ Get
+ If ViewState("CveTecnicoAsignarOrioginal") Is Nothing Then
+ ViewState("CveTecnicoAsignarOrioginal") = -1
+ End If
+ Return ViewState("CveTecnicoAsignarOrioginal").ToString.ToEntero
+ End Get
+ Set(value As Integer)
+ ViewState("CveTecnicoAsignarOrioginal") = value
+ End Set
+ End Property
+
+ Private Property FechaInicioOriginal As DateTime
+ Get
+ If ViewState("FechaInicioOriginal") Is Nothing Then
+ ViewState("FechaInicioOriginal") = DateTime.Now
+ End If
+ Return ViewState("FechaInicioOriginal").ToString.ToDateTime
+ End Get
+ Set(value As DateTime)
+ ViewState("FechaInicioOriginal") = value
+ End Set
+ End Property
+
+
+ Private Property CveClientePublicoGeneral As Integer
+ Get
+ If ViewState("CveClientePublicoGeneral") Is Nothing Then
+ ViewState("CveClientePublicoGeneral") = -1
+ End If
+ Return ViewState("CveClientePublicoGeneral").ToString.ToEntero
+ End Get
+ Set(value As Integer)
+ ViewState("CveClientePublicoGeneral") = value
+ End Set
+ End Property
+
+ Private Property NombreClientePublicoGeneral As String
+ Get
+ If ViewState("NombreClientePublicoGeneral") Is Nothing Then
+ ViewState("NombreClientePublicoGeneral") = ""
+ End If
+ Return ViewState("NombreClientePublicoGeneral").ToString
+ End Get
+ Set(value As String)
+ ViewState("NombreClientePublicoGeneral") = value
+ End Set
+ End Property
+
+
+
+ Enum OSModalTipoAccion
+ Agregar
+ Actualizacion
+ Asignacion
+ End Enum
+
#End Region
@@ -188,31 +270,21 @@ Partial Class OS_RepServicioDomicilio
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoEtiqueta)
LblSubProyectoFiltro.Text = LblSubProyectoEtiqueta.Text
- LblModalSubProyectoLabel.Text = LblSubProyectoEtiqueta.Text
+ ' LblModalSubProyectoLabel.Text = LblSubProyectoEtiqueta.Text
CargaTecnicos()
ConsultaOrdenesServiciosNoAsignadas()
CargaOrdenesServiciosNoAsignadas()
CargaTecnicosAsignar()
-
InicializaCalendar()
+ GetCargaTiposOrden()
+ cargaDropsModal()
+ CargaClientePublicoGeneral()
End If
End Sub
#Region "CARGAS"
- Private Sub SetValues()
-
-
-
- End Sub
-
-
- Private Sub CargaDatos()
-
-
- End Sub
-
#End Region
#Region " FULL CALENDAR "
@@ -274,7 +346,7 @@ Partial Class OS_RepServicioDomicilio
DdlTecnicoAsignar.DataBind()
DdlTecnicoAsignar.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
- UpModalOSAsginar.Update()
+ UpModalOS.Update()
End Sub
@@ -451,6 +523,8 @@ Partial Class OS_RepServicioDomicilio
DdlOrdenesSinAsignar.DataSource = DT_OSNoAsignadas
DdlOrdenesSinAsignar.DataBind()
+ DdlOrdenesSinAsignar.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+
UpOrdenesSinAsignar.Update()
End Sub
@@ -493,115 +567,400 @@ Partial Class OS_RepServicioDomicilio
- Protected Sub LnkOrdenesSinAsignarMostarModal_Click(sender As Object, e As EventArgs)
+ Protected Sub LnlAgregarServicioDomiciolio_Click(sender As Object, e As EventArgs)
- CveOSDetalleAsignar = -1
- CveOSAsignar = -1
- CveSubProyectoAsignar = -1
- Dim DTable As DataTable = DT_OSNoAsignadas.FiltraParametros($"CveOSDetalle={DdlOrdenesSinAsignar.SelectedValue}")
+ HFCveOS.Value = "-1"
+ HFCveOsDetalle.Value = "-1"
+ HFOCveOIEvento.Value = "-1"
+ HFCveUsuarioAtendio.Value = "-1"
+ DdlOrdenesSinAsignar.SelectedValueExist(-1)
+ LipiaModalOS()
+ TipoAccion = OSModalTipoAccion.Agregar
+ MostarModal()
- If DTable.Rows.Count = 1 Then
+ End Sub
- CveOSDetalleAsignar = DTable.Rows(0)("CveOSDetalle").ToString.ToEntero
- CveSubProyectoAsignar = DTable.Rows(0)("CveSubProyecto").ToString.ToEntero
- CveOSAsignar = DTable.Rows(0)("CveOS").ToString.ToEntero
- FolioAsignar = DTable.Rows(0)("Folio").ToString
+ Private Sub cargaDropsModal()
- LblModalConcepto.Text = DTable.Rows(0)("Concepto").ToString
- LblModalCliente.Text = DTable.Rows(0)("Nombre").ToString
- LblModalSubProyecto.Text = DTable.Rows(0)("SubProyecto").ToString
+ 'DdlClientesWS.ddl.Items.Clear()
+ 'DdlClientesWS.txtText.Value = ""
+ 'DdlClientesWS.txtValue.Value = ""
-
- UpModalOSAsginar.Update()
- RegistraScript("$('#DVModalOSAsginar').modal('show');")
+ If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+ DdlClientesWS.setEsWebService(True)
Else
- Alert("Error al cargar datos.")
+ DdlClientesWS.setEsWebService(False)
+ CargaClientes()
End If
+ 'DdlSubProyectoOS.Items.Clear()
+ CargarCentrosDeCosto(Nothing, DdlSubProyectoOS, Nothing, LblSubProyectoOS)
+ 'DdlModeloAuto.Items.Clear()
+ Dim ObjGral As New ClsGenerales
+ If ObjGral.ModelosAutosGet(1, UsuarioActual.CveEmpresa) Then
+ DdlModeloAuto.DataSource = ObjGral.DtResultados
+ End If
+ ObjGral.Dispose()
+ DdlModeloAuto.DataBind()
+ DdlModeloAuto.Items.Insert(0, New ListItem("Sin Asignar", "-1"))
End Sub
+ Private Sub CargaClientes()
+ If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+ DdlClientesWS.ddl.Items.Clear()
+ DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+ DdlClientesWS.DataBind()
+ DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+ End If
+ End Sub
+
+ Private Sub LipiaModalOS()
+
+ TxtSolicito.Text = ""
+ TxtDescripcion.Text = ""
+ TxtFechaOS.Text = ""
+ DdlSubProyectoOS.SelectedValueExist("-1")
+ TxtDireccion.Text = ""
+ TxtEmail.Text = ""
+ TxtTelefono.Text = ""
+
+ DdlClientesWS.txtText.Value = ""
+ DdlClientesWS.txtValue.Value = ""
+ DdlClientesWS.ddl.SelectedValueExist("-1")
+
+ DdlTecnicoAsignar.SelectedValueExist("-1")
+
+ DdlModeloAuto.SelectedValueExist("-1")
+ TxtAnio.Text = ""
+
+ TxtModalFechaOS.Text = ""
+ 'TSTimeSelector.Hour = Now.Hour
+ 'TSTimeSelector.Minute = Now.Minute
+
+ CveTecnicoAsignarOrioginal = -1
+ FechaInicioOriginal = DateTime.Now
+
+ DVFolio.Visible = False
+
+ End Sub
+
+ Protected Sub LnkOrdenesSinAsignarMostarModal_Click(sender As Object, e As EventArgs)
+ TipoAccion = OSModalTipoAccion.Asignacion
+ HFCveOS.Value = "-1"
+ MostarModal()
+ End Sub
+
+
+ Private Sub MostarModal()
+
+ LipiaModalOS()
+
+ If TipoAccion = OSModalTipoAccion.Agregar Then
+
+
+ If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+ DdlClientesWS.txtValue.Value = CveClientePublicoGeneral.ToString
+ DdlClientesWS.txtText.Value = NombreClientePublicoGeneral
+ Else
+ DdlClientesWS.ddl.SelectedValueExist(CveClientePublicoGeneral)
+ End If
+
+ TxtFechaOS.Text = Now.ToString("dd/MM/yyyy")
+ RegistraScript("$('#DVModalOS').modal('show');")
+ LblModalOStitulo.Text = "Agregar Orden de Servicio"
+
+ ElseIf TipoAccion = OSModalTipoAccion.Actualizacion Or TipoAccion = OSModalTipoAccion.Asignacion Then
+
+
+
+ 'cargaDropsModal()
+ LblModalOStitulo.Text = "Actualizar Orden de Servicio"
+
+ Dim ObjOS As New ClsOS()
+ Dim IDOSDetalle As Integer = 1
+ Dim SeFacturara = ""
+
+
+ Dim CveOsConsultar As Integer = HFCveOS.Value.ToEntero
+
+ If Not CveOsConsultar > 0 AndAlso Not DdlOrdenesSinAsignar.SelectedValue.ToEntero > 0 Then
+ Alert("clave de orden de servicio no encontrada.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+ If CveOsConsultar > 0 Then
+ DdlOrdenesSinAsignar.SelectedValueExist(-1)
+ End If
+
+ If ObjOS.GetOrdenesServicios(CveOsConsultar, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveOSDetalle:=DdlOrdenesSinAsignar.SelectedValue.ToEntero) Then
+
+ DVFolio.Visible = True
+ HLkFolio.Text = ObjOS.Folio.ToString
+ HLkFolio.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveOS={ObjOS.CveOS}"
+
+ HFCveOS.Value = ObjOS.CveOS.ToString
+ HFCveOsDetalle.Value = ObjOS.CveOSDetalle.ToString
+ TxtDescripcion.Text = ObjOS.Descripcion
+ TxtSolicito.Text = ObjOS.PersonaSolicito
+ TxtFechaOS.Text = ObjOS.FechaRecepcion.ToString("dd/MM/yyyy")
+ DdlSubProyectoOS.SelectedValueExist(ObjOS.CveSubProyecto)
+ TxtDireccion.Text = ObjOS.DtResultados.Rows(0)("DireccionOS").ToString
+ TxtEmail.Text = ObjOS.CorreoOS
+ TxtTelefono.Text = ObjOS.Telefono
+
+ DdlClientesWS.txtText.Value = ObjOS.Cliente
+ DdlClientesWS.txtValue.Value = ObjOS.CveCliente.ToString
+ DdlClientesWS.ddl.SelectedValueExist(ObjOS.CveCliente.ToString)
+
+ DdlModeloAuto.SelectedValueExist(ObjOS.CveModeloAuto)
+ TxtAnio.Text = ObjOS.Año
+
+
+ If TipoAccion = OSModalTipoAccion.Actualizacion Then
+ DdlTecnicoAsignar.SelectedValueExist(ObjOS.CveUsuarioAtendio)
+ CveTecnicoAsignarOrioginal = ObjOS.CveUsuarioAtendio
+ FechaInicioOriginal = ObjOS.FechaInicio
+ TxtModalFechaOS.Text = ObjOS.FechaInicio.ToString.ToDate.ToString("dd/MM/yyyy hh:mm")
+ 'TSTimeSelector.Hour = If(ObjOS.FechaInicio.Hour > 12, ObjOS.FechaInicio.Hour - 12, ObjOS.FechaInicio.Hour)
+ 'TSTimeSelector.Minute = ObjOS.FechaInicio.Minute
+ 'TSTimeSelector.AmPm = If(ObjOS.FechaInicio.Hour > 12, MKB.TimePicker.TimeSelector.AmPmSpec.PM, MKB.TimePicker.TimeSelector.AmPmSpec.AM)
+ End If
+
+ RegistraScript("$('#DVModalOS').modal('show');")
+
+ End If
+
+ ObjOS.Dispose()
+
+ LblModalOStitulo.Text = "Actualizar Orden de Servicio"
+
+ ElseIf False Then ' Anterior
+
+ CveOSDetalleAsignar = -1
+ CveOSAsignar = -1
+ CveSubProyectoAsignar = -1
+ Dim DTable As DataTable = DT_OSNoAsignadas.FiltraParametros($"CveOSDetalle={DdlOrdenesSinAsignar.SelectedValue}")
+
+ If DTable.Rows.Count = 1 Then
+
+ CveOSDetalleAsignar = DTable.Rows(0)("CveOSDetalle").ToString.ToEntero
+ CveSubProyectoAsignar = DTable.Rows(0)("CveSubProyecto").ToString.ToEntero
+ CveOSAsignar = DTable.Rows(0)("CveOS").ToString.ToEntero
+ FolioAsignar = DTable.Rows(0)("Folio").ToString
+
+ 'LblModalConcepto.Text = DTable.Rows(0)("Concepto").ToString
+ 'LblModalCliente.Text = DTable.Rows(0)("Nombre").ToString
+ 'LblModalSubProyecto.Text = DTable.Rows(0)("SubProyecto").ToString
+
+ LblModalOStitulo.Text = "Asignar Orden de Servicio"
+
+ RegistraScript("$('#DVModalOS').modal('show');")
+
+ Else
+ Alert("Error al cargar datos.")
+ End If
+
+ End If
+
+
+ UpModalOS.Update()
+
+ End Sub
Protected Sub LnkModalAsignar_Click(sender As Object, e As EventArgs)
Dim TieneError As Boolean = False
- Dim CveEstatusOS = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 2", "CveEstatusOrdenServicio ASC").ToEntero
+ Dim CveEstatusSolicidato = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "CveEstatusOrdenServicio ASC").ToEntero
+ Dim CveEstatusAsiganada = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 2", "CveEstatusOrdenServicio ASC").ToEntero
- Dim CorreoAsignado As String = ""
+ Dim CveCliente As Integer = If(Not DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.txtValue.Value.ToString.ToEntero, DdlClientesWS.SelectedValue.ToEntero)
+ Dim CvePSDetalle As Integer = UsuarioActual.Empresa.Funcionalidad(708).ToEntero
+ Dim EsNueva As Boolean = False
- Dim picker As MKB.TimePicker.TimeSelector = TSTimeSelector
- Dim time As DateTime
- time = DateTime.Parse(String.Format("{0} {1}:{2} {3}", TxtModalFechaOS.Text, picker.Hour, picker.Minute, picker.AmPm))
+ Dim CveOS As Integer = HFCveOS.Value.ToEntero
+ Dim CveOsDetalle As Integer = HFCveOsDetalle.Value.ToEntero
+
+ If Not CvePSDetalle > 0 Then
+ Alert("No esta asiganado el producto del detalle a la funcionalidad.")
+ Exit Sub
+ End If
+
+ If Not CveCliente > 0 Then
+ Alert("Debe seleccionar una cliente.")
+ Exit Sub
+ End If
+
+ If TipoAccion = OSModalTipoAccion.Asignacion Then
+
+ If Not DdlTecnicoAsignar.SelectedValue.ToEntero > 0 Then
+ Alert("El tecnico es requerido", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+ If TxtModalFechaOS.Text.Length = 0 Then
+ Alert("La Fecha de asiganción es requerida", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+ End If
Dim ObjOS As New ClsOS
ObjOS.IniciaTransacSQL()
- If ObjOS.GetSubProyectosEstatusInicial(DdlTecnicoAsignar.SelectedValue.ToEntero, 3, UsuarioActual.CveEmpresa) Then
- Dim subProyectoDelTecnico As DataTable
- subProyectoDelTecnico = ObjOS.DtResultados.FiltraParametros($"CveSubProyecto = {CveSubProyectoAsignar}")
- If subProyectoDelTecnico.Rows.Count > 0 Then
- If Not ObjOS.UpdateOrdenesServiciosAsignadas(CveOSDetalleAsignar, DdlTecnicoAsignar.SelectedValue.ToEntero, TxtModalFechaOS.Text.ToDate, time, UsuarioActual.CveEmpresa) Then
+ If Not CveOS > 0 Then
+
+ EsNueva = True
+
+ Dim CveEstatosOrdenNueva = CveEstatusSolicidato
+ If DdlTecnicoAsignar.SelectedValue.ToEntero > 0 Then
+ CveEstatosOrdenNueva = CveEstatusAsiganada
+ End If
+
+ If ObjOS.AddOrdenesServicios(CveCliente, DdlSubProyectoOS.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaOS.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, CveEstatosOrdenNueva,
+ UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveOrdenServicioTipo, CveClienteSucursal:=-1,
+ Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text, CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text, Correo:=TxtEmail.Text) Then
+ CveOS = ObjOS.CveOS
+
+ CveOsDetalle = ObjOS.AddOrdenesServiciosDetalle(CveOS, CvePSDetalle, 1, -1, -1, "", False, True, False, -1, "-1", "-1", "-1", "", UsuarioActual.CveUsuario, "")
+
+ If Not CveOsDetalle > 0 Then
TieneError = True
End If
+
Else
- Alert("El técnico y la Orden de Servicio deben pertenecer al mismo subProyecto", TipoMensaje.MsgAdvertencia)
TieneError = True
End If
+
+ Else
+
+ Dim CveEstatusOrden = CveEstatusSolicidato
+ If DdlTecnicoAsignar.SelectedValue.ToEntero > 0 Then
+ CveEstatusOrden = CveEstatusAsiganada
+ End If
+
+ If TipoAccion = OSModalTipoAccion.Asignacion Then
+ CveEstatusOrden = CveEstatusAsiganada
+ End If
+
+ CveOS = HFCveOS.Value.ToEntero
+ CveOsDetalle = HFCveOsDetalle.Value.ToEntero
+
+ If CveOS > 0 Then
+
+ If Not ObjOS.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaOS.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, CveEstatusOrden, CveOS, UsuarioActual.CveUsuario,
+ -1, CveClienteSucursal:=-1, Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text,
+ CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text, CveSubProyecto:=DdlSubProyectoOS.SelectedValue.ToEntero, Correo:=TxtEmail.Text) Then
+ TieneError = True
+ End If
+
+ Else
+ TieneError = True
+ End If
+
End If
- If Not TieneError Then
+ 'Dim picker As MKB.TimePicker.TimeSelector = TSTimeSelector
+ 'Dim time As DateTime
+ 'time = DateTime.Parse(String.Format("{0} {1}:{2} {3}", TxtModalFechaOS.Text, picker.Hour, picker.Minute, picker.AmPm))
- If Not ObjOS.UpdateOrdenesServiciosEstatus(CveEstatusOS, UsuarioActual.CveUsuario, CveOSAsignar) Then
- TieneError = True
+ If Not TieneError AndAlso CveOS > 0 AndAlso CveOsDetalle > 0 AndAlso DdlTecnicoAsignar.SelectedValue.ToEntero > 0 AndAlso
+ (HFCveUsuarioAtendio.Value.ToEntero <> DdlTecnicoAsignar.SelectedValue.ToEntero Or
+ TxtModalFechaOS.Text.ToDate <> FechaInicioOriginal.ToString.ToDate Or
+ TxtModalFechaOS.Text.ToDateTime() <> FechaInicioOriginal) Then
+
+
+
+ If ObjOS.GetSubProyectosEstatusInicial(DdlTecnicoAsignar.SelectedValue.ToEntero, 3, UsuarioActual.CveEmpresa) Then
+ Dim subProyectoDelTecnico As DataTable
+ subProyectoDelTecnico = ObjOS.DtResultados.FiltraParametros($"CveSubProyecto = {DdlSubProyectoOS.SelectedValue.ToEntero}")
+
+ If subProyectoDelTecnico.Rows.Count > 0 Then
+ If Not ObjOS.UpdateOrdenesServiciosAsignadas(CveOsDetalle, DdlTecnicoAsignar.SelectedValue.ToEntero, TxtModalFechaOS.Text.ToDate, TxtModalFechaOS.Text.ToDateTime(), UsuarioActual.CveEmpresa) Then
+ TieneError = True
+ End If
+ Else
+ Alert("El técnico y la Orden de Servicio deben pertenecer al mismo subProyecto", TipoMensaje.MsgAdvertencia)
+ TieneError = True
+ End If
End If
+
If Not TieneError Then
- Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1"
- Dim OIDescripcion As String = $"{DdlTecnicoAsignar.SelectedItem.Text} Orden de servicio {FolioAsignar} "
-
- Dim ObjEventos As New ClsOIEventos(ObjOS.IniciaTransacSQL())
- If Not ObjEventos.AddEventoAgenda(2, DdlTecnicoAsignar.SelectedItem.Text, OIDescripcion, 2, time, time.AddHours(1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
- RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=2,
- Importe:=0, CveOS:=CveOSAsignar, CveSubProyecto:=CveSubProyectoAsignar) Then
+ If Not ObjOS.UpdateOrdenesServiciosEstatus(CveEstatusAsiganada, UsuarioActual.CveUsuario, CveOS) Then
TieneError = True
End If
+ If Not TieneError Then
+
+
+ Dim ObjEventos As New ClsOIEventos(ObjOS.IniciaTransacSQL())
+
+ If HFOCveOIEvento.Value.ToEntero > 0 Then
+
+ If Not ObjEventos.RemoveAgendaBitacora(HFOCveOIEvento.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+ TieneError = True
+ End If
+
+ End If
+
+
+ Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1"
+ Dim OIDescripcion As String = $"{DdlTecnicoAsignar.SelectedItem.Text} Orden de servicio {FolioAsignar} "
+ If Not ObjEventos.AddEventoAgenda(2, DdlTecnicoAsignar.SelectedItem.Text, OIDescripcion, 2, TxtModalFechaOS.Text.ToDateTime(), TxtModalFechaOS.Text.ToDateTime().AddHours(1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+ RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=2,
+ Importe:=0, CveOS:=CveOS, CveSubProyecto:=DdlSubProyectoOS.SelectedValue.ToEntero) Then
+ TieneError = True
+ End If
+ End If
End If
- CorreoAsignado = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero).Rows(0)("Correo").ToString
-
End If
+
If Not TieneError Then
ObjOS.Commit()
Else
ObjOS.RollBack()
End If
+
+
ObjOS.Dispose()
- If Not TieneError And CorreoAsignado.Trim.Length > 0 Then
+ Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero).Rows(0)("Correo").ToString
+ If Not TieneError And CorreoAsignado.Trim.Length > 0 AndAlso DdlTecnicoAsignar.SelectedValue.ToEntero > 0 Then
+ CorreoAsignado = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero).Rows(0)("Correo").ToString
MandaCorreOS(CveOSAsignar, CorreoAsignado)
End If
If Not TieneError Then
+
ConsultaOrdenesServiciosNoAsignadas()
- Alert("Orden asignada correctamente.")
- RegistraScript("$('#DVModalOSAsginar').modal('hide');Calendario();")
+ CargaOrdenesServiciosNoAsignadas()
+
+ If TipoAccion = OSModalTipoAccion.Asignacion Then
+ Alert("Orden asignada correctamente.")
+ ElseIf TipoAccion = OSModalTipoAccion.Agregar Then
+ Alert("Orden Guardada correctamente.")
+ ElseIf TipoAccion = OSModalTipoAccion.Actualizacion Then
+ Alert("Orden actualizada correctamente.")
+ End If
+
+ RegistraScript("$('#DVModalOS').modal('hide');Calendario();")
End If
End Sub
-
Private Sub MandaCorreOS(CveOS As Integer, CorreoUsuarioAsignado As String)
@@ -762,4 +1121,76 @@ Partial Class OS_RepServicioDomicilio
End Sub
+
+
+
+ Private Sub GetCargaTiposOrden()
+ Dim ObjOS As New ClsOS
+
+ If ObjOS.GetTipoOrdenesServicios(UsuarioActual.CveEmpresa) AndAlso ObjOS.DtResultados IsNot Nothing AndAlso ObjOS.DtResultados.Rows.Count > 0 Then
+ CveOrdenServicioTipo = ObjOS.DtResultados.FiltroPrimeroValor("CveOrdenServicioTipo").ToEntero
+ Else
+ CveOrdenServicioTipo = -1
+ End If
+ ObjOS.Dispose()
+
+
+
+
+ End Sub
+
+
+ Protected Sub LnkCommando_Click(sender As Object, e As EventArgs)
+
+ ' Alert($"HFCveOS:{HFCveOS.Value}, HFCveOsDetalle:{HFCveOsDetalle.Value }, HFCveOIEvento:{HFOCveOIEvento.Value}")
+ TipoAccion = OSModalTipoAccion.Actualizacion
+ 'RegistraScript("$('#DVModalOS').modal('show');")
+ MostarModal()
+
+ End Sub
+
+
+ Protected Sub DdlTecnicoAsignar_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+
+ If TipoAccion = OSModalTipoAccion.Asignacion Then
+
+
+ 'DdlTecnicoAsignar.Visible = True
+ 'RfvDdlTecnicoAsignar.Visible = True
+ 'VCERfvDdlTecnicoAsignar.Visible = True
+
+ 'RfvTxtModalFechaOS.Visible = True
+ 'VceRfvTxtModalFechaOS.Enabled = True
+ ElseIf TipoAccion = OSModalTipoAccion.Agregar Or TipoAccion = OSModalTipoAccion.Actualizacion Then
+
+ 'DdlTecnicoAsignar.Visible = False
+ 'RfvDdlTecnicoAsignar.Visible = False
+ ' VCERfvDdlTecnicoAsignar.Visible = False
+
+ 'RfvTxtModalFechaOS.Visible = False
+ 'VceRfvTxtModalFechaOS.Enabled = False
+
+ End If
+
+ UpModalOS.Update()
+
+ End Sub
+
+ Private Sub CargaClientePublicoGeneral()
+
+
+ Dim ObjCliente As New ClsClientes()
+
+ If ObjCliente.GetClientes(-1, "PUBLICO EN GENERAL", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then
+
+ If ObjCliente.DtResultados.Rows.Count > 0 Then
+ Me.CveClientePublicoGeneral = ObjCliente.CveCliente
+ Me.NombreClientePublicoGeneral = ObjCliente.Nombre
+ End If
+ End If
+ ObjCliente.Dispose()
+
+ End Sub
+
End Class
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index b46772b37..b1480f84f 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1094,30 +1094,30 @@ Partial Class RH_Personal
Else
- 'If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
- ' Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
- ' Dim drow As DataRow = dt.NewRow()
- ' If UsuarioActual.CveEmpresa <> 158 Then
- ' drow = dt.NewRow()
- ' drow("CveTipoTrabajador") = "2"
- ' drow("TipoTrabajadorB") = "Operativo"
- ' dt.Rows.InsertAt(drow, 0)
- ' drow = dt.NewRow()
- ' drow("CveTipoTrabajador") = "3"
- ' drow("TipoTrabajadorB") = "Administrativo"
- ' dt.Rows.InsertAt(drow, 0)
+ If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+ Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
+ Dim drow As DataRow = dt.NewRow()
+ If UsuarioActual.CveEmpresa <> 158 Then
+ drow = dt.NewRow()
+ drow("CveTipoTrabajador") = "2"
+ drow("TipoTrabajadorB") = "Operativo"
+ dt.Rows.InsertAt(drow, 0)
+ drow = dt.NewRow()
+ drow("CveTipoTrabajador") = "3"
+ drow("TipoTrabajadorB") = "Administrativo"
+ dt.Rows.InsertAt(drow, 0)
- ' End If
- ' drow = dt.NewRow()
- ' drow("CveTipoTrabajador") = "-1"
- ' drow("TipoTrabajadorB") = "Seleccione"
- ' dt.Rows.InsertAt(drow, 0)
- ' If DdlTipoTrabajador.Items.Count() > 0 Then
- ' DdlTipoTrabajador.SelectedValueExist("-1")
- ' End If
- ' DdlTipoTrabajador.DataSource = dt
- ' DdlTipoTrabajador.DataBind()
- 'End If
+ End If
+ drow = dt.NewRow()
+ drow("CveTipoTrabajador") = "-1"
+ drow("TipoTrabajadorB") = "Seleccione"
+ dt.Rows.InsertAt(drow, 0)
+ If DdlTipoTrabajador.Items.Count() > 0 Then
+ DdlTipoTrabajador.SelectedValueExist("-1")
+ End If
+ DdlTipoTrabajador.DataSource = dt
+ DdlTipoTrabajador.DataBind()
+ End If
End If
End Using
End Sub
@@ -1125,7 +1125,7 @@ Partial Class RH_Personal
Protected Sub cargaagrodeptos()
Using objrh As New ClsRH()
If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
- Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue))
+ Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue.ToEntero()))
Dim drow As DataRow = dt.NewRow()
drow("CveDepartamento") = "-1"
drow("Departamento") = "Seleccione"
diff --git a/Sistemas/Empresa.aspx b/Sistemas/Empresa.aspx
index 73c79e8ff..5e2c2ed6d 100644
--- a/Sistemas/Empresa.aspx
+++ b/Sistemas/Empresa.aspx
@@ -203,7 +203,7 @@
-
Contacto:
+
Representante Legal:
diff --git a/Sistemas/Empresa.aspx.vb b/Sistemas/Empresa.aspx.vb
index b095f668a..4f3664346 100644
--- a/Sistemas/Empresa.aspx.vb
+++ b/Sistemas/Empresa.aspx.vb
@@ -258,7 +258,7 @@ Partial Class Sistemas_Empresa
TxtCP.Text = .CP.ToString
TxtRFC.Text = .RFC
TxtTelefono.Text = .Telefono
- TxtContacto.Text = .Contacto
+ TxtContacto.Text = .Contacto 'Representante legal
TxtMail.Text = .Mail
DdlTipoFacturacion.SelectedValue = .TipoFacturacion
TxtBIUsuario.Text = .BIUsuario
diff --git a/Ventas/CatClasificaciones.aspx.vb b/Ventas/CatClasificaciones.aspx.vb
index bf140a196..4043ffbbd 100644
--- a/Ventas/CatClasificaciones.aspx.vb
+++ b/Ventas/CatClasificaciones.aspx.vb
@@ -214,8 +214,8 @@ Partial Class CatClasificaciones
End If
End If
- GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
ObjClasificaciones.Dispose()
+ GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
CargaDatos()
UpDatos.Update()
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index f03547ae9..f295d80c9 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1454,7 +1454,7 @@ Partial Class Ventas_ClientesAbonar
If ImporteMovimiento <> 0 AndAlso MsgError = "" Then
'Conta ContPAQ
- If (IdCtaContable < 1 Or IdCuentaBancaria < 1) Then
+ If (IdCtaContable < 1 Or IdCuentaBancaria < 1) AndAlso UsuarioActual.CveEmpresa <> 119 Then
CuentasContablesInvalidas.Append(" " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
idCuentaContabilizacion = 0
End If
@@ -3168,7 +3168,7 @@ Partial Class Ventas_ClientesAbonar
DT = ReadExcelFile(Directorio + file.filename, True)
- If Not dt.Columns(0).ColumnName.ToUpper = "FOLIO" Then
+ If Not DT.Columns(0).ColumnName.ToUpper = "FOLIO" Then
Alert("El nombre de la primera columna debe ser 'Folio'. Favor de corregirlo", TipoMensaje.MsgAdvertencia)
Exit Sub
End If