Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Ventas.aspx.vb

@@ -228,6 +228,14 @@ Partial Class Ventas
             ViewState("TmpDTEnvioDireccion") = value
         End Set
     End Property
+    Private Property TmpDTDireccionCP As DataTable
+        Get
+            Return If(IsNothing(ViewState("TmpDTDireccionCP")), Nothing, CType(ViewState("TmpDTDireccionCP"), DataTable))
+        End Get
+        Set(value As DataTable)
+            ViewState("TmpDTDireccionCP") = value
+        End Set
+    End Property
 
     Private Property IdPoliza As Integer
         Get
@@ -1346,6 +1354,22 @@ Partial Class Ventas
             ViewState("RegimenFiscalCliente") = value
         End Set
     End Property
+    Private Property RegimenSociedad As String
+        Get
+            Return IfNull(ViewState("RegimenSociedad"), "").ToString()
+        End Get
+        Set(value As String)
+            ViewState("RegimenSociedad") = value
+        End Set
+    End Property
+    Private Property TipoPersona As Boolean
+        Get
+            Return CBool(IfNull(ViewState("TipoPersona"), False))
+        End Get
+        Set(value As Boolean)
+            ViewState("TipoPersona") = value
+        End Set
+    End Property
     Private Property Adjunto As String
         Get
             Return If(IsNothing(ViewState("Adjunto")), "", ViewState("Adjunto").ToString())
@@ -2327,7 +2351,7 @@ Partial Class Ventas
             UpFacturar.Update()
             'CargaTiposDocumentos()
             TrEmitir.Visible = False
-            If UsuarioActual.CveRol = 1 Then
+            If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 1 Then
                 DivCartaPorte.Visible = True
             End If
             ViewState("EstablecioFolio") = False
@@ -2491,6 +2515,7 @@ Partial Class Ventas
             CargaClasificaciones()
             CargaPS(-1, DdlPS)
             CargaPS(-1, DdlPSMercancia)
+            CargaPS(-1, DdlPSFlete)
             'CargaPSRemision(-1, DdlPSRemision)
             CargaPSPyME(-1, DdlPSPyME)
 
@@ -4953,7 +4978,7 @@ Partial Class Ventas
                 If DbRowVenta("CveDireccionEnvio").ToString().ToEntero() > 0 AndAlso DbRowVenta("CveDireccionEnvio").ToString() IsNot Nothing Then
                     ChkDireccionEnvio.Checked = True
                     DdlDireccionEnvio.SelectedValueExist(DbRowVenta("CveDireccionEnvio").ToString().ToEntero())
-                    DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
+                    'DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
                     DdlDireccionEnvio.Enabled = False
                     ChkDireccionEnvio.Enabled = False
                     DdlDireccionEnvio.Visible = True
@@ -6110,8 +6135,11 @@ Partial Class Ventas
                 ViewState("CliLocalidad") = If(ObjCliente.Localidad.Trim.Length = 0, ObjCliente.Ciudad.Trim, ObjCliente.Localidad.Trim)
                 ViewState("CliPais") = ObjCliente.Pais
                 ImprimeNombreSucursal = ObjCliente.ImprimeNombreSucursal
+
                 If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
                     RegimenFiscalCliente = ObjCliente.DtResultados(0)("CodigoRegimenFiscal").ToString()
+                    RegimenSociedad = ObjCliente.DtResultados(0)("RegimenSociedad").ToString()
+                    TipoPersona = CBool(ObjCliente.DtResultados(0)("TipoPersona"))
                     CargaUsoCFDI()
                 End If
                 'ViewState("NumCtaPago") = ObjCliente.NumCtaPago
@@ -6137,7 +6165,7 @@ Partial Class Ventas
                 End If
 
                 'HABILITA LA OPCION DE DIRECCION DE ENVIO
-                If UsuarioActual.CveEmpresa.Contiene(1, 72, 119, 140) Then
+                If UsuarioActual.CveEmpresa.Contiene(1, 13, 72, 119, 140) Then
                     trDireccionEnvio.Visible = True
                     CargaDireccionesEnvio()
                 End If
@@ -7259,7 +7287,7 @@ Partial Class Ventas
         DdlClasificacion.DataBind()
         DdlClasificacionPyME.DataBind()
     End Sub
-    Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost)
+    Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost, Optional AplicaParaVenta As Boolean = True)
 
         Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1")
 
@@ -7285,7 +7313,9 @@ Partial Class Ventas
             Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString())
             Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas")
             Objeto.ddlWS.Attributes.Add("data-Estatus", "1")
-            Objeto.ddlWS.Attributes.Add("data-AplicaparaVenta", "1")
+            If AplicaParaVenta Then
+                Objeto.ddlWS.Attributes.Add("data-AplicaparaVenta", "1")
+            End If
         End If
 
     End Sub
@@ -8249,6 +8279,22 @@ Partial Class Ventas
         DtOCTmpDT = TmpDT.Copy
         TmpDTError = TmpDT.Copy
 
+        If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Egs", "Dev") Then
+            If RegimenFiscalCliente.Contiene("-1", "") Then
+                Alert("El cliente no tiene asignado un régimen fiscal.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            Dim EsPersonaMoral As Boolean = (TipoPersona = True)
+            If EsPersonaMoral AndAlso String.IsNullOrEmpty(RegimenSociedad) Then
+                Alert("El cliente no tiene asignado un regimen de sociedad.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+        End If
+
+
+
         If (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then
             Alert("La sucursal no tiene asignada un RFC.", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -8270,11 +8316,11 @@ Partial Class Ventas
         End If
 
         If ChkEmitirCartaPorte.Checked Then
-            If String.IsNullOrEmpty(TxtOrigenCP.Text.Trim()) Then
+            If DdlDireccionOrigen.SelectedValue.ToEntero() <= 0 Then
                 Alert("La carta porte no tiene un origen definido.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
-            If String.IsNullOrEmpty(TxtDestinoCP.Text.Trim()) Then
+            If DdlDireccionDestino.SelectedValue.ToEntero() <= 0 Then
                 Alert("La carta porte no tiene un destino definido.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
@@ -9319,7 +9365,7 @@ Partial Class Ventas
                                     End If
 
                                     If ChkEmitirCartaPorte.Checked AndAlso CveTimbreCartaPorte > 0 Then
-                                        Dim RespCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorte, ObjFactura, UsuarioActual)
+                                        Dim RespCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorte, UsuarioActual)
                                         If Not RespCartaPorte.TieneError Then
                                             ObjFactura.Timbre.Complementos.CartaPorte = RespCartaPorte.CartaPorte
                                         Else
@@ -11464,7 +11510,11 @@ Partial Class Ventas
             Timbre.Receptor.DomicilioFiscalReceptor = Obj.ClienteSucursal.CP
         Else
             Timbre.Receptor.RFC = Obj.Cliente.RFC
-            Timbre.Receptor.Nombre = Obj.Cliente.NombreComercial
+            If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+                Timbre.Receptor.Nombre = Obj.Cliente.Nombre
+            Else
+                Timbre.Receptor.Nombre = Obj.Cliente.NombreComercial
+            End If
             Timbre.Receptor.DomicilioFiscalReceptor = Obj.Cliente.CP
         End If
 
@@ -16250,12 +16300,12 @@ Partial Class Ventas
                 Dim TmpDTComplementosTimbrado As New DataTable
                 PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
 
-                Dim RespCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorteVenta, ObjFactura, UsuarioActual)
+                Dim RespCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorteVenta, UsuarioActual)
                 If Not RespCartaPorte.TieneError Then
                     ObjFactura.Timbre.Complementos.CartaPorte = RespCartaPorte.CartaPorte
                 Else
-                    Exit Sub
                     Alert(RespCartaPorte.Mensaje, TipoMensaje.MsgAdvertencia)
+                    Exit Sub
                 End If
 
                 If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then
@@ -21567,6 +21617,11 @@ Partial Class Ventas
         ObjConta.Dispose()
         ObjBancos.Dispose()
         If ObjAC IsNot Nothing Then ObjAC.Dispose()
+
+        'REGENERAR EL PDF
+        If Not OcurrioError Then
+            DescargarFactura(CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Regenerar:=True)
+        End If
     End Sub
     Private Sub BtnActualizarCuentaTerminal_Click(sender As Object, e As EventArgs) Handles BtnActualizarCuentaTerminal.Click
         Dim ObjVentas As New ClsVentas
@@ -22871,14 +22926,14 @@ Partial Class Ventas
         If ChkDireccionEnvio.Checked Then
             DdlDireccionEnvio.Visible = True
             LnkOtraDireccion.Visible = True
-            DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
+            'DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
         Else
             DdlDireccionEnvio.Visible = False
             LnkOtraDireccion.Visible = False
             If SucursalDestinoCP IsNot Nothing Then
                 SucursalDestinoCP = Nothing
                 SucursalDestinoCP = New Modelos.SucursalModel
-                TxtDestinoCP.Text = ""
+                'TxtDestinoCP.Text = ""
             End If
         End If
     End Sub
@@ -22918,7 +22973,7 @@ Partial Class Ventas
             TxtEnvioTel.Text = ""
             CargaDireccionesEnvio()
             DdlDireccionEnvio.SelectedValueExist(CveDireccionEnvio)
-            DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
+            'DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
         End If
 
         ObjClientes.Dispose()
@@ -33085,8 +33140,8 @@ Partial Class Ventas
 
     '    Return File
     'End Function
-    Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, CveUsuarioCreo As Integer, Optional GetBytes As Boolean = True) As Byte()
-        Dim Url = New Uri(String.Format("{0}://{1}:{2}/Compras/PopUpVerFactura.aspx?P={3}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
+    Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, CveUsuarioCreo As Integer, Optional GetBytes As Boolean = True, Optional Regenerar As Boolean = False) As Byte()
+        Dim Url = New Uri(String.Format("{0}://{1}:{2}/Compras/PopUpVerFactura.aspx?P={3}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&REGENERAR={1}", CveVenta, If(Regenerar, "1", "0")))))
         Dim File As Byte() = Nothing
         Try
             Using httpClient = New HttpClient()
@@ -34256,7 +34311,7 @@ Partial Class Ventas
         TxtFechaLlegadaCP.Enabled = False
 
         Using ObjGral As New ClsGenerales
-            If ObjGral.GetGralTimbre(-1, "Man", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
+            If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
                 Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0)
 
                 Me.CveTimbreCartaPorteVenta = RowCP("CveTimbre").ToString().ToEntero()
@@ -34392,7 +34447,7 @@ Partial Class Ventas
                     End If
                 Next
 
-                CveTimbre = ObjGral.AddGralTimbre("Man", DdlSubProyectoDatos.SelectedValue.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=True, CveVenta:=ObjFactura.CveVenta)
+                CveTimbre = ObjGral.AddGralTimbre("Ing", DdlSubProyectoDatos.SelectedValue.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=True, CveVenta:=ObjFactura.CveVenta)
 
                 If Not CveTimbre > 0 Then
                     ErrorProceso = True
@@ -34524,12 +34579,80 @@ Partial Class Ventas
             GuardaLog(ex.ToString())
         End Try
 
-        TxtOrigenCP.Text = SBDomicilioSucursal.ToString
+        'TxtOrigenCP.Text = SBDomicilioSucursal.ToString
 
         UpEmitirTransitorio.Update()
     End Sub
 
     Protected Sub DdlDireccionEnvio_SelectedIndexChanged(sender As Object, e As EventArgs)
+        'If SucursalDestinoCP Is Nothing Then
+        '    SucursalDestinoCP = New Modelos.SucursalModel
+        'Else
+        '    SucursalDestinoCP = Nothing
+        '    SucursalDestinoCP = New Modelos.SucursalModel
+        'End If
+
+
+        'If TmpDTEnvioDireccion IsNot Nothing AndAlso TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero())).Rows.Count > 0 Then
+
+        '    Dim Row As DataRow = TmpDTEnvioDireccion.FiltroPrimero(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero()))
+        '    If Row IsNot Nothing Then
+
+        '        SucursalDestinoCP.Direccion = Row("EnvioDireccion").ToString()
+        '        SucursalDestinoCP.Colonia = Row("EnvioColonia").ToString()
+        '        SucursalDestinoCP.Municipio = Row("EnvioCiudad").ToString()
+        '        SucursalDestinoCP.CveEstado = Row("CveEstado").ToString().ToEntero()
+        '        SucursalDestinoCP.Estado = Row("EnvioEstado").ToString()
+        '        SucursalDestinoCP.CvePais = Row("CvePais").ToString().ToEntero()
+        '        SucursalDestinoCP.Pais = Row("Pais").ToString()
+        '        SucursalDestinoCP.CP = Row("EnvioCP").ToString()
+
+        '        TxtDestinoCP.Text = String.Format("{0} col. {1},CP:{2}, {3},{4},{5}", SucursalDestinoCP.Direccion, SucursalDestinoCP.Colonia, SucursalDestinoCP.CP, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.Pais)
+        '    Else
+        '        TxtDestinoCP.Text = ""
+        '    End If
+        'Else
+        '    TxtDestinoCP.Text = ""
+        'End If
+
+        UpEmitirTransitorio.Update()
+    End Sub
+
+    Protected Sub DdlDireccionOrigen_SelectedIndexChanged(sender As Object, e As EventArgs)
+        If SucursalOrigenCP Is Nothing Then
+            SucursalOrigenCP = New Modelos.SucursalModel
+        Else
+            SucursalOrigenCP = Nothing
+            SucursalOrigenCP = New Modelos.SucursalModel
+        End If
+
+
+        If TmpDTDireccionCP IsNot Nothing AndAlso TmpDTDireccionCP.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionOrigen.SelectedValue.ToEntero())).Rows.Count > 0 Then
+
+            Dim Row As DataRow = TmpDTDireccionCP.FiltroPrimero(String.Format("CveDireccionEnvio = {0}", DdlDireccionOrigen.SelectedValue.ToEntero()))
+            If Row IsNot Nothing Then
+
+                SucursalOrigenCP.Direccion = Row("EnvioDireccion").ToString()
+                SucursalOrigenCP.Colonia = Row("EnvioColonia").ToString()
+                SucursalOrigenCP.Municipio = Row("EnvioCiudad").ToString()
+                SucursalOrigenCP.CveEstado = Row("CveEstado").ToString().ToEntero()
+                SucursalOrigenCP.Estado = Row("EnvioEstado").ToString()
+                SucursalOrigenCP.CvePais = Row("CvePais").ToString().ToEntero()
+                SucursalOrigenCP.Pais = Row("Pais").ToString()
+                SucursalOrigenCP.CP = Row("EnvioCP").ToString()
+
+                'TxtDestinoCP.Text = String.Format("{0} col. {1},CP:{2}, {3},{4},{5}", SucursalDestinoCP.Direccion, SucursalDestinoCP.Colonia, SucursalDestinoCP.CP, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.Pais)
+            Else
+                'TxtDestinoCP.Text = ""
+            End If
+        Else
+            'TxtDestinoCP.Text = ""
+        End If
+
+        UpEmitirTransitorio.Update()
+    End Sub
+
+    Protected Sub DdlDireccionDestino_SelectedIndexChanged(sender As Object, e As EventArgs)
         If SucursalDestinoCP Is Nothing Then
             SucursalDestinoCP = New Modelos.SucursalModel
         Else
@@ -34538,9 +34661,9 @@ Partial Class Ventas
         End If
 
 
-        If TmpDTEnvioDireccion IsNot Nothing AndAlso TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero())).Rows.Count > 0 Then
+        If TmpDTDireccionCP IsNot Nothing AndAlso TmpDTDireccionCP.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionDestino.SelectedValue.ToEntero())).Rows.Count > 0 Then
 
-            Dim Row As DataRow = TmpDTEnvioDireccion.FiltroPrimero(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero()))
+            Dim Row As DataRow = TmpDTDireccionCP.FiltroPrimero(String.Format("CveDireccionEnvio = {0}", DdlDireccionDestino.SelectedValue.ToEntero()))
             If Row IsNot Nothing Then
 
                 SucursalDestinoCP.Direccion = Row("EnvioDireccion").ToString()
@@ -34552,20 +34675,20 @@ Partial Class Ventas
                 SucursalDestinoCP.Pais = Row("Pais").ToString()
                 SucursalDestinoCP.CP = Row("EnvioCP").ToString()
 
-                TxtDestinoCP.Text = String.Format("{0} col. {1},CP:{2}, {3},{4},{5}", SucursalDestinoCP.Direccion, SucursalDestinoCP.Colonia, SucursalDestinoCP.CP, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.Pais)
+                'TxtDestinoCP.Text = String.Format("{0} col. {1},CP:{2}, {3},{4},{5}", SucursalDestinoCP.Direccion, SucursalDestinoCP.Colonia, SucursalDestinoCP.CP, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.Pais)
             Else
-                TxtDestinoCP.Text = ""
+                'TxtDestinoCP.Text = ""
             End If
         Else
-            TxtDestinoCP.Text = ""
+            'TxtDestinoCP.Text = ""
         End If
 
         UpEmitirTransitorio.Update()
     End Sub
     Protected Sub LnkAgregarMercancia_Click(sender As Object, e As EventArgs)
         TxtCantidadMercancia.Text = ""
-        DdlPSMercancia.SelectedValue = ""
-        DdlPSMercancia.SelectedText = "Seleccione"
+        'DdlPSMercancia.SelectedValue = ""
+        'DdlPSMercancia.SelectedText = "Seleccione"
 
         UpAgregarMercancia.Update()
         RegistraScript("$('#DivAddMercancia').modal('show');", "M1")
@@ -34599,9 +34722,45 @@ Partial Class Ventas
         GvMercanciasCP.DataSource = DtMercancias
         GvMercanciasCP.DataBind()
 
+        If ChkAgregarFlete.Checked Then
+            Dim CvePSServicio As Integer = DdlPSFlete.SelectedValue.ToEntero()
+            If CvePSServicio > 0 Then
+                Dim Cantidad As Decimal = TxtCantidadMercancia.Text.ToDecimal
+                Dim PU As Decimal = TxtPrecioMercancia.Text.Trim.ToDecimal
+                Dim Descuento As Decimal = 0
+                Dim CveUM As Integer = -1
+                Dim UnidadMedida As String = ""
+                Dim CveClasificacion As Integer = -1
+                Dim Clasificacion As String = ""
+
+                Dim drPSFlete As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSServicio).FiltroPrimero("")
+                If DrPS IsNot Nothing Then
+                    CveUM = drPSFlete("CveUnidadMedida").ToString().ToEntero()
+                    CveClasificacion = drPSFlete("CveClasificacion").ToString().ToEntero()
+                End If
+
+                Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
+                    Dim CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProyecto", "").ToEntero()
+
+                    Dim Proyecto As String = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("Proyecto", "").ToString()
+
+                    AgregarProductoServicio(Cantidad, CveUM, UnidadMedida, CveClasificacion, Clasificacion,
+                                CvePSServicio, "", TxtObservacionesMercancia.Text.Trim, PU, Descuento,
+                                CveProyecto, Proyecto, CveSubProyecto, DdlSubProyectoDatos.SelectedItem.Text,
+                                Serie:="", TiempoEntrega:="", CuentaPredial:="", RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=-1,
+                                ImporteProntoPago:=0)
+
+                    CalculaUsados()
+
+                    CalculaTotalesVenta()
+                Else
+                    Alert("No se agrego el servicio del flete", TipoMensaje.MsgAdvertencia)
+            End If
+
+        End If
+
         TxtCantidadMercancia.Text = ""
-        DdlPSMercancia.SelectedValue = ""
-        DdlPSMercancia.SelectedText = "Seleccione"
+        TxtObservacionesMercancia.Text = ""
 
         UpAgregarMercancia.Update()
         UpEmitirTransitorio.Update()
@@ -34664,5 +34823,109 @@ Partial Class Ventas
     End Sub
 
 
+    Protected Sub ChkEmitirCartaPorte_CheckedChanged(sender As Object, e As EventArgs)
+        If ChkEmitirCartaPorte.Checked AndAlso CveCliente > 0 Then
+            Dim ObjClientes As New ClsClientes
+            If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
+                TmpDTDireccionCP = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1"))
+            End If
+            ObjClientes.Dispose()
+        Else
+            TmpDTDireccionCP = Nothing
+        End If
+
+        DdlDireccionOrigen.DataSource = TmpDTDireccionCP
+        DdlDireccionOrigen.DataBind()
+
+        DdlDireccionDestino.DataSource = TmpDTDireccionCP
+        DdlDireccionDestino.DataBind()
+    End Sub
+    Protected Sub ChkAgregarFlete_CheckedChanged(sender As Object, e As EventArgs)
+
+        DivServicioFlete.Visible = ChkAgregarFlete.Checked
+
+        UpAgregarMercancia.Update()
+    End Sub
+    Protected Sub DdlPSMercancia_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlPSMercancia.selectedindexchange
+        Dim CvePSParametro As Integer = DdlPSMercancia.SelectedValue.ToEntero()
+        If CvePSParametro > 0 Then
+
+            Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSMercancia.SelectedValue.ToEntero()).FiltroPrimero("")
+            If drPS IsNot Nothing Then
+                Dim CveClasificacion As Integer = drPS("CveClasificacion").ToString().ToEntero()
+                'SUGIERE PRECIO
+                Dim PrecioSugerido As Decimal = 0
+                Dim tPrecioSugerido As Decimal = 0
+                tPrecioSugerido = drPS("Precio").ToString().ToDecimal
+
+                If UsuarioActual.CveEmpresa.Contiene(1) Then
+                    Dim ObjPS As New ClsProductosServicios
+                    If ObjPS.GetPorcentajeProductos(CveCliente) Then
+                        Dim PrecioAplicado = ObjPS.DtResultados.FiltraParametros($"CvePS = {CvePSParametro}").FiltroPrimeroValor("PrecioA").ToDecimal
+                        If PrecioAplicado > 0 Then
+                            PrecioSugerido = PrecioAplicado
+                        End If
+                    End If
+                    ObjPS.Dispose()
+                End If
+
+                If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'cuando el valor es  10.- secuencia Cliente/Sucursal, 20 - sucursal/cliente
+                    Dim TipoPrecioLista As Integer = UsuarioActual.Empresa.Funcionalidad(404).ToEntero
+                    ' si es 10. primero el cliente
+                    Dim CvePrecioListaPS As Integer
+                    Dim PorcentajePrecio As Decimal = 0
+
+                    If TipoPrecioLista = 10 Then
+
+                        CvePrecioListaPS = Me.CvePrecioListaCliente
+                        If CvePrecioListaPS <= 0 Then
+                            CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                        End If
+                    Else
+                        CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                        If CvePrecioListaPS <= 0 Then
+                            CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
+                        End If
+                    End If
+
+                    If CvePrecioListaPS > 0 Then
+                        Dim ObjPS As New ClsProductosServicios
+                        If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then
+                            PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal
+                            PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDecimal
+                        End If
+                        ObjPS.Dispose()
+                    End If
+
+                    If PrecioSugerido = 0 Then
+                        Dim ObjInventarios As New ClsInventarios
+                        Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidadMercancia.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1)
+                        'si el costo es cero, puede ser que no halla movimientos del producto, en  esa sucursal. y se volverá a sacar sin especificar sucursal
+                        If CostoPS = 0 Then CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidadMercancia.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1)
+                        ObjInventarios.Dispose()
+                        If CostoPS > 0 And PorcentajePrecio > 0 Then
+                            PrecioSugerido = ((PorcentajePrecio / 100) + 1) * CostoPS
+                        End If
+                    End If
+                    CvePrecioLista = CvePrecioListaPS
+                End If
+
+
+                If PrecioSugerido > 0 Then
+                    Dim PrecioBaseCosto As Decimal = 0
+                    PrecioBaseCosto = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion).FiltroPrimeroValor("PrecioBaseCosto", "").ToDecimal
+
+                    If PrecioBaseCosto > 0 Then
+                        PrecioSugerido = PrecioSugerido * ((PrecioBaseCosto / 100) + 1)
+                    End If
+                End If
+
+                If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido
+
+                TxtPrecioMercancia.Text = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere
+            End If
+        End If
+
+    End Sub
 End Class