diff --git a/Acarreos/CatChoferes.aspx b/Acarreos/CatChoferes.aspx index 3cd1b9183..4187821b9 100644 --- a/Acarreos/CatChoferes.aspx +++ b/Acarreos/CatChoferes.aspx @@ -28,7 +28,7 @@ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + DataKeyNames="CveChofer,Chofer,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,CveTransportista,Identificacion,Domicilio,Telefono,Ciudad,RFC,Licencia,NumeroInterior,NumeroExterior,Colonia,Estado,NumRegidTribOperador,ResidenciaFiscalOperador,CP" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Choferes"> diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb index 2807faa3d..cf58bbabe 100644 --- a/Acarreos/CatChoferes.aspx.vb +++ b/Acarreos/CatChoferes.aspx.vb @@ -74,6 +74,7 @@ Partial Class Acarreos_CatChoferes TxtChofer.Text = GvRow.DataKey("Chofer") TxtIdentificacion.Text = GvRow.DataKey("Identificacion") TxtTelefono.Text = GvRow.DataKey("Telefono") + TxtRFC.Text = GvRow.DataKey("RFC") TxtDomicilio.Text = GvRow.DataKey("Domicilio") TxtNumInt.Text = GvRow.DataKey("NumeroInterior") diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index a5704429e..42ef21c81 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -578,7 +578,11 @@ Public Class CFDICartaPorte Public Property TranspInternac As String = "" Public Property EntradaSalidaMercancia As String = "" Public Property ViaEntradaSalida As String = "" - Public Property TotalDistanciaRecorrida As Double = 0 + Public ReadOnly Property TotalDistanciaRecorrida As Decimal + Get + Return Ubicaciones.Sum(Function(item) item.DistanciaRecorridaOrigen) + Ubicaciones.Sum(Function(item) item.DistanciaRecorridaDestino) + End Get + End Property Public Property Ubicaciones As New List(Of CFDICartaPorteUbicaciones) Public Property Mercancias As New CFDICartaPorteMercancias Public Property FiguraTransporte As New CFDICartaPorteFiguraTransporte @@ -587,7 +591,8 @@ End Class Public Class CFDICartaPorteUbicaciones Public Property TipoEstacion As String = "" - Public Property DistanciaRecorrida As Decimal = 0 + Public Property DistanciaRecorridaOrigen As Decimal = 0 + Public Property DistanciaRecorridaDestino As Decimal = 0 'Public Property Ubicacion As New CFDICartaPorteUbicacion Public Property Origen As New CFDICartaPorteUbicacionOrigen Public Property Destino As New CFDICartaPorteUbicacionDestino diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 13064ce48..23bde4820 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -2261,18 +2261,19 @@ Public Class ClsContratos Return Retorno - End Function - + End Function + #End Region - + #Region "C O N T R A T O S G A S T O S" - - Public Function GetContratoGastos(CveContrato As Integer) As Boolean + + Public Function GetContratoGastos(CveContrato As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosGastosGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index a84761df1..9f6c539d7 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -3310,9 +3310,9 @@ Public Class ClsGenerales Return Retorno End Function - Public Function GetCartaPorteTipoPermiso() As Boolean + Public Function GetCartaPorteTipoPermisoSCT() As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Gral_CP_TipoPermisoGet") + DataAdapter("PA_Gral_CP_TipoPermisoSCTGet") Try SqlAdapter.Fill(Data) Retorno = True diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 03880cf97..1fd262498 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -131,6 +131,7 @@ Public Class ClsInventarios Public Property ResponsableCarga As String Public Property ResponsableRecibio As String Public Property Modulo As String + Public Property ConAplicacion As Boolean @@ -2307,6 +2308,7 @@ Public Class ClsInventarios FechaI = dr("FechaInicio").ToString FechaF = dr("FechaFin").ToString Estatus = dr("Estatus").ToString + ConAplicacion = Convert.ToBoolean(dr("ConAplicacion").ToString) Retorno = True End If @@ -5490,7 +5492,7 @@ Public Class ClsInventarios End Try Return Retorno End Function - Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, Optional ConfigCartaPorte As String = "", Optional Anio As Integer = 0, Optional TipoPermisoSCT As String = "", Optional NumPermisoSCT As String = "", Optional NombreAseguradora As String = "", Optional NumPolizaSeguro As String = "") As Boolean + Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesAdd") With SqlAdapter.SelectCommand.Parameters @@ -5498,11 +5500,12 @@ Public Class ClsInventarios .Add("@Especificacion", SqlDbType.VarChar).Value = Especificacion .Add("@ConfigCartaPorte", SqlDbType.VarChar).Value = ConfigCartaPorte .Add("@Anio", SqlDbType.Int).Value = Anio - .Add("@TipoPermisoSCT", SqlDbType.VarChar).Value = TipoPermisoSCT + .Add("@CveTipoPermisoSCT", SqlDbType.VarChar).Value = CveTipoPermisoSCT .Add("@NumPermisoSCT", SqlDbType.VarChar).Value = NumPermisoSCT .Add("@NombreAseguradora", SqlDbType.VarChar).Value = NombreAseguradora .Add("@NumPolizaSeguro", SqlDbType.VarChar).Value = NumPolizaSeguro .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario End With Try SqlAdapter.Fill(Data) @@ -5512,11 +5515,12 @@ Public Class ClsInventarios End Try Return Retorno End Function - Public Function RemoveCamiones(CveCamion As Integer) As Boolean + Public Function RemoveCamiones(CveCamion As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesRemove") With SqlAdapter.SelectCommand.Parameters .Add("@CveCamion", SqlDbType.Int).Value = CveCamion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try SqlAdapter.Fill(Data) @@ -5526,7 +5530,7 @@ Public Class ClsInventarios End Try Return Retorno End Function - Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, Optional ConfigCartaPorte As String = "", Optional Anio As Integer = 0, Optional TipoPermisoSCT As String = "", Optional NumPermisoSCT As String = "", Optional NombreAseguradora As String = "", Optional NumPolizaSeguro As String = "") As Boolean + Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -5535,10 +5539,12 @@ Public Class ClsInventarios .Add("@Especificacion", SqlDbType.VarChar).Value = Especificacion .Add("@ConfigCartaPorte", SqlDbType.VarChar).Value = ConfigCartaPorte .Add("@Anio", SqlDbType.Int).Value = Anio - .Add("@TipoPermisoSCT", SqlDbType.VarChar).Value = TipoPermisoSCT + .Add("@CveTipoPermisoSCT", SqlDbType.Int).Value = CveTipoPermisoSCT .Add("@NumPermisoSCT", SqlDbType.VarChar).Value = NumPermisoSCT .Add("@NombreAseguradora", SqlDbType.VarChar).Value = NombreAseguradora .Add("@NumPolizaSeguro", SqlDbType.VarChar).Value = NumPolizaSeguro + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 555f3d41d..16a836392 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4812,6 +4812,9 @@ Public Class ClsPaginas PaginaDict.Add("/Inventarios/RecepcionDevolucion.aspx".ToUpper(), 696) PaginaDict.Add("/Inventarios/RepExistenciaLote.aspx".ToUpper(), 109) + PaginaDict.Add("/Inventarios/CatUnidades.aspx".ToUpper(), 2056) + + #End Region #Region "MF" @@ -5441,15 +5444,17 @@ Public Class ClsPaginas Usuario.CerrarSession() End Sub - Public Sub Alert(Mensaje As String, Optional pOpcion As TipoMensaje = TipoMensaje.MsgInformacion, Optional JSBtnAceptar As String = "", Optional timeout As Integer = 5, Optional ShowCloseButton As Boolean = True) - If DirectCast(pOpcion, Integer) >= 5 Then + Public Sub Alert(Mensaje As String, Optional pOpcion As TipoMensaje = TipoMensaje.MsgInformacion, Optional JSBtnAceptar As String = "", Optional timeout As Integer = 5, Optional ShowCloseButton As Boolean = True, Optional TextoConfirmacion As String = "", Optional TextoSegundoBoton As String = "", Optional JSBtn2 As String = "") + + If DirectCast(pOpcion, Integer).Contiene(5, 7, 6, 8) Then Mensaje = Mensaje.Replace("'"c, "\'").Replace(vbCrLf, "").Replace("""", "\'").Replace(vbLf, " ") JSBtnAceptar = JSBtnAceptar.Replace("'"c, "\'") Dim toastscript As String = String.Format("alertatoast({3},'{0}',function(){{{1}}},{2});", Mensaje, JSBtnAceptar, timeout, DirectCast(pOpcion, Integer)) ViewState("strToastMsglargonoreplace") = String.Format("{0}{1}", If(Not IsNothing(ViewState("strToastMsglargonoreplace")) AndAlso ViewState("strToastMsglargonoreplace").ToString().Length > 0, ViewState("strToastMsglargonoreplace").ToString(), ""), toastscript) Else - Mensaje.Alert(Mensaje, pOpcion, JSBtnAceptar, TimeoutToast:=timeout, ShowCloseButton:=ShowCloseButton) + Mensaje.Alert(Mensaje, pOpcion, JSBtnAceptar, TimeoutToast:=timeout, ShowCloseButton:=ShowCloseButton, TextoConfirmacion:=TextoConfirmacion, TextoSegundoBoton:=TextoSegundoBoton, JSBtn2:=JSBtn2) End If + End Sub Protected Overridable Sub Page_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender If sw IsNot Nothing AndAlso Not (Not User.Identity.IsAuthenticated OrElse UsuarioActual Is Nothing) Then diff --git a/App_Code/DtDatos.xsd b/App_Code/DtDatos.xsd index 72637b923..c658dbec9 100644 --- a/App_Code/DtDatos.xsd +++ b/App_Code/DtDatos.xsd @@ -12,7 +12,7 @@ - + @@ -28,7 +28,7 @@ - + @@ -46,7 +46,7 @@ - + @@ -66,7 +66,7 @@ - + @@ -89,7 +89,7 @@ - + @@ -113,7 +113,7 @@ - + @@ -139,7 +139,7 @@ - + @@ -155,7 +155,7 @@ - + @@ -172,7 +172,7 @@ - + @@ -181,7 +181,7 @@ - + @@ -217,7 +217,7 @@ - + @@ -239,10 +239,11 @@ + - + @@ -258,7 +259,7 @@ - + @@ -294,10 +295,12 @@ + + - + @@ -307,7 +310,7 @@ - + diff --git a/App_Code/DtDatos.xss b/App_Code/DtDatos.xss index 325b31061..12eb8d1df 100644 --- a/App_Code/DtDatos.xss +++ b/App_Code/DtDatos.xss @@ -6,21 +6,21 @@ --> - + - - - - - - - - - + + + + + + + + + \ No newline at end of file diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 31a54c57f..28c446361 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2736,6 +2736,8 @@ Namespace Modelos Dim CveVenta As Integer = ObjFactura.CveVenta Dim CveVentaAmortizacion As Integer = row2("CveVenta").ToString().ToEntero + If row2("CveIE").ToString().ToEntero > 0 Then CveIEAnticipo = row2("CveIE").ToString().ToEntero + 'FALTA LA MONEDA PAR ALA CUENTA .RMF Y MANDAR EL CVEIE 'SI ES FACTURA EN 0 Y TIENE ANTICIPOS If (ObjFactura.Total = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(72) AndAlso ObjFactura.TipoDocto.Contiene("Ing")) AndAlso row2("TipoDocto").ToString() = "Ant" Then @@ -2752,7 +2754,7 @@ Namespace Modelos If importeMovimiento <> 0 Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveVentaAmortizacion:=CveVentaAmortizacion, CveCliente:=ObjFactura.CveCliente, - CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), + CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For @@ -6699,30 +6701,30 @@ Namespace Modelos If Not Me.disposedValue Then If disposing Then '' TODO: dispose managed state (managed objects). - If Not DtDetalle Is Nothing Then DtDetalle.Dispose() - If Not DtAjustes Is Nothing Then DtAjustes.Dispose() - If Not DtAnticipos Is Nothing Then DtAnticipos.Dispose() - If Not DtContratosSerieDetalle Is Nothing Then DtContratosSerieDetalle.Dispose() - If Not DtCotizacionesPS Is Nothing Then DtCotizacionesPS.Dispose() - If Not DtDeduccion Is Nothing Then DtDeduccion.Dispose() - If Not DtDesgloseImpuestos Is Nothing Then DtDesgloseImpuestos.Dispose() - If Not DtDocumentacionCliente Is Nothing Then DtDocumentacionCliente.Dispose() - If Not DtDocumentosRelacionados Is Nothing Then DtDocumentosRelacionados.Dispose() - If Not DtFirmas Is Nothing Then DtFirmas.Dispose() - If Not DtImpuestosLocales Is Nothing Then DtImpuestosLocales.Dispose() - If Not DtInventario Is Nothing Then DtInventario.Dispose() - If Not DtNCVinculadas Is Nothing Then DtNCVinculadas.Dispose() - If Not DTOrdenesCompraPS Is Nothing Then DTOrdenesCompraPS.Dispose() - If Not DtOtrosConceptos Is Nothing Then DtOtrosConceptos.Dispose() - If Not DtPagos Is Nothing Then DtPagos.Dispose() - If Not DtPedidos2 Is Nothing Then DtPedidos2.Dispose() - If Not DtPedidos2PS Is Nothing Then DtPedidos2PS.Dispose() - If Not DtPromociones Is Nothing Then DtPromociones.Dispose() - If Not DtRecepcionUsados Is Nothing Then DtRecepcionUsados.Dispose() - If Not DtRemConceptosSurtidos Is Nothing Then DtRemConceptosSurtidos.Dispose() - If Not DtRemisiones Is Nothing Then DtRemisiones.Dispose() - If Not DtRemisionesPS Is Nothing Then DtRemisionesPS.Dispose() - If Not DtVentasNC Is Nothing Then DtVentasNC.Dispose() + If Not DtDetalle Is Nothing Then DtDetalle.Dispose() : DtDetalle = Nothing + If Not DtAjustes Is Nothing Then DtAjustes.Dispose() : DtAjustes = Nothing + If Not DtAnticipos Is Nothing Then DtAnticipos.Dispose() : DtAnticipos = Nothing + If Not DtContratosSerieDetalle Is Nothing Then DtContratosSerieDetalle.Dispose() : DtContratosSerieDetalle = Nothing + If Not DtCotizacionesPS Is Nothing Then DtCotizacionesPS.Dispose() : DtCotizacionesPS = Nothing + If Not DtDeduccion Is Nothing Then DtDeduccion.Dispose() : DtDeduccion = Nothing + If Not DtDesgloseImpuestos Is Nothing Then DtDesgloseImpuestos.Dispose() : DtDesgloseImpuestos = Nothing + If Not DtDocumentacionCliente Is Nothing Then DtDocumentacionCliente.Dispose() : DtDocumentacionCliente = Nothing + If Not DtDocumentosRelacionados Is Nothing Then DtDocumentosRelacionados.Dispose() : DtDocumentosRelacionados = Nothing + If Not DtFirmas Is Nothing Then DtFirmas.Dispose() : DtFirmas = Nothing + If Not DtImpuestosLocales Is Nothing Then DtImpuestosLocales.Dispose() : DtImpuestosLocales = Nothing + If Not DtInventario Is Nothing Then DtInventario.Dispose() : DtInventario = Nothing + If Not DtNCVinculadas Is Nothing Then DtNCVinculadas.Dispose() : DtNCVinculadas = Nothing + If Not DTOrdenesCompraPS Is Nothing Then DTOrdenesCompraPS.Dispose() : DTOrdenesCompraPS = Nothing + If Not DtOtrosConceptos Is Nothing Then DtOtrosConceptos.Dispose() : DtOtrosConceptos = Nothing + If Not DtPagos Is Nothing Then DtPagos.Dispose() : DtPagos = Nothing + If Not DtPedidos2 Is Nothing Then DtPedidos2.Dispose() : DtPedidos2 = Nothing + If Not DtPedidos2PS Is Nothing Then DtPedidos2PS.Dispose() : DtPedidos2PS = Nothing + If Not DtPromociones Is Nothing Then DtPromociones.Dispose() : DtPromociones = Nothing + If Not DtRecepcionUsados Is Nothing Then DtRecepcionUsados.Dispose() : DtRecepcionUsados = Nothing + If Not DtRemConceptosSurtidos Is Nothing Then DtRemConceptosSurtidos.Dispose() : DtRemConceptosSurtidos = Nothing + If Not DtRemisiones Is Nothing Then DtRemisiones.Dispose() : DtRemisiones = Nothing + If Not DtRemisionesPS Is Nothing Then DtRemisionesPS.Dispose() : DtRemisionesPS = Nothing + If Not DtVentasNC Is Nothing Then DtVentasNC.Dispose() : DtVentasNC = Nothing End If End If Me.disposedValue = True diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index eb7963a0e..3fafd9f2e 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -9,6 +9,7 @@ Imports System.Xml Imports System.Data Imports System.Xml.Serialization Imports System.Net +Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte10 Public Class Timbrado @@ -2129,8 +2130,8 @@ Public Class Timbrado #Region "C O M P L E M E N T O C A R T A P O R T E" + If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then - If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte @@ -2140,13 +2141,13 @@ Public Class Timbrado 'UBICACIONES If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then For Each ubica As CFDICartaPorteUbicaciones In Carta.Ubicaciones - 'origen - cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida) - cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.Origen.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) + 'origen + cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorridaOrigen) + cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.Origen.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) cfdi.CartaPorteDomicilio(ubica.Origen.Domicilio.Calle, ubica.Origen.Domicilio.NumeroExterior, ubica.Origen.Domicilio.NumeroInterior, ubica.Origen.Domicilio.Colonia, ubica.Origen.Domicilio.Localidad, ubica.Origen.Domicilio.Referencia, ubica.Origen.Domicilio.Municipio, ubica.Origen.Domicilio.Estado, ubica.Origen.Domicilio.Pais, ubica.Origen.Domicilio.CP) - 'destino - cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida) - cfdi.CartaPorteDestino(ubica.Destino.IDDestino, ubica.Destino.RFCDestinatario, ubica.Destino.NombreDestinatario, ubica.Destino.NumRegIdTrib, ubica.Destino.ResidenciaFiscal, ubica.Destino.NumEstacion, ubica.Destino.NombreEstacion, ubica.Destino.NavegacionTrafico, ubica.Destino.FechaHoraProgLlegada) + 'destino + cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorridaDestino) + cfdi.CartaPorteDestino(ubica.Destino.IDDestino, ubica.Destino.RFCDestinatario, ubica.Destino.NombreDestinatario, ubica.Destino.NumRegIdTrib, ubica.Destino.ResidenciaFiscal, ubica.Destino.NumEstacion, ubica.Destino.NombreEstacion, ubica.Destino.NavegacionTrafico, ubica.Destino.FechaHoraProgLlegada) cfdi.CartaPorteDomicilio(ubica.Destino.Domicilio.Calle, ubica.Destino.Domicilio.NumeroExterior, ubica.Destino.Domicilio.NumeroInterior, ubica.Destino.Domicilio.Colonia, ubica.Destino.Domicilio.Localidad, ubica.Destino.Domicilio.Referencia, ubica.Destino.Domicilio.Municipio, ubica.Destino.Domicilio.Estado, ubica.Destino.Domicilio.Pais, ubica.Destino.Domicilio.CP) Next @@ -2191,7 +2192,6 @@ Public Class Timbrado End If - End If #End Region @@ -3413,7 +3413,7 @@ Public Class Timbrado If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E") Then -#Region "Impuestos" +#Region " Impuestos" 'SI NO ES FACTURA EN 0 AGREGA LOS IMPUESTOS If Ventas.Total <> 0 OrElse (ObjCFDITimbre.TotalImpuestosRetenidos > 0 OrElse ObjCFDITimbre.TotalImpuestosTrasladados > 0) Then comprobante.Impuestos = New Profact.TimbraCFDI33.ComprobanteImpuestos() @@ -3453,7 +3453,7 @@ Public Class Timbrado #End Region -#Region "Impuestos Locales" +#Region " Impuestos Locales" If ObjCFDITimbre.RetencionesLocales.Sum(Function(x) x.Importe) > 0 Then @@ -3487,7 +3487,7 @@ Public Class Timbrado #End Region -#Region "Comercio Exterior" +#Region " Comercio Exterior" If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto Then If ObjCFDITimbre.Complementos.ComercioExterior11 IsNot Nothing Then @@ -3653,15 +3653,9 @@ Public Class Timbrado #End Region - - - - - - End If -#Region "Complemento Pago" +#Region " Complemento Pago" If ObjCFDITimbre.Comprobante.TipoComprobante = "P" Then Dim ComPag = New Profact.TimbraCFDI33.Complementos.Pagos10.Pagos() @@ -3782,37 +3776,34 @@ Public Class Timbrado #End Region -#Region "C O M P L E M E N T O C A R T A P O R T E" +#Region " C O M P L E M E N T O C A R T A P O R T E" If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then - If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte - - - ''DATOS GENERALES - Dim ComCartaPorte = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorte() - Dim Transp As Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteTranspInternac + ''DATOS GENERALES + Dim ComCartaPorte = New ProfactCartaPorte.CartaPorte() + Dim Transp As ProfactCartaPorte.CartaPorteTranspInternac ComCartaPorte.TranspInternac = If(Carta.TranspInternac = "No", Transp.No, Transp.Sí) ComCartaPorte.EntradaSalidaMercSpecified = False ComCartaPorte.ViaEntradaSalidaSpecified = False ComCartaPorte.TotalDistRecSpecified = False - 'UBICACIONES - If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then - Dim i As Integer = 0 - ComCartaPorte.Ubicaciones = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacion(Carta.Ubicaciones.Count - 1) {} - For Each ubica As CFDICartaPorteUbicaciones In Carta.Ubicaciones - 'origen - ComCartaPorte.Ubicaciones(i) = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacion - ComCartaPorte.Ubicaciones(i).TipoEstacionSpecified = False - ComCartaPorte.Ubicaciones(i).DistanciaRecorrida = ubica.DistanciaRecorrida - ComCartaPorte.Ubicaciones(i).Origen = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionOrigen With {.IDOrigen = ubica.Origen.IDOrigen, + 'UBICACIONES + If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then + Dim i As Integer = 0 + ComCartaPorte.Ubicaciones = New ProfactCartaPorte.CartaPorteUbicacion(Carta.Ubicaciones.Count - 1) {} + For Each ubica As CFDICartaPorteUbicaciones In Carta.Ubicaciones + 'origen + ComCartaPorte.Ubicaciones(i) = New ProfactCartaPorte.CartaPorteUbicacion + ComCartaPorte.Ubicaciones(i).TipoEstacionSpecified = False + ComCartaPorte.Ubicaciones(i).DistanciaRecorrida = ubica.DistanciaRecorridaDestino + ComCartaPorte.Ubicaciones(i).Origen = New ProfactCartaPorte.CartaPorteUbicacionOrigen With {.IDOrigen = ubica.Origen.IDOrigen, .RFCRemitente = ubica.Origen.RFCRemitente, .NombreRemitente = ubica.Origen.NombreRemitente, .FechaHoraSalida = ubica.Origen.FechaHoraSalida.ToDate} - ComCartaPorte.Ubicaciones(i).Domicilio = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDomicilio With {.Calle = ubica.Origen.Domicilio.Calle, + ComCartaPorte.Ubicaciones(i).Domicilio = New ProfactCartaPorte.CartaPorteUbicacionDomicilio With {.Calle = ubica.Origen.Domicilio.Calle, .NumeroExterior = ubica.Origen.Domicilio.NumeroExterior, .NumeroInterior = ubica.Origen.Domicilio.NumeroInterior, .Colonia = ubica.Origen.Domicilio.Colonia, @@ -3821,16 +3812,16 @@ Public Class Timbrado .Municipio = ubica.Origen.Domicilio.Municipio, .Estado = ubica.Origen.Domicilio.Estado, .CodigoPostal = ubica.Origen.Domicilio.CP} - 'falta pais + 'falta pais - ComCartaPorte.Ubicaciones(i).Destino = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDestino With {.IDDestino = ubica.Destino.IDDestino, + ComCartaPorte.Ubicaciones(i).Destino = New ProfactCartaPorte.CartaPorteUbicacionDestino With {.IDDestino = ubica.Destino.IDDestino, .RFCDestinatario = ubica.Destino.RFCDestinatario, .NombreDestinatario = ubica.Destino.NombreDestinatario, .FechaHoraProgLlegada = ubica.Destino.FechaHoraProgLlegada.ToDate} - ComCartaPorte.Ubicaciones(i).Domicilio = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDomicilio With {.Calle = ubica.Destino.Domicilio.Calle, + ComCartaPorte.Ubicaciones(i).Domicilio = New ProfactCartaPorte.CartaPorteUbicacionDomicilio With {.Calle = ubica.Destino.Domicilio.Calle, .NumeroExterior = ubica.Destino.Domicilio.NumeroExterior, .NumeroInterior = ubica.Destino.Domicilio.NumeroInterior, .Colonia = ubica.Destino.Domicilio.Colonia, @@ -3841,100 +3832,143 @@ Public Class Timbrado .CodigoPostal = ubica.Destino.Domicilio.CP} - 'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida) - 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.Origen.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) - 'cfdi.CartaPorteDomicilio(ubica.Origen.Domicilio.Calle, ubica.Origen.Domicilio.NumeroExterior, ubica.Origen.Domicilio.NumeroInterior, ubica.Origen.Domicilio.Colonia, ubica.Origen.Domicilio.Localidad, ubica.Origen.Domicilio.Referencia, ubica.Origen.Domicilio.Municipio, ubica.Origen.Domicilio.Estado, ubica.Origen.Domicilio.Pais, ubica.Origen.Domicilio.CP) - 'destino - 'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida) - 'cfdi.CartaPorteDestino(ubica.Destino.IDDestino, ubica.Destino.RFCDestinatario, ubica.Destino.NombreDestinatario, ubica.Destino.NumRegIdTrib, ubica.Destino.ResidenciaFiscal, ubica.Destino.NumEstacion, ubica.Destino.NombreEstacion, ubica.Destino.NavegacionTrafico, ubica.Destino.FechaHoraProgLlegada) - 'cfdi.CartaPorteDomicilio(ubica.Destino.Domicilio.Calle, ubica.Destino.Domicilio.NumeroExterior, ubica.Destino.Domicilio.NumeroInterior, ubica.Destino.Domicilio.Colonia, ubica.Destino.Domicilio.Localidad, ubica.Destino.Domicilio.Referencia, ubica.Destino.Domicilio.Municipio, ubica.Destino.Domicilio.Estado, ubica.Destino.Domicilio.Pais, ubica.Destino.Domicilio.CP) + 'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida) + 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.Origen.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) + 'cfdi.CartaPorteDomicilio(ubica.Origen.Domicilio.Calle, ubica.Origen.Domicilio.NumeroExterior, ubica.Origen.Domicilio.NumeroInterior, ubica.Origen.Domicilio.Colonia, ubica.Origen.Domicilio.Localidad, ubica.Origen.Domicilio.Referencia, ubica.Origen.Domicilio.Municipio, ubica.Origen.Domicilio.Estado, ubica.Origen.Domicilio.Pais, ubica.Origen.Domicilio.CP) + 'destino + 'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida) + 'cfdi.CartaPorteDestino(ubica.Destino.IDDestino, ubica.Destino.RFCDestinatario, ubica.Destino.NombreDestinatario, ubica.Destino.NumRegIdTrib, ubica.Destino.ResidenciaFiscal, ubica.Destino.NumEstacion, ubica.Destino.NombreEstacion, ubica.Destino.NavegacionTrafico, ubica.Destino.FechaHoraProgLlegada) + 'cfdi.CartaPorteDomicilio(ubica.Destino.Domicilio.Calle, ubica.Destino.Domicilio.NumeroExterior, ubica.Destino.Domicilio.NumeroInterior, ubica.Destino.Domicilio.Colonia, ubica.Destino.Domicilio.Localidad, ubica.Destino.Domicilio.Referencia, ubica.Destino.Domicilio.Municipio, ubica.Destino.Domicilio.Estado, ubica.Destino.Domicilio.Pais, ubica.Destino.Domicilio.CP) + Next + + End If + + 'MERCANCIAS + If Carta.Mercancias IsNot Nothing Then + ComCartaPorte.Mercancias = New ProfactCartaPorte.CartaPorteMercancias + ComCartaPorte.Mercancias.PesoBrutoTotal = Carta.Mercancias.PesoBrutoTotal.ToDecimal + ComCartaPorte.Mercancias.PesoNetoTotal = Carta.Mercancias.PesoNetoTotal.ToDecimal + ComCartaPorte.Mercancias.NumTotalMercancias = Carta.Mercancias.NumTotalMercancias + ComCartaPorte.Mercancias.CargoPorTasacion = Carta.Mercancias.CargoporTasacion.ToDecimal + ' ComCartaPorte.Mercancias.UnidadPeso = Carta.Mercancias.UnidadPeso + + If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then + Dim i As Integer = 0 + ComCartaPorte.Mercancias.Mercancia = New ProfactCartaPorte.CartaPorteMercanciasMercancia(Carta.Mercancias.Mercancias.Count - 1) {} + For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias + ComCartaPorte.Mercancias.Mercancia(i) = New ProfactCartaPorte.CartaPorteMercanciasMercancia + + If concep.BienesTransp <> "" Then + ComCartaPorte.Mercancias.Mercancia(i).BienesTransp = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ClaveProdServCP), "Item" & concep.BienesTransp), ProfactCartaPorte.c_ClaveProdServCP) + ComCartaPorte.Mercancias.Mercancia(i).BienesTranspSpecified = True + End If + If concep.ClaveSTCC <> "" Then + ComCartaPorte.Mercancias.Mercancia(i).ClaveSTCCSpecified = True + ComCartaPorte.Mercancias.Mercancia(i).ClaveSTCC = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ClaveProdSTCC), "Item" & concep.ClaveSTCC), ProfactCartaPorte.c_ClaveProdSTCC) + End If + + ComCartaPorte.Mercancias.Mercancia(i).Descripcion = concep.Descripción + ComCartaPorte.Mercancias.Mercancia(i).Cantidad = concep.Cantidad + ComCartaPorte.Mercancias.Mercancia(i).ClaveUnidadSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).Unidad = concep.Unidad + ComCartaPorte.Mercancias.Mercancia(i).Dimensiones = concep.Dimensiones + If concep.ClaveMaterialPeligroso <> "" Then + ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligrosoSpecified = True + ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = True + End If + If concep.Embalaje <> "" Then + ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = True + ComCartaPorte.Mercancias.Mercancia(i).Embalaje = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoEmbalaje), "Item" & concep.Embalaje), ProfactCartaPorte.c_TipoEmbalaje) + End If + ComCartaPorte.Mercancias.Mercancia(i).DescripEmbalaje = concep.DescripEmbalaje + ComCartaPorte.Mercancias.Mercancia(i).PesoEnKg = concep.PesoenKg + ComCartaPorte.Mercancias.Mercancia(i).ValorMercanciaSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).MonedaSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).FraccionArancelariaSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).UUIDComercioExt = concep.UUIDComercioExt + i += 1 Next - End If + End If - 'MERCANCIAS - If Carta.Mercancias IsNot Nothing Then - ComCartaPorte.Mercancias = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercancias - ComCartaPorte.Mercancias.PesoBrutoTotal = Carta.Mercancias.PesoBrutoTotal.ToDecimal - ComCartaPorte.Mercancias.PesoNetoTotal = Carta.Mercancias.PesoNetoTotal.ToDecimal - ComCartaPorte.Mercancias.NumTotalMercancias = Carta.Mercancias.NumTotalMercancias - ComCartaPorte.Mercancias.CargoPorTasacion = Carta.Mercancias.CargoporTasacion.ToDecimal - ' ComCartaPorte.Mercancias.UnidadPeso = Carta.Mercancias.UnidadPeso + ' + If Carta.FiguraTransporte IsNot Nothing Then - If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then + If Carta.FiguraTransporte.AutoTransporteFederal IsNot Nothing Then + ComCartaPorte.FiguraTransporte = New ProfactCartaPorte.CartaPorteFiguraTransporte + + ComCartaPorte.FiguraTransporte.CveTransporte = ProfactCartaPorte.c_CveTransporte.Item02 + ComCartaPorte.Mercancias.AutotransporteFederal = New ProfactCartaPorte.CartaPorteMercanciasAutotransporteFederal + If Carta.FiguraTransporte.AutoTransporteFederal.PermSCT <> "" Then + ComCartaPorte.Mercancias.AutotransporteFederal.PermSCT = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoPermiso), Carta.FiguraTransporte.AutoTransporteFederal.PermSCT), ProfactCartaPorte.c_TipoPermiso) + End If + ComCartaPorte.Mercancias.AutotransporteFederal.NumPermisoSCT = Carta.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT + ComCartaPorte.Mercancias.AutotransporteFederal.NombreAseg = Carta.FiguraTransporte.AutoTransporteFederal.NombreAseg + ComCartaPorte.Mercancias.AutotransporteFederal.NumPolizaSeguro = Carta.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro + + Dim ConfigVehicular As New ProfactCartaPorte.CartaPorteMercanciasAutotransporteFederalIdentificacionVehicular + ConfigVehicular.ConfigVehicular = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ConfigAutotransporte), Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular), ProfactCartaPorte.c_ConfigAutotransporte) + ConfigVehicular.AnioModeloVM = Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM + ConfigVehicular.PlacaVM = Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM + + ComCartaPorte.Mercancias.AutotransporteFederal.IdentificacionVehicular = ConfigVehicular + + If Carta.FiguraTransporte.AutoTransporteFederal.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporteFederal.Remolques.Count > 0 Then Dim i As Integer = 0 - ComCartaPorte.Mercancias.Mercancia = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercanciasMercancia(Carta.Mercancias.Mercancias.Count - 1) {} - For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias - ComCartaPorte.Mercancias.Mercancia(i) = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercanciasMercancia - ComCartaPorte.Mercancias.Mercancia(i).BienesTranspSpecified = False - ComCartaPorte.Mercancias.Mercancia(i).ClaveSTCCSpecified = False - ComCartaPorte.Mercancias.Mercancia(i).Descripcion = concep.Descripción - ComCartaPorte.Mercancias.Mercancia(i).Cantidad = concep.Cantidad - ComCartaPorte.Mercancias.Mercancia(i).ClaveUnidadSpecified = False - ComCartaPorte.Mercancias.Mercancia(i).Unidad = concep.Unidad - ComCartaPorte.Mercancias.Mercancia(i).Dimensiones = concep.Dimensiones - ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligrosoSpecified = False - ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = False - ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = False - ComCartaPorte.Mercancias.Mercancia(i).DescripEmbalaje = concep.DescripEmbalaje - ComCartaPorte.Mercancias.Mercancia(i).PesoEnKg = concep.PesoenKg - ComCartaPorte.Mercancias.Mercancia(i).ValorMercanciaSpecified = False - ComCartaPorte.Mercancias.Mercancia(i).MonedaSpecified = False - ComCartaPorte.Mercancias.Mercancia(i).FraccionArancelariaSpecified = False - ComCartaPorte.Mercancias.Mercancia(i).UUIDComercioExt = concep.UUIDComercioExt - - 'cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, concep.Embalaje, concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) + ComCartaPorte.Mercancias.AutotransporteFederal.Remolques = New ProfactCartaPorte.CartaPorteMercanciasAutotransporteFederalRemolque(Carta.FiguraTransporte.AutoTransporteFederal.Remolques.Count - 1) {} + For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporteFederal.Remolques + ComCartaPorte.Mercancias.AutotransporteFederal.Remolques(i) = New ProfactCartaPorte.CartaPorteMercanciasAutotransporteFederalRemolque + ComCartaPorte.Mercancias.AutotransporteFederal.Remolques(i).SubTipoRem = CType([Enum].Parse(GetType(ProfactCartaPorte.c_SubTipoRem), concep.SubTipoRemolque), ProfactCartaPorte.c_SubTipoRem) + ComCartaPorte.Mercancias.AutotransporteFederal.Remolques(i).Placa = concep.Placa + i += 1 Next + ' End If End If - ' - If Carta.FiguraTransporte IsNot Nothing Then + If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then + Dim i As Integer = 0 + ComCartaPorte.FiguraTransporte.Operadores = New ProfactCartaPorte.CartaPorteFiguraTransporteOperadoresOperador(Carta.FiguraTransporte.Operadores.Count - 1) {} + For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores + ComCartaPorte.FiguraTransporte.Operadores(i) = New ProfactCartaPorte.CartaPorteFiguraTransporteOperadoresOperador + ComCartaPorte.FiguraTransporte.Operadores(i).RFCOperador = concep.RFCOperador + ComCartaPorte.FiguraTransporte.Operadores(i).NumLicencia = concep.NumLicencia + ComCartaPorte.FiguraTransporte.Operadores(i).NombreOperador = concep.NombreOperador + ComCartaPorte.FiguraTransporte.Operadores(i).NumRegIdTribOperador = concep.NumRegidTribOperador + 'OComCartaPorte.FiguraTransporte.Operadores(i)(0) = concep.ResidenciaFiscalOperador 'falta - If Carta.FiguraTransporte.AutoTransporteFederal IsNot Nothing Then - ComCartaPorte.FiguraTransporte = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporte - - ComCartaPorte.FiguraTransporte.CveTransporte = Profact.TimbraCFDI33.Complementos.CartaPorte10.c_CveTransporte.Item02 - 'ComCartaPorte.FiguraTransporte.CveTransporte. - - 'cfdi.CartaPorteAutotransporteFederal(Carta.FiguraTransporte.AutoTransporteFederal.PermSCT, Carta.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT, Carta.FiguraTransporte.AutoTransporteFederal.NombreAseg, Carta.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro) - - 'cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM) - - 'If Carta.FiguraTransporte.AutoTransporteFederal.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporteFederal.Remolques.Count > 0 Then - 'For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporteFederal.Remolques - 'cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa) - ' Next - ' - 'End If - End If + ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio = New ProfactCartaPorte.CartaPorteFiguraTransporteOperadoresOperadorDomicilio() + ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.Calle = concep.Domicilio.Calle + ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.CodigoPostal = "25350" 'concep.Domicilio.CP + ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.Colonia = "0347" + ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.Estado = "COA" + ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.Localidad = "23" + ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.Municipio = "004" + ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.NumeroExterior = "728" + ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.Pais = ProfactCartaPorte.c_Pais.MEX - 'If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then - ' Dim i As Integer = 0 - ' ComCartaPorte.FiguraTransporte.Operadores = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporteOperadoresOperador(Carta.FiguraTransporte.Operadores.Count - 1)() {} - ' For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores - ' Dim Oper = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporteOperadoresOperador() - ' Oper.RFCOperador = concep.RFCOperador - ' Oper.NumLicencia = concep.NumLicencia - ' Oper.NombreOperador = concep.NombreOperador - ' Oper.NumRegIdTribOperador = concep.NumRegidTribOperador - ' 'Oper.ResidenciaFiscalOperador = concep.ResidenciaFiscalOperador - ' ComCartaPorte.FiguraTransporte.Operadores - ' 'cfdi.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador) - ' Next - 'End If - + i += 1 + Next End If End If + Dim nsComp As New System.Xml.Serialization.XmlSerializerNamespaces() + nsComp.Add("CartaPorte", "http://www.sat.gob.mx/CartaPorte") + Dim xmlComp As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(ComCartaPorte, GetType(ProfactCartaPorte.CartaPorte), nsComp) + Dim docComp As New XmlDocument() + docComp.LoadXml(xmlComp) + comprobante.CartaPorteSpecified = True + LXmlComplementos.Add(docComp.DocumentElement) + TieneComplemento = True + End If #End Region -#Region "Nomina12" +#Region " Nomina12" If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then Dim Nom = New Profact.TimbraCFDI33.Complementos.Nomina12.Nomina() 'cfdi.Esquema.AgregarEsquema("http://www.sat.gob.mx/nomina12 http://www.sat.gob.mx/sitio_internet/cfd/nomina/nomina12.xsd") diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index f0d380118..791107d73 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -299,19 +299,22 @@ Namespace Extensiones #Region "Alertas y notificaciones" - Public Enum TipoMensaje As Integer + Public Enum TipoMensaje As Integer + MsgError = 1 MsgInformacion = 2 MsgConfirmacion = 3 MsgAdvertencia = 4 + MsgVentasDosBotones = 9 ToastInformacion = 5 'succes ToastInformacionB = 6 'info ToastError = 7 'error ToastAdventencia = 8 'Warning + End Enum - Public Sub Alert(Obj As Object, Mensaje As String, pOpcion As TipoMensaje, Optional JSBtnAceptar As String = "", Optional TextoConfirmacion As String = "Aceptar", Optional TextoCancelacion As String = "Cancelar", Optional TimeoutToast As Integer = 5, Optional ShowCloseButton As Boolean = True) + Public Sub Alert(Obj As Object, Mensaje As String, pOpcion As TipoMensaje, Optional JSBtnAceptar As String = "", Optional TextoConfirmacion As String = "Aceptar", Optional TextoCancelacion As String = "Cancelar", Optional TimeoutToast As Integer = 5, Optional ShowCloseButton As Boolean = True, Optional TextoSegundoBoton As String = "", Optional JSBtn2 As String = "") If System.Web.HttpContext.Current IsNot Nothing AndAlso System.Web.HttpContext.Current.Handler IsNot Nothing AndAlso System.Web.HttpContext.Current.Handler.GetType().IsSubclassOf(GetType(Page)) Then Dim Titulo As String = "" @@ -350,7 +353,21 @@ Namespace Extensiones b2clas = "red" b2js = "" onEscape = "" - headerclas = " header-blue " + headerclas = " header-blue " + + Case TipoMensaje.MsgVentasDosBotones + Titulo = " Información" + b1title = TextoConfirmacion + b1clas = "green" + b1js = JSBtnAceptar + onEscape = "" + + b2title = TextoSegundoBoton + b2clas = "blue" + b2js = JSBtn2 + onEscape = "" + headerclas = " header-green " + Case TipoMensaje.MsgAdvertencia Titulo = " Advertencia" b1title = "Aceptar" diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 5f30eea0e..fdc3a076d 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -595,8 +595,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If DtRetorno = dt.FiltraParametros(String.Format("NombreComercial like '%{0}%' OR Nombre like '%{0}%' ", Name)) + dt.Dispose() End If - dt.Dispose() + End If If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then @@ -617,6 +618,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState context.Response.Write("[]") End If DtRetorno.Dispose() + DtRetorno = Nothing Return retorno End Function @@ -671,10 +673,11 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState retorno = JsonConvert.SerializeObject(DtRetorno).ToString context.Response.Write(retorno) DtRetorno.Dispose() + DtRetorno = Nothing Else context.Response.Write("[]") End If - DtRetorno.Dispose() + Return retorno End Function #End Region @@ -946,6 +949,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString context.Response.Write(retorno) DtPSRetorno.Dispose() + DtPSRetorno = Nothing Else context.Response.Write("[]") End If diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index f6da1e75a..0fb132ef3 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ diff --git a/Bin/Profact.TimbraCFDI.dll b/Bin/Profact.TimbraCFDI.dll index 5acf6f2f6..32a95ef3a 100644 Binary files a/Bin/Profact.TimbraCFDI.dll and b/Bin/Profact.TimbraCFDI.dll differ diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index 14b65061a..d411c482a 100644 --- a/CRM/EmpresaCRM.aspx.cs +++ b/CRM/EmpresaCRM.aspx.cs @@ -1515,15 +1515,26 @@ public partial class CRM_EmpresaCRM : ClsPaginas LnkAgregarAcercamiento.Visible = false; } - if ((UsuarioActual.CveVendedor != CveVendedor)) + + if (!UsuarioActual.TienePermisoProceso(330)) { - BtnGuardarEmpresa.Visible = false; - BtnEliminarEmpresa.Visible = false; - BtnAgregarContacto.Visible = false; - //LnkAgregarAcercamiento.Visible = false; - DivAccionesBitacora.Visible = false; - GVContactos.Columns[4].Visible = false; + if ((UsuarioActual.CveVendedor != CveVendedor)) + { + BtnGuardarEmpresa.Visible = false; + BtnEliminarEmpresa.Visible = false; + BtnAgregarContacto.Visible = false; + //LnkAgregarAcercamiento.Visible = false; + DivAccionesBitacora.Visible = false; + GVContactos.Columns[4].Visible = false; + } } + + + + + + + } } #endregion diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 27585e0ea..7a895576b 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2358,16 +2358,16 @@ Partial Class Compras_Compras CveTipoPS = PSS.Rows(0)("CveTipoPS").ToString.ToEntero End If - Dim Cantidad As Double = 1 + Dim Cantidad As Decimal = 1 Dim CveSubProyectoContrato As String = "-1" Dim CveProyecto As String = "-1" Dim SubProyecto As String = "SE" Dim Proyecto As String = "SE" Dim Obs As String = "" - Dim PU As Double = IEPS - Dim Total As Double = Cantidad * PU - Dim IVA As Double = 0 - Dim Descuento As Double = 0 + Dim PU As Decimal = IEPS + Dim Total As Decimal = Cantidad * PU + Dim IVA As Decimal = 0 + Dim Descuento As Decimal = 0 If PSS2.Rows.Count > 0 Then CveUM = PSS2.Rows(0)("CveUM").ToString.ToEntero @@ -3539,7 +3539,7 @@ Partial Class Compras_Compras Dim Total As Decimal = 0 Dim PU As Decimal = 0 - Dim Descuento As Double = 0 + Dim Descuento As Decimal = 0 Dim CveUM As Integer = 0 Dim UMM As String = "No Aplica" Dim tCvePS As Integer = 0 @@ -3551,14 +3551,14 @@ Partial Class Compras_Compras Dim PSS As String = "" Dim Obs As String = "" Dim SubTotalTemp = 0.0D - Dim IVA As Double = 0 - Dim IEPS As Double = 0 - Dim RetISR As Double = 0 - Dim RetIVA As Double = 0 - Dim PorcentajeIVA As Double = 0 - Dim PorcentajeIEPS As Double = 0 - Dim PorcentajeRetISR As Double = 0 - Dim PorcentajeRetIVA As Double = 0 + Dim IVA As Decimal = 0 + Dim IEPS As Decimal = 0 + Dim RetISR As Decimal = 0 + Dim RetIVA As Decimal = 0 + Dim PorcentajeIVA As Decimal = 0 + Dim PorcentajeIEPS As Decimal = 0 + Dim PorcentajeRetISR As Decimal = 0 + Dim PorcentajeRetIVA As Decimal = 0 Dim DtTemporalGuardados = New DataTable DtTemporalGuardados.Columns.Add("Contador", GetType(Integer)) DtTemporalGuardados.Columns.Add("Tipo", GetType(Integer)) @@ -3622,7 +3622,7 @@ Partial Class Compras_Compras If ValorXML(node, "cantidad").ToDecimal > 0 AndAlso ValorXML(node, "valorUnitario").ToDecimal >= (ValorXML(node, "importe").ToDecimal / ValorXML(node, "cantidad").ToDecimal) Then PU = ValorXML(node, "importe").ToDecimal / ValorXML(node, "cantidad").ToDecimal End If - If ValorXML(node, "cantidad").ToDecimal > 0 AndAlso ValorXML(node, "valorUnitario").ToDouble <= 0 And ValorXML(node, "importe").ToDouble > 0 Then + If ValorXML(node, "cantidad").ToDecimal > 0 AndAlso ValorXML(node, "valorUnitario").ToDecimal <= 0 And ValorXML(node, "importe").ToDecimal > 0 Then PU = ValorXML(node, "importe").ToDecimal / ValorXML(node, "cantidad").ToDecimal End If @@ -3630,7 +3630,7 @@ Partial Class Compras_Compras 'OBTIENE DESCUENTO - If ValorXML(node, "descuento") IsNot Nothing Then Descuento = ValorXML(node, "descuento").Trim.ToDouble + If ValorXML(node, "descuento") IsNot Nothing Then Descuento = ValorXML(node, "descuento").Trim.ToDecimal 'OBTIENE TOTAL If ValorXML(node, "importe") IsNot Nothing Then Total = ValorXML(node, "importe").Trim.ToDecimal @@ -3820,7 +3820,7 @@ Partial Class Compras_Compras '' AGREGA PS 'AGREGA A TMPDT - AddPS(ValorXML(node, "cantidad").ToDouble, CveUM, UMM, tCveClasif, Clasif, tCvePS, PSS, TipoPS, "-1", "SE", "SE", "-1", Obs, PU, Total, IVA, RetIVA, RetISR, IEPS, 0, Descuento, PSCodigo:=tPSCodigo, TCalculaTotales:=False, CveSATPS:=ValorXML(node, "ClaveProdServ").ToEntero(), CargaXml:=True, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, PorcentajeRetISR:=PorcentajeRetISR, PorcentajeIEPS:=PorcentajeIEPS) + AddPS(ValorXML(node, "cantidad").ToDecimal, CveUM, UMM, tCveClasif, Clasif, tCvePS, PSS, TipoPS, "-1", "SE", "SE", "-1", Obs, PU, Total, IVA, RetIVA, RetISR, IEPS, 0, Descuento, PSCodigo:=tPSCodigo, TCalculaTotales:=False, CveSATPS:=ValorXML(node, "ClaveProdServ").ToEntero(), CargaXml:=True, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, PorcentajeRetISR:=PorcentajeRetISR, PorcentajeIEPS:=PorcentajeIEPS) @@ -5117,13 +5117,13 @@ Partial Class Compras_Compras 'AGREGA COMPRA DETALLE If Not ObjCompras.AddCompraDetalle(CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF, - Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, Row("IVA").ToString.ToDouble, Row("Total").ToString.ToDouble, Row("Descuento").ToString.ToDouble, + Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal, Row("IVA").ToString.ToDecimal, Row("Total").ToString.ToDecimal, Row("Descuento").ToString.ToDecimal, Row("Obs").ToString, Row("CveOrdenCompraDetalle").ToString.ToEntero, TipoRecepcion, Row("CveContrato").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero, AplicaCostoIndirecto:=Row("AplicaCostoIndirecto").ToString.ToEntero, EstatusAlmacen:=Row("EntregaDirecta").ToString.ToEntero, CvePersonal:=CvePersonal, CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal, - RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble.RoundSQL, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble, - IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble, - IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False), + RetIVA:=Row("RetIVA").ToString.ToDecimal, RetISR:=Row("RetISR").ToString.ToDecimal, IEPSPS:=Row("IEPSPS").ToString.ToDecimal.RoundSQL, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDecimal, + IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal, + IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False), CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero) Then ErrorDetalles = True @@ -10258,13 +10258,13 @@ Partial Class Compras_Compras End If If Not ObjCompra.AddCompraDetalle(CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF, - Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, Row("IVA").ToString.ToDouble, Row("Total").ToString.ToDouble, Row("Descuento").ToString.ToDouble, + Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal, Row("IVA").ToString.ToDecimal, Row("Total").ToString.ToDecimal, Row("Descuento").ToString.ToDecimal, Row("Obs").ToString, Row("CveOrdenCompraDetalle").ToString.ToEntero, TipoRecepcion, Row("CveContrato").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero, AplicaCostoIndirecto:=Row("AplicaCostoIndirecto").ToString.ToEntero, EstatusAlmacen:=Row("EntregaDirecta").ToString.ToEntero, CvePersonal:=CvePersonal, CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal, - RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble.RoundSQL, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble, - IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble, - IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False), + RetIVA:=Row("RetIVA").ToString.ToDecimal, RetISR:=Row("RetISR").ToString.ToDecimal, IEPSPS:=Row("IEPSPS").ToString.ToDecimal.RoundSQL, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDecimal, + IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal, + IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False), CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero) Then Retorno = False @@ -15111,22 +15111,22 @@ Partial Class Compras_Compras Dim CveTipoPS As Integer = dr("CveTipoPS").ToString.ToEntero Dim Proyecto As String = dr("Proyecto").ToString Dim Obs As String = dr("Obs").ToString - Dim PU As Double = dr("PU").ToString.ToDouble - Dim IVA As Double = dr("IVA").ToString.ToDouble - Dim RetIVA As Double = dr("RetIVA").ToString.ToDouble - Dim RetISR As Double = dr("RetISR").ToString.ToDouble - Dim IEPSPS As Double = dr("IEPSPSPorcentaje").ToString.ToDouble - Dim IEPSPSIVA As Double = If(dr("IEPSGrabaIVA").ToString = "True", dr("IEPSPorcentaje").ToString.ToDouble, 0) - Dim Descuento As Double = dr("Descuento").ToString.ToDouble + Dim PU As Decimal = dr("PU").ToString.ToDecimal + Dim IVA As Decimal = dr("IVA").ToString.ToDecimal + Dim RetIVA As Decimal = dr("RetIVA").ToString.ToDecimal + Dim RetISR As Decimal = dr("RetISR").ToString.ToDecimal + Dim IEPSPS As Decimal = dr("IEPSPSPorcentaje").ToString.ToDecimal + Dim IEPSPSIVA As Decimal = If(dr("IEPSGrabaIVA").ToString = "True", dr("IEPSPorcentaje").ToString.ToDecimal, 0) + Dim Descuento As Decimal = dr("Descuento").ToString.ToDecimal Dim CveOrdenCompraDetalle As Integer = dr("CveOrdenCompraDetalle").ToString.ToEntero For Each cadena As String In porcentajes Dim valores As String() = cadena.Split(New Char() {","c}) - Dim Cantidad As Double = dr("Cantidad").ToString.ToDouble * (valores(1).ToDouble / 100) + Dim Cantidad As Decimal = dr("Cantidad").ToString.ToDecimal * (valores(1).ToDecimal / 100) Dim CveSubProyectoContrato As String = valores(0) Dim CveProyecto As String = valores(0) - Dim Total As Double = Cantidad * PU + Dim Total As Decimal = Cantidad * PU Dim drT As DataRow = GBSP.FiltroPrimero(String.Format("CveSubProyecto = {0} ", CveSubProyectoContrato)) Dim drq As DataRow = GBSP.FiltroPrimero(String.Format("CveProyecto = {0} ", CveProyecto)) Dim SubProyecto As String = drT("SubProyecto").ToString @@ -15414,14 +15414,14 @@ Partial Class Compras_Compras DivTipoCambioOC.Visible = False End If - DTOCTemp.Columns.Add("PUTC", GetType(Double)) - DTOCTemp.Columns.Add("TotalTC", GetType(Double)) - DTOCTemp.Columns.Add("DescuentoTC", GetType(Double)) - DTOCTemp.Columns.Add("IVATC", GetType(Double)) - DTOCTemp.Columns.Add("IEPSPSTC", GetType(Double)) - DTOCTemp.Columns.Add("IEPSPSIVATC", GetType(Double)) - DTOCTemp.Columns.Add("RetIVATC", GetType(Double)) - DTOCTemp.Columns.Add("RetISRTC", GetType(Double)) + DTOCTemp.Columns.Add("PUTC", GetType(Decimal)) + DTOCTemp.Columns.Add("TotalTC", GetType(Decimal)) + DTOCTemp.Columns.Add("DescuentoTC", GetType(Decimal)) + DTOCTemp.Columns.Add("IVATC", GetType(Decimal)) + DTOCTemp.Columns.Add("IEPSPSTC", GetType(Decimal)) + DTOCTemp.Columns.Add("IEPSPSIVATC", GetType(Decimal)) + DTOCTemp.Columns.Add("RetIVATC", GetType(Decimal)) + DTOCTemp.Columns.Add("RetISRTC", GetType(Decimal)) DTOCTemp.Columns.Add("FolioAlmacen", GetType(String)) For Each Dr As DataRow In DTOCTemp.Rows Dr("PUTC") = Dr("Importe") @@ -15855,11 +15855,11 @@ Partial Class Compras_Compras 'Dim IEPSPS As Double = gvr.FCHiddenField("HdnOC1IEPSImporte").Value.ToDecimal 'Dim IEPSPSIVA As Double = gvr.FCHiddenField("HdnOC1IEPSIVA").Value.ToDecimal Dim IVA As Decimal = dr("IVAPorcentaje").ToString.ToDecimal - Dim RetIVA As Double = dr("RetIVAPorcentaje").ToString.ToDecimal - Dim RetISR As Double = dr("RetISRPorcentaje").ToString.ToDecimal - Dim IEPSPS As Double = dr("IEPSPSPorcentaje").ToString.ToDecimal - Dim IEPSPSIVA As Double = dr("IEPSPSIVAPorcentaje").ToString.ToDecimal - Dim Descuento As Double = If(TieneAmortizacion, TxtDescuento.Text.ToDouble / TotalRows, gvr.FCHiddenField("HdnOC1Descuento").Value.ToDecimal) + Dim RetIVA As Decimal = dr("RetIVAPorcentaje").ToString.ToDecimal + Dim RetISR As Decimal = dr("RetISRPorcentaje").ToString.ToDecimal + Dim IEPSPS As Decimal = dr("IEPSPSPorcentaje").ToString.ToDecimal + Dim IEPSPSIVA As Decimal = dr("IEPSPSIVAPorcentaje").ToString.ToDecimal + Dim Descuento As Decimal = If(TieneAmortizacion, TxtDescuento.Text.ToDecimal / TotalRows, gvr.FCHiddenField("HdnOC1Descuento").Value.ToDecimal) 'Dim Descuento As Double = gvr.FCHiddenField("HdnOC1Descuento").Value.ToDecimal Dim CveOrdenCompraDetalle As Integer = dr("CveOrdenCompraDetalle").ToString.ToEntero Dim EntregaDirecta As Integer = dr("EntregaDirecta").ToString.ToEntero @@ -16037,7 +16037,7 @@ Partial Class Compras_Compras OCVinculada = True UpPSS.Update() - AsignaValoresOriginales(TxtSubTotal.Text.ToDouble, TxtSubTotal2.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtTotal.Text.ToDouble) + AsignaValoresOriginales(TxtSubTotal.Text.ToDecimal, TxtSubTotal2.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal, TxtRetISR.Text.ToDecimal, TxtTotal.Text.ToDecimal) CargaGvInv() @@ -16122,11 +16122,11 @@ Partial Class Compras_Compras Dim Total As Decimal = gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal Dim IVA As Decimal = dr("IVAPorcentaje").ToString.ToDecimal - Dim RetIVA As Double = dr("RetIVAPorcentaje").ToString.ToDecimal - Dim RetISR As Double = dr("RetISRPorcentaje").ToString.ToDecimal - Dim IEPSPS As Double = dr("IEPSPSPorcentaje").ToString.ToDecimal - Dim IEPSPSIVA As Double = dr("IEPSPSIVAPorcentaje").ToString.ToDecimal - Dim Descuento As Double = gvr.FCHiddenField("HdnOC1Descuento").Value.ToDecimal + Dim RetIVA As Decimal = dr("RetIVAPorcentaje").ToString.ToDecimal + Dim RetISR As Decimal = dr("RetISRPorcentaje").ToString.ToDecimal + Dim IEPSPS As Decimal = dr("IEPSPSPorcentaje").ToString.ToDecimal + Dim IEPSPSIVA As Decimal = dr("IEPSPSIVAPorcentaje").ToString.ToDecimal + Dim Descuento As Decimal = gvr.FCHiddenField("HdnOC1Descuento").Value.ToDecimal Dim CveOrdenCompraDetalle As Integer = dr("CveOrdenCompraDetalle").ToString.ToEntero Dim EntregaDirecta As Integer = dr("EntregaDirecta").ToString.ToEntero Dim CveSATPS As Integer = gvr.FCDropDownLost("DdlSATPS").SelectedValue.ToEntero @@ -16211,7 +16211,7 @@ Partial Class Compras_Compras CargaVinculacionOC() End Sub Protected Sub BtnDividirCompra_Click(sender As Object, e As EventArgs) - Dim Cantidad = CType(CType(sender, Button).NamingContainer, GridViewRow).FCTextBox("TxtDividir").Text.ToDouble + Dim Cantidad = CType(CType(sender, Button).NamingContainer, GridViewRow).FCTextBox("TxtDividir").Text.ToDecimal If Cantidad < 0.1 Then Exit Sub @@ -16222,10 +16222,10 @@ Partial Class Compras_Compras drNuevo.ItemArray = dr.ItemArray drNuevo("Cantidad") = Cantidad - drNuevo("Total") = drNuevo("Cantidad").ToString.ToEntero * drNuevo("PU").ToString.ToDouble + drNuevo("Total") = drNuevo("Cantidad").ToString.ToEntero * drNuevo("PU").ToString.ToDecimal dr("Cantidad") = dr("Cantidad").ToString.ToEntero - Cantidad - dr("Total") = dr("Cantidad").ToString.ToEntero * dr("PU").ToString.ToDouble + dr("Total") = dr("Cantidad").ToString.ToEntero * dr("PU").ToString.ToDecimal TmpDT.Rows.InsertAt(drNuevo, CType(CType(sender, Button).NamingContainer, GridViewRow).RowIndex) @@ -18173,15 +18173,15 @@ Partial Class Compras_Compras If PSRow IsNot Nothing Then SATClavePS = PSRow("SATClavePS").ToString.ToEntero End If - Dim IVA As Double + Dim IVA As Decimal If chkImportacion.Checked Then - IVA = (txtImportacion.Text.Trim.ToDouble / (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.Trim.ToDouble)) + IVA = (txtImportacion.Text.Trim.ToDecimal / (TxtCantidad.Text.Trim.ToDecimal * TxtPrecio.Text.Trim.ToDecimal)) Else - IVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) + IVA = Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2) End If - AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero, - DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, IVA, - TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text, + AddPS(TxtCantidad.Text.Trim.ToDecimal, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero, + DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDecimal, Total, IVA, + TxtRetIVAModal.Text.ToDecimal / 100, TxtRetISRModal.Text.ToDecimal / 100, TxtIEPSModal.Text.ToDecimal / 100, 0, TxtDescuentoModal.Text.ToDecimal, OtrosGastos:=TxtOtrosGastos.Text.ToDecimal, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text, NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS, CveContratoDetalle:=CveContratoDetalle) AddPS2() @@ -18218,11 +18218,11 @@ Partial Class Compras_Compras ''' Regresa el INDEX del row que acaba de agregar en el TMPDT ''' ''' - Private Function AddPS(Cantidad As Double, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, CveTipoPS As Integer, CveSubProyectoContrato As String, SubProyecto As String, Proyecto As String, CveProyecto As String, - Obs As String, PU As Double, Total As Double, IVA As Double, RetIVA As Double, RetISR As Double, IEPSPS As Double, IEPSPSIVA As Double, Descuento As Double, Optional CveOrdenCompraDetalle As Integer = -1, Optional TCalculaTotales As Boolean = True, - Optional PSCodigo As String = "-", Optional PSDescripcion As String = "-", Optional CantidadF As Double = -1, Optional EntregaDirecta As Integer = -1, Optional OtrosGastos As Double = 0, - Optional CveSATPS As Integer = -1, Optional CargaXml As Boolean = False, Optional CveTipoGasto As Integer = -1, Optional TipoGasto As String = "", Optional PorcentajeIVA As Double = 0, - Optional PorcentajeIEPS As Double = 0, Optional PorcentajeRetIVA As Double = 0, Optional PorcentajeRetISR As Double = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1, Optional CveSATPSActualizado As Boolean = False) As Integer + Private Function AddPS(Cantidad As Decimal, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, CveTipoPS As Integer, CveSubProyectoContrato As String, SubProyecto As String, Proyecto As String, CveProyecto As String, + Obs As String, PU As Decimal, Total As Decimal, IVA As Decimal, RetIVA As Decimal, RetISR As Decimal, IEPSPS As Decimal, IEPSPSIVA As Decimal, Descuento As Decimal, Optional CveOrdenCompraDetalle As Integer = -1, Optional TCalculaTotales As Boolean = True, + Optional PSCodigo As String = "-", Optional PSDescripcion As String = "-", Optional CantidadF As Double = -1, Optional EntregaDirecta As Integer = -1, Optional OtrosGastos As Decimal = 0, + Optional CveSATPS As Integer = -1, Optional CargaXml As Boolean = False, Optional CveTipoGasto As Integer = -1, Optional TipoGasto As String = "", Optional PorcentajeIVA As Decimal = 0, + Optional PorcentajeIEPS As Decimal = 0, Optional PorcentajeRetIVA As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1, Optional CveSATPSActualizado As Boolean = False) As Integer Dim Row As DataRow = Nothing @@ -18329,17 +18329,17 @@ Partial Class Compras_Compras Row("IEPSPSPorcentaje") = PorcentajeIEPS Else 'If DdlIVA.SelectedValue.ToDouble = 0 Then Row("IVA") = 0 Else Row("IVA") = Math.Round(IVA * Total, DecimalesPermitidos) - Row("IVA") = Math.Round(IVA * Total, 2) + Row("IVA") = (IVA * Total).RoundSQL Row("IVAPorcentaje") = IVA - Row("RetIVA") = Math.Round(RetIVA * Total, 2) + Row("RetIVA") = (RetIVA * Total).RoundSQL Row("RetIVAPorcentaje") = RetIVA - Row("RetISR") = Math.Round(RetISR * Total, 2) + Row("RetISR") = (RetISR * Total).RoundSQL Row("RetISRPorcentaje") = RetISR - Row("IEPSPS") = Math.Round(IEPSPS * Total, 2) + Row("IEPSPS") = (IEPSPS * Total).RoundSQL Row("IEPSPSPorcentaje") = IEPSPS End If - Row("ImporteConImpuestos") = (Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble) + Row("IVA").ToString.ToDouble + Row("IEPSPS").ToString.ToDouble - (Row("RetIVA").ToString.ToDouble + Row("RetISR").ToString.ToDouble) - Row("ImporteSinImpuestos") = Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble + Row("ImporteConImpuestos") = (Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal) + Row("IVA").ToString.ToDecimal + Row("IEPSPS").ToString.ToDecimal - (Row("RetIVA").ToString.ToDecimal + Row("RetISR").ToString.ToDecimal) + Row("ImporteSinImpuestos") = Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal Row("IEPSPSIVA") = Math.Round(IEPSPSIVA * Total, DecimalesPermitidos) Row("IEPSPSIVAPorcentaje") = IEPSPSIVA @@ -18480,23 +18480,23 @@ Partial Class Compras_Compras 'IMPUESTOS: SI ES COMPRA, FACUTRA O CON OC, NO MODIFICA IMPUESTOS!! 'Dim IVA = (TxtIVAModal.Text.ToDouble / 100) - Dim IVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) - Dim RetISR = (TxtRetISRModal.Text.ToDouble / 100) - Dim RetIVA = (TxtRetIVAModal.Text.ToDouble / 100) - Dim IEPSPS = (TxtIEPSModal.Text.ToDouble / 100) + Dim IVA = Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2) + Dim RetISR = (TxtRetISRModal.Text.ToDecimal / 100) + Dim RetIVA = (TxtRetIVAModal.Text.ToDecimal / 100) + Dim IEPSPS = (TxtIEPSModal.Text.ToDecimal / 100) Dim IEPSPSIVA = 0 'I f Not (CveCompra > 0 Or CveFactura > 0 Or OCVinculada) Then 'If DdlIVA.SelectedValue.ToDouble = 0 Then DrPS("IVA") = 0 Else DrPS("IVA") = IVA * Total - DrPS("IVA") = IVA * Total + DrPS("IVA") = (IVA * Total).RoundSQL DrPS("IVAPorcentaje") = IVA - DrPS("RetIVA") = RetIVA * Total + DrPS("RetIVA") = (RetIVA * Total).RoundSQL DrPS("RetIVAPorcentaje") = RetIVA DrPS("RetISR") = RetISR * Total DrPS("RetISRPorcentaje") = RetISR - DrPS("IEPSPS") = IEPSPS * Total + DrPS("IEPSPS") = (IEPSPS * Total).RoundSQL DrPS("IEPSPSPorcentaje") = IEPSPS - DrPS("IEPSPSIVA") = IEPSPSIVA * Total + DrPS("IEPSPSIVA") = (IEPSPSIVA * Total).RoundSQL DrPS("IEPSPSIVAPorcentaje") = IEPSPSIVA @@ -20927,9 +20927,9 @@ Partial Class Compras_Compras Dim Proyecto As String = GvRow.DataKey("Proyecto") Dim CveProyecto As Integer = GvRow.DataKey("CveProyecto").ToEntero - Dim RetISR As Double = GvRow.DataKey("RetISR").ToString.ToDouble - Dim RetIVA As Double = GvRow.DataKey("RetIVA").ToString.ToDouble - Dim IvaPS As Double = GvRow.DataKey("IVA").ToString.ToDouble + Dim RetISR As Decimal = GvRow.DataKey("RetISR").ToString.ToDecimal + Dim RetIVA As Decimal = GvRow.DataKey("RetIVA").ToString.ToDecimal + Dim IvaPS As Decimal = GvRow.DataKey("IVA").ToString.ToDecimal If IvaPS = -1 Then IvaPS = PorcentajeIVA @@ -20940,8 +20940,8 @@ Partial Class Compras_Compras Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToString.ToEntero Dim Clasificacion As String = GvRow.DataKey("Clasificacion") - Dim IEPSPS As Double = GvRow.DataKey("IEPSPorcentaje").ToString.ToDouble - Dim IEPSPSIVA As Double = If(GvRow.DataKey("IEPSGrabaIVA").ToString = "True", IEPSPS, 0) + Dim IEPSPS As Decimal = GvRow.DataKey("IEPSPorcentaje").ToString.ToDecimal + Dim IEPSPSIVA As Decimal = If(GvRow.DataKey("IEPSGrabaIVA").ToString = "True", IEPSPS, 0) If Cantidad > 0 Then diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 2ce35856c..e304c226a 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -698,7 +698,7 @@ Partial Class PopUpVerFactura End If End If Dim dt As DataTable = Nothing - If ObjContratos.GetContratoGastos(CveContrato) Then + If ObjContratos.GetContratoGastos(CveContrato, UsuarioActual.CveEmpresa) Then dt = ObjContratos.DtResultados.FiltraParametros($"CveContratoGasto = {CveContratoGasto}") SumaGasto = ObjContratos.DtResultados.SUM("Importe", "CveContratoGasto IS NULL") End If diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 2954608e2..3bd8d405b 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -769,11 +769,13 @@ Partial Class Compras_eFacturas If ObjDatos.DtResultados.Rows.Count > 0 Then GvD.DataSource = ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'") '.AsEnumerable().Take(100).CopyToDataTable() DtPagos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'") - Else - GvD.DataSource = Nothing + 'Else + ' GvD.DataSource = Nothing End If End If - ObjDatos.Dispose() + + + LblRegistros.Text = String.Format("{0} Registros", ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'").Rows.Count.ToString("N0")) LblTotalPagos.Text = String.Format("{0} Pagos", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'").Rows.Count.ToString("N0")) @@ -781,6 +783,10 @@ Partial Class Compras_eFacturas If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then GvPagos.DataSource = DtPagos End If + + ObjDatos.Dispose() + + GvPagos.DataBind() UpPagos.Update() @@ -1117,6 +1123,8 @@ Partial Class Compras_eFacturas e.Row.Cells(2).Attributes.Add("data-order", e.Row.DBCampo("FechaFactura").ToDate.Ticks.ToString) + Dim RutaXML As String = String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML")) + If File.Exists(String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))) Then e.Row.FCLiteral("LtlXML").Text = String.Format("Ver", HttpUtility.UrlEncode(e.Row.DBCampo("RFCDe")), HttpUtility.UrlEncode(e.Row.DBCampo("XML"))) If e.Row.DBCampo("TipoComprobante") = "P" And e.Row.DBCampo("FueValidado") = "1" Then @@ -2916,7 +2924,7 @@ Partial Class Compras_eFacturas For Each dRow2 As DataRow In DTDocumentosRelacionados.Rows - If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper Then + If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper And drow("CveIE").ToString.ToEntero > 0 Then dRow2("CveCompra") = drow("CveCompra").ToString.ToEntero dRow2("CveFactura") = drow("CveFactura").ToString.ToEntero diff --git a/Contabilidad/RepIVA.aspx b/Contabilidad/RepIVA.aspx index 0a1cc36c0..648e85ef5 100644 --- a/Contabilidad/RepIVA.aspx +++ b/Contabilidad/RepIVA.aspx @@ -159,6 +159,7 @@ + @@ -234,6 +235,8 @@ + + diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index 419a93c51..3cbdd83d6 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -91,18 +91,13 @@
- - - - - - + diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index 747c43556..9818cb0fc 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -58,7 +58,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Dim ObjConta As New ClsContabilidad If ObjConta.GetConta_ConceptosContables() Then - DdlCconceptosContables.DataSource = ObjConta.DtResultados.FiltraParametros("EsCuentaUnica = false AND EsSistema = True ") + DdlCconceptosContables.DataSource = ObjConta.DtResultados.FiltraParametros("EsSistema = True ") DdlConceptoGlobal.DataSource = ObjConta.DtResultados.FiltraParametros("EsCuentaUnica = false AND EsSistema = True AND EsGlobal = True") End If diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index c3735a602..48783158d 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -786,7 +786,7 @@ Partial Class Contratos_ContratoObra LnkAbrirContrato.Visible = False LnkCerrarContrato.Visible = False - If UsuarioActual.TienePermisoProceso(330) Then + If UsuarioActual.TienePermisoProceso(173) Then If ObjContratos.TipoEstatus = 1 Then LnkCerrarContrato.Visible = True @@ -4313,6 +4313,7 @@ Partial Class Contratos_ContratoObra Else RGVControlCantidadVentas.Visible = True RGVControlCantidadVentas.MinimumValue = CantidadMinimo.ToString + RGVControlCantidadVentas.ErrorMessage = $"No se puede tener un valor inferior a {CantidadMinimo} lo ya avanzado. " End If diff --git a/Empresas/119/Formatos/RepIVA.rpt b/Empresas/119/Formatos/RepIVA.rpt index 3eaa52d77..a324e45bd 100644 Binary files a/Empresas/119/Formatos/RepIVA.rpt and b/Empresas/119/Formatos/RepIVA.rpt differ diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt index dbfcff44f..7ba21b50b 100644 Binary files a/Empresas/119/Formatos/RepIVAAcreditable.rpt and b/Empresas/119/Formatos/RepIVAAcreditable.rpt differ diff --git a/Empresas/153/Formatos/Cotizacion.rdlc b/Empresas/153/Formatos/Cotizacion.rdlc index 08c26e37d..2fb813f5d 100644 --- a/Empresas/153/Formatos/Cotizacion.rdlc +++ b/Empresas/153/Formatos/Cotizacion.rdlc @@ -1,5 +1,5 @@ - + 0 @@ -1870,21 +1870,6 @@ 2pt - - Embedded - LOGOSERVECENJPG - FitProportional - 0.91432cm - 0.19008cm - 1.23542cm - 3.86912cm - 16 - - - - @@ -1992,7 +1977,7 @@ 15.30755cm 0.48004cm 5.71104cm - 17 + 16 @@ -2032,7 +2017,7 @@ 0.28014cm 0.99655cm 20.74095cm - 18 + 17 @@ -2043,6 +2028,21 @@ 2pt + + Embedded + RFIRMAELECTRONICAEDITABLE + FitProportional + 0.31432cm + 0.24983cm + 1.73059cm + 3.63914cm + 18 + + + + 11.95796cm - - Embedded - LOGOSERVECENJPG - FitProportional - 0.91432cm - 0.19008cm - 1.23542cm - 3.86912cm - 16 - - - - @@ -1992,13 +1977,28 @@ 15.30755cm 0.48004cm 5.71104cm - 17 + 16 + + Embedded + RFIRMAELECTRONICAEDITABLE + FitProportional + 0.31432cm + 0.28014cm + 1.73059cm + 3.63914cm + 17 + + + + 10.69327cm - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1426,7 +1386,7 @@ 4.18454cm 2.70968cm 9.58983cm - 4 + 3 @@ -1506,7 +1466,7 @@ 13.77437cm 2.70968cm 4.34463cm - 5 + 4 @@ -1540,7 +1500,7 @@ 18.23008cm 0.96018cm 2.79101cm - 6 + 5 @@ -1576,7 +1536,7 @@ 18.23008cm 0.6cm 2.79101cm - 7 + 6 @@ -1627,7 +1587,7 @@ 18.23008cm 0.86903cm 2.79101cm - 8 + 7 @@ -1718,7 +1678,7 @@ 0.28014cm 1.09007cm 9.71199cm - 9 + 8 @@ -1798,7 +1758,7 @@ 10.06268cm 0.7927cm 9.71199cm - 10 + 9 @@ -1979,7 +1939,7 @@ 0.25136cm 0.74611cm 13.82025cm - 11 + 10 @@ -2012,7 +1972,7 @@ 14.07729cm 0.57354cm 2.90753cm - 12 + 11 @@ -2038,11 +1998,11 @@ Textbox5 - 7.78159cm + 8.98809cm 0.24983cm 0.05496cm 20.88652cm - 13 + 12 @@ -2096,7 +2056,7 @@ 17.09066cm 0.64028cm 3.90165cm - 14 + 13 @@ -2259,11 +2219,11 @@ Textbox4 - 7.9071cm + 9.1136cm 0.16383cm 2.44366cm 15.07903cm - 15 + 14 @@ -2289,11 +2249,11 @@ Textbox5 - 10.4566cm + 11.6631cm 0.10579cm 0.05496cm 20.88652cm - 16 + 15 @@ -2305,21 +2265,6 @@ 2pt - - Embedded - LOGOSERVECENJPG - FitProportional - 0.71282cm - 0.28014cm - 1.23542cm - 3.86912cm - 17 - - - - @@ -2423,19 +2368,165 @@ DataSet1 - 7.9071cm + 9.1136cm 15.31342cm 0.48004cm 5.71104cm - 18 + 16 + + true + true + true + + + + + Sucursal Matriz + + + + + + + + + + 0cm + 0cm + + + + + + CLABE: 0461464878 + + + + 0cm + 0cm + + + + + + Cuenta: 072 760 004 614 648 782 + + + + 0cm + 0cm + + + + Textbox1 + 7.01327cm + 0.25136cm + 1.8337cm + 9.18009cm + 17 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + RFIRMAELECTRONICAEDITABLE + FitProportional + 0.29405cm + 0.28014cm + 1.73059cm + 3.63914cm + 18 + + + + + + true + true + + + + + Cuenta Bancaria + + + + Textbox13 + 6.49293cm + 0.28014cm + 0.52035cm + 9.15131cm + 19 + + + 2pt + 2pt + 2pt + 2pt + + - 14.91814cm + 15.90769cm - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CLAVE - - - - - - - Textbox29 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - DESCRIPCIÓN - - - - - - - Textbox17 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - OBSERVACIÓN - - - - - - - Textbox46 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - P/U - - - - - - - Textbox23 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - DESC. - - - - - - - Textbox2 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - IMPORTE - - - - - - - Textbox1 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.19644in - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CodPS.Value - - - - - - - CodPS - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Producto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Obs.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descuento.Value - - - - - - - Descuento - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - - Total - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 0.04788in - 0.41372in - 8.15357in - - - - - - - - true - true - - - - - I.V.A. - - - - - - - Textbox20 - 1.87711cm - 15.76748cm - 0.45183cm - 2.5cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - TOTAL: - - - - - - - Textbox20 - 3.97642cm - 15.77277cm - 0.45183cm - 2.5cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!IVA.Value - - - - - - - Textbox20 - 1.87711cm - 18.26748cm - 0.45183cm - 2.4365cm - 2 - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - true - - - - - =Parameters!Total.Value - - - - - - - Textbox20 - 3.97642cm - 18.27277cm - 0.45183cm - 2.43121cm - 3 - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - true - - - - - SUB-TOTAL - - - - - - - Textbox20 - 0.40195cm - 15.76748cm - 0.45183cm - 2.5cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SubTotal.Value - - - - - - - Textbox20 - 0.40195cm - 18.26748cm - 0.45183cm - 2.4365cm - 5 - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - true - - - - - =UCase(Parameters!ImporteLetra.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Descripcion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Ret I.V.A - - - - - - - Textbox20 - 2.32894cm - 15.76669cm - 0.45183cm - 2.5cm - 11 - - =IIF(Parameters!RetIVA.Value > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!RetIVA.Value - - - - - - - Textbox20 - 2.32894cm - 18.26669cm - 0.45183cm - 2.4365cm - 12 - - =IIF(Parameters!RetIVA.Value > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - true - - - - - Ret I.S.R - - - - - - - Textbox20 - 2.78077cm - 15.76669cm - 0.45183cm - 2.5cm - 13 - - =IIF(Parameters!RetISR.Value > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!RetISR.Value - - - - - - - Textbox20 - 2.78077cm - 18.26669cm - 0.45183cm - 2.4365cm - 14 - - =IIF(Parameters!RetISR.Value > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - true - - - - - I.E.P.S - - - - - - - Textbox20 - 3.2326cm - 15.76669cm - 0.45183cm - 2.5cm - 15 - - =IIF(Sum(Fields!IEPS.Value, "DsOC") > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Sum(Fields!IEPS.Value, "DsOC") - - - - - - - Textbox20 - 3.2326cm - 18.26669cm - 0.45183cm - 2.4365cm - 16 - - =IIF(Sum(Fields!IEPS.Value, "DsOC") > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - true - - - - - DESCUENTO - - - - - - - Textbox20 - 0.88906cm - 15.77355cm - 0.45183cm - 2.5cm - 17 - - =IIF(Parameters!Descuento.Value > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Descuento.Value - - - - - - - Textbox20 - 0.88906cm - 18.27355cm - 0.45183cm - 2.4365cm - 18 - - =IIF(Parameters!Descuento.Value > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - true - - - - - SUB-TOTAL2 - - - - - - - Textbox20 - 1.34089cm - 15.77355cm - 0.45183cm - 2.5cm - 19 - - =IIF(Parameters!Descuento.Value > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SubTotal2.Value - - - - - - - Textbox20 - 1.34089cm - 18.27355cm - 0.45183cm - 2.4365cm - 20 - - =IIF(Parameters!Descuento.Value > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - 1.12516cm - 0.12849cm - 5.34083cm - 20.74271cm - 1 - - - - - - 2.58039in - - - - - - true - true - - - - - Proveedor - - - - : - - - - - - - - - Nombre - - - - : - - - - - - - - =Parameters!ProveedorNombre.Value - - - - - - - - - RFC: - - - - - - - - =Parameters!ProveedorRFC.Value - - - - - - - - - Direccion: - - - - =Parameters!ProveedorDireccion.Value - - - - - - - - - Teléfono: - - - - =Parameters!ProveedorTel.Value - - - - - - - - - Contacto: - - - - =Parameters!ProveedorContacto.Value - - - - - - - - - - - Textbox2 - 1.60003in - 0.12161cm - 1.20291in - 3.07995in - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Enviar a: - - - - - - - - - Nombre: - - - - =Parameters!EnvioContacto.Value - - - - - - - - - - - - - Departamento: - - - - =Parameters!EnvioDepartamento.Value - - - - - - - - - Calle: - - - - - - - - =Parameters!EnvioDireccion.Value - - - - - - - - - Colonia: - - - - - - - - =Parameters!EnvioColonia.Value - - - - - - - - - Ciudad: - - - - - - - - =Parameters!EnvioCiudad.Value - - - - - - - - Estado: - - - - - - - - =Parameters!EnvioEstado.Value - - - - - - - - - Municipio y/o Delegación: - - - - =Parameters!EnvioCiudad.Value - - - - - - - - - - - - - Pais: - - - - - - - - =Parameters!ProveedorPais.Value - - - - - - - - - - - - - - - - CP: - - - - - - - - =Parameters!EnvioCP.Value - - - - - - - - - Teléfono: - - - - - - - - =Parameters!EnvioTel.Value - - - - - - - - - - - - - Pedido/Contrato: - - - - =Parameters!PedidoContrato.Value - - - - - - - Textbox36 - 4.06406cm - 7.94469cm - 4.25633cm - 8.32364cm - 2 - - =IIF(String.IsNullOrEmpty(Parameters!LugarEntrega.Value),False,True) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Facturar a: - - - - - - - - - Compuproveedores, S.A. de C.V. - - - - - - - - - =Parameters!DomicilioSucursal.Value - - - - - - - - - COM890602EE8 - - - - - - - - - ="(" & Parameters!Telefono.Value.ToString().Substring(0,3) & ") " & Parameters!Telefono.Value.ToString().Substring(3) - - - - - - - - - - - - - - - - - - CFDI 3.3: - - - - - - - - - =Parameters!UsoCFDI.Value - - - - - - - Textbox40 - 4.06406cm - 16.26833cm - 4.25633cm - 4.55726cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Envío Directo al Cliente" - - - - - - - EstatusEntrega - 1.27043cm - 4.61876cm - 0.6cm - 5.51419cm - 4 - - =IIF(Parameters!EntregaDirecta.Value <> "False",FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - - - - - =Parameters!TipoOC.Value - - - - - - - - - Folio: - - - - =Parameters!Folio.Value - - - - - - - - - Almacen: - - - - =Parameters!Proyecto.Value - - - - - - - - - Fecha de ElaboracIón: - - - - =Parameters!FechaSolicitud.Value - - - - - - - - - Fecha Estimada de Recepción: - - - - =iif(Parameters!FechaEntrega.Value="01/01/0001","",Parameters!FechaEntrega.Value) - - - - - - - - - - - - - Folio Pedido Proveedor: - - - - =Parameters!FolioAdicional.Value - - - - - - - - - Asignado a: - - - - =Parameters!Comprador.Value - - - - - - - - - Coordinador Empresarial: - - - - - - - - =Parameters!Vendedor.Value - - - - - - - Textbox40 - 0.16794cm - 12.50129cm - 3.79029cm - 8.3243cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Enviar a: - - - - - - - - - Dirección: - - - - =Parameters!LugarEntrega.Value - - - - - - - - - - - - - - - - - - - - Textbox36 - 4.09934cm - 7.94469cm - 4.25633cm - 8.32364cm - 7 - - =IIF(String.IsNullOrEmpty(Parameters!LugarEntrega.Value),True,False) - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 0.84696cm - true - true - - - true - true - - - - - Usuario: - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 0.25252cm - 18.19908cm - 0.41981cm - 2.5cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0cm - 0cm - 0cm - 0.5cm - 0.13cm - + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CLAVE + + + + + + + Textbox29 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESCRIPCIÓN + + + + + + + Textbox17 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + OBSERVACIÓN + + + + + + + Textbox46 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P/U + + + + + + + Textbox23 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESC. + + + + + + + Textbox2 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IMPORTE + + + + + + + Textbox1 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.19644in + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CodPS.Value + + + + + + + CodPS + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Producto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 0.04788in + 0.41372in + 8.15357in + + + + + + + + true + true + + + + + I.V.A. + + + + + + + Textbox20 + 1.87711cm + 15.76748cm + 0.45183cm + 2.5cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + TOTAL: + + + + + + + Textbox20 + 3.97642cm + 15.77277cm + 0.45183cm + 2.5cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!IVA.Value + + + + + + + Textbox20 + 1.87711cm + 18.26748cm + 0.45183cm + 2.4365cm + 2 + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + true + + + + + =Parameters!Total.Value + + + + + + + Textbox20 + 3.97642cm + 18.27277cm + 0.45183cm + 2.43121cm + 3 + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + true + + + + + SUB-TOTAL + + + + + + + Textbox20 + 0.40195cm + 15.76748cm + 0.45183cm + 2.5cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SubTotal.Value + + + + + + + Textbox20 + 0.40195cm + 18.26748cm + 0.45183cm + 2.4365cm + 5 + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + true + + + + + =UCase(Parameters!ImporteLetra.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descripcion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Ret I.V.A + + + + + + + Textbox20 + 2.32894cm + 15.76669cm + 0.45183cm + 2.5cm + 11 + + =IIF(Parameters!RetIVA.Value > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!RetIVA.Value + + + + + + + Textbox20 + 2.32894cm + 18.26669cm + 0.45183cm + 2.4365cm + 12 + + =IIF(Parameters!RetIVA.Value > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + true + + + + + Ret I.S.R + + + + + + + Textbox20 + 2.78077cm + 15.76669cm + 0.45183cm + 2.5cm + 13 + + =IIF(Parameters!RetISR.Value > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!RetISR.Value + + + + + + + Textbox20 + 2.78077cm + 18.26669cm + 0.45183cm + 2.4365cm + 14 + + =IIF(Parameters!RetISR.Value > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + true + + + + + I.E.P.S + + + + + + + Textbox20 + 3.2326cm + 15.76669cm + 0.45183cm + 2.5cm + 15 + + =IIF(Sum(Fields!IEPS.Value, "DsOC") > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Sum(Fields!IEPS.Value, "DsOC") + + + + + + + Textbox20 + 3.2326cm + 18.26669cm + 0.45183cm + 2.4365cm + 16 + + =IIF(Sum(Fields!IEPS.Value, "DsOC") > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + true + + + + + DESCUENTO + + + + + + + Textbox20 + 0.88906cm + 15.77355cm + 0.45183cm + 2.5cm + 17 + + =IIF(Parameters!Descuento.Value > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descuento.Value + + + + + + + Textbox20 + 0.88906cm + 18.27355cm + 0.45183cm + 2.4365cm + 18 + + =IIF(Parameters!Descuento.Value > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + true + + + + + SUB-TOTAL2 + + + + + + + Textbox20 + 1.34089cm + 15.77355cm + 0.45183cm + 2.5cm + 19 + + =IIF(Parameters!Descuento.Value > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SubTotal2.Value + + + + + + + Textbox20 + 1.34089cm + 18.27355cm + 0.45183cm + 2.4365cm + 20 + + =IIF(Parameters!Descuento.Value > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + 1.12516cm + 0.12849cm + 5.34083cm + 20.74271cm + 1 + + + + + + 2.58039in + + + + + + true + true + + + + + Proveedor + + + + : + + + + + + + + + Nombre + + + + : + + + + + + + + =Parameters!ProveedorNombre.Value + + + + + + + + + RFC: + + + + + + + + =Parameters!ProveedorRFC.Value + + + + + + + + + Direccion: + + + + =Parameters!ProveedorDireccion.Value + + + + + + + + + Teléfono: + + + + =Parameters!ProveedorTel.Value + + + + + + + + + Contacto: + + + + =Parameters!ProveedorContacto.Value + + + + + + + + + + + Textbox2 + 1.60003in + 0.12161cm + 1.20291in + 3.07995in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Enviar a: + + + + + + + + + Nombre: + + + + =Parameters!EnvioContacto.Value + + + + + + + + + + + + + Departamento: + + + + =Parameters!EnvioDepartamento.Value + + + + + + + + + Calle: + + + + + + + + =Parameters!EnvioDireccion.Value + + + + + + + + + Colonia: + + + + + + + + =Parameters!EnvioColonia.Value + + + + + + + + + Ciudad: + + + + + + + + =Parameters!EnvioCiudad.Value + + + + + + + + Estado: + + + + + + + + =Parameters!EnvioEstado.Value + + + + + + + + + Municipio y/o Delegación: + + + + =Parameters!EnvioCiudad.Value + + + + + + + + + + + + + Pais: + + + + + + + + =Parameters!ProveedorPais.Value + + + + + + + + + + + + + + + + CP: + + + + + + + + =Parameters!EnvioCP.Value + + + + + + + + + Teléfono: + + + + + + + + =Parameters!EnvioTel.Value + + + + + + + + + + + + + Pedido/Contrato: + + + + =Parameters!PedidoContrato.Value + + + + + + + Textbox36 + 4.06406cm + 7.94469cm + 4.25633cm + 8.32364cm + 2 + + =IIF(String.IsNullOrEmpty(Parameters!LugarEntrega.Value),False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Facturar a: + + + + + + + + + Compuproveedores, S.A. de C.V. + + + + + + + + + =Parameters!DomicilioSucursal.Value + + + + + + + + + COM890602EE8 + + + + + + + + + ="(" & Parameters!Telefono.Value.ToString().Substring(0,3) & ") " & Parameters!Telefono.Value.ToString().Substring(3) + + + + + + + + + + + + + + + + + + CFDI 3.3: + + + + + + + + + =Parameters!UsoCFDI.Value + + + + + + + Textbox40 + 4.06406cm + 16.26833cm + 4.25633cm + 4.55726cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Envío Directo al Cliente" + + + + + + + EstatusEntrega + 1.27043cm + 4.61876cm + 0.6cm + 5.51419cm + 4 + + =IIF(Parameters!EntregaDirecta.Value <> "False",FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + + + + =Parameters!TipoOC.Value + + + + + + + + + Folio: + + + + =Parameters!Folio.Value + + + + + + + + + Almacen: + + + + =Parameters!Proyecto.Value + + + + + + + + + Fecha de ElaboracIón: + + + + =Parameters!FechaSolicitud.Value + + + + + + + + + Fecha Estimada de Recepción: + + + + =iif(Parameters!FechaEntrega.Value="01/01/0001","",Parameters!FechaEntrega.Value) + + + + + + + + + + + + + Folio Pedido Proveedor: + + + + =Parameters!FolioAdicional.Value + + + + + + + + + Asignado a: + + + + =Parameters!Comprador.Value + + + + + + + + + Coordinador Empresarial: + + + + + + + + =Parameters!Vendedor.Value + + + + + + + Textbox40 + 0.16794cm + 12.50129cm + 3.79029cm + 8.3243cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Enviar a: + + + + + + + + + Dirección: + + + + =Parameters!LugarEntrega.Value + + + + + + + + + + + + + + + + + + + + Textbox36 + 4.09934cm + 7.94469cm + 4.25633cm + 8.32364cm + 7 + + =IIF(String.IsNullOrEmpty(Parameters!LugarEntrega.Value),True,False) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.84696cm + true + true + + + true + true + + + + + Usuario: + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 0.25252cm + 18.19908cm + 0.41981cm + 2.5cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0cm + 0cm + 0cm + 0.5cm + 0.13cm + - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CLAVE - - - - - - - Textbox29 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - DESCRIPCIÓN - - - - - - - Textbox17 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - OBSERVACIÓN - - - - - - - Textbox46 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - P/U - - - - - - - Textbox23 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - IMPORTE - - - - - - - Textbox1 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.19644in - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CodPS.Value - - - - - - - CodPS - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Producto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Obs.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - - Total - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 0.04788in - 0.41372in - 8.15117in - - - - - - 0.44497in - - - - : - - - - - - - - - Nombre - - - - : - - - - - - - - =Parameters!ProveedorNombre.Value - - - - - - - - - RFC: - - - - - - - - =Parameters!ProveedorRFC.Value - - - - - - - - - Direccion: - - - - =Parameters!ProveedorDireccion.Value - - - - - - - - - Teléfono: - - - - =Parameters!ProveedorTel.Value - - - - - - - - - Contacto: - - - - =Parameters!ProveedorContacto.Value - - - - - - - - - - - Textbox2 - 1.60003in - 0.12161cm - 1.20291in - 3.01189in - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Enviar a: - - - - - - - - - Nombre: - - - - =Parameters!EnvioContacto.Value - - - - - - - - - - - - - Departamento: - - - - =Parameters!EnvioDepartamento.Value - - - - - - - - - Calle: - - - - - - - - =Parameters!EnvioDireccion.Value - - - - - - - - - Colonia: - - - - - - - - =Parameters!EnvioColonia.Value - - - - - - - - - Ciudad: - - - - - - - - =Parameters!EnvioCiudad.Value - - - - - - - - Estado: - - - - - - - - =Parameters!EnvioEstado.Value - - - - - - - - - Municipio y/o Delegación: - - - - =Parameters!EnvioCiudad.Value - - - - - - - - - - - - - Pais: - - - - - - - - =Parameters!ProveedorPais.Value - - - - - - - - - - - - - - - - CP: - - - - - - - - =Parameters!EnvioCP.Value - - - - - - - - - Teléfono: - - - - - - - - =Parameters!EnvioTel.Value - - - - - - - - - - - - - Pedido/Contrato: - - - - =Parameters!PedidoContrato.Value - - - - - - - Textbox36 - 4.06406cm - 7.84944cm - 4.25633cm - 8.32364cm - 1 - - =IIF(String.IsNullOrEmpty(Parameters!LugarEntrega.Value),False,True) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Facturar a: - - - - - - - - - DN DIFUSA NORTE, S.A. de C.V. - - - - - - - - - =Parameters!DomicilioSucursal.Value - - - - - - - - - DDN091028GL0 - - - - - - - - - = Parameters!Telefono.Value.ToString() - - - - - - - - - - - - - - - - - - CFDI 3.3: - - - - - - - - - =Parameters!UsoCFDI.Value - - - - - - - Textbox40 - 4.06406cm - 16.26833cm - 4.25633cm - 4.55726cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Envío Directo al Cliente" - - - - - - - EstatusEntrega - 1.27043cm - 4.61876cm - 0.6cm - 5.51419cm - 3 - - =IIF(Parameters!EntregaDirecta.Value <> "False",FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - - - - - =Parameters!TipoOC.Value - - - - - - - - - Folio: - - - - =Parameters!Folio.Value - - - - - - - - - Almacen: - - - - =Parameters!Proyecto.Value - - - - - - - - - Fecha de ElaboracIón: - - - - =Parameters!FechaSolicitud.Value - - - - - - - - - Fecha Estimada de Recepción: - - - - =iif(Parameters!FechaEntrega.Value="01/01/0001","",Parameters!FechaEntrega.Value) - - - - - - - - - - - - - Folio Pedido Proveedor: - - - - =Parameters!FolioAdicional.Value - - - - - - - - - Comprador: - - - - =Parameters!Comprador.Value - - - - - - - - - Coordinador Empresarial: - - - - - - - - =Parameters!Vendedor.Value - - - - - - - Textbox40 - 0.16794cm - 12.50129cm - 3.79029cm - 8.3243cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Enviar a: - - - - - - - - - Dirección: - - - - =Parameters!LugarEntrega.Value - - - - - - - - - - - - - - - - - - - - Textbox36 - 4.07112cm - 7.85296cm - 4.25633cm - 8.32364cm - 6 - - =IIF(String.IsNullOrEmpty(Parameters!LugarEntrega.Value),True,False) - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo6 - FitProportional - 0.33585cm - 0.37861cm - 1.53458cm - 3.85445cm - 7 - - - - - - - - - - - 5.95342cm - true - true - - - true - true - - - - - TOTAL: - - - - - - - Textbox20 - 3.17435cm - 15.89438cm - 0.45183cm - 2.5cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Total.Value - - - - - - - Textbox20 - 3.2061cm - 18.39438cm - 0.45183cm - 2.43121cm - 1 - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - true - - - - - =UCase(Parameters!ImporteLetra.Value) - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 5.33252cm - 18.19908cm - 0.41981cm - 2.5cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Descripcion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - I.V.A. - - - - - - - Textbox20 - 1.22239cm - 15.89517cm - 0.45183cm - 2.5cm - 10 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!IVA.Value - - - - - - - Textbox20 - 1.22239cm - 18.39517cm - 0.45183cm - 2.4365cm - 11 - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - true - - - - - SUB-TOTAL - - - - - - - Textbox20 - 0.41398cm - 15.89517cm - 0.45183cm - 2.5cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SubTotal.Value - - - - - - - Textbox20 - 0.41398cm - 18.39517cm - 0.45183cm - 2.4365cm - 13 - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - true - - - - - Ret I.V.A - - - - - - - Textbox20 - 1.67422cm - 15.89438cm - 0.45183cm - 2.5cm - 14 - - =IIF(Parameters!RetIVA.Value > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!RetIVA.Value - - - - - - - Textbox20 - 1.67422cm - 18.39438cm - 0.45183cm - 2.4365cm - 15 - - =IIF(Parameters!RetIVA.Value > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - true - - - - - Ret I.S.R - - - - - - - Textbox20 - 2.12605cm - 15.89438cm - 0.45183cm - 2.5cm - 16 - - =IIF(Parameters!RetISR.Value > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!RetISR.Value - - - - - - - Textbox20 - 2.12605cm - 18.39438cm - 0.45183cm - 2.4365cm - 17 - - =IIF(Parameters!RetISR.Value > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - true - - - - - I.E.P.S - - - - - - - Textbox20 - 2.57788cm - 15.89438cm - 0.45183cm - 2.5cm - 18 - - =IIF(Sum(Fields!IEPS.Value, "DsOC") > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Sum(Fields!IEPS.Value, "DsOC") - - - - - - - Textbox20 - 2.57788cm - 18.39438cm - 0.45183cm - 2.4365cm - 19 - - =IIF(Sum(Fields!IEPS.Value, "DsOC") > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - true - - - - - DESCUENTO - - - - - - - Textbox20 - 0.83759cm - 15.90124cm - 0.45183cm - 2.5cm - 20 - - =IIF(Parameters!Descuento.Value > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Descuento.Value - - - - - - - Textbox20 - 0.83759cm - 18.40124cm - 0.45183cm - 2.4365cm - 21 - - =IIF(Parameters!Descuento.Value > 0,FALSE,TRUE) - - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - 27.94cm - 21.59cm - 0cm - 0cm - 0cm - 0.5cm - 0.13cm - + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CLAVE + + + + + + + Textbox29 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESCRIPCIÓN + + + + + + + Textbox17 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + OBSERVACIÓN + + + + + + + Textbox46 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P/U + + + + + + + Textbox23 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IMPORTE + + + + + + + Textbox1 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.19644in + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + true + + + + + =Fields!CodPS.Value + + + + + + + CodPS + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Producto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 0.04788in + 0.41372in + 8.15117in + + + + + + 0.44497in + + + + : + + + + + + + + + Nombre + + + + : + + + + + + + + =Parameters!ProveedorNombre.Value + + + + + + + + + RFC: + + + + + + + + =Parameters!ProveedorRFC.Value + + + + + + + + + Direccion: + + + + =Parameters!ProveedorDireccion.Value + + + + + + + + + Teléfono: + + + + =Parameters!ProveedorTel.Value + + + + + + + + + Contacto: + + + + =Parameters!ProveedorContacto.Value + + + + + + + + + + + Textbox2 + 1.60003in + 0.12161cm + 1.20291in + 3.01189in + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Enviar a: + + + + + + + + + Nombre: + + + + =Parameters!EnvioContacto.Value + + + + + + + + + + + + + Departamento: + + + + =Parameters!EnvioDepartamento.Value + + + + + + + + + Calle: + + + + + + + + =Parameters!EnvioDireccion.Value + + + + + + + + + Colonia: + + + + + + + + =Parameters!EnvioColonia.Value + + + + + + + + + Ciudad: + + + + + + + + =Parameters!EnvioCiudad.Value + + + + + + + + Estado: + + + + + + + + =Parameters!EnvioEstado.Value + + + + + + + + + Municipio y/o Delegación: + + + + =Parameters!EnvioCiudad.Value + + + + + + + + + + + + + Pais: + + + + + + + + =Parameters!ProveedorPais.Value + + + + + + + + + + + + + + + + CP: + + + + + + + + =Parameters!EnvioCP.Value + + + + + + + + + Teléfono: + + + + + + + + =Parameters!EnvioTel.Value + + + + + + + + + + + + + Pedido/Contrato: + + + + =Parameters!PedidoContrato.Value + + + + + + + Textbox36 + 4.06406cm + 7.84944cm + 4.25633cm + 8.32364cm + 1 + + =IIF(String.IsNullOrEmpty(Parameters!LugarEntrega.Value),False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Facturar a: + + + + + + + + + DN DIFUSA NORTE, S.A. de C.V. + + + + + + + + + =Parameters!DomicilioSucursal.Value + + + + + + + + + DDN091028GL0 + + + + + + + + + = Parameters!Telefono.Value.ToString() + + + + + + + + + + + + + + + + + + CFDI 3.3: + + + + + + + + + =Parameters!UsoCFDI.Value + + + + + + + Textbox40 + 4.06406cm + 16.26833cm + 4.25633cm + 4.55726cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Envío Directo al Cliente" + + + + + + + EstatusEntrega + 1.27043cm + 4.61876cm + 0.6cm + 5.51419cm + 3 + + =IIF(Parameters!EntregaDirecta.Value <> "False",FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + + + + =Parameters!TipoOC.Value + + + + + + + + + Folio: + + + + =Parameters!Folio.Value + + + + + + + + + Almacen: + + + + =Parameters!Proyecto.Value + + + + + + + + + Fecha de ElaboracIón: + + + + =Parameters!FechaSolicitud.Value + + + + + + + + + Fecha Estimada de Recepción: + + + + =iif(Parameters!FechaEntrega.Value="01/01/0001","",Parameters!FechaEntrega.Value) + + + + + + + + + + + + + Folio Pedido Proveedor: + + + + =Parameters!FolioAdicional.Value + + + + + + + + + Comprador: + + + + =Parameters!Comprador.Value + + + + + + + + + Coordinador Empresarial: + + + + + + + + =Parameters!Vendedor.Value + + + + + + + Textbox40 + 0.16794cm + 12.50129cm + 3.79029cm + 8.3243cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Enviar a: + + + + + + + + + Dirección: + + + + =Parameters!LugarEntrega.Value + + + + + + + + + + + + + + + + + + + + Textbox36 + 4.07112cm + 7.85296cm + 4.25633cm + 8.32364cm + 6 + + =IIF(String.IsNullOrEmpty(Parameters!LugarEntrega.Value),True,False) + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo6 + FitProportional + 0.33585cm + 0.37861cm + 1.53458cm + 3.85445cm + 7 + + + + + + + + + + + 5.95342cm + true + true + + + true + true + + + + + TOTAL: + + + + + + + Textbox20 + 3.17435cm + 15.89438cm + 0.45183cm + 2.5cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Total.Value + + + + + + + Textbox20 + 3.2061cm + 18.39438cm + 0.45183cm + 2.43121cm + 1 + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + true + + + + + =UCase(Parameters!ImporteLetra.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 5.33252cm + 18.19908cm + 0.41981cm + 2.5cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descripcion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + I.V.A. + + + + + + + Textbox20 + 1.22239cm + 15.89517cm + 0.45183cm + 2.5cm + 10 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!IVA.Value + + + + + + + Textbox20 + 1.22239cm + 18.39517cm + 0.45183cm + 2.4365cm + 11 + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + true + + + + + SUB-TOTAL + + + + + + + Textbox20 + 0.41398cm + 15.89517cm + 0.45183cm + 2.5cm + 12 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SubTotal.Value + + + + + + + Textbox20 + 0.41398cm + 18.39517cm + 0.45183cm + 2.4365cm + 13 + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + true + + + + + Ret I.V.A + + + + + + + Textbox20 + 1.67422cm + 15.89438cm + 0.45183cm + 2.5cm + 14 + + =IIF(Parameters!RetIVA.Value > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!RetIVA.Value + + + + + + + Textbox20 + 1.67422cm + 18.39438cm + 0.45183cm + 2.4365cm + 15 + + =IIF(Parameters!RetIVA.Value > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + true + + + + + Ret I.S.R + + + + + + + Textbox20 + 2.12605cm + 15.89438cm + 0.45183cm + 2.5cm + 16 + + =IIF(Parameters!RetISR.Value > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!RetISR.Value + + + + + + + Textbox20 + 2.12605cm + 18.39438cm + 0.45183cm + 2.4365cm + 17 + + =IIF(Parameters!RetISR.Value > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + true + + + + + I.E.P.S + + + + + + + Textbox20 + 2.57788cm + 15.89438cm + 0.45183cm + 2.5cm + 18 + + =IIF(Sum(Fields!IEPS.Value, "DsOC") > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Sum(Fields!IEPS.Value, "DsOC") + + + + + + + Textbox20 + 2.57788cm + 18.39438cm + 0.45183cm + 2.4365cm + 19 + + =IIF(Sum(Fields!IEPS.Value, "DsOC") > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + true + + + + + DESCUENTO + + + + + + + Textbox20 + 0.83759cm + 15.90124cm + 0.45183cm + 2.5cm + 20 + + =IIF(Parameters!Descuento.Value > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descuento.Value + + + + + + + Textbox20 + 0.83759cm + 18.40124cm + 0.45183cm + 2.4365cm + 21 + + =IIF(Parameters!Descuento.Value > 0,FALSE,TRUE) + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + 27.94cm + 21.59cm + 0cm + 0cm + 0cm + 0.5cm + 0.13cm + @@ -1447,7 +1447,7 @@ =Parameters!CadenaOriginal.Value @@ -1473,7 +1473,7 @@ =Parameters!SelloSAT.Value @@ -1573,53 +1573,7 @@ - Tipo de Transporte Internacional: - - - - =Parameters!TipoTI.Value - - - - - - - - - Vía de Transporte Internacional: - - - - =Parameters!ViaTI.Value - - - - - - - - - Permiso STCC: + Permiso SCT: + + + + Numero de Permiso + + + + : + + + + =Parameters!NumPermiso.Value + + + + + Textbox2 1.13111in @@ -1708,37 +1693,6 @@ true true - - - - Numero de Permiso - - - - : - - - - =Parameters!NumPermiso.Value - - - - - diff --git a/Empresas/Grales/Formatos/RepIVA.rpt b/Empresas/Grales/Formatos/RepIVA.rpt index 68fea125c..1ff221782 100644 Binary files a/Empresas/Grales/Formatos/RepIVA.rpt and b/Empresas/Grales/Formatos/RepIVA.rpt differ diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt index 490301544..26546bda5 100644 Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt and b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt differ diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt index 4d52571c0..33b2abbc9 100644 Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt and b/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt differ diff --git a/General/PopUpPaqueteriasGuias.aspx.cs b/General/PopUpPaqueteriasGuias.aspx.cs index 8b76b39b9..ec353c294 100644 --- a/General/PopUpPaqueteriasGuias.aspx.cs +++ b/General/PopUpPaqueteriasGuias.aspx.cs @@ -741,7 +741,7 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas private string DocumentoEntregaInterna() { ClsVentas ObjVentas = new ClsVentas(); - if (ObjVentas.GetVenta(this.CveVenta, UsuarioActual.CveEmpresa)) + if (ObjVentas.GetVenta(this.CveVenta, UsuarioActual.CveEmpresa) && ObjVentas.DtResultados.Rows.Count> 0) { string ClienteNombre = ObjVentas.DtResultados.Rows[0]["ClienteNombre"].ToString(); string FolioVenta = ObjVentas.DtResultados.Rows[0]["SerieFolio"].ToString(); diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 716d296f2..ca07acd2c 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1159,7 +1159,7 @@ Partial Class General_SaldosIniciales CveCompra = ObjCompras.CveCompra 'Compra Detalle - If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero, -1, 0, 1, SubTotal, 0.16, SubTotal, 0, "Carga Inicial", -1) Then + If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero, -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1) Then ErrorCompras = True Exit For End If diff --git a/Inventarios/CatUnidades.aspx b/Inventarios/CatUnidades.aspx new file mode 100644 index 000000000..0499dd342 --- /dev/null +++ b/Inventarios/CatUnidades.aspx @@ -0,0 +1,185 @@ +<%@ Page Title="Catálogo de Unidades" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatUnidades.aspx.vb" Inherits="Inventarios_CatUnidades" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + + Catálogo de Unidades + + + + + + + +
  • + +
    • +     +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Inventarios/CatUnidades.aspx.vb b/Inventarios/CatUnidades.aspx.vb new file mode 100644 index 000000000..6c3d3c2a1 --- /dev/null +++ b/Inventarios/CatUnidades.aspx.vb @@ -0,0 +1,172 @@ +Imports Extensiones +Partial Class Inventarios_CatUnidades + Inherits ClsPaginas + + Private Property CveCamion As Integer + Get + + If ViewState("CveCamion") Is Nothing Then + Return -1 + Else + Return ViewState("CveCamion").ToString().ToEntero() + End If + End Get + Set(ByVal value As Integer) + ViewState("CveCamion") = value + End Set + End Property + + Private Sub Catalogos_CatPtoSubFunsion_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + CargaCombos() + CargaDatos() + End If + End Sub + + Public Sub CargaDatos() + + + + Dim ObjInventarios As New ClsInventarios + + If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjInventarios.DtResultados + Else + GvDatos.DataSource = Nothing + End If + + ObjInventarios.Dispose() + GvDatos.DataBind() + UpDatos.Update() + + + End Sub + + Private Sub CargaCombos() + + Using ObjGral As New ClsGenerales + If ObjGral.GetCartaPorteConfigAutoTransportes() Then + DdlConfigAuto.DataSource = ObjGral.DtResultados + End If + If ObjGral.GetCartaPorteTipoPermisoSCT() Then + DdlTipoPermisoSCT.DataSource = ObjGral.DtResultados + End If + End Using + + DdlConfigAuto.DataBind() + DdlTipoPermisoSCT.DataBind() + + UpModalUnidades.Update() + + End Sub + + + Protected Sub LnkAgregarUnidad_Click(sender As Object, e As EventArgs) + + CveCamion = -1 + + BtnAgregarCamion.Text = "Agregar" + + TxtPlacaNuevo.Text = "" + TxtEspecificacionNuevo.Text = "" + TxtEspecificacionNuevo.Text = "" + DdlConfigAuto.SelectedValueExist(-1) + + TxtAnio.Text = "" + 'TxtTipoPermisoSCT.Text = "" + TxtNumermisoSCT.Text = "" + TxtNombreAseguradora.Text = "" + TxtNumPolizaSeguro.Text = "" + + LtlTituloModal.Text = "Agregar Unidad" + + UpModalUnidades.Update() + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarUnidad")) + End Sub + + Protected Sub LnkEditar_Click(sender As Object, e As EventArgs) + + BtnAgregarCamion.Text = "Actualizar" + Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + + CveCamion = GvRow.DataKey("CveCamion").ToEntero() + + + TxtPlacaNuevo.Text = GvRow.DataKey("Placa") + TxtEspecificacionNuevo.Text = GvRow.DataKey("Especificacion") + + DdlConfigAuto.SelectedValueExist(GvRow.DataKey("ConfigCartaPorte")) + + TxtAnio.Text = GvRow.DataKey("Anio") + DdlTipoPermisoSCT.SelectedValueExist(GvRow.DataKey("CveTipoPermisoSCT")) + TxtNumermisoSCT.Text = GvRow.DataKey("NumPermisoSCT") + TxtNombreAseguradora.Text = GvRow.DataKey("NombreAseguradora") + TxtNumPolizaSeguro.Text = GvRow.DataKey("NumPolizaSeguro") + + LtlTituloModal.Text = "Actualizar Unidad" + + UpModalUnidades.Update() + + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarUnidad")) + End Sub + + Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) + + Dim ErrorAlElimiar As Boolean = False + + Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + + Dim CveCamionEliminar = GvRow.DataKey("CveCamion").ToEntero() + + Dim ObjInventarios As New ClsInventarios + + If (ObjInventarios.RemoveCamiones(CveCamionEliminar, UsuarioActual.CveEmpresa)) Then + + UpDatos.Update() + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarUnidad")) + Alert("Unidad Eliminada Correctamente") + Else + ErrorAlElimiar = True + End If + + ObjInventarios.Dispose() + + If Not ErrorAlElimiar Then + CargaDatos() + End If + + End Sub + + Protected Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) + + Dim ErrorPrceso As Boolean = False + + Dim ObjInventarios As New ClsInventarios + + If CveCamion <= 0 Then + If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario) Then + Alert("Unidad agregada correctamente") + Else + ErrorPrceso = True + End If + Else + If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + Alert("Unidad actualizada correctamente") + Else + ErrorPrceso = True + End If + End If + + + If Not ErrorPrceso Then + CargaDatos() + End If + + UpDatos.Update() + + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarUnidad")) + + End Sub + + +End Class diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 5a490db33..c622d7ac6 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -778,12 +778,13 @@ Partial Class Inventarios_EntradasSalidas HplDescargaXml.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "XML", $"Tra-{Folio}", "Tra"))) HplDescargaPdf.Visible = True HplDescargaPdf.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "PDF", $"Tra-{Folio}", "Tra"))) - HplCartaPorte.Visible = True - HplCartaPorte.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimiento))) - If UsuarioActual.CveRol = 1 Then + If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then HplCartaPorteTimbre.Visible = True HplCartaPorteTimbre.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPOTIMBRE&CVEMOV={0}", CveMovimiento))) + Else + HplCartaPorte.Visible = True + HplCartaPorte.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimiento))) End If diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index a84424cb8..54598e5a1 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -208,7 +208,7 @@
    - +
    diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 2fb2b064c..a9cb7ff99 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -191,6 +191,7 @@ Partial Class Inventarios_TraspasoAlmacen If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then divFechaEnvio.Visible = True + HplNuevaUnidad.Enabled = False End If @@ -212,7 +213,7 @@ Partial Class Inventarios_TraspasoAlmacen DivTransitorio2.Visible = True End If - If UsuarioActual.CveEmpresa.Contiene(1, 119) Then + If UsuarioActual.CveEmpresa.Contiene(1, 119, 140, 2) Then DivEmitirTimbrado.Visible = True LblEmitirTimbrado.Visible = True ChkEmitirTimbrado.Checked = True @@ -1164,9 +1165,6 @@ Partial Class Inventarios_TraspasoAlmacen End If - 'DdlClasificacion.SelectedValue = "-1" - 'DdlClasificacion_SelectedIndexChanged(DdlClasificacion, EventArgs.Empty) - If ChkEmitirTimbrado.Checked AndAlso ChkTransitorio.Checked Then CveMovimientoTimbrado = CveMovimientoSalida : Timbrar() Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, "") @@ -2693,7 +2691,7 @@ Partial Class Inventarios_TraspasoAlmacen Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP Timbre.Comprobante.Confirmacion = "" - Timbre.Receptor.RFC = "XAXX010101000" + Timbre.Receptor.RFC = UsuarioActual.Empresa.RFC Timbre.Receptor.Nombre = UsuarioActual.Empresa.Empresa Timbre.Receptor.UsoCFDI = "P01" @@ -2710,7 +2708,6 @@ Partial Class Inventarios_TraspasoAlmacen CartaPorte.TranspInternac = "No" CartaPorte.EntradaSalidaMercancia = "" CartaPorte.ViaEntradaSalida = "" - CartaPorte.TotalDistanciaRecorrida = 12 CartaPorte.Mercancias.PesoBrutoTotal = 0 CartaPorte.Mercancias.UnidadPeso = "" @@ -2763,7 +2760,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim Dr As DataRow = DtCamiones.FiltroPrimero(String.Format("CveCamion= {0}", DdlUnidadCamion.SelectedValue)) If Dr IsNot Nothing Then - CartaPorte.FiguraTransporte.AutoTransporteFederal.PermSCT = Dr("TipoPermisoSCT").ToString '"TPAF01" + CartaPorte.FiguraTransporte.AutoTransporteFederal.PermSCT = Dr("ClaveTipoPermisoSCT").ToString '"TPAF01" CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT = Dr("NumPermisoSCT").ToString CartaPorte.FiguraTransporte.AutoTransporteFederal.NombreAseg = Dr("NombreAseguradora").ToString CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro = Dr("NumPolizaSeguro").ToString @@ -2778,36 +2775,36 @@ Partial Class Inventarios_TraspasoAlmacen If CveSubProyectoOrigen > 0 Then Dim drr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyectoOrigen).FiltroPrimero("") DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drr("Calle").ToString, - .Colonia = drr("Colonia").ToString, - .CP = drr("CP").ToString, - .Estado = drr("Estado").ToString, - .Pais = drr("Pais").ToString, - .Municipio = drr("Municipio").ToString, - .Localidad = drr("Localidad").ToString} + .Colonia = "",'drr("Colonia").ToString, + .CP = drr("CP").ToString, + .Estado = "SON", ' drr("Estado").ToString, + .Pais = "MEX",'drr("Pais").ToString, + .Municipio = "", ' drr("Municipio").ToString, + .Localidad = ""} ' drr("Localidad").ToString} End If Dim CveSubProyectoDestino As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenDestino.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto", "").ToEntero Dim DomDestino As CFDICartaPorteDomicilio = Nothing - If CveSubProyectoOrigen > 0 Then - Dim drr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyectoOrigen).FiltroPrimero("") + If CveSubProyectoDestino > 0 Then + Dim drr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyectoDestino).FiltroPrimero("") DomDestino = New CFDICartaPorteDomicilio With {.Calle = drr("Calle").ToString, - .Colonia = drr("Colonia").ToString, - .CP = drr("CP").ToString, - .Estado = drr("Estado").ToString, - .Pais = drr("Pais").ToString, - .Municipio = drr("Municipio").ToString, - .Localidad = drr("Localidad").ToString} + .Colonia = "",'drr("Colonia").ToString, + .CP = drr("CP").ToString, + .Estado = "SON", ' drr("Estado").ToString, + .Pais = "MEX",'drr("Pais").ToString, + .Municipio = "", ' drr("Municipio").ToString, + .Localidad = ""} ' drr("Localidad").ToString} End If Dim Ubica As New CFDICartaPorteUbicaciones - Ubica.TipoEstacion = "01" - Ubica.DistanciaRecorrida = 6 - Ubica.Origen = New CFDICartaPorteUbicacionOrigen With {.RFCRemitente = UsuarioActual.Empresa.RFC, - .FechaHoraSalida = Now.ToString("yyyy-MM-ddTH:mm:ss"),' "2021-08-23T11:13:01", + Ubica.TipoEstacion = "" + Ubica.DistanciaRecorridaDestino = 1 + Ubica.Origen = New CFDICartaPorteUbicacionOrigen With {.RFCRemitente = "",'UsuarioActual.Empresa.RFC, + .FechaHoraSalida = Now.ToString("yyyy-MM-ddTHH:mm:ss"),' "2021-08-23T11:13:01", .NombreRemitente = UsuarioActual.Empresa.Empresa, .Domicilio = DomOrigen} - Ubica.Destino = New CFDICartaPorteUbicacionDestino With {.RFCDestinatario = UsuarioActual.Empresa.RFC,'"CAMJ841219I33", + Ubica.Destino = New CFDICartaPorteUbicacionDestino With {.RFCDestinatario = "",'UsuarioActual.Empresa.RFC,'"CAMJ841219I33", .FechaHoraProgLlegada = TxtFechaEntrega.Text.ToDate.ToString("yyyy-MM-ddT23:59:59"), .NombreDestinatario = UsuarioActual.Empresa.Empresa, .Domicilio = DomDestino} @@ -3025,7 +3022,7 @@ Partial Class Inventarios_TraspasoAlmacen 'If TimbrarFacturaGoCFDIv33(ObjFactura, UsuarioActual, 4) <> "" Then ' MensajeAlert.AppendFormat("
    • -- no timbró-{0}
    ", MensajeErrorCFDI) 'End If - If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, 3) Then + If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then MensajeAlert.Append("Emitido con exito.") 'XML Dim ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio) @@ -3277,13 +3274,13 @@ Partial Class Inventarios_TraspasoAlmacen End Sub Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click - Dim ObjInventarios As New ClsInventarios - If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, ConfigCartaPorte:=DdlConfigAuto.SelectedValue, Anio:=TxtAnio.Text.ToEntero(), TipoPermisoSCT:=TxtTipoPermisoSCT.Text, NumPermisoSCT:=TxtNumermisoSCT.Text, NombreAseguradora:=TxtNombreAseguradora.Text, NumPolizaSeguro:=TxtNumPolizaSeguro.Text, CveEmpresa:=UsuarioActual.CveEmpresa) Then - RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');") - CargarCamiones() - LimpiarAgregarCamion() - End If - ObjInventarios.Dispose() + 'Dim ObjInventarios As New ClsInventarios + 'If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, ConfigCartaPorte:=DdlConfigAuto.SelectedValue, Anio:=TxtAnio.Text.ToEntero(), TipoPermisoSCT:=TxtTipoPermisoSCT.Text, NumPermisoSCT:=TxtNumermisoSCT.Text, NombreAseguradora:=TxtNombreAseguradora.Text, NumPolizaSeguro:=TxtNumPolizaSeguro.Text, CveEmpresa:=UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then + ' RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');") + ' CargarCamiones() + ' LimpiarAgregarCamion() + 'End If + 'ObjInventarios.Dispose() End Sub Private Sub LimpiarAgregarCamion() diff --git a/Planeacion/CatFolios.aspx.vb b/Planeacion/CatFolios.aspx.vb index 5d7011078..3f6d7292f 100644 --- a/Planeacion/CatFolios.aspx.vb +++ b/Planeacion/CatFolios.aspx.vb @@ -71,6 +71,7 @@ Partial Class CatFolios DdlTipoDocto.Items.Insert(32, New ListItem("Acreedor", "Acr")) DdlTipoDocto.Items.Insert(33, New ListItem("Productos/Servicios", "PS")) DdlTipoDocto.Items.Insert(34, New ListItem("NC de Remisión", "RNC")) + DdlTipoDocto.Items.Insert(35, New ListItem("Traspaso Carta Porte", "Tra")) ElseIf UsuarioActual.Empresa.CvePlataforma = 2 Then DdlTipoDocto.Items.Insert(1, New ListItem("Facturas", "Ing")) DdlTipoDocto.Items.Insert(2, New ListItem("Notas de Crédito", "Egs")) diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index 6338ebba5..70bd0c4a2 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -118,14 +118,14 @@
    - +
    - +
    @@ -145,7 +145,7 @@
    - + @@ -153,20 +153,20 @@
    - +
    - +
    - +
    @@ -184,20 +184,20 @@
    - +
    - +
    - +
    <%-- @@ -244,7 +244,7 @@
    - +
    @@ -481,12 +481,16 @@ + - SeInscribioSS + + + - + + SalarioDiarioPago diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 902691bdd..126d3f76e 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -64,6 +64,17 @@ Partial Class RH_CatPersonal CargaSatRiesgoPuesto() LoadDefaultValues() + + + ' GvDatos.Rows(0).FCLabel("LtlSubProyectoConfigurado").Text = LblSubProyectoAsignado.Text + + GvDatos.HeaderRow.Cells(20).Text = LblSubProyectoAsignado.Text + + 'GvDatos.Columns(21).HeaderText = LblSubProyectoAsignado.Text + + UPDatos.Update() + + End If End Sub diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index edaa98439..da736866d 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -5408,14 +5408,33 @@ Partial Class RH_Personal Dim Cantidad As Double = TxtCantidadResguardo.Text.ToDouble() Dim Serie As String = TxtLiberarSerie.Text.Trim + Dim Errores As String = "" Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme) - Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=-3, Serie:=Serie, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme) - Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero() - Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme) - Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie) + If CveResultadoSalida > 0 Then + Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=-3, Serie:=Serie, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme) - If ResultadoDetalleSalida And ResultadoDetalleEntrada Then + Dim ResultadoDetalleEntrada As Boolean = False + If ResultadoDetalleSalida Then + Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero() + Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero(), 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme) + If CveResultadoEntrada > 0 Then + ResultadoDetalleEntrada = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie) + If Not ResultadoDetalleEntrada Then + Errores = "No se puede registrar la entrada detallada" + End If + Else + Errores = "No se puede registrar la entrada" + End If + Else + Errores = "No se puede registrar el detalle de salida" + End If + Else + Errores = "No se puede registrar la salida" + End If + + + If Errores = "" Then ObjInventario.Commit() Alert("El resguardo se liberó correctamente") RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme")) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index f2340f58a..82c774b14 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1062,7 +1062,11 @@
    El cliente desglosa IEPS: - + +
    +
    + El cliente No desglosa IVA: +

    @@ -3389,7 +3393,7 @@ - +
    @@ -3415,6 +3419,8 @@ +