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

App_Code/ClsGenerales.vb

@@ -3268,6 +3268,65 @@ Public Class ClsGenerales
 #End Region
 
 
+#Region "C A R T A   P O R T E"
+
+    Public Function GetMaterialPeligroso() As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_CP_MaterialPeligrosoGet")
+        'With SqlAdapter.SelectCommand.Parameters
+        '    .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        '    .Add("@CveClasificacionPorcentaje", SqlDbType.Int).Value = CveClasificacionPorcentaje
+        '    .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+        '    .Add("@PorcentajeIVA", SqlDbType.Float).Value = PorcentajeIVA
+        '    .Add("@Opcion", SqlDbType.Int).Value = Opcion
+        'End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener materiales peligrosos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+    Public Function GetEmbalajes() As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_CP_EmbalajesGet")
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener embalajes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function GetCartaPorteTipoPermiso() As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_CP_TipoPermisoGet")
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los permisos de carta porte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function GetCartaPorteConfigAutoTransportes() As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_CP_ConfigAutoTransportesGet")
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los configuración de autotransporte de carta porte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+#End Region
+
     Protected Overridable Sub Dispose(ByVal disposing As Boolean)
         If Not disposedValue Then
             If disposing Then

App_Code/ClsPaginas.vb

@@ -645,6 +645,63 @@ Public Class ClsPaginas
         End Set
     End Property
 
+#Region "C A R T A   P O R T E "
+    Property GlobalDTMaterialPeligroso(Optional CveMaterialPeligroso As Integer = -1) As DataTable
+        Get
+
+            Dim AppNombre As String = "GlobalDTMaterialPeligroso"
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim Obj As New ClsGenerales
+                If Obj.GetMaterialPeligroso() Then Application(AppNombre) = Obj.DtResultados
+                Obj.Dispose()
+            End If
+            If CveMaterialPeligroso > 0 Then
+                Dim Str As New StringBuilder
+                Str.AppendFormat("CveMaterialPeligroso = {0}", CveMaterialPeligroso)
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
+                GlobalDTMaterialPeligroso = Dv.ToTable
+                Dv.Dispose()
+            Else
+                GlobalDTMaterialPeligroso = DirectCast(Application(AppNombre), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = "GlobalDTMaterialPeligroso"
+            Application(AppNombre) = value
+        End Set
+    End Property
+
+    Property GlobalDTEmbalajes(Optional CveEmbalaje As Integer = -1) As DataTable
+        Get
+
+            Dim AppNombre As String = "GlobalDTEmbalajes"
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim Obj As New ClsGenerales
+                If Obj.GetEmbalajes() Then Application(AppNombre) = Obj.DtResultados
+                Obj.Dispose()
+            End If
+            If CveEmbalaje > 0 Then
+                Dim Str As New StringBuilder
+                Str.AppendFormat("CveEmbalaje = {0}", CveEmbalaje)
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
+                GlobalDTEmbalajes = Dv.ToTable
+                Dv.Dispose()
+            Else
+                GlobalDTEmbalajes = DirectCast(Application(AppNombre), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = "GlobalDTEmbalajes"
+            Application(AppNombre) = value
+        End Set
+    End Property
+#End Region
+
+
 
     Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
         Get
@@ -3125,18 +3182,26 @@ Public Class ClsPaginas
 
     Property GlobalDTContaConceptosContables(CveConceptoContable As Integer) As DataTable
         Get
+            Dim AppNombre As String = String.Format("GlobalDTContaConceptosContables")
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Using ObjContabilidad As New ClsContabilidad
+                    If ObjContabilidad.GetConta_ConceptosContables() Then Application(AppNombre) = ObjContabilidad.DtResultados Else Application(AppNombre) = Nothing
+                End Using
+
+            End If
             If CveConceptoContable <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTContaConceptosContables"), DataTable), String.Format("CveConceptoContable = {0}", CveConceptoContable), "", DataViewRowState.CurrentRows)
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveConceptoContable = {0}", CveConceptoContable), "", DataViewRowState.CurrentRows)
                 GlobalDTContaConceptosContables = Dv.ToTable
                 Dv.Dispose()
             Else
-                GlobalDTContaConceptosContables = DirectCast(Application("GlobalDTContaConceptosContables"), DataTable)
+                GlobalDTContaConceptosContables = DirectCast(Application(AppNombre), DataTable)
             End If
 
-
         End Get
         Set(value As DataTable)
-            Application("GlobalDTContaConceptosContables") = value
+            Dim AppNombre As String = String.Format("GlobalDTContaConceptosContables")
+            Application(AppNombre) = value
         End Set
     End Property
 #End Region

App_Code/ClsProductosServicios.vb

@@ -89,6 +89,9 @@ Public Class ClsProductosServicios
     Public Property ClaveSATUnidadAduanaDescripcion As String
     Public Property ClaveSATFraccionArancelaria As String
     Public Property ClaveSATUnidadAduana As String
+    Public Property CveMaterialPeligroso As Integer
+    Public Property CveEmbalaje As Integer
+    Public Property PesoKg As Decimal
 
     'Nuevo Raul: 10/08/2018
     Public Property CveUsuarioModifico As Integer
@@ -295,6 +298,10 @@ Public Class ClsProductosServicios
                 ClaveSATFraccionArancelariaDescripcion = Data.Rows(0)("ClaveSATFraccionArancelariaDescripcion").ToString
                 ClaveSATUnidadAduanaDescripcion = Data.Rows(0)("ClaveSATUnidadAduanaDescripcion").ToString
 
+                CveMaterialPeligroso = Data.Rows(0)("CveMaterialPeligroso").ToString.ToEntero
+                CveEmbalaje = Data.Rows(0)("CveEmbalaje").ToString.ToEntero
+                PesoKg = Data.Rows(0)("PesoKg").ToString.ToDecimal
+
                 'Nuevo Raul: 10/08/2018
                 CveUsuarioModifico = Data.Rows(0)("CveUsuarioModifico").ToString.ToEntero
                 UsuarioModifico = Data.Rows(0)("UsuarioModifico").ToString
@@ -408,7 +415,8 @@ Public Class ClsProductosServicios
                           Optional CveFraccionArancelaria As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1,
                           Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
                           Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False,
-                          Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False) As Integer
+                          Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False,
+                          Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_ProductosServiciosAdd")
@@ -492,6 +500,10 @@ Public Class ClsProductosServicios
             .Add("@CvePSAdicionalVigencia", SqlDbType.Int).Value = CvePSAdicionalVigencia
             .Add("@PrecioLibre", SqlDbType.Bit).Value = PrecioLibre
 
+            .Add("@CveMaterialPeligroso", SqlDbType.Int).Value = CveMaterialPeligroso
+            .Add("@CveEmbalaje", SqlDbType.Int).Value = CveEmbalaje
+            .Add("@PesoKg", SqlDbType.SmallMoney).Value = PesoKg
+
         End With
 
         Try
@@ -638,7 +650,8 @@ Public Class ClsProductosServicios
                              Optional CveFraccionArancelaria As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
                              Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
                              Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False,
-                             Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False) As Boolean
+                             Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False,
+                             Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -724,6 +737,10 @@ Public Class ClsProductosServicios
             .Add("@CvePSAdicionalVigencia", SqlDbType.Int).Value = CvePSAdicionalVigencia
             .Add("@PrecioLibre", SqlDbType.Bit).Value = PrecioLibre
 
+            .Add("@CveMaterialPeligroso", SqlDbType.Int).Value = CveMaterialPeligroso
+            .Add("@CveEmbalaje", SqlDbType.Int).Value = CveEmbalaje
+            .Add("@PesoKg", SqlDbType.SmallMoney).Value = PesoKg
+
         End With
 
         Try

App_Code/ClsSAT.vb

@@ -345,6 +345,103 @@ Public Class ClsSAT
 #End Region
 
 
+#Region " C A R T A   P O R T E"
+
+
+
+    Public Function GetCartaPorteMaterialPeligroso() As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_SAT_CP_MaterialPeligroso")
+
+        'With SqlAdapter.SelectCommand.Parameters
+        '    .Add("@Tipo", SqlDbType.Int).Value = Tipo
+        '    .Add("@RFC", SqlDbType.VarChar).Value = RFC
+        '    .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+        '    .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        'End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los registros de material peligroso", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
+    Public Function GetCartaPorteTipoPermiso() As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_SAT_CP_TipoPermiso")
+
+        'With SqlAdapter.SelectCommand.Parameters
+        '    .Add("@Tipo", SqlDbType.Int).Value = Tipo
+        '    .Add("@RFC", SqlDbType.VarChar).Value = RFC
+        '    .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+        '    .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        'End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los registros de material peligroso", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
+    Public Function GetCartaPorteConfigAutoTransporte() As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_SAT_CP_ConfiAutoTransporte")
+
+        'With SqlAdapter.SelectCommand.Parameters
+        '    .Add("@Tipo", SqlDbType.Int).Value = Tipo
+        '    .Add("@RFC", SqlDbType.VarChar).Value = RFC
+        '    .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+        '    .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        'End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los registros de material peligroso", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
+    Public Function GetCartaPorteSubTipoRemolque() As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_SAT_CP_SubTipoRemolque")
+
+        'With SqlAdapter.SelectCommand.Parameters
+        '    .Add("@Tipo", SqlDbType.Int).Value = Tipo
+        '    .Add("@RFC", SqlDbType.VarChar).Value = RFC
+        '    .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+        '    .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        'End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los registros de material peligroso", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
+#End Region
 
 #Region "IDisposable Support"
     ' IDisposable

App_Code/Timbrado.vb

@@ -1320,7 +1320,7 @@ Public Class Timbrado
         sw.Start()
 
         '  cfdi.saltarValidacion("bNtMuvZockPVhEjaPj0E")
-        ' cfdi.Decimales = 4
+        cfdi.Decimales = 4
 #Region "Certificado"
         cfdi.agregarCertificado(ArchivoCertificado)
 #End Region
@@ -1906,7 +1906,7 @@ Public Class Timbrado
         sw.Start()
 
         '  cfdi.saltarValidacion("bNtMuvZockPVhEjaPj0E")
-        ' cfdi.Decimales = 4
+        'cfdi.Decimales = 4
 #Region "Certificado"
         cfdi.CertificadoArchivo(ArchivoCertificado)
 #End Region

Ashx/SIGWeb.ashx

@@ -87,6 +87,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                     GETPSUSADOS(context)
                 Case "getumsat"
                     GETUMSAT(context)
+                Case "getsatmatpeligroso"
+                    GETSATMaterialPeligroso(context)
+                Case "getsatembalajes"
+                    GETSATEmbalajes(context)
                 Case "getcliente"
                     GetClientes(context)
                 Case "getproveedores"
@@ -1054,6 +1058,84 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
     End Function
 #End Region
 
+#Region "  GET SAT  CARTA PORTE "
+    Private Function GETSATMaterialPeligroso(ByVal context As HttpContext) As String
+        Dim retorno As String = ""
+
+
+        If context.Application("GlobalDTMaterialPeligroso") Is Nothing Then
+            Dim ObjGrales As New ClsGenerales
+            If ObjGrales.GetMaterialPeligroso Then context.Application("GlobalDTMaterialPeligroso") = ObjGrales.DtResultados Else context.Application("GlobalDTMaterialPeligroso") = Nothing
+            ObjGrales.Dispose()
+        End If
+
+        Dim DTUM = DirectCast(context.Application("GlobalDTMaterialPeligroso"), DataTable).AsEnumerable
+        Dim DtPSRetorno As DataTable
+
+        Dim Name = IfNull(context.Request("Name"), "-1").ToString
+
+        If Name <> "-1" Then
+            DTUM = DTUM.Where((Function(a) a!ClaveMaterialPeligrosoDescripcion.ToString.ToLower Like ("*" + Name.ToLower + "*")))
+        End If
+
+        If DTUM.Count > 0 Then
+            DtPSRetorno = New DataView(DTUM.OrderBy(Function(a) a!ClaveMaterialPeligrosoDescripcion).CopyToDataTable).ToTable(True, {"CveMaterialPeligroso", "ClaveMaterialPeligrosoDescripcion"})
+        Else
+            DtPSRetorno = Nothing
+        End If
+
+        If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then
+            DtPSRetorno.Columns("CveMaterialPeligroso").ColumnName = "id"
+            DtPSRetorno.Columns("ClaveMaterialPeligrosoDescripcion").ColumnName = "text"
+            retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString
+            context.Response.Write(retorno)
+            DtPSRetorno.Dispose()
+        Else
+            context.Response.Write("[]")
+        End If
+        Return retorno
+    End Function
+
+    Private Function GETSATEmbalajes(ByVal context As HttpContext) As String
+        Dim retorno As String = ""
+
+
+        If context.Application("GlobalDTEmbalajes") Is Nothing Then
+            Dim ObjGrales As New ClsGenerales
+            If ObjGrales.GetEmbalajes Then context.Application("GlobalDTEmbalajes") = ObjGrales.DtResultados Else context.Application("GlobalDTEmbalajes") = Nothing
+            ObjGrales.Dispose()
+        End If
+
+        Dim DTUM = DirectCast(context.Application("GlobalDTEmbalajes"), DataTable).AsEnumerable
+        Dim DtPSRetorno As DataTable
+
+        Dim Name = IfNull(context.Request("Name"), "-1").ToString
+
+        If Name <> "-1" Then
+            DTUM = DTUM.Where((Function(a) a!ClaveEmbalajeDescripcion.ToString.ToLower Like ("*" + Name.ToLower + "*")))
+        End If
+
+        If DTUM.Count > 0 Then
+            DtPSRetorno = New DataView(DTUM.OrderBy(Function(a) a!ClaveEmbalajeDescripcion).CopyToDataTable).ToTable(True, {"CveEmbalaje", "ClaveEmbalajeDescripcion"})
+        Else
+            DtPSRetorno = Nothing
+        End If
+
+        If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then
+            DtPSRetorno.Columns("CveEmbalaje").ColumnName = "id"
+            DtPSRetorno.Columns("ClaveEmbalajeDescripcion").ColumnName = "text"
+            retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString
+            context.Response.Write(retorno)
+            DtPSRetorno.Dispose()
+        Else
+            context.Response.Write("[]")
+        End If
+        Return retorno
+    End Function
+
+
+#End Region
+
 #Region "  GET FRACCION ARANCELARIA  "
     Private Function GetFraccionArancelaria(ByVal context As HttpContext) As String
         Dim retorno As String = ""

Compras/Compras.aspx

@@ -4835,7 +4835,7 @@
                                     <br />
                                     <div class="row">
                                         <div class="col-md-12">
-                                            <asp:GridView ID="GVNCInvAlmacen" runat="server" EmptyDataText="Aun no hay registros." Width="100%" AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" DataKeyNames="CveCompraDetalle" CssClass="table table-striped table-hover Widthall ScrollAD" data-heighterror="450" data-freezerows="1" GridLines="None">
+                                            <asp:GridView ID="GVNCInvAlmacen" runat="server" EmptyDataText="Aun no hay registros." Width="100%" AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" DataKeyNames="CveCompraDetalle,CveCompra,TipoCambio,PU" CssClass="table table-striped table-hover Widthall ScrollAD" data-heighterror="450" data-freezerows="1" GridLines="None">
                                                 <Columns>
                                                     <asp:TemplateField HeaderText="Cantidad">
                                                         <ItemTemplate>

Contabilidad/RegPrePolizaS.aspx.vb

@@ -223,7 +223,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             Beneficiario = "-1"
             Actualizar = False
             IdPoliza = -1
-
+            CargaCtaContableE()
 
             If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
                 DivTipoGasto.Visible = True
@@ -452,6 +452,11 @@ Partial Class ContabilidadC_RegPrePolizaS
                     LnkComplementoPago.Visible = True
                 End If
 
+
+                If UsuarioActual.CveEmpresa = 119 Then
+                    BtnContabilizar.Visible = True
+                End If
+
                 If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
                     If dr("FolioPoliza").ToString.ToEntero > 0 Then
                         divContabilizada.Visible = True
@@ -636,8 +641,20 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlCuentaContable.Items.Insert(0, New ListItem("Seleccione", "0"))
         DdlCuentaContableE.DataBind()
         DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
-    End Sub
-
+    End Sub
+
+    Private Function CargaCuentasContpaq(CveCuenta As Integer) As Integer
+        Dim Retorno As Integer = -1
+        If CveCuenta > 0 Then
+            Dim ObjConta As New ClsContabilidad
+            If ObjConta.GetCuentas(CveCuenta, "-1", 1, UsuarioActual.CveEmpresa) Then
+                Retorno = ObjConta.DtResultados.Rows(0)("IdCompaq").ToString.ToEntero
+            End If
+            ObjConta.Dispose()
+        End If
+        Return Retorno
+
+    End Function
     Private Sub CargaTiposGasto()
         DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
         DdlTipoGasto.DataBind()
@@ -651,7 +668,7 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Sub
 
     Private Sub CargaCompras(CveProveedor As Integer)
-        If Not DdlConceptosContables.SelectedValue.ToEntero.Contiene(21) Then
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 305, 308, 310, 311, 312) Then
             Dim ObjCompras As New ClsCompras
 
             DdlCompras.ClearSelection()
@@ -1039,17 +1056,22 @@ Partial Class ContabilidadC_RegPrePolizaS
         End If
     End Sub
 
-    Private Sub ActualizarPrePoliza()
-
+    Private Sub ActualizarPrePoliza()
+        Dim contador As Integer = 0
         Dim OcurrioError As Boolean = False
         Dim ObjContabilidad As New ClsContabilidad
         ObjContabilidad.IniciaTransacSQL()
 
-        ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario)
+        ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario)
+
+        If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+            OcurrioError = True
+        End If
 
         For Each row As GridViewRow In GvPrePoliza.Rows
             If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
                 If row.FCCheckBox("chkModificado").Checked Then
+                    contador = contador + 1
                     If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
                                                                    row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
                                                                    row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
@@ -1061,6 +1083,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     End If
                 End If
             Else
+                contador = contador + 1
                 If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
                                                             row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), row.DataKey("Referencia").ToString,
                                                             row.DataKey("CveConceptoContable").ToEntero, row.FCLiteral("TxtConcepto").Text, Now,
@@ -1087,6 +1110,13 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         ObjContabilidad.Dispose()
         CargaPrePoliza()
+
+        If Not OcurrioError Then
+            If IdPoliza > 0 AndAlso contador Then
+                BtnContabilizar_Click(Nothing, Nothing)
+            End If
+
+        End If
     End Sub
     Protected Sub LnkAddConcepto_Click(sender As Object, e As EventArgs)
         RegistraScript(String.Format("$('#{0}').modal();", "DivEditConcepto"))
@@ -1096,10 +1126,8 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         CargaConceptosContablesE()
         CargaSubProyectoE()
-        CargaTipoGastoE()
-        CargaCtaContableE()
-
-
+        CargaTipoGastoE()
+
         UpdatePanel1.Update()
     End Sub
     Protected Sub GvPrePoliza_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvPrePoliza.RowUpdating
@@ -1135,9 +1163,12 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         DdlPersonalE.SelectedValueExist(CvePersonal)
 
-        DdlClientesE.SelectedValue = CveCliente
-        DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NombreComercial", $"CveCliente={CveCliente}")
-        DdlClientesE_SelectedIndexChanged(DdlClientesE, e)
+        If CveCliente > 0 Then
+            DdlClientesE.SelectedValue = CveCliente
+            DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NombreComercial", $"CveCliente={CveCliente}")
+            DdlClientesE_SelectedIndexChanged(DdlClientesE, e)
+
+        End If
         DdlVentasE.SelectedValueExist(CveVenta)
 
         TxtConceptoE.Text = Concepto
@@ -1146,8 +1177,8 @@ Partial Class ContabilidadC_RegPrePolizaS
         CargaSubProyectoE()
         DdlSubProyectoE.SelectedValueExist(CveSubProyecto)
         CargaTipoGastoE()
-        DdlTipoGastoE.SelectedValueExist(CveTipoGasto)
-        CargaCtaContableE()
+        DdlTipoGastoE.SelectedValueExist(CveTipoGasto)
+
         DdlCuentaContableE.SelectedValueExist(CveCuenta)
 
         If Cargo <> 0 Then
@@ -1234,7 +1265,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlProveedoresE.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
     Private Sub CargaComprasE(CveProveedor As Integer)
-        If Not DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(21) Then
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 305, 308, 310, 311, 312) Then
             Dim ObjCompras As New ClsCompras
 
             DdlComprasE.ClearSelection()
@@ -1293,9 +1324,10 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         If IndiceGrid = -1 Then
             If DtMovimientos Is Nothing Then CreaDT()
-            If CvePrePoliza > 0 Then
+            If CvePrePoliza > 0 Then
+                Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
                 Dim dr As DataRow = DtMovimientos.NewRow
-                dr("IdCtaContable") = DdlCuentaContableE.SelectedValue
+                dr("IdCtaContable") = IdCtaContable
                 dr("CveCuenta") = DdlCuentaContableE.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
@@ -1385,8 +1417,9 @@ Partial Class ContabilidadC_RegPrePolizaS
             Dim Rows As DataRow() = DtMovimientos.Select("CvePrePolizaDetalle = " & CvePrePolizaDetalle)
 
             If Rows.Count > 0 Then
-                Dim dr As DataRow = Rows(0)
-                dr("IdCtaContable") = DdlCuentaContableE.SelectedValue
+                Dim dr As DataRow = Rows(0)
+                Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
+                dr("IdCtaContable") = IdCtaContable
                 dr("CveCuenta") = DdlCuentaContableE.SelectedValue
                 dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
@@ -1442,12 +1475,13 @@ Partial Class ContabilidadC_RegPrePolizaS
                 UpTotalCargo.Update()
                 UpTotalAbono.Update()
 
-            End If
+            End If
+            RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
         End If
 
 
-        UpPrePoliza.Update()
-        RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
+        UpPrePoliza.Update()
+
     End Sub
     Protected Sub GvMov_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMov.RowDeleting
 
@@ -1831,25 +1865,10 @@ Partial Class ContabilidadC_RegPrePolizaS
         TxtObservaciones.Text = ""
         Actualizar = False
         LbAgregar.Text = "Agregar"
-    End Sub
-
-    Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click
-
-        Dim ObjConta As New ClsContabilidad
-
-        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-            Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
-        Else
-
-            Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
-        End If
-
-        ObjConta.Dispose()
-
-
     End Sub
 
 
+
 #Region "COMPLEMENTO DE PAGO"
 
     Private Sub GeneraTimbre(CvePrePoliza As Integer)
@@ -2247,7 +2266,29 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Function
 #End Region
 
+    Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click
 
+        Contabilizar()
+
+    End Sub
+
+    Private Sub Contabilizar()
+
+        Dim ObjConta As New ClsContabilidad
+
+        If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero
+            ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
+        End If
+
+        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) Then
+            Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
+        Else
+
+            Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
+        End If
+
+        ObjConta.Dispose()
+    End Sub
 
 
 #Region "Paquete Egresos"

Contabilidad2/CatCuentasAsignaciones.aspx

@@ -69,7 +69,7 @@
     <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView runat="server" ID="GvDatos" EmptyDataText="" ToolTip="" CssClass="table table-striped table-advance table-hover ScrollAD" 
-                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina,CveBancoCuenta" AutoGenerateColumns="False" 
+                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina,CveBancoCuenta,CveActivoFijo" AutoGenerateColumns="False" 
                 Style=" width:100%" GridLines="None">
                 <Columns>
                     <asp:BoundField DataField="ConceptoContable" ItemStyle-Width="150px" HeaderText="Concepto Contable" ItemStyle-HorizontalAlign="Left"/>
@@ -130,7 +130,7 @@
                                     <div class="col-md-1" style="width:50%;text-align:left">
                                         <div class="form-group form-md-line-input input-iconright">
                                             <asp:HiddenField ID="HdnCveCuentaAsignacion" runat="server" />
-                                            <asp:DropDownList ID="DdlCconceptosContables" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlCconceptosContables" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo" AutoPostBack="true"></asp:DropDownList>
                                             <label for="<%= DdlCconceptosContables.ClientID.ToString()%>">Concepto Contable: </label>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright">
@@ -148,7 +148,7 @@
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright" id="divCliente" runat="server" visible="false">
                                             <label for="<%= DdlClientes.ClientID.ToString()%>">Cliente: </label><br />
-                                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="90%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="90%" data-metodo="getcliente"  runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright" id="divBancos" runat="server" visible="false">
                                             <asp:DropDownList ID="DdlCuentaBancaria" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
@@ -181,6 +181,10 @@
                                             <asp:DropDownList ID="DdlActivoFijo" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
                                             <label for="<%= DdlActivoFijo.ClientID.ToString()%>">Activo Fijo: </label>
                                         </div>
+                                        <div class="form-group form-md-line-input input-iconright" id="divSubProyectos" runat="server" visible="false">
+                                            <asp:DropDownList ID="DdlSubProyectos" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
+                                            <label for="<%= DdlSubProyectos.ClientID.ToString()%>">Sub Proyectos: </label>
+                                        </div>
                                     </div>
                                 </div>
                             </div>

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -79,6 +79,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
 
+        DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+
         Dim ObjBancos As New ClsBancos
         If ObjBancos.GetBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) Then
             DdlCuentaBancaria.DataSource = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -94,6 +96,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         'DdlPersonal.DataBind()
         DdlClasificacion.DataBind()
         DdlAlmacen.DataBind()
+        DdlSubProyectos.DataBind()
 
         DdlCuentaBancaria.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlConceptoNomina.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -112,6 +115,10 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         HdnCveCuentaAsignacion.Value = GvRow.DataKey("CveCuentaAsignacion").ToString
 
         If Dr IsNot Nothing Then
+            DdlCconceptosContables.Enabled = False
+            DdlSubProyectos.Enabled = False
+            DdlClasificacion.Enabled = False
+            DdlPersonal.Enabled = False
             CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
             DdlCconceptosContables.SelectedValueExist(GvRow.DataKey("CveConceptoContable"))
             DdlCuenta.SelectedValueExist(GvRow.DataKey("CveCuenta"))
@@ -126,33 +133,37 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
             Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
 
+            RecargaConcepto(CveConceptoContable)
+
+            DdlClientes.ddl.SelectedValueExist(CveCliente)
+            DdlPersonal.ddl.SelectedValueExist(CvePersonal)
+
+            LbAgregar.Text = "Actualizar"
+            UpModalModulos.Update()
+            RegistraScript("$('#ModalCat').modal();")
+        End If
+
+
+    End Sub
+
+    Private Sub RecargaConcepto(CveConceptoContable As Integer)
+        Dim Dr As DataRow = GlobalDTContaConceptosContables(CveConceptoContable).FiltroPrimero("")
+
+        If Dr IsNot Nothing Then
+
             If Dr("AplicaCliente").ToString = "True" Then
                 divCliente.Visible = True
-                If CveCliente > 0 Then
-                    DdlClientes.setEsWebService(False)
-                    Dim ObjCliente As New ClsClientes
-                    If ObjCliente.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-                        DdlClientes.ddl.DataSource = ObjCliente.DtResultados
-                    End If
-                    DdlClientes.ddl.DataBind()
-                    DdlClientes.ddl.SelectedValue = CveCliente
-                End If
+                DdlClientes.setEsWebService(True)
             End If
+
             If Dr("AplicaProveedor").ToString = "True" Then
                 divProveedor.Visible = True
             End If
 
             If Dr("AplicaPersonal").ToString = "True" Then
                 divPersonal.Visible = True
-                If CvePersonal > 0 Then
-                    DdlPersonal.setEsWebService(False)
-                    Dim ObjPersonal As New ClsRH
-                    If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
-                        DdlPersonal.ddl.DataSource = ObjPersonal.DtResultados
-                    End If
-                    DdlPersonal.ddl.DataBind()
-                    DdlPersonal.ddl.SelectedValueExist(CvePersonal)
-                End If
+                DdlPersonal.setEsWebService(True)
+
             End If
 
             If Dr("AplicaImpuesto").ToString = "True" Then
@@ -172,20 +183,22 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
                 divAlmacen.Visible = True
             End If
 
+            If Dr("AplicaSubProyecto").ToString = "True" Then
+                divSubProyectos.Visible = True
+            End If
+
             If Dr("AplicaActivoFijo").ToString = "True" Then
                 divActivoFijo.Visible = True
+                DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
+                DdlActivoFijo.DataBind()
+                ' DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo"))
             End If
 
             If Dr("AplicaNomina").ToString = "True" Then
                 divConceptoNomina.Visible = True
             End If
-
-            LbAgregar.Text = "Actualizar"
-            UpModalModulos.Update()
-            RegistraScript("$('#ModalCat').modal();")
         End If
 
-
     End Sub
 
     Protected Sub EliminarRow(sender As Object, e As EventArgs)
@@ -218,7 +231,10 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
     Protected Sub BtnAgregarAsignacion_Click(sender As Object, e As EventArgs) Handles BtnAgregarAsignacion.Click
         LimpiarDatos()
-
+        DdlCconceptosContables.Enabled = True
+        DdlSubProyectos.Enabled = True
+        DdlClasificacion.Enabled = True
+        DdlPersonal.Enabled = True
         LbAgregar.Text = "Agregar"
         UpModalModulos.Update()
         RegistraScript("$('#ModalCat').modal();")
@@ -249,13 +265,15 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         If HdnCveCuentaAsignacion.Value.ToEntero <= 0 Then
             If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
-                                               DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero()) Then
+                                               DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(),
+                                               CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero) Then
                 ErrorString = "Error al agregar"
             End If
         ElseIf HdnCveCuentaAsignacion.Value.ToEntero > 0 Then
             If Not ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
-                                               DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero()) Then
+                                               DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(),
+                                               CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero) Then
                 ErrorString = "Error al actualizar"
             End If
         End If
@@ -288,4 +306,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         CargaDatosSistema()
         UpDatos.Update()
     End Sub
+
+    Private Sub DdlCconceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCconceptosContables.SelectedIndexChanged
+        RecargaConcepto(DdlCconceptosContables.SelectedValue.ToEntero)
+    End Sub
 End Class

Global.asax

@@ -221,7 +221,7 @@
 
         Using ObjContabilidad As New ClsContabilidad
             If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing
-            If ObjContabilidad.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = ObjContabilidad.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing
+            'If ObjContabilidad.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = ObjContabilidad.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing
             If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing
         End Using
 

Inventarios/EntradasSalidas.aspx.vb

@@ -4689,7 +4689,7 @@ Partial Class Inventarios_EntradasSalidas
                         If CvePS > 0 Then
                             Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
 
-                            If DrPS IsNot Nothing AndAlso String.IsNullOrEmpty(UM) Then
+                            If DrPS IsNot Nothing Then
                                 CveUM = DrPS("CveUnidadMedida").ToString().ToEntero()
                                 UM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("UnidadMedida", $"CveUnidadMedida={CveUM}")
                             End If

Inventarios/EntregaAlmacen.aspx.vb

@@ -1819,7 +1819,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                 For Each Dr As DataRow In DtDatos.Rows
                     FechaCaducidad = If(CBool(Dr("AplicaCaducidad")) AndAlso Dr("FechaCaducidad").ToString() <> "", Dr("FechaCaducidad").ToString().ToDate, MinFecha)
-                    Lote = If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1")
+                    Lote = If(CBool(Dr("AplicaLote")), Dr("Lote").ToString().Trim, "-1")
 
                     If Not ValidaLoteCaducidad Then
                         FechaCaducidad = MinFecha

Inventarios/TraspasoAlmacen.aspx.vb

@@ -296,6 +296,10 @@ Partial Class Inventarios_TraspasoAlmacen
         dt.Columns.Add("Obs")
         dt.Columns.Add("ImporteIVA", Type.GetType("System.Double"))
         dt.Columns.Add("PorcentajeIVA", Type.GetType("System.Double"))
+        dt.Columns.Add("ClaveMaterialPeligroso")
+        dt.Columns.Add("ClaveEmbalaje")
+        dt.Columns.Add("Embalaje")
+        dt.Columns.Add("PesoKg", Type.GetType("System.Decimal"))
 
 
         DtMovimientos = dt
@@ -663,42 +667,48 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim CveClasificacion As Integer
 
         Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
-        If DrPS IsNot Nothing Then CveClasificacion = DrPS("CveClasificacion").ToString.ToEntero
+        If DrPS IsNot Nothing Then
+            CveClasificacion = DrPS("CveClasificacion").ToString.ToEntero
+            Dim DrUM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimero($"CveUnidadMedida = {CveUnidadMedida}")
 
-        Dim DrUM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimero($"CveUnidadMedida = {CveUnidadMedida}")
+            Dim registro As DataRow = DtMovimientos.NewRow
+            registro.Item("Cantidad") = Cantidad
+            registro.Item("CveUM") = CveUnidadMedida
+            registro.Item("UM") = DrUM("UnidadMedida")
+            registro.Item("UnidadMedida") = DrUM("UnidadMedida")
+            registro.Item("CvePS") = CvePS
+            registro.Item("PS") = DrPS("PSCodigo")
+            registro.Item("Observaciones") = Observaciones
+            registro.Item("Serie") = Serie
+            registro.Item("Lote") = Lote
+            If FechaCaducidad > MinFecha Then registro.Item("FechaCaducidad") = FechaCaducidad
+            registro.Item("CveClasificacion") = CveClasificacion
+            registro.Item("CveAF") = -1
+            registro.Item("EstatusExistencia") = "1"
+            registro.Item("CveSeccionAlmacen") = CveSeccionAlmacen
+            registro.Item("SeccionAlmacen") = SeccionAlmacen
+            registro.Item("CveSeccionAlmacenDestino") = CveSeccionAlmacenDestino
 
-        Dim registro As DataRow = DtMovimientos.NewRow
-        registro.Item("Cantidad") = Cantidad
-        registro.Item("CveUM") = CveUnidadMedida
-        registro.Item("UM") = DrUM("UnidadMedida")
-        registro.Item("UnidadMedida") = DrUM("UnidadMedida")
-        registro.Item("CvePS") = CvePS
-        registro.Item("PS") = DrPS("PSCodigo")
-        registro.Item("Observaciones") = Observaciones
-        registro.Item("Serie") = Serie
-        registro.Item("Lote") = Lote
-        If FechaCaducidad > MinFecha Then registro.Item("FechaCaducidad") = FechaCaducidad
-        registro.Item("CveClasificacion") = CveClasificacion
-        registro.Item("CveAF") = -1
-        registro.Item("EstatusExistencia") = "1"
-        registro.Item("CveSeccionAlmacen") = CveSeccionAlmacen
-        registro.Item("SeccionAlmacen") = SeccionAlmacen
-        registro.Item("CveSeccionAlmacenDestino") = CveSeccionAlmacenDestino
+            registro.Item("TotalImporte") = 0
+            registro.Item("PU") = 0
+            registro.Item("Descuento") = 0
+            registro.Item("SATClaveUM") = DrPS("SATClaveUnidadMedida")
+            registro.Item("SATClaveProdServ") = DrPS("SATClavePS")
+            registro.Item("Noidentificacion") = DrPS("Codigo")
+            registro.Item("CuentaPredial") = ""
+            registro.Item("Obs") = ""
+            registro.Item("ImporteIVA") = 0
+            registro.Item("PorcentajeIVA") = 0
+            registro("ClaveMaterialPeligroso") = DrPS("ClaveMaterialPeligroso")
+            registro("ClaveEmbalaje") = DrPS("ClaveEmbalaje")
+            registro("PesoKg") = DrPS("PesoKg")
 
-        registro.Item("TotalImporte") = 0
-        registro.Item("PU") = 0
-        registro.Item("Descuento") = 0
-        registro.Item("SATClaveUM") = DrPS("SATClaveUnidadMedida")
-        registro.Item("SATClaveProdServ") = DrPS("SATClavePS")
-        registro.Item("Noidentificacion") = DrPS("Codigo")
-        registro.Item("CuentaPredial") = ""
-        registro.Item("Obs") = ""
-        registro.Item("ImporteIVA") = 0
-        registro.Item("PorcentajeIVA") = 0
+            DtMovimientos.Rows.Add(registro)
+            RegistraScript("playsonidito('beep-07.wav')")
+
+        End If
 
 
-        DtMovimientos.Rows.Add(registro)
-        RegistraScript("playsonidito('beep-07.wav')")
         CargaGvDatos()
 
         If Limpia Then
@@ -2587,7 +2597,7 @@ Partial Class Inventarios_TraspasoAlmacen
         ObjFactura.ConvertirPesos = False
         ObjFactura.CveMoneda = 1
         ObjFactura.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ")
-        ObjFactura.MonedaSAT = "XXX" 'GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", "CveMoneda = 1")
+        ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", "CveMoneda = 1") '"XXX"
         ObjFactura.MonedaAbreviatura = GlobalDTMonedas.FiltroPrimeroValor("Abreviatura", $"CveMoneda = {ObjFactura.CveMoneda} ")
         ObjFactura.TipoDocto = "Tra"
         ObjFactura.RefDocto = ""
@@ -2655,7 +2665,11 @@ Partial Class Inventarios_TraspasoAlmacen
 
         ObjFactura.Inv_CveMovimiento = CveMovimientoTimbrado
 
-        ObjFactura.Timbre = PreParaTimbreCartaPorte(ObjFactura)
+        If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
+            ObjFactura.Timbre = PreParaTimbreCartaPorte(ObjFactura)
+        Else
+            ObjFactura.Timbre = PreParaTimbre(ObjFactura)
+        End If
 
     End Sub
     Private Function PreParaTimbreCartaPorte(Obj As Modelos.Factura) As CFDITimbre
@@ -2698,47 +2712,86 @@ Partial Class Inventarios_TraspasoAlmacen
         CartaPorte.Mercancias.UnidadPeso = ""
         CartaPorte.Mercancias.CargoporTasacion = 0
 
-        CartaPorte.FiguraTransporte.AutoTransporteFederal.PermSCT = "TPAF01"
-        CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT = "1234567890"
-        CartaPorte.FiguraTransporte.AutoTransporteFederal.NombreAseg = "GNP"
-        CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro = "P123"
-        CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular = "C2"
-        CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM = "WTF757A"
-        CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM = 2007
+        Dim Dr As DataRow = DtCamiones.FiltroPrimero(String.Format("CveCamion= {0}", DdlUnidadCamion.SelectedValue))
+
+        If Dr IsNot Nothing Then
+            CartaPorte.FiguraTransporte.AutoTransporteFederal.PermSCT = Dr("TipoPermisoSCT").ToString '"TPAF01"
+            CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT = Dr("NumPermisoSCT").ToString
+            CartaPorte.FiguraTransporte.AutoTransporteFederal.NombreAseg = Dr("NombreAseguradora").ToString
+            CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro = Dr("NumPolizaSeguro").ToString
+            CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular = Dr("ConfigCartaPorte").ToString '"C2"
+            CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM = Dr("Placa").ToString
+            CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM = Dr("Anio").ToString.ToEntero
+        End If
+
+        Dim CveSubProyectoOrigen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
+        Dim DomOrigen As CFDICartaPorteDomicilio = Nothing
+
+        If CveSubProyectoOrigen > 0 Then
+            Dim drr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyectoOrigen).FiltroPrimero("")
+            DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drr("Calle").ToString,
+                                                              .Colonia = drr("Colonia").ToString,
+                                                              .CP = drr("CP").ToString,
+                                                              .Estado = drr("Estado").ToString,
+                                                              .Pais = drr("Pais").ToString,
+                                                              .Municipio = drr("Municipio").ToString,
+                                                              .Localidad = drr("Localidad").ToString}
+        End If
+
+        Dim CveSubProyectoDestino As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenDestino.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
+        Dim DomDestino As CFDICartaPorteDomicilio = Nothing
+
+        If CveSubProyectoOrigen > 0 Then
+            Dim drr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyectoOrigen).FiltroPrimero("")
+            DomDestino = New CFDICartaPorteDomicilio With {.Calle = drr("Calle").ToString,
+                                                              .Colonia = drr("Colonia").ToString,
+                                                              .CP = drr("CP").ToString,
+                                                              .Estado = drr("Estado").ToString,
+                                                              .Pais = drr("Pais").ToString,
+                                                              .Municipio = drr("Municipio").ToString,
+                                                              .Localidad = drr("Localidad").ToString}
+        End If
 
-        Dim DomOrigen As New CFDICartaPorteDomicilio With {.Calle = "calle",
-                                                                .Colonia = "",
-                                                                .CP = "45200",
-                                                                .Estado = "JAL",
-                                                                .Pais = "MEX",
-                                                                .Localidad = ""}
-        Dim DomDestino As New CFDICartaPorteDomicilio With {.Calle = "calle destino",
-                                                                .Colonia = "",
-                                                                .CP = "45200",
-                                                                .Estado = "JAL",
-                                                                .Pais = "MEX",
-                                                                .Localidad = ""}
         Dim Ubica As New CFDICartaPorteUbicaciones
         Ubica.TipoEstacion = "01"
         Ubica.DistanciaRecorrida = 6
-        Ubica.Origen = New CFDICartaPorteUbicacionOrigen With {.RFCRemitente = "CAMJ841219I33",
-                                                                .FechaHoraSalida = "2021-08-23T11:13:01",
-                                                                .NombreRemitente = "Empresa",
+        Ubica.Origen = New CFDICartaPorteUbicacionOrigen With {.RFCRemitente = UsuarioActual.Empresa.RFC,
+                                                                .FechaHoraSalida = Now.ToString("yyyy-MM-ddTH:mm:ss"),' "2021-08-23T11:13:01",
+                                                                .NombreRemitente = UsuarioActual.Empresa.Empresa,
                                                                 .Domicilio = DomOrigen}
-        Ubica.Destino = New CFDICartaPorteUbicacionDestino With {.RFCDestinatario = "CAMJ841219I33",
-                                                                .FechaHoraProgLlegada = "2021-08-23T11:13:01",
-                                                                .NombreDestinatario = "Empresa dest",
+        Ubica.Destino = New CFDICartaPorteUbicacionDestino With {.RFCDestinatario = UsuarioActual.Empresa.RFC,'"CAMJ841219I33",
+                                                                .FechaHoraProgLlegada = TxtFechaEntrega.Text.ToDate.ToString("yyyy-MM-ddT23:59:59"),
+                                                                .NombreDestinatario = UsuarioActual.Empresa.Empresa,
                                                                 .Domicilio = DomDestino}
 
         CartaPorte.Ubicaciones.Add(Ubica)
 
         CartaPorte.FiguraTransporte.ClaveTransporte = "01"
-        CartaPorte.FiguraTransporte.Operadores.Add(New CFDICartaPorteOperador With {.RFCOperador = "CAMJ841219I33",
-                                                        .Domicilio = Nothing,
-                                                        .NombreOperador = "juan Perez",
-                                                        .NumLicencia = "Num Lic",
-                                                        .NumRegidTribOperador = "",
-                                                        .ResidenciaFiscalOperador = ""})
+
+        Dim ObjAcar As New ClsAcarreos()
+
+        If ObjAcar.GetChofer(DdlChofer.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, -1) Then
+            Dim dro As DataRow = ObjAcar.DtResultados.Rows(0)
+            If dro IsNot Nothing Then
+                Dim DomicilioOperador As New CFDICartaPorteDomicilio With {.Calle = dro("Domicilio").ToString,
+                                                                            .NumeroExterior = dro("NumeroExterior").ToString,
+                                                                            .NumeroInterior = dro("NumeroInterior").ToString,
+                                                                            .Colonia = dro("Colonia").ToString,
+                                                                            .Municipio = dro("Ciudad").ToString,
+                                                                            .Estado = dro("Estado").ToString,
+                                                                            .CP = dro("CP").ToString}
+
+                CartaPorte.FiguraTransporte.Operadores.Add(New CFDICartaPorteOperador With {.RFCOperador = dro("RFC").ToString,
+                                                        .NombreOperador = dro("Chofer").ToString,
+                                                        .NumLicencia = dro("Licencia").ToString,
+                                                        .NumRegidTribOperador = dro("NumRegidTribOperador").ToString,
+                                                        .ResidenciaFiscalOperador = dro("ResidenciaFiscalOperador").ToString,
+                                                        .Domicilio = DomicilioOperador})
+
+            End If
+        End If
+        ObjAcar.Dispose()
+
 
         'concepto único
 
@@ -2768,18 +2821,19 @@ Partial Class Inventarios_TraspasoAlmacen
             End If
             Dim conceptoCarta As New CFDICartaPorteMercancia With {
                                                        .BienesTransp = drr("SATClaveProdServ").ToString,
-                                                       .ClaveSTCC = "01334",
+                                                       .ClaveSTCC = "", 'para metodo ferroviario
                                                        .Cantidad = drr("Cantidad").ToString.ToDecimal,
                                                        .Descripción = tPS,
                                                        .ClaveUnidad = drr("SATClaveUM").ToString,
                                                        .Unidad = drr("UM").ToString,
                                                        .Dimensiones = "",
-                                                       .MaterialPeligroso = "",
-                                                       .Embalaje = "",
-                                                       .DescripEmbalaje = "",
-                                                       .PesoenKg = 203,
+                                                       .MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", "No"),
+                                                       .ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString,
+                                                       .Embalaje = drr("ClaveEmbalaje").ToString,
+                                                       .DescripEmbalaje = drr("Embalaje").ToString,
+                                                       .PesoenKg = drr("PesoKg").ToString.ToDecimal,
                                                        .ValorMercancia = drr("PU").ToString.ToDecimal,
-                                                       .Moneda = "MXN", 'tempral
+                                                       .Moneda = "MXN", 'temporal
                                                        .FraccionArrancelaria = "",
                                                        .UUIDComercioExt = ""
                                                        }
@@ -2795,6 +2849,75 @@ Partial Class Inventarios_TraspasoAlmacen
         Return Timbre
     End Function
 
+    Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
+        Dim Timbre As New CFDITimbre
+        Timbre.Comprobante.TipoComprobante = "T"
+        Timbre.Comprobante.Folio = Obj.Folio.ToString
+        Timbre.Comprobante.Serie = Obj.Serie
+        Timbre.Comprobante.Fecha = Obj.Fecha
+        Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
+        Timbre.Comprobante.CondicionesdePago = ""
+        Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
+        Timbre.Comprobante.Subtotal = Obj.SubTotal
+        Timbre.Comprobante.Descuentos = Obj.Descuento
+        Timbre.Comprobante.Moneda = Obj.MonedaSAT
+        Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
+        Timbre.Comprobante.Total = Obj.Total
+
+        Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
+        Timbre.Comprobante.Confirmacion = ""
+
+        Timbre.Receptor.RFC = "XAXX010101000"
+        Timbre.Receptor.Nombre = UsuarioActual.Empresa.Empresa
+        Timbre.Receptor.UsoCFDI = "P01"
+
+        Dim totSubTotal As Decimal = Obj.SubTotal
+        Dim totIVA As Decimal = Obj.IVA
+        Dim totRetIVA As Decimal = Obj.RetIVA
+        Dim totRetISR As Decimal = Obj.RetISR
+        Dim i As Integer = 1
+
+        'DETALLES
+        Dim tPS As String = ""
+
+        For Each drr As DataRow In Obj.DtDetalle.Rows
+            If drr("PS").ToString.Length = 1 Then
+                tPS = drr("Obs").ToString
+            Else
+                If drr("PS").ToString.Length = 0 Then
+                    tPS = ""
+                Else
+                    tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
+                End If
+            End If
+
+            'CONDICIONANTE, ESPECIAL
+            If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" 'LES COMENTAN QUE NO DEBE IR LA ETIQUETA DE LA UNIDAD EN EL PRODUCTO
+
+            Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
+                                                        .Descripcion = tPS,
+                                                        .ValorUnitario = drr("PU").ToString.ToDecimal,
+                                                        .Importe = drr("TotalImporte").ToString.ToDecimal,
+                                                        .Descuento = drr("Descuento").ToString.ToDecimal,
+                                                        .Unidad = drr("UM").ToString,
+                                                        .ClaveUnidad = drr("SATClaveUM").ToString,
+                                                        .ClaveProdServ = drr("SATClaveProdServ").ToString,
+                                                        .Noidentificacion = drr("Noidentificacion").ToString,
+                                                        .CuentaPredial = drr("CuentaPredial").ToString}
+            'VERIFICA SUMA SUBTOTALES
+            If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'PROCESO DE AJUSTA DE DECIMALES
+                concepto.Importe = totSubTotal
+            End If
+            totSubTotal = totSubTotal - concepto.Importe
+
+            'SIEMPRE ESTAMOS AGREGANDO EL IVA
+            'concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
+
+            Timbre.Conceptos.Add(concepto)
+            i += 1
+        Next
+        Return Timbre
+    End Function
     Private Sub PrepararTimbrado(ByRef FM As Modelos.FemsaFactura, ByRef TmpDT7Eleven As DataTable, ByRef TmpDTComplementosTimbrado As DataTable)
         FM.AplicaFEMSA = False
         FM.FEMSA_NumSociedad = ""

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/Ventas.aspx.vb

@@ -10689,7 +10689,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(),
@@ -13287,6 +13287,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
@@ -13462,11 +13463,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
@@ -13481,6 +13484,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
 
@@ -31109,9 +31113,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