diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index 2342b01f1..749257ef8 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -826,7 +826,7 @@ End Class Public Class CFDICartaPorte - Public Property TranspInternac As String = "" + Public Property TranspInternac As String = "No" Public Property EntradaSalidaMercancia As String = "" Public Property ViaEntradaSalida As String = "" Public Property RegimenAduanero As String = "" @@ -963,6 +963,8 @@ Public Class CFDICartaPorteMercancia Public Property DatosFormulador As String = "" Public Property DatosMaquilador As String = "" Public Property UsoAutorizado As String = "" + Public Property TipoMateria As String = "" + Public Property TipoMateriaDescripcion As String = "" Public Property PesoenKg As Decimal = 0 Public Property ValorMercancia As Decimal Public Property Moneda As String = "" diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index e21629206..1722b4293 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1024,7 +1024,8 @@ Public Class ClsClientes ' Return Retorno 'End Function Public Function AddSucursal(CveCliente As Integer, Sucursal As String, CveUsuario As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer, - LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "") As Boolean + LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "", + Optional CveAlmacenAsignado As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_SucursalClienteAdd") @@ -1059,6 +1060,9 @@ Public Class ClsClientes .Add("@LG", SqlDbType.VarChar).Value = LG .Add("@RFC", SqlDbType.VarChar).Value = RFC + .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado + + End With Try @@ -1077,7 +1081,8 @@ Public Class ClsClientes Return Retorno End Function Public Function UpdateSucursal(Sucursal As String, Estatus As Boolean, CveCliente As Integer, CveClienteSucursal As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer, - LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "-1") As Boolean + LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "-1", + Optional CveAlmacenAsignado As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_SucursalClienteUpdate") @@ -1115,6 +1120,8 @@ Public Class ClsClientes .Add("@LG", SqlDbType.VarChar).Value = LG .Add("@RFC", SqlDbType.VarChar).Value = RFC + .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado + End With Try diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 6bf89b4ea..e1eb9a7be 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2783,12 +2783,8 @@ Public Class ClsGenerales Public Function GetSATUsosCFDI() As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Gral_SAT_UsosCFDIGet") - - With SqlAdapter.SelectCommand.Parameters - - End With - 'SqlTypes.SqlDateTime.Null + DataAdapter("PA_Gral_SAT_UsosCFDIGet") + Try SqlAdapter.Fill(Data) Retorno = True @@ -2799,17 +2795,9 @@ Public Class ClsGenerales Return Retorno End Function - - - Public Function GetSATSectorCOFEPRIS() As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Gral_SAT_SectorCOFEPRISGet") - - With SqlAdapter.SelectCommand.Parameters - - End With - + DataAdapter("PA_Gral_SAT_CP_SectorCOFEPRISGet") Try SqlAdapter.Fill(Data) Retorno = True @@ -2820,15 +2808,9 @@ Public Class ClsGenerales Return Retorno End Function - Public Function GetSATFormaFarmaceutica() As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Gral_SAT_FormaFarmaceuticaGet") - - With SqlAdapter.SelectCommand.Parameters - - End With - + DataAdapter("PA_Gral_SAT_CP_FormaFarmaceuticaGet") Try SqlAdapter.Fill(Data) Retorno = True @@ -2839,6 +2821,32 @@ Public Class ClsGenerales Return Retorno End Function + Public Function GetSATCPTipoMateria() As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_SAT_CP_TipoMateriaGet") + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los tipo de materia", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetSATCPCondicionesEspeciales() As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_SAT_CP_CondicionesEspecialesGet") + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las condiciones especiales", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + #End Region #Region "SAT CFDI COMERCIO EXTERIOR" diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 53cc316e1..78e05f667 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1293,10 +1293,9 @@ Public Class ClsPaginas End Set End Property - - Public Shared Property GlobalDTSATSectorCOFEPRIS() As DataTable + Public Shared Property GlobalDT_SAT_CP_SectorCOFEPRIS() As DataTable Get - Dim AppNombre As String = "GlobalDTSATSectorCOFEPRIS" + Dim AppNombre As String = "GlobalDT_SAT_CP_SectorCOFEPRIS" If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjGral As New ClsGenerales() If ObjGral.GetSATSectorCOFEPRIS() Then @@ -1307,13 +1306,13 @@ Public Class ClsPaginas Return CType(HttpContext.Current.Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTSATSectorCOFEPRIS" + Dim AppNombre As String = "GlobalDT_SAT_CP_SectorCOFEPRIS" HttpContext.Current.Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTSATFormaFarmaceutica() As DataTable + Public Shared Property GlobalDT_SAT_CP_FormaFarmaceutica() As DataTable Get - Dim AppNombre As String = "GlobalDTSATFormaFarmaceutica" + Dim AppNombre As String = "GlobalDT_SAT_CP_FormaFarmaceutica" If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjGral As New ClsGenerales() If ObjGral.GetSATFormaFarmaceutica() Then @@ -1324,7 +1323,42 @@ Public Class ClsPaginas Return CType(HttpContext.Current.Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTSATFormaFarmaceutica" + Dim AppNombre As String = "GlobalDT_SAT_CP_FormaFarmaceutica" + HttpContext.Current.Application(AppNombre) = value + End Set + End Property + + Public Shared Property GlobalDT_SAT_CP_TipoMateria() As DataTable + Get + Dim AppNombre As String = "GlobalDT_SAT_CP_TipoMateria" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjGral As New ClsGenerales() + If ObjGral.GetSATCPTipoMateria() Then + HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados + End If + ObjGral.Dispose() + End If + Return CType(HttpContext.Current.Application(AppNombre), DataTable) + End Get + Set(value As DataTable) + Dim AppNombre As String = "GlobalDT_SAT_CP_TipoMateria" + HttpContext.Current.Application(AppNombre) = value + End Set + End Property + Public Shared Property GlobalDT_SAT_CP_CondicionesEspeciales() As DataTable + Get + Dim AppNombre As String = "GlobalDT_SAT_CP_CondicionesEspeciales" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjGral As New ClsGenerales() + If ObjGral.GetSATCPCondicionesEspeciales() Then + HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados + End If + ObjGral.Dispose() + End If + Return CType(HttpContext.Current.Application(AppNombre), DataTable) + End Get + Set(value As DataTable) + Dim AppNombre As String = "GlobalDT_SAT_CP_CondicionesEspeciales" HttpContext.Current.Application(AppNombre) = value End Set End Property diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 4c8b7f62a..5344c61fa 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -2352,9 +2352,9 @@ Public Class ClsProductosServicios End Function Public Function AddUpdateProductosServiciosComplementos(CvePS As Integer, PesoKg As Decimal, CveMaterialPeligroso As Integer, CveEmbalaje As Integer, Dimensiones As String, CveSectorCOFEPRIS As Integer, NombreIngredienteActivo As String, - NomQuimico As String, DenominacionGenerica As String, DenominacionDistintiva As String, Fabricante As String, CveFormaFarmaceutica As Integer, CondicionesTransporte As String, + NomQuimico As String, DenominacionGenerica As String, DenominacionDistintiva As String, Fabricante As String, CveFormaFarmaceutica As Integer, CveCondicionesEspTransporte As Integer, RegistroSanitarioAutorizacion As String, PermisoImportacion As String, FolioImportacionVUCEM As String, NumCAS As String, RazonSocialEmpImportacion As String, NumRegistroPlagCOFEPRIS As String, - DatosFabricante As String, DatosFormulador As String, DatosMaquilador As String, UsoAutorizado As String) As Boolean + DatosFabricante As String, DatosFormulador As String, DatosMaquilador As String, UsoAutorizado As String, CveTipoMateria As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ProductosServiciosComplementosAddUpdate") With SqlAdapter.SelectCommand.Parameters @@ -2370,7 +2370,7 @@ Public Class ClsProductosServicios .Add("@DenominacionDistintiva", SqlDbType.VarChar).Value = DenominacionDistintiva .Add("@Fabricante", SqlDbType.VarChar).Value = Fabricante .Add("@CveFormaFarmaceutica", SqlDbType.Int).Value = CveFormaFarmaceutica - .Add("@CondicionesTransporte", SqlDbType.VarChar).Value = CondicionesTransporte + .Add("@CveCondicionesEspTransporte", SqlDbType.Int).Value = CveCondicionesEspTransporte .Add("@RegistroSanitarioAutorizacion", SqlDbType.VarChar).Value = RegistroSanitarioAutorizacion .Add("@PermisoImportacion", SqlDbType.VarChar).Value = PermisoImportacion .Add("@FolioImportacionVUCEM", SqlDbType.VarChar).Value = FolioImportacionVUCEM @@ -2381,6 +2381,7 @@ Public Class ClsProductosServicios .Add("@DatosFormulador", SqlDbType.VarChar).Value = DatosFormulador .Add("@DatosMaquilador", SqlDbType.VarChar).Value = DatosMaquilador .Add("@UsoAutorizado", SqlDbType.VarChar).Value = UsoAutorizado + .Add("@CveTipoMateria", SqlDbType.Int).Value = CveTipoMateria End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index d129939be..ead2bb3c7 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -11,7 +11,7 @@ Imports System.Xml.Serialization Imports Extensiones Imports Newtonsoft.Json.Linq Imports Profact.TimbraCFDI33.Complementos -Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte20 +Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte30 Public Enum VersionTimbradoEnum As Integer @@ -1717,7 +1717,7 @@ Public Class Timbrado ''DATOS GENERALES Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte - Dim ComCartaPorte As ProfactCartaPorte.CartaPorte = New ProfactCartaPorte.CartaPorte() + Dim ComCartaPorte As ProfactCartaPorte.CartaPorte = New ProfactCartaPorte.CartaPorte ComCartaPorte.TranspInternac = CType([Enum].Parse(GetType(ProfactCartaPorte.CartaPorteTranspInternac), Carta.TranspInternac), ProfactCartaPorte.CartaPorteTranspInternac) ComCartaPorte.EntradaSalidaMercSpecified = False ComCartaPorte.ViaEntradaSalidaSpecified = False @@ -1803,6 +1803,44 @@ Public Class Timbrado ComCartaPorte.Mercancias.Mercancia(i).FraccionArancelariaSpecified = False If concep.UUIDComercioExt <> "" Then ComCartaPorte.Mercancias.Mercancia(i).UUIDComercioExt = concep.UUIDComercioExt + If concep.SectorCOFEPRIS <> "" Then + 'ComCartaPorte.Mercancias.Mercancia(i).SectorCOFEPRIS = concep.SectorCOFEPRIS + ComCartaPorte.Mercancias.Mercancia(i).SectorCOFEPRISSpecified = True + End If + If concep.FechaCaducidad <> "" Then + ComCartaPorte.Mercancias.Mercancia(i).FechaCaducidad = concep.FechaCaducidad.ToDate + ComCartaPorte.Mercancias.Mercancia(i).FechaCaducidadSpecified = True + End If + If concep.FormaFarmaceutica <> "" Then + ' ComCartaPorte.Mercancias.Mercancia(i).FormaFarmaceutica = concep.FormaFarmaceutica + ComCartaPorte.Mercancias.Mercancia(i).FormaFarmaceuticaSpecified = True + End If + If concep.CondicionesEspTransp <> "" Then + 'ComCartaPorte.Mercancias.Mercancia(i).CondicionesEspTransp = concep.CondicionesEspTransp + ComCartaPorte.Mercancias.Mercancia(i).CondicionesEspTranspSpecified = True + End If + + ComCartaPorte.Mercancias.Mercancia(i).NombreIngredienteActivo = concep.NombreIngredienteActivo + ComCartaPorte.Mercancias.Mercancia(i).NomQuimico = concep.NomQuimico + ComCartaPorte.Mercancias.Mercancia(i).DenominacionGenericaProd = concep.DenominacionGenericaProd + ComCartaPorte.Mercancias.Mercancia(i).DenominacionDistintivaProd = concep.DenominacionDistintivaProd + ComCartaPorte.Mercancias.Mercancia(i).Fabricante = concep.Fabricante + + ComCartaPorte.Mercancias.Mercancia(i).LoteMedicamento = concep.LoteMedicamento + + + ComCartaPorte.Mercancias.Mercancia(i).RegistroSanitarioFolioAutorizacion = concep.RegistroSanitarioFolioAutorizacion + ComCartaPorte.Mercancias.Mercancia(i).PermisoImportacion = concep.PermisoImportacion + ComCartaPorte.Mercancias.Mercancia(i).FolioImpoVUCEM = concep.FolioImpoVUCEM + ComCartaPorte.Mercancias.Mercancia(i).NumCAS = concep.NumCAS + ComCartaPorte.Mercancias.Mercancia(i).RazonSocialEmpImp = concep.RazonSocialEmpImp + ComCartaPorte.Mercancias.Mercancia(i).FolioImpoVUCEM = concep.FolioImpoVUCEM + ComCartaPorte.Mercancias.Mercancia(i).NumRegSanPlagCOFEPRIS = concep.NumRegSanPlagCOFEPRIS + ComCartaPorte.Mercancias.Mercancia(i).DatosFabricante = concep.DatosFabricante + ComCartaPorte.Mercancias.Mercancia(i).DatosFormulador = concep.DatosFormulador + ComCartaPorte.Mercancias.Mercancia(i).DatosMaquilador = concep.DatosMaquilador + ComCartaPorte.Mercancias.Mercancia(i).UsoAutorizado = concep.UsoAutorizado + Dim j As Integer = 0 ComCartaPorte.Mercancias.Mercancia(i).CantidadTransporta = New ProfactCartaPorte.CartaPorteMercanciasMercanciaCantidadTransporta(Carta.Mercancias.Mercancias.Count - 1) {} For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta @@ -1822,7 +1860,7 @@ Public Class Timbrado If Carta.FiguraTransporte IsNot Nothing Then If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then - + ComCartaPorte.IdCCP = Guid.NewGuid().ToString 'ComCartaPorte.FiguraTransporte(1). = ProfactCartaPorte.c_CveTransporte.Item02 ComCartaPorte.Mercancias.Autotransporte = New ProfactCartaPorte.CartaPorteMercanciasAutotransporte @@ -1835,6 +1873,7 @@ Public Class Timbrado ConfigVehicular.ConfigVehicular = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ConfigAutotransporte), Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular), ProfactCartaPorte.c_ConfigAutotransporte) ConfigVehicular.AnioModeloVM = Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM ConfigVehicular.PlacaVM = Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM + ConfigVehicular.PesoBrutoVehicular = Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular ComCartaPorte.Mercancias.Autotransporte.IdentificacionVehicular = ConfigVehicular @@ -2599,7 +2638,8 @@ Public Class Timbrado For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias If concep.ValorMercancia <= 0 Then concep.Moneda = "" cfdi.CartaPorte30Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), - concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, concep.PermisoImportacion, concep.FolioImpoVUCEM, concep.NumCAS, concep.RazonSocialEmpImp, concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado, + concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, + If(Carta.TranspInternac <> "No", concep.PermisoImportacion, ""), If(Carta.TranspInternac <> "No", concep.FolioImpoVUCEM, ""), concep.NumCAS, If(Carta.TranspInternac <> "No", concep.RazonSocialEmpImp, ""), concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb index 074fbbbcb..8e40b78aa 100644 --- a/App_Code/Timbres.vb +++ b/App_Code/Timbres.vb @@ -304,7 +304,26 @@ Public Class Timbres .ValorMercancia = drr("PU").ToString.ToDecimal, .Moneda = If(drr("PU").ToString.ToDecimal > 0, "MXN", ""), 'temporal .FraccionArrancelaria = "", - .UUIDComercioExt = "" + .UUIDComercioExt = "", + .SectorCOFEPRIS = drr("ClaveSectorCOFEPRIS").ToString, + .NombreIngredienteActivo = drr("NombreIngredienteActivo").ToString, + .NomQuimico = drr("NomQuimico").ToString, + .DenominacionGenericaProd = drr("DenominacionGenerica").ToString, + .DenominacionDistintivaProd = drr("DenominacionDistintiva").ToString, + .Fabricante = drr("Fabricante").ToString, + .CondicionesEspTransp = drr("ClaveCondicionesEspeciales").ToString, + .RegistroSanitarioFolioAutorizacion = drr("RegistroSanitarioAutorizacion").ToString, + .PermisoImportacion = drr("PermisoImportacion").ToString, + .FolioImpoVUCEM = drr("FolioImportacionVUCEM").ToString, + .NumCAS = drr("NumCAS").ToString, + .RazonSocialEmpImp = drr("RazonSocialEmpImportacion").ToString, + .NumRegSanPlagCOFEPRIS = drr("NumRegistroPlagCOFEPRIS").ToString, + .DatosFabricante = drr("DatosFabricante").ToString, + .DatosFormulador = drr("DatosFormulador").ToString, + .DatosMaquilador = drr("DatosMaquilador").ToString, + .UsoAutorizado = drr("UsoAutorizado").ToString, + .TipoMateria = drr("ClaveTipoMateria").ToString, + .TipoMateriaDescripcion = drr("TipoMateria").ToString } Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToEntero} diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 11915e78e..7d769f070 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -4238,7 +4238,7 @@ Partial Class Bancos_IE ElseIf DdlProveedores.Visible Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{DdlProveedores.SelectedText}") ElseIf DdlPersonal.Visible Then - DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{DdlPersonal.SelectedItem.Text}") + DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{If(DdlPersonal.SelectedItem IsNot Nothing, DdlPersonal.SelectedItem.Text, "")}") End If DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Fecha:{TxtFechaDocumento.Text}") diff --git a/Bin/Profact.TimbraCFDI.dll b/Bin/Profact.TimbraCFDI.dll index aebf0ab01..ceaa9cf16 100644 Binary files a/Bin/Profact.TimbraCFDI.dll and b/Bin/Profact.TimbraCFDI.dll differ diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index aee594f27..ce1cbb413 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1727,7 +1727,7 @@ Partial Class Compras_Compras If TmpDT.MAX("RetIVAPorcentaje").ToDecimal = 0.04 Then RetIVAFlete = True If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then - Dim mensajeAdvertencia As String = String.Format("El comprobante contiene productos con código SAT '01010101', revise los productos:

{0}", ProductosCodigoSATNoPermitidos.ToString) + Dim mensajeAdvertencia As String = String.Format("El XML que intenta registrar contiene partidas o artículos con código SAT ‘01010101’ el cual no es aceptado, hable con su proveedor para cancelar y/o refacturar un XML válido.
Partidas o artículos con código ‘01010101’:

{0}", ProductosCodigoSATNoPermitidos.ToString) Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia) If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso Not UsuarioActual.CveUsuario.Contiene(1719, 1721) Then BtnGuardar.Enabled = False '' solo se activa para el usuario Sara.JAM BtnGuardar.ToolTip = "No se permite registrar facturas con conceptos con código '01010101'. Solicite al proveedor un nuevo comprobante." diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx b/Contabilidad2/RepAnexoCatalogoAnual.aspx index 57d34487d..476f19e1d 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx @@ -50,21 +50,41 @@
- + + "><%--class="expand"--%> +
-
    -
  • Ejercicio Inicio: - - -
    • -
  • Ejercicio Fin: - - -
    • -
  • - +
    +
    + Cuenta +
    +
    + + + + + +
    + + +
    + Ejercicio Inicio: +
    +
    + +
    +
    + Ejercicio Fin: +
    +
    + +
    +
    + +
    +
    @@ -80,35 +100,43 @@ -
    • -
  • SubProyecto: +
+
+ + +
+ +
> +
+ +
+ Proyecto: +
+
+ + +
+ SubProyecto: +
+ + +
+
+ Divisor: +
+
- - -
  • Divisor: - - - - - - -
    • -
  • Cuenta: -
    • -
  • - - - - - - - -
    • - - + + + + + + +
    +
    - + diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb index f88da1720..217b3c9d7 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb @@ -217,7 +217,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual DtHeadersCount = DTHeaders.Rows.Count GvAnual.DataSource = Conta.DSResultados.Tables(1) - Dim Index = 2 + Dim Index As Integer = 2 For Index = 2 To GvAnual.Columns.Count - 1 GvAnual.Columns(Index).Visible = False Next Index diff --git a/Inventarios/CatUnidades.aspx b/Inventarios/CatUnidades.aspx index 72f256124..df1c8711d 100644 --- a/Inventarios/CatUnidades.aspx +++ b/Inventarios/CatUnidades.aspx @@ -155,7 +155,7 @@
    - + <%----%>
    diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 4062c16a1..7b0c3b044 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -519,7 +519,7 @@
    - +
    @@ -529,7 +529,7 @@
    <%----%> - + @@ -538,7 +538,7 @@
    - +
    diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index f66273808..7689a04e5 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -699,7 +699,7 @@ Partial Class Inventarios_EntradasSalidas TxtFechaEntrega.Text = NowADS().ToShortDateString TxtFechaLlegada.Text = NowADS().ToShortDateString - 'CargarCamiones() + CargarCamiones() DdlClienteCarta.setEsWebService(True) End Sub @@ -5895,20 +5895,17 @@ Partial Class Inventarios_EntradasSalidas Public Sub CargarCamiones() - - DdlConfigAuto.Items.Clear() - DdlUnidadCamion.Items.Clear() DdlUnidadCamion.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa) - DdlRemolque1.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa) DdlUnidadCamion.DataBind() DdlUnidadCamion.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) + + DdlRemolque1.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa) DdlRemolque1.DataBind() DdlRemolque1.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) DdlConfigAuto.DataSource = GlobalDTGralCartaPorteConfigAutoTransportes DdlConfigAuto.DataBind() DdlConfigAuto.Items.Insert(0, New ListItem("Seleccione una", "-1")) - End Sub Private Sub EmitirTimbrado(CveTimbre As Integer, TipoDocto As String, CveMovimientoTimbrado As Integer, ByRef MensajeAlert As StringBuilder) diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 6b785c696..187ee7301 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -1195,7 +1195,7 @@ diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index b59259e7d..81d3bc6b1 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -881,7 +881,9 @@ - + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index ed1f00179..b0f9f5881 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -661,6 +661,19 @@ Partial Class Clientes End Property + Property CveAlmacenAsignadoSucursal As Integer + Get + If ViewState("CveAlmacenAsignadoSucursal") Is Nothing Then + ViewState("CveAlmacenAsignadoSucursal") = -1 + End If + Return ViewState("CveAlmacenAsignadoSucursal").ToString().ToEntero() + End Get + Set(value As Integer) + ViewState("CveAlmacenAsignadoSucursal") = value + End Set + End Property + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -1234,7 +1247,7 @@ Partial Class Clientes DdlPrecioLista.DataBind() DdlPrecioLista.Items.Insert(0, New ListItem(" - ", "-1")) - If CveFuncionalidad404.Contiene(30) Then + If CveFuncionalidad404.Contiene(30) And DdlTipoCliente.SelectedValue.ToEntero = 1 Then DivCrearPrecioLista.Visible = True DdlPrecioListaClonar.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa) DdlPrecioListaClonar.DataBind() @@ -2523,7 +2536,7 @@ Partial Class Clientes If Not ErrorProceso Then If UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DdlAlmacenAsignado.SelectedValue.ToEntero = -1 Then 'limpiar ddl alamcen temporal que se agrego temporalmente - If Not GeneraGuardaAlmacenCliente(ObjClientes.IniciaTransacSQL) Then + If Not GeneraGuardaAlmacenAsignado(TxtNombre.Text.Trim, ObjClientes.IniciaTransacSQL) Then ErrorProceso = True End If End If @@ -2569,13 +2582,28 @@ Partial Class Clientes If Not ErrorProceso Then For Each Row As DataRow In TempDTSucursales.Rows If Not CveCliente > 0 Then - If Not ObjClientes.AddSucursal(CveClienteNuevo, Row("SucursalCliente").ToString(), UsuarioActual.CveUsuario, Row("CiudadSucursal").ToString(), Row("ColoniaSucursal").ToString(), Row("CPSucursal").ToString(), Row("DireccionSucursal").ToString(), Row("EstadoSucursal").ToString(), Row("LocalidadSucursal").ToString(), + + Dim CveAlmacenAsignadoSucursal As Integer = -1 + If DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + CveAlmacenAsignadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(Row("SucursalCliente").ToString(), ObjClientes.IniciaTransacSQL()) + If Not CveAlmacenAsignadoSucursal > 0 Then + ErrorProceso = True + Alert($"Se presento un erro al agregar el almacen de la sucursal {Row("SucursalCliente").ToString()}", TipoMensaje.MsgAdvertencia) + Exit For + End If + End If + + If Not ErrorProceso Then + If Not ObjClientes.AddSucursal(CveClienteNuevo, Row("SucursalCliente").ToString(), UsuarioActual.CveUsuario, Row("CiudadSucursal").ToString(), Row("ColoniaSucursal").ToString(), Row("CPSucursal").ToString(), Row("DireccionSucursal").ToString(), Row("EstadoSucursal").ToString(), Row("LocalidadSucursal").ToString(), Row("PaisSucursal").ToString(), Row("NumExtSucursal").ToString(), Row("NumIntSucursal").ToString(), Row("TelefonoSucursal").ToString(), Row("CorreoSucursal").ToString(), Row("CorreoCotiziacionSucursal").ToString(), Row("ContactoSucursal").ToString(), Row("CveVendedorSucursal").ToString().ToEntero(), Row("NumCuenta").ToString(), Row("CveMetodoPago").ToString().ToEntero(), Row("LimiteCredito").ToString().ToDecimal(), Row("CveResponsableCobranza").ToString().ToEntero(), - Row("CveUsoCFDI").ToString().ToEntero(), Row("CveFormaPago33").ToString().ToEntero(), Row("CveMetodoPago33").ToString().ToEntero(), LT:=Row("LT").ToString(), LG:=Row("LG").ToString()) Then - ErrorProceso = True - Exit For + Row("CveUsoCFDI").ToString().ToEntero(), Row("CveFormaPago33").ToString().ToEntero(), Row("CveMetodoPago33").ToString().ToEntero(), LT:=Row("LT").ToString(), LG:=Row("LG").ToString(), CveAlmacenAsignado:=CveAlmacenAsignadoSucursal) Then + ErrorProceso = True + Exit For + End If End If + + End If Next End If @@ -2971,11 +2999,13 @@ Partial Class Clientes #End Region #Region "S U C U R S A L E S" - Private Sub LbAgregarSucursal_Click(sender As Object, e As EventArgs) Handles LbAgregarSucursal.Click + Private Sub LbAgregarSucursal_Click(sender As Object, e As EventArgs) Handles LbAgregarSucursal.Click + ChkEstatusSucursal.Checked = True DivEstatusSucursal.Visible = False TxtNumeroCuenta.Text = "" DdlMetodoPagoSucursal.SelectedIndex = 0 + CveAlmacenAsignadoSucursal = -1 UpAgregarSucursal.Update() Me.CveClienteSuc = -1 Me.Actualizar = False @@ -3008,70 +3038,93 @@ Partial Class Clientes End If Return Retorno End Function - Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarSucursal.Click - Dim ObjCliente As New ClsClientes - + Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarSucursal.Click + + Dim LT As String = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0") Dim LG As String = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0") Dim RFC As String = If(String.IsNullOrEmpty(TxtRFCSucursal.Text), "-1", TxtRFCSucursal.Text) - - If CveCliente > 0 Then - If Actualizar Then - - Dim Estatus As Boolean = ChkEstatusSucursal.Checked - - If ObjCliente.UpdateSucursal(TxtNombreSucursal.Text.Trim, Estatus, CveCliente, CveClienteSuc, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, - TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(), - DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC) Then - GVSucursales.EditIndex = -1 - ViewState("DTSucursalesCliente") = ObjCliente.DtResultados - Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) - End If - ObjCliente.Dispose() - - If ViewState("Orden").ToString() <> String.Empty Then - CargaGrid(ViewState("Orden").ToString(), 0) - Else - CargaGrid("", 0) - End If - - Else - If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, - DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(), - DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC) Then - TxtNombreSucursal.Text = "" - TxtCiudadSucursal.Text = "" - TxtColoniaSucursal.Text = "" - TxtCPSucursal.Text = "" - TxtDireccionSucursal.Text = "" - TxtEstadoSucursal.Text = "" - TxtLocalidadSucursal.Text = "" - TxtPaisSucursal.Text = "" - TxtNumExtSucursal.Text = "" - TxtNumIntSucursal.Text = "" - TxtTelefonoSucursal.Text = "" - TxtCorreoSucursal.Text = "" - TxtCorreoSucursalCotizacion.Text = "" - TxtContactoSucursal.Text = "" - DdlVendedorSucursal.SelectedIndex = 0 - DdlMetodoPagoSucursal.SelectedIndex = 0 - TxtNumeroCuenta.Text = "" - TxtLimiteCreditoSucursal.Text = "" - DdlResponsableSucursal.SelectedIndex = 0 - DdlSucursalUsoCFDI.SelectedIndex = 0 - DdlSucursalFormaPago33.SelectedIndex = 0 - DdlSucursalMetodoPago33.SelectedIndex = 0 - Alert("La nueva Sucursal del Cliente se guardó correctamente.", TipoMensaje.MsgInformacion) - ViewState("DTSucursalesCliente") = ObjCliente.DtResultados - - If ViewState("Orden").ToString() <> String.Empty Then - CargaGrid(ViewState("Orden").ToString(), 0) - Else - CargaGrid("", 0) - End If - End If - End If - + Dim CveAlmacenAgregadoSucursal As Integer = -1 + + + If CveCliente > 0 Then + + Dim ProcesoOK As Boolean = True + Dim ObjCliente As New ClsClientes + ObjCliente.IniciaTransacSQL() + + If CveAlmacenAsignadoSucursal <= 0 AndAlso DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + CveAlmacenAgregadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(TxtNombreSucursal.Text.Trim, ObjCliente.IniciaTransacSQL()) + If Not CveAlmacenAgregadoSucursal > 0 Then + ProcesoOK = False + End If + End If + + If ProcesoOK Then + If Actualizar Then + Dim Estatus As Boolean = ChkEstatusSucursal.Checked + If ObjCliente.UpdateSucursal(TxtNombreSucursal.Text.Trim, Estatus, CveCliente, CveClienteSuc, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, + TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(), + DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC, CveAlmacenAsignado:=CveAlmacenAgregadoSucursal) Then + GVSucursales.EditIndex = -1 + ViewState("DTSucursalesCliente") = ObjCliente.DtResultados + Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) + Else + ProcesoOK = False + End If + ObjCliente.Dispose() + + Else + If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, + DdlVendedorSucursal.SelectedValue.ToEntero(), TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero(), TxtLimiteCreditoSucursal.Text.ToDecimal(), DdlResponsableSucursal.SelectedValue.ToEntero(), + DdlSucursalUsoCFDI.SelectedValue.ToEntero(), DdlSucursalFormaPago33.SelectedValue.ToEntero(), DdlSucursalMetodoPago33.SelectedValue.ToEntero(), LT:=LT, LG:=LG, RFC:=RFC, CveAlmacenAsignado:=CveAlmacenAgregadoSucursal) Then + TxtNombreSucursal.Text = "" + TxtCiudadSucursal.Text = "" + TxtColoniaSucursal.Text = "" + TxtCPSucursal.Text = "" + TxtDireccionSucursal.Text = "" + TxtEstadoSucursal.Text = "" + TxtLocalidadSucursal.Text = "" + TxtPaisSucursal.Text = "" + TxtNumExtSucursal.Text = "" + TxtNumIntSucursal.Text = "" + TxtTelefonoSucursal.Text = "" + TxtCorreoSucursal.Text = "" + TxtCorreoSucursalCotizacion.Text = "" + TxtContactoSucursal.Text = "" + DdlVendedorSucursal.SelectedIndex = 0 + DdlMetodoPagoSucursal.SelectedIndex = 0 + TxtNumeroCuenta.Text = "" + TxtLimiteCreditoSucursal.Text = "" + DdlResponsableSucursal.SelectedIndex = 0 + DdlSucursalUsoCFDI.SelectedIndex = 0 + DdlSucursalFormaPago33.SelectedIndex = 0 + DdlSucursalMetodoPago33.SelectedIndex = 0 + Alert("La nueva Sucursal del Cliente se guardó correctamente.", TipoMensaje.MsgInformacion) + ViewState("DTSucursalesCliente") = ObjCliente.DtResultados + Else + ProcesoOK = False + End If + End If + End If + + + If ProcesoOK Then + + ObjCliente.Commit() + + If ViewState("Orden").ToString() <> String.Empty Then + CargaGrid(ViewState("Orden").ToString(), 0) + Else + CargaGrid("", 0) + End If + Else + ObjCliente.RollBack() + End If + + + ObjCliente.Dispose() + Else AddSucursalTemp() End If @@ -3080,12 +3133,10 @@ Partial Class Clientes txtLt.Text = "" UpModalDivMapa.Update() - - UpAgregarSucursal.Update() - CargaDdlSucursalCliente() - ObjCliente.Dispose() + CargaDdlSucursalCliente() + Me.Actualizar = False Me.CveClienteSuc = -1 RegistraScript("hideDivEC();") @@ -3116,7 +3167,7 @@ Partial Class Clientes If Not CveCliente > 0 Then - e.Row.Cells(3).Visible = False + e.Row.Cells(1).Visible = False End If End If @@ -3162,8 +3213,8 @@ Partial Class Clientes Me.Actualizar = True 'Me.DivRFCSucursal.Visible = False - Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString().ToEntero() - + Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString().ToEntero() + CveAlmacenAsignadoSucursal = -1 Dim ObjCliente As New ClsClientes @@ -3203,6 +3254,8 @@ Partial Class Clientes txtLt.Text = ObjCliente.DtResultados.Rows(0)("LT").ToString() HDMAPOP.Value = "2" + CveAlmacenAsignadoSucursal = ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString().ToEntero + UpAgregarSucursal.Update() UpModalDivMapa.Update() @@ -5431,8 +5484,20 @@ Partial Class Clientes TempDTSucursales.Columns.Add("Usuario", Type.GetType("System.String")) TempDTSucursales.Columns.Add("LT", Type.GetType("System.String")) TempDTSucursales.Columns.Add("LG", Type.GetType("System.String")) - TempDTSucursales.Columns.Add() - + TempDTSucursales.Columns.Add("CveAlmacenAsignado", Type.GetType("System.Int32")) + TempDTSucursales.Columns.Add("CveUsoCFDI", Type.GetType("System.Int32")) + TempDTSucursales.Columns.Add("CveFormaPago33", Type.GetType("System.Int32")) + TempDTSucursales.Columns.Add("CveMetodoPago33", Type.GetType("System.Int32")) + TempDTSucursales.Columns.Add("Correo", Type.GetType("System.String")) + TempDTSucursales.Columns.Add("CorreoCotizacion", Type.GetType("System.String")) + TempDTSucursales.Columns.Add("LimiteCredito", Type.GetType("System.Decimal")) + TempDTSucursales.Columns.Add("CveResponsableCobranza", Type.GetType("System.Int32")) + + TempDTSucursales.Columns.Add() + + + + End If End Sub @@ -5458,15 +5523,20 @@ Partial Class Clientes RowSucursal("CveMetodoPago") = DdlMetodoPagoSucursal.SelectedValue.ToEntero() RowSucursal("CveUsuario") = UsuarioActual.CveUsuario RowSucursal("FechaIng") = NowADS().ToShortDateString() - RowSucursal("Usuario") = UsuarioActual.Usuario - + RowSucursal("Usuario") = UsuarioActual.Usuario + + RowSucursal("CveUsoCFDI") = DdlSucursalUsoCFDI.SelectedValue.ToEntero() RowSucursal("CveFormaPago33") = DdlSucursalFormaPago33.SelectedValue.ToEntero() - RowSucursal("CveMetodoPago33") = DdlSucursalMetodoPago33.SelectedValue.ToEntero() - + RowSucursal("CveMetodoPago33") = DdlSucursalMetodoPago33.SelectedValue.ToEntero() + + RowSucursal("LimiteCredito") = TxtLimiteCreditoSucursal.Text.ToDecimal + RowSucursal("CveResponsableCobranza") = DdlResponsableSucursal.SelectedValue.ToEntero + + RowSucursal("LT") = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0") - RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0") - + RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0") + TempDTSucursales.Rows.Add(RowSucursal) GVSucursales.DataSource = TempDTSucursales @@ -9738,6 +9808,14 @@ Partial Class Clientes Protected Sub DdlTipoCliente_SelectedIndexChanged(sender As Object, e As EventArgs) TabSistema.Enabled = DdlTipoCliente.SelectedValue = "1" + Dim CveFuncionalidad404 As Integer = UsuarioActual.Empresa.Funcionalidad(404).ToEntero + If CveFuncionalidad404.Contiene(30) And DdlTipoCliente.SelectedValue.ToEntero = 1 Then + DivCrearPrecioLista.Visible = True + Else + DivCrearPrecioLista.Visible = True + End If + + UpDatos.Update() End Sub @@ -9866,8 +9944,9 @@ Partial Class Clientes Return retorno End Function - Public Property Token As String = "eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJDdmVQbGF0YWZvcm1hIjoiMSIsIkN2ZVVzdWFyaW8iOiIxNTM4IiwiQ3ZlRW1wcmVzYSI6IjIiLCJDdmVSb2wiOiIxIiwiRmVjaGEiOiJzw6FiYWRvLCAyMCBkZSBtYXJ6byBkZSAyMDIxIiwibmJmIjoxNjE2MjYzMzg2LCJleHAiOjE2MTYyNzQxODYsImlhdCI6MTYxNjI2MzM4Nn0.N_4yHZ0J41GgcXbAFfvyLvXiV-U8nRm85LoZhG1riNc" - + Public Property Token As String = "eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJDdmVQbGF0YWZvcm1hIjoiMSIsIkN2ZVVzdWFyaW8iOiIxNTM4IiwiQ3ZlRW1wcmVzYSI6IjIiLCJDdmVSb2wiOiIxIiwiRmVjaGEiOiJzw6FiYWRvLCAyMCBkZSBtYXJ6byBkZSAyMDIxIiwibmJmIjoxNjE2MjYzMzg2LCJleHAiOjE2MTYyNzQxODYsImlhdCI6MTYxNjI2MzM4Nn0.N_4yHZ0J41GgcXbAFfvyLvXiV-U8nRm85LoZhG1riNc" + + Public Class MResult Public Property isSuccess As Boolean Public Property message As String @@ -10421,12 +10500,12 @@ Partial Class Clientes End Function - Private Function GeneraGuardaAlmacenCliente(ByRef transaccionSQL As SqlTransaction) As Boolean + Private Function GeneraGuardaAlmacenAsignado(NombreAlmacen As String, ByRef transaccionSQL As SqlTransaction) As Boolean Dim respuesta As Boolean = True Dim ObjInv As New ClsInventarios(transaccionSQL) - If ObjInv.AddAlmacen(TxtNombre.Text.Trim, 1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlSubProyecto.SelectedValue.ToEntero) Then + If ObjInv.AddAlmacen(NombreAlmacen, 1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlSubProyecto.SelectedValue.ToEntero) Then DdlAlmacenAsignado.Items.Add(New ListItem(TxtNombre.Text.Trim, ObjInv.CveAlmacenAgregado.ToString)) DdlAlmacenAsignado.SelectedValueExist(ObjInv.CveAlmacenAgregado.ToString) @@ -10441,5 +10520,20 @@ Partial Class Clientes End Function + Private Function GeneraGuardaAlmacenAsignadoSucursal(NombreAlmacen As String, ByRef transaccionSQL As SqlTransaction) As Integer + + Dim CveAlmacenAgregado As Integer = -1 + Dim ObjInv As New ClsInventarios(transaccionSQL) + + If ObjInv.AddAlmacen(NombreAlmacen, 1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlSubProyecto.SelectedValue.ToEntero) Then + CveAlmacenAgregado = ObjInv.CveAlmacenAgregado + GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing + End If + + Return CveAlmacenAgregado + + End Function + End Class + diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index dacec1fb5..e6b4c3825 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -1160,7 +1160,11 @@
    - +
    +
    +
    +
    +
    @@ -1173,7 +1177,7 @@
    - + @@ -1181,9 +1185,9 @@
    - +
    - + @@ -1191,7 +1195,7 @@
    - +
    - +
    - + @@ -1221,7 +1225,7 @@
    - +
    - - +
    - +
    - +
    -
    - - - - +
    - +
    -
    - - +
    - + @@ -1280,7 +1279,7 @@
    - + @@ -1290,7 +1289,7 @@
    - + @@ -1300,7 +1299,7 @@
    - + @@ -1310,47 +1309,52 @@
    - +
    +
    +
    +
    +
    +
    - - - -
    - +
    - +
    - +
    - +
    - +
    - +
    - - - +
    + +
    + +
    +
    diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 248affbca..e0c9c1d84 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -459,14 +459,21 @@ Partial Class ProductosyServicios Private Sub CargaCombosPSComplementos() - DdlClaveSectorCOFEPRIS.DataSource = GlobalDTSATSectorCOFEPRIS + DdlClaveSectorCOFEPRIS.DataSource = GlobalDT_SAT_CP_SectorCOFEPRIS DdlClaveSectorCOFEPRIS.DataBind() DdlClaveSectorCOFEPRIS.Items.Insert(0, New ListItem("-", "-1")) - DdlClaveFormaFarmaceutica.DataSource = GlobalDTSATFormaFarmaceutica + DdlClaveFormaFarmaceutica.DataSource = GlobalDT_SAT_CP_FormaFarmaceutica DdlClaveFormaFarmaceutica.DataBind() DdlClaveFormaFarmaceutica.Items.Insert(0, New ListItem("-", "-1")) + DdlCondicionesEspTransporte.DataSource = GlobalDT_SAT_CP_CondicionesEspeciales + DdlCondicionesEspTransporte.DataBind() + DdlCondicionesEspTransporte.Items.Insert(0, New ListItem("-", "-1")) + + DdlTipoMateria.DataSource = GlobalDT_SAT_CP_TipoMateria + DdlTipoMateria.DataBind() + DdlTipoMateria.Items.Insert(0, New ListItem("-", "-1")) End Sub @@ -3411,7 +3418,7 @@ Partial Class ProductosyServicios TxtDenominacionGenerica.Text = ObjPS.DtResultados.Rows(0)("DenominacionGenerica").ToString TxtDenominacionDistintiva.Text = ObjPS.DtResultados.Rows(0)("DenominacionDistintiva").ToString TxtFabricante.Text = ObjPS.DtResultados.Rows(0)("Fabricante").ToString - TxtCondicionesTransporte.Text = ObjPS.DtResultados.Rows(0)("CondicionesTransporte").ToString + 'TxtCondicionesTransporte.Text = ObjPS.DtResultados.Rows(0)("CondicionesTransporte").ToString TxtRegistroSanitarioAutorizacion.Text = ObjPS.DtResultados.Rows(0)("RegistroSanitarioAutorizacion").ToString TxtPermisoImportacion.Text = ObjPS.DtResultados.Rows(0)("PermisoImportacion").ToString TxtFolioImportacionVUCEM.Text = ObjPS.DtResultados.Rows(0)("FolioImportacionVUCEM").ToString @@ -3422,6 +3429,8 @@ Partial Class ProductosyServicios TxtDatosFormulador.Text = ObjPS.DtResultados.Rows(0)("DatosFormulador").ToString TxtDatosMaquilador.Text = ObjPS.DtResultados.Rows(0)("DatosMaquilador").ToString TxtUsoAutorizado.Text = ObjPS.DtResultados.Rows(0)("UsoAutorizado").ToString + DdlCondicionesEspTransporte.SelectedValueExist(ObjPS.DtResultados.Rows(0)("CveCondicionesEspTransporte").ToString) + DdlTipoMateria.SelectedValueExist(ObjPS.DtResultados.Rows(0)("CveTipoMateria").ToString) MostrarOcultarControlesCCP(LimpiarControles:=False) @@ -3457,7 +3466,6 @@ Partial Class ProductosyServicios TxtDenominacionGenerica.Text = "" TxtDenominacionDistintiva.Text = "" TxtFabricante.Text = "" - TxtCondicionesTransporte.Text = "" TxtRegistroSanitarioAutorizacion.Text = "" TxtPermisoImportacion.Text = "" TxtFolioImportacionVUCEM.Text = "" @@ -3501,8 +3509,6 @@ Partial Class ProductosyServicios DVDatosMaquilador.Visible = True DVUsoAutorizado.Visible = True End If - - UpCartaPorte.Update() End Sub @@ -3516,7 +3522,7 @@ Partial Class ProductosyServicios CamposStringCCP = CamposStringCCP + TxtDenominacionGenerica.Text.Trim() CamposStringCCP = CamposStringCCP + TxtDenominacionDistintiva.Text.Trim() CamposStringCCP = CamposStringCCP + TxtFabricante.Text.Trim() - CamposStringCCP = CamposStringCCP + TxtCondicionesTransporte.Text.Trim() + ' CamposStringCCP = CamposStringCCP + TxtCondicionesTransporte.Text.Trim() CamposStringCCP = CamposStringCCP + TxtRegistroSanitarioAutorizacion.Text.Trim() CamposStringCCP = CamposStringCCP + TxtPermisoImportacion.Text.Trim() CamposStringCCP = CamposStringCCP + TxtFolioImportacionVUCEM.Text.Trim() @@ -3528,29 +3534,22 @@ Partial Class ProductosyServicios CamposStringCCP = CamposStringCCP + TxtDatosMaquilador.Text.Trim() CamposStringCCP = CamposStringCCP + TxtUsoAutorizado.Text.Trim() - If CamposStringCCP.Length > 0 And (DdlMaterialPeligroso.SelectedValue.ToEntero <= 0 Or DdlEmbalaje.SelectedValue.ToEntero <= 0 Or TxtDimensiones.Text = "" Or TxtPesoKg.Text = "") Then - Alert("Para guardar los datos de carta porte los campos Material Peligroso, Embalaje, Peso en Kg y Dimensiones son requeridos", TipoMensaje.MsgAdvertencia) + If CamposStringCCP.Length > 0 And (DdlMaterialPeligroso.SelectedValue.ToEntero <= 0 Or DdlEmbalaje.SelectedValue.ToEntero <= 0 Or TxtPesoKg.Text = "") Then + Alert("Para guardar los datos de carta porte los campos Material Peligroso, Embalaje, Peso en Kg son requeridos", TipoMensaje.MsgAdvertencia) Respuesta = False Else 'If DdlMaterialPeligroso.SelectedValue.ToEntero > 0 And DdlEmbalaje.SelectedValue.ToEntero > 0 And DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero > 0 And CamposStringCCP.Length > 0 Then Dim ObjPS As New ClsProductosServicios(transaccionSQL) If Not ObjPS.AddUpdateProductosServiciosComplementos(CvePS, TxtPesoKg.Text.ToDecimal, DdlMaterialPeligroso.SelectedValue.ToEntero, DdlEmbalaje.SelectedValue.ToEntero, TxtDimensiones.Text, DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero, - TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, TxtCondicionesTransporte.Text.Trim, + TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, DdlCondicionesEspTransporte.SelectedValue.ToEntero, TxtRegistroSanitarioAutorizacion.Text.Trim, TxtPermisoImportacion.Text.Trim, TxtFolioImportacionVUCEM.Text.Trim, TxtNumCAS.Text.Trim, TxtRazonSocialEmpImportacion.Text, TxtNumRegistroPlagCOFEPRIS.Text.Trim, TxtDatosFabricante.Text.Trim, - TxtDatosFormulador.Text.Trim, TxtDatosMaquilador.Text.Trim, TxtUsoAutorizado.Text) Then + TxtDatosFormulador.Text.Trim, TxtDatosMaquilador.Text.Trim, TxtUsoAutorizado.Text, DdlTipoMateria.SelectedValue.ToEntero) Then Respuesta = False End If - ' End If - + ' End If End If - - - - - - Return Respuesta End Function diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 356855766..33a153e0f 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3386,9 +3386,15 @@ Partial Class Ventas End If - If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso Request("VM") IsNot Nothing AndAlso IsNumeric(Request("VM")) AndAlso Request("VM").ToEntero() = 1 Then + If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then EsVentaMedica = True CargaTiposVenta() + + If CveCliente > 0 Then + DdlClientesWS.txtValue.Value = CveCliente.ToString + DdlClientesWS.txtText.Value = LblCliente.Text + DdlClientesWS.SelectedValue = CveCliente.ToString + End If End If End If @@ -24722,7 +24728,7 @@ Partial Class Ventas End If If Not dt.Columns(8).ColumnName = "Tiempo Entrega" Then - Alert("El nombre de la octava columna debe ser 'Tiempo Entrega'. Favor de corregirlo", TipoMensaje.MsgError) + Alert("El nombre de la novena columna debe ser 'Tiempo Entrega'. Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If @@ -24767,57 +24773,64 @@ Partial Class Ventas CveSubProyecto = -1 End If - If Codigo <> "" Then - - Using ObjPS As New ClsProductosServicios - If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, Codigo:=Codigo) Then - If ObjPS.CvePS > 0 Then - CvePS = ObjPS.CvePS - CveUM = ObjPS.CveUnidadMedida - CveClasificacion = ObjPS.CveClasificacion - Else - RowNoEncontrados = String.Format("{3}    - No se encontró {0} en la fila {1}, columna {2}<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados) - End If - Else - RowNoEncontrados = String.Format("{3}    - No se encontró {0} en la fila {1}, columna {2}<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados) - End If - End Using - - ElseIf CodigoBarras <> "" Then - - Using ObjPS As New ClsProductosServicios - If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, CodigoBarras:=CodigoBarras) Then - If ObjPS.CvePS > 0 Then - CvePS = ObjPS.CvePS - CveUM = ObjPS.CveUnidadMedida - CveClasificacion = ObjPS.CveClasificacion - Else - RowNoEncontrados = String.Format("{3}    - No se encontró {0} en la fila {1}, columna {2}<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados) - End If - Else - RowNoEncontrados = String.Format("{3}    - No se encontró {0} en la fila {1}, columna {2}<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados) - End If - End Using - - ElseIf ProductoServicio <> "" Then - - Using ObjPS As New ClsProductosServicios - If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, CodigoBarras:=CodigoBarras) Then - If ObjPS.CvePS > 0 Then - CvePS = ObjPS.CvePS - CveUM = ObjPS.CveUnidadMedida - CveClasificacion = ObjPS.CveClasificacion - Else - RowNoEncontrados = String.Format("{3}    - No se encontró {0} en la fila {1}, columna {2}<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados) - End If - Else - RowNoEncontrados = String.Format("{3}    - No se encontró {0} en la fila {1}, columna {2}<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados) - End If - End Using - Else - RowNoEncontrados &= "<\BR>    - En la fila " & NumRow & " no se especificó código, código de barras ó descripción." + If CveSubProyecto <= 0 Then + RowNoEncontrados = String.Format("{3}    - No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Proyecto, NumRow, "Proyecto", RowNoEncontrados) End If + If CveSubProyecto > 0 Then + If Codigo <> "" Then + + Using ObjPS As New ClsProductosServicios + If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, Codigo:=Codigo) Then + If ObjPS.CvePS > 0 Then + CvePS = ObjPS.CvePS + CveUM = ObjPS.CveUnidadMedida + CveClasificacion = ObjPS.CveClasificacion + Else + RowNoEncontrados = String.Format("{3}    - No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados) + End If + Else + RowNoEncontrados = String.Format("{3}    - No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados) + End If + End Using + + ElseIf CodigoBarras <> "" Then + + Using ObjPS As New ClsProductosServicios + If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, CodigoBarras:=CodigoBarras) Then + If ObjPS.CvePS > 0 Then + CvePS = ObjPS.CvePS + CveUM = ObjPS.CveUnidadMedida + CveClasificacion = ObjPS.CveClasificacion + Else + RowNoEncontrados = String.Format("{3}    - No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados) + End If + Else + RowNoEncontrados = String.Format("{3}    - No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados) + End If + End Using + + ElseIf ProductoServicio <> "" Then + + Using ObjPS As New ClsProductosServicios + If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, CodigoBarras:=CodigoBarras) Then + If ObjPS.CvePS > 0 Then + CvePS = ObjPS.CvePS + CveUM = ObjPS.CveUnidadMedida + CveClasificacion = ObjPS.CveClasificacion + Else + RowNoEncontrados = String.Format("{3}    - No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados) + End If + Else + RowNoEncontrados = String.Format("{3}    - No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados) + End If + End Using + Else + RowNoEncontrados &= "<\BR>    - En la fila " & NumRow & " no se especificó código, código de barras ó descripción." + End If + End If + + If CvePS > 0 Then If PrecioUnitario <= 0 Then