Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/ProductosServicios.aspx

@@ -991,6 +991,39 @@
                                             </div>
                                         </div>
                                         <br />
+                                        <div class="portlet xspadding light bordered" id="divCartaPorte" runat="server" visible="false">
+                                            <div class="portlet-title">
+                                                <div class="caption font-green">
+                                                    <i class="icon-briefcase font-green"></i>
+                                                    <span class="caption-subject bold uppercase">Carta Porte</span>
+                                                </div>
+                                                <div class="actions">
+                                                    <div class="btn-group">
+                                                    </div>
+                                                </div>
+                                            </div>
+                                            <div class="portlet-body">
+                                                <div class="row">
+                                                    <label class="col-md-4 truncate">Material Peligroso:</label>
+                                                    <div class="col-md-8">                                                         
+                                                        <ADS:Dropdownlost ID="DdlMaterialPeligroso"  runat="server" CssStyle="width: 100%;" DataTextField="ClaveMaterialPeligroDescripcion" DataValueField="CveMaterialPeligroso"></ADS:Dropdownlost>
+                                                    </div>
+                                                </div>
+                                                <div class="row">
+                                                    <label class="col-md-4 truncate">Embalaje:</label>
+                                                    <div class="col-md-8">
+                                                        <ADS:Dropdownlost ID="DdlEmbalaje"  runat="server" CssStyle="width: 100%;" DataTextField="ClaveEmbalajeDescripcion" DataValueField="CveEmbalaje"></ADS:Dropdownlost>
+                                                    </div>
+                                                </div>
+                                                <div class="row">
+                                                    <label class="col-md-4 truncate">Peso en Kg:</label>
+                                                    <div class="col-md-8">
+                                                        <asp:TextBox ID="TxtPesoKg" runat="server" Width="60px"></asp:TextBox>
+                                                    </div>
+                                                </div>
+                                            </div>
+                                        </div>
+                                        <br />
                                         <asp:UpdatePanel ID="UpSeccionAlmacen" runat="server" UpdateMode="Conditional">
                                             <ContentTemplate>
                                                 <div id="DivSeccionAlmacen" runat="server" visible="false">

Ventas/ProductosServicios.aspx.vb

@@ -799,6 +799,20 @@ Partial Class ProductosyServicios
                 If ObjProductosServicios.ClaveSATUnidadAduanaDescripcion.ToString <> Nothing Then
                     LblUnidadAduana.Text = ObjProductosServicios.ClaveSATUnidadAduanaDescripcion.ToString
                 End If
+
+                If ObjProductosServicios.CveMaterialPeligroso > 0 Then
+                    DdlMaterialPeligroso.SelectedValue = ObjProductosServicios.CveMaterialPeligroso.ToString
+                    DdlMaterialPeligroso.SelectedText = GlobalDTMaterialPeligroso(ObjProductosServicios.CveMaterialPeligroso).FiltroPrimeroValor("ClaveMaterialPeligrosoDescripcion")
+                End If
+                If ObjProductosServicios.CveEmbalaje > 0 Then
+                    DdlEmbalaje.SelectedValue = ObjProductosServicios.CveEmbalaje.ToString
+                    DdlEmbalaje.SelectedText = GlobalDTEmbalajes(ObjProductosServicios.CveEmbalaje).FiltroPrimeroValor("ClaveEmbalajeDescripcion")
+                End If
+
+                If ObjProductosServicios.PesoKg > 0 Then
+                    TxtPesoKg.Text = ObjProductosServicios.PesoKg.ToString
+                End If
+
                 DdlTipoPSDes.SelectedValueExist(ObjProductosServicios.CveClasificacionDetalle.ToString)
                 DdlUnidadMedida.SelectedValue = ObjProductosServicios.CveUnidadMedida.ToString
                 CveUnidadMedida = ObjProductosServicios.CveUnidadMedida.ToString.ToEntero
@@ -940,6 +954,8 @@ Partial Class ProductosyServicios
                 LnkUnificar.Visible = True
                 ChkEsOutSourcing.Checked = ObjProductosServicios.EsOutSourcing
                 ChkPrecioLibre.Checked = ObjProductosServicios.PrecioLibre
+
+
             Else
                 Alert("El Producto o Servicio Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
                 RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')")
@@ -979,6 +995,18 @@ Partial Class ProductosyServicios
     Public Sub CargaDdlFraccionArancelaria()
         DdlFraccionArancelaria.setEsWebService(True)
         DdlFraccionArancelaria.Attributes.Add("data-metodo", "getfraccionarancelaria")
+
+
+        If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
+            divCartaPorte.Visible = True
+
+            DdlMaterialPeligroso.setEsWebService(True)
+            DdlMaterialPeligroso.Attributes.Add("data-metodo", "getsatmatpeligroso")
+
+            DdlEmbalaje.setEsWebService(True)
+            DdlEmbalaje.Attributes.Add("data-metodo", "getsatembalajes")
+        End If
+
     End Sub
     Private Sub VerificaRequiereSerieLote()
         If UsuarioActual.CveEmpresa.Contiene(80, 72) And DdlClasificacion.SelectedIndex > 0 Then
@@ -1301,7 +1329,8 @@ Partial Class ProductosyServicios
                                                CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=CveTamaño,
                                                CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                                ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
-                                               ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked) > 0 Then
+                                               ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
+                                                CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal) > 0 Then
                     ViewState("CvePS") = ObjProductosServicios.CvePS
                     For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                         If GVR.FCCheckBox("ChkDeduccion").Checked Then
@@ -1350,7 +1379,8 @@ Partial Class ProductosyServicios
                                                   CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                                   ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                                   ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
-                                                  AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked) Then
+                                                  AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
+                                                  CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal) Then
 
                     If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
                         TieneError = True
@@ -2211,6 +2241,8 @@ Partial Class ProductosyServicios
 
 #End Region
 
+
+
 #Region "  ECOMMERCE  "
     Private Sub InicializaEcommerce()
         AplicaEcommerce = False

Ventas/Promociones.aspx.vb

@@ -601,7 +601,7 @@ Partial Class Ventas_Promociones
 
 
                         If Not TieneError And Dr("CveTipoPromocion").ToString <> Dr2("CveTipoPromocion").ToString Then
-                            If Not ObjGral.AddHistorialBitacora(369, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("TipoPromocion").ToString, $"{Dr("CodigoPS").ToString} - {Dr("TipoPromocion").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                            If Not ObjGral.AddHistorialBitacora(369, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("TipoPromocion").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("TipoPromocion").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
                                 TieneError = True
                                 Exit For
                             End If
@@ -609,7 +609,7 @@ Partial Class Ventas_Promociones
 
 
                         If Not TieneError And Dr("CantidadMinima").ToString <> Dr2("CantidadMinima").ToString Then
-                            If Not ObjGral.AddHistorialBitacora(370, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("CantidadMinima").ToString, $"{Dr("CodigoPS").ToString} - {Dr("CantidadMinima").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                            If Not ObjGral.AddHistorialBitacora(370, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("CantidadMinima").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("CantidadMinima").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
                                 TieneError = True
                                 Exit For
                             End If
@@ -624,14 +624,14 @@ Partial Class Ventas_Promociones
                         'End If
 
                         If Not TieneError And Dr("HoraInicio").ToString <> Dr2("HoraInicio").ToString Then
-                            If Not ObjGral.AddHistorialBitacora(372, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("HoraInicio").ToString, $"{Dr("CodigoPS").ToString} - {Dr("HoraInicio").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                            If Not ObjGral.AddHistorialBitacora(372, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("HoraInicio").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("HoraInicio").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
                                 TieneError = True
                                 Exit For
                             End If
                         End If
 
                         If Not TieneError And Dr("HoraFin").ToString <> Dr2("HoraFin").ToString Then
-                            If Not ObjGral.AddHistorialBitacora(373, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("HoraFin").ToString, $"{Dr("CodigoPS").ToString} - {Dr("HoraFin").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                            If Not ObjGral.AddHistorialBitacora(373, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("HoraFin").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("HoraFin").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
                                 TieneError = True
                                 Exit For
                             End If

Ventas/Ventas.aspx.vb

@@ -10697,7 +10697,7 @@ Partial Class Ventas
             Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString().ToDecimal,
                                                         .Descripcion = tPS,
                                                         .ValorUnitario = drr("PU").ToString().ToDecimal,
-                                                        .Importe = If(UsuarioActual.Empresa.CvePAC = 3, drr("Total").ToString().ToDecimal, drr("TotalImporte").ToString().ToDecimal),
+                                                        .Importe = If(UsuarioActual.Empresa.CvePAC = 3, drr("Total").ToString().ToDecimal.RoundSQL(2), drr("TotalImporte").ToString().ToDecimal),
                                                         .Descuento = drr("Descuento").ToString().ToDecimal.RoundSQL(2),
                                                         .Unidad = drr("UM").ToString(),
                                                         .ClaveUnidad = drr("SATClaveUM").ToString(),
@@ -13318,6 +13318,7 @@ Partial Class Ventas
                         'El almacen general es el Primer Almacen de Material en la Sucursal
                         If Not TraspasoAlmacen(ObjInventario, ObjVentas, CveRemision, ObjConta, True, 9) Then
                             OcurrioError = True
+                            ErrorList.Add("Ocurrió un error al verificar inventario de remisiones.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                             Exit For
                         End If
                     Next
@@ -13493,11 +13494,13 @@ Partial Class Ventas
                                 'If TotalCosto <> 0 Then
                                 If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, TipoMovto68, TotalCosto, factura.SerieFolio, 68, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=factura.CveSubProyecto) Then
                                     OcurrioError = True
+                                    ErrorList.Add("Ocurrió un error al guardar movimiento de almacen.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                                 End If
                                 'End If
 
                             Else
                                 OcurrioError = True
+                                ErrorList.Add("Ocurrió un error al consultar los movimientos de almacen.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                             End If
                             factura.Inv_CveMovimiento = CveMovimientoInventario
                             factura.Inv_ValorInventario = ValorInventario
@@ -13512,6 +13515,7 @@ Partial Class Ventas
                 If DebeGenerarMovimiento AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
                     If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then
                         OcurrioError = True
+                        ErrorList.Add("Ocurrió un error al verificar inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                     End If
                 End If
 
@@ -31146,9 +31150,9 @@ Partial Class Ventas
 
                 If resp.Count > 0 Then
                     Dim Msg As New StringBuilder()
-                    Msg.AppendFormat("Mensaje Póliza Virtual: {0}", resp(0)("Descripcion").ToString())
+                    Msg.AppendFormat("Mensaje Póliza Virtual: {0} - Código: {1}", resp(0)("Descripcion").ToString(), resp(0)("Codigo"))
 
-                    If resp(0)("Codigo").ToString().Contiene("500", "501", "502", "503", "504", "505", "506", "507", "508") Then
+                    If resp(0)("Codigo").ToString().Contiene("500", "501", "502", "503", "504", "505", "506", "507", "508", "510") Then
                         Retorno = True
                         Dim ObjAcum As New ClsAcumuladores
                         If ObjAcum.UpdateEnvioPolizaVirutal(CvePolizaVirtual, True, Now, obj.product_unique_code) Then