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

App_Code/ClsPaginas.vb

@@ -9521,8 +9521,7 @@ Public Class ClsPaginas
 
 #Region "P A G O    D E   C O M P R A S "
 
-
+    Public Function AplicaPrePolizaPagoCompra(CompraActual As Compra, Pago As CompraPago, CvePrePoliza As Integer, ByRef ObjConta As ClsContabilidad) As Boolean
-    Public Function AplicaPrePolizaPago(CompraActual As Compra, Pago As CompraPago, CvePrePoliza As Integer, ByRef ObjConta As ClsContabilidad) As Boolean
         Dim ErrorMovtos As Boolean = False
         Dim PorcentajePago As Decimal = Pago.ImportePago / CompraActual.Total
         Dim ImporteMovimiento As Decimal = 0
@@ -9671,15 +9670,17 @@ Public Class ClsPaginas
         If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then
             Dim tOtCveCon As Integer = 211
             Dim tOtTipoMovto As Boolean = False
+            Dim IdCta As Integer = If(UsuarioActual.Empresa.TipoContabilidad = 2, UsuarioActual.Empresa.Funcionalidad(266).ToEntero(), 0)
             If ImporteMovimiento < 0 Then
                 tOtTipoMovto = True : tOtCveCon = 78
                 ImporteMovimiento = Math.Abs(ImporteMovimiento)
+                IdCta = If(UsuarioActual.Empresa.TipoContabilidad = 2, UsuarioActual.Empresa.IdCuentaOtrosIngresos, 0)
             End If
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tOtTipoMovto, ImporteMovimiento, ImporteMovimiento, tOtCveCon, CompraActual.SerieFolio, Concepto, 0, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveSubProyecto:=CompraActual.CveSubProyecto, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tOtTipoMovto, ImporteMovimiento, ImporteMovimiento, tOtCveCon, CompraActual.SerieFolio, Concepto, IdCta, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveSubProyecto:=CompraActual.CveSubProyecto, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
 
         End If
 
-        If Not ErrorMovtos AndAlso CompraActual.TC <> Pago.TCPago Then
+        If Not ErrorMovtos AndAlso TCValuacion <> Pago.TCPago Then
             Dim ConceptoContable, IdCtaContable As Integer
             Dim TipoMovimiento As Boolean
             Dim Diferencia As Decimal = 0
@@ -9805,11 +9806,11 @@ Public Class ClsPaginas
                     Ret.CveConceptoAcreditable = 249
                     Ret.CveConceptoxAcreditar = 248
                 ElseIf CveConceptoRetIVA = 5 Then
-                    Funcionalidad = 578
+                    Funcionalidad = 578 : FuncionalidadxAcred = 578
                     Ret.CveConceptoAcreditable = 286
                     Ret.CveConceptoxAcreditar = 285
                 ElseIf CveConceptoRetIVA = 6 Then
-                    Funcionalidad = 578
+                    Funcionalidad = 578 : FuncionalidadxAcred = 578
                     Ret.CveConceptoAcreditable = 333
                     Ret.CveConceptoxAcreditar = 334
                 End If

App_Code/Timbrado.vb

@@ -4832,7 +4832,7 @@ Public Class Timbrado
 
         If ObjCFDITimbre.Conceptos IsNot Nothing AndAlso ObjCFDITimbre.Conceptos.Count > 0 Then
             For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos
-                cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("0.00####").ToDouble(), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("0.00####").ToDouble(), concep.Importe, concep.Descuento, concep.ObjetoImpuesto)
+                cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("0.00####"), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("0.00####"), concep.Importe, concep.Descuento, concep.ObjetoImpuesto)
                 For Each imp As CFDIConceptosImpuestos In concep.Impuestos
                     If imp.TrasladooRetencion = "T" Then
                         cfdi.ConceptoTraslado(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe)

Compras/Compras.aspx.vb

@@ -5965,7 +5965,7 @@ Partial Class Compras_Compras
                                                                     Pago.CveCompraAmortizacion = -1
                                                                     Pago.CveCreditoDetalle = CveCreditoDetalle
 
-                                                                    ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
+                                                                    ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
 
                                                                 End If
 
@@ -6036,7 +6036,7 @@ Partial Class Compras_Compras
                                                                 Pago.CveCompraAmortizacion = -1
                                                                 'Pago.CveConceptoPago = CveConceptoPago
 
-                                                                ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
+                                                                ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
                                                             End If
 
                                                         Case 14 'IVA X Acreditar
@@ -6091,14 +6091,6 @@ Partial Class Compras_Compras
                                                                 End If
                                                             End If
 
-                                                        'Case 224 'Otros impuestos
-                                                        '    If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                        '        importeMovimiento = OtrosImpuestos
-                                                        '        importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
-                                                        '        If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
-                                                        '        IdCtaContable = If(UsuarioActual.CveEmpresa = 119, 1171, -1)
-                                                        '    End If
-
                                                         Case 15 'RetIVA X Acreditar Honorarios/Serv. Prof.
                                                             If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
                                                                 If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero() > 0 Then
@@ -7044,7 +7036,6 @@ Partial Class Compras_Compras
                                                                                     End If
                                                                                 End If
                                                                             End If
-
                                                                         End If
                                                                     Next
 
@@ -7093,7 +7084,7 @@ Partial Class Compras_Compras
                                                                 Pago.CveIE = -1
                                                                 Pago.CvePersonal = CvePersonal
 
-                                                                ErrorPrepoliza = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
+                                                                ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
 
                                                             End If
 
@@ -7247,7 +7238,7 @@ Partial Class Compras_Compras
                                                                                         Pago.CveIE = Ant.CveIE
                                                                                         Pago.CveMonedaPago = 1
 
-                                                                                        ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
+                                                                                        ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
 
                                                                                     End If
 
@@ -7290,7 +7281,7 @@ Partial Class Compras_Compras
                                                                                 Pago.TCPago = Ant.TCCompra
                                                                                 Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1)
 
-                                                                                ErrorPrepoliza = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
+                                                                                ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
 
                                                                             End If
 
@@ -7402,9 +7393,6 @@ Partial Class Compras_Compras
                                                 End If
                                             End If
 
-
-
-
                                             ''  A N T I C I P O S
                                             If UsuarioActual.Empresa.UsaAC Then
                                                 If ArrAnticipos.Count > 0 Then
@@ -7472,7 +7460,6 @@ Partial Class Compras_Compras
                                                 End If
                                             End If
 
-
                                             '' F U N C I O N A R I O S  Y E M P L E A D O S 
                                             If RBLContado.SelectedValue = "2" AndAlso DdlFuncionarioEmpleado.SelectedValue.ToEntero > 0 Then
                                                 TxtDocumentoImporte.Text = TxtDocumentoImporteFE.Text
@@ -7486,25 +7473,20 @@ Partial Class Compras_Compras
                                                 'se agrego un movimiento de pago
 
                                                 If CveIE > 0 Then
-
                                                     If ImporteCompra <> 0 Then
                                                         'inserto los movimientos de la conta para abonar al saldo
                                                         Dim Pago As New CompraPago
                                                         Pago.ImportePago = ImporteCompra
                                                         Pago.CveIE = CveIE
                                                         Pago.CveMonedaPago = 1
-
+                                                        ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
-                                                        ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
 
                                                     End If
-
                                                 Else
                                                     ErrorMovtosIE = True
                                                 End If
-
                                             End If
 
-
                                             'movimiento de compra
                                             '[IPP] PARCHE PROVISIONAL DE CLASIFICACION Y SUBPROYECTO [CveClasificacion:=TmpDT.FiltroPrimeroValor("CveClasificacion").ToString.ToEntero] [CveSubProyecto:=TmpDT.FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero]
                                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, TxtSubTotal2.Text.ToDecimal, " ", CveConceptoCompra, " ", TxtFechaPago.Text.ToDate, 0, -1, CveClasificacion:=TmpDT.FiltroPrimeroValor("CveClasificacion").ToString.ToEntero, CveSubProyecto:=TmpDT.FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtSubTotal2.Text.ToDecimal) Then
@@ -7619,7 +7601,7 @@ Partial Class Compras_Compras
                                                         Pago.CveCompraAmortizacion = CveCompraNC
                                                         Pago.CveConceptoPago = CveConceptoPago
 
-                                                        ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
+                                                        ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
 
                                                     Else
                                                         ErrorMovtosCxP = True
@@ -7727,7 +7709,7 @@ Partial Class Compras_Compras
                                                     Pago.CveIE = CveIE
                                                     Pago.CveMonedaPago = 1
 
-                                                    ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
+                                                    ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
 
                                                 Else
                                                     ErrorMovtosCxP = True

Compras/ReembolsosComprobaciones.aspx.vb

@@ -113,6 +113,7 @@ Partial Class Compras_ReembolsosComprobaciones
             CveCuentaBancaria = -1
             ViewState("CveMoneda") = 1
             CveMonedaPago = 1
+            TipoCambioPago = 1
             Folio = ""
 
             'Cargar Filtros
@@ -547,7 +548,7 @@ Partial Class Compras_ReembolsosComprobaciones
                 End If
             Else
                 If drp IsNot Nothing Then
-                    If drp("IdPoliza").ToString.ToEntero > 0 Then
+                    If drp("FolioPoliza").ToString.ToEntero > 0 Then
                         CvePrePolizaIERegistrado = ObjMov.AddPrePolizas("Compras/Comprobaciones2", 9, TxtImporteVinculado.Text.ToDecimal, TxtImporteVinculado.Text.ToDecimal, CveMoneda, TxtFechaPrePoliza.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                         IdPoliza = drp("IdPoliza").ToString.ToEntero
                     Else
@@ -749,7 +750,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                     End If
                                 End If
 
-                                If AplicaPrePolizaPago(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
+                                If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
                                     MsgError = "Detalle"
                                 End If
                             End If
@@ -798,6 +799,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                     CveIEPago = 0
                                     Dim FolioIENew = ObjIE.GetNextFolio(CveCajaChica, 6).ToString
                                     CveIEPago = ObjIE.AddBancos_IE(CveCajaChica, 6, TxtFechaPrePoliza.Text.ToDate, FolioIENew, gvr.DataKey("Proveedor"), ImporteMovto, CveMoneda, 0.0, $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}", "", False, True, -1, CvePrePolizaPago, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
+                                    TipoCambioPago = 1
                                 End If
                             End If
 
@@ -811,7 +813,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                 MsgError = "no se pudo insertar el detalle de la poliza"
                             End If
 
-                            If Not AplicaPrePolizaPago(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
+                            If Not AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
                                 MsgError = "Detalle"
                             End If
 

Contabilidad/RegPrePolizaS.aspx.vb

@@ -434,6 +434,10 @@ Partial Class ContabilidadC_RegPrePolizaS
                 '  TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")
                 CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString
 
+                If UsuarioActual.CveRol = 1 Then
+                    TxtUsuarioElaboro.ToolTip = dr("Modulo").ToString
+                End If
+
                 If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
                     'DivAgregarConceptos.Visible = True
                     LnkAddConcepto.Visible = True

Contabilidad2/RepSituacionFinanciera.aspx

@@ -20,7 +20,7 @@
         <%--<asp:ImageButton ID="Imprimir" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px" />&nbsp;--%>
     </li>
     <li>
-        <asp:LinkButton ID="LnkCerrar" runat="server"><i class="fa fa-print"></i> Cerrar Ejercicio</asp:LinkButton>
+        <asp:LinkButton ID="LnkCerrar" runat="server" visible="false"><i class="fa-solid fa-shield" ></i> Cerrar Ejercicio</asp:LinkButton>
     </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
@@ -603,8 +603,8 @@
                                 </asp:DropDownList>
                             </div>
                             <label class="col-md-1 truncate" style="width: 90px;">Cuentas:</label>
-                            <div class="col-md-2" style="width: 125px;">
+                            <div class="col-md-5">
-                                <asp:DropDownList ID="DdlCuentas" runat="server" CssClass="select2me" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="100px">
+                                <asp:DropDownList ID="DdlCuentas" runat="server" CssClass="select2me" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="100%">
                                 </asp:DropDownList>
                             </div>
                         </div>

Contabilidad2/RepSituacionFinanciera.aspx.vb

@@ -173,6 +173,7 @@ Partial Class AC2_SituacionFinanciera
         DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
         DdlSubproyecto.DataBind()
 
+        If UsuarioActual.TienePermisoProceso(346) Then LnkCerrar.Visible = True
 
         'DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
         DdlPeriodo.SelectedValue = Now.Month.ToString

Inventarios/EntregaAlmacen.aspx

@@ -518,7 +518,7 @@
 
                     <%--GV DATOS--%>
                     <asp:GridView ID="GvDatos" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowFooter="True" ShowHeader="true" ShowHeaderWhenEmpty="True"
-                        DataKeyNames="Consec,CvePS,Codigo,CodigoBarras,AplicaSerieLote,CveUM,CantidadC,CantidadF,UM,PS,CveClasificacion,CveVentaDetalle,CveTamaño,AplicaSeccion, AplicaSerie,AplicaLote,AplicaCaducidad" HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall ScrollAD gvInventario mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
+                        DataKeyNames="Consec,CvePS,Codigo,CodigoBarras,CveUM,CantidadC,CantidadF,UM,PS,CveClasificacion,CveCategoria,CveVentaDetalle,CveTamaño,AplicaSeccion, AplicaSerie,AplicaLote,AplicaCaducidad" HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall ScrollAD gvInventario mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
                         <HeaderStyle Height="30px" />
                         <Columns>
                             <asp:TemplateField>

Inventarios/EntregaAlmacen.aspx.vb

@@ -938,7 +938,6 @@ Partial Class Inventarios_EntregaAlmacen
                     e.Row.FCTextBox("TbCantidadF").Text = "0"
                 End If
 
-
                 If TipoDocto = "DPe" Then
                     CveConsecSerie = e.Row.DBCampo("Consec").ToString().ToEntero()
                     PSSerie = e.Row.DBCampo("PS").ToString()
@@ -976,15 +975,7 @@ Partial Class Inventarios_EntregaAlmacen
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
                 If DdlAlmacen.SelectedValue.ToEntero() > 0 Then
                     CargaSeccionesAlmacen(e.Row.FCDropDownList("DdlSeccionAlmacen"), DdlAlmacen.SelectedValue.ToEntero(), e.Row.DBCampo("CvePS").ToEntero(), UsuarioActual.CveEmpresa, True)
-                    'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), e.Row.DBCampo("CvePS").ToEntero())
-                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
-                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
-                    'If dtt.Rows.Count > 1 Then
-                    '    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
-                    'End If
-                    'dtt.Dispose()
                 End If
-
             Else
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = False
             End If
@@ -1027,19 +1018,27 @@ Partial Class Inventarios_EntregaAlmacen
 
 
             'FUNCIONALIDAD PISTOLA DE CODIGOS
-            If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
+            If e.Row.DBCampo("CodigoBarras").Trim <> "" AndAlso UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
-                e.Row.FCTextBox("TbCantidadF").Text = "0"
+
                 'NO BLOQUEA PARA ROL AD
                 If UsuarioActual.CveRol = 1 Then
                     If AplicaSerie Then
                         e.Row.FCTextBox("TbCantidadF").Enabled = False
+                        e.Row.FCTextBox("TbCantidadF").Text = "0"
                     Else
                         e.Row.FCTextBox("TbCantidadF").Text = e.Row.DBCampo("CantidadF").ToDecimal.ToString("#,##0.######")
                     End If
                 End If
 
-                If Not UsuarioActual.CveRol = 1 Then
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'acumuladoras
-                    e.Row.FCTextBox("TbCantidadF").Enabled = False
+                    If e.Row.DBCampo("CveCategoria") <> "249" Then
+                        e.Row.FCTextBox("TbCantidadF").Enabled = True
+                    End If
+                Else
+                    If Not UsuarioActual.CveRol = 1 Then
+                        e.Row.FCTextBox("TbCantidadF").Enabled = False
+                        e.Row.FCTextBox("TbCantidadF").Text = "0"
+                    End If
                 End If
             End If
 
@@ -1048,7 +1047,6 @@ Partial Class Inventarios_EntregaAlmacen
                 e.Row.FCCheckBox("cbInv").Enabled = False
             End If
 
-
         End If
     End Sub
 

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1537,14 +1537,14 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
 
             If CBool(e.Row.DBCampo("AplicaCaducidad")) Then
-                    e.Row.FCTextBox("TxtCaducidad").Visible = True
+                e.Row.FCTextBox("TxtCaducidad").Visible = True
-                    e.Row.FCLinkButton("LnkCaducidad").Visible = True
+                e.Row.FCLinkButton("LnkCaducidad").Visible = True
-                    e.Row.FCTextBox("TxtCaducidad").Text = Now.ToShortDateString
+                e.Row.FCTextBox("TxtCaducidad").Text = Now.ToShortDateString
-                    e.Row.FCTextBox("TxtDividir").Visible = True
+                e.Row.FCTextBox("TxtDividir").Visible = True
-                Else
+            Else
-                    e.Row.FCTextBox("TxtCaducidad").Visible = False
+                e.Row.FCTextBox("TxtCaducidad").Visible = False
-                    e.Row.FCLinkButton("LnkCaducidad").Visible = False
+                e.Row.FCLinkButton("LnkCaducidad").Visible = False
-                End If
+            End If
 
             If CBool(e.Row.DBCampo("AplicaLote")) Then
                 e.Row.FCTextBox("TxtLote").Visible = True
@@ -2315,7 +2315,7 @@ Partial Class Inventarios_RecepcionAlmacen
                     End If
                 End If
 
-                Dim Existencia = ObjInventarios.GetExistenciasPS(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"))
+                Dim Existencia = ObjInventarios.GetExistenciasPS(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:= (TxtFecha.Text & " " & Now.ToShortTimeString).ToDateTime.ToString("yyyy/MM/dd HH:mm"))
                 If Existencia < ExistenciaActual Then
                     MensajeExistencias.Append($"Producto: <b>{GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=gvr.DataKey("CvePS").ToString.ToEntero).FiltroPrimeroValor("PSCodigo")}</b>.</br>")
                     Continue For
@@ -3242,6 +3242,12 @@ Partial Class Inventarios_RecepcionAlmacen
                     End If
 
                 Else
+
+                    Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero()).FiltroPrimeroValor("CveTipoAlmacen").ToEntero()
+                    If CveTipoAlmacen = 21 Then 'tipo: devs a proveedore
+                        RealizarMovimientoVirtual = False
+                    End If
+
                     If RealizarMovimientoVirtual Then
 
                         Dim DtPSVirtual As New DataTable("DtTamanios")

Inventarios/TraspasoAlmacen.aspx.vb

@@ -365,7 +365,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
     Private Sub CargaMovimientoGarantia(CveFolioGarantia As Integer)
         Using ObjAcum As New ClsAcumuladores
-            If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia) Then
+            If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia, CveEstatusConsecutivo:=1) Then
                 ''carga
                 Dim dra As DataRow = ObjAcum.DtResultados(0)
                 DivMov.Visible = True
@@ -572,7 +572,7 @@ Partial Class Inventarios_TraspasoAlmacen
             If TxtnSerie.Visible Then
                 Cantidad = 1
                 If String.IsNullOrEmpty(TxtnSerie.Text.Trim()) OrElse String.IsNullOrWhiteSpace(TxtnSerie.Text.Trim()) Then
-                    Alert("Serie es necesario", TipoMensaje.MsgAdvertencia)
+                    Alert("Serie es necesario.", TipoMensaje.MsgAdvertencia)
                     RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
                     Exit Sub
                 End If
@@ -641,7 +641,7 @@ Partial Class Inventarios_TraspasoAlmacen
                     tLote = If(TxtnLote.Visible, TxtnLote.Text, "-1")
                     tCaducidad = If(TxtnFechaCaducidad.Visible, TxtnFechaCaducidad.Text.ToDate, MinFecha)
 
-                    Dim tSerie As String = If(TxtnSerie.Visible, TxtnSerie.Text, "-1")
+                    Dim tSerie As String = If(TxtnSerie.Visible, TxtnSerie.Text, "-1").Trim
 
                     Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, tSerie, tLote, tCaducidad)
 
@@ -738,7 +738,7 @@ Partial Class Inventarios_TraspasoAlmacen
             registro.Item("CvePS") = CvePS
             registro.Item("PS") = DrPS("PSCodigo")
             registro.Item("Observaciones") = Observaciones
-            registro.Item("Serie") = Serie
+            registro.Item("Serie") = Serie.Trim
             registro.Item("Lote") = Lote
             If FechaCaducidad > MinFecha Then registro.Item("FechaCaducidad") = FechaCaducidad
             registro.Item("CveClasificacion") = CveClasificacion
@@ -1486,7 +1486,7 @@ Partial Class Inventarios_TraspasoAlmacen
     Private Sub CargaGvDatos()
         EscondeColumnasGVM(DtMovimientos)
 
-        GvDatos.DataSource = DtMovimientos
+        GvDatos.DataSource = DtMovimientos.FiltraParametros("", "No desc")
         GvDatos.DataBind()
         UpDatos.Update()
     End Sub
@@ -1798,13 +1798,6 @@ Partial Class Inventarios_TraspasoAlmacen
                 If CBool(e.Row.DBCampo("AplicaSeccion")) AndAlso DdlAlmacenRecepcion.SelectedValue.ToEntero > 0 Then
 
                     CargaSeccionesAlmacen(e.Row.FCDropDownList("DdlSeccionAlmacen"), DdlAlmacenRecepcion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero, UsuarioActual.CveEmpresa)
-                    'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenRecepcion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
-                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
-                    'e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
-                    'If dtt.Rows.Count > 1 Then
-                    '    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
-                    'End If
-                    'dtt.Dispose()
 
                 End If
 
@@ -1821,9 +1814,12 @@ Partial Class Inventarios_TraspasoAlmacen
             'FUNCIONALIDAD PISTOLA DE CODIGOS
             If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
                 e.Row.FCTextBox("TxtCantidad").Enabled = False
+                If e.Row.DBCampo("CveCategoria") <> "249" Then
+                    e.Row.FCTextBox("TxtCantidad").Enabled = True
+                End If
             End If
 
-        End If
+            End If
     End Sub
 
     Protected Sub BtnCancelarTraspaso_Click(sender As Object, e As EventArgs)
@@ -2364,9 +2360,9 @@ Partial Class Inventarios_TraspasoAlmacen
 
         TdSeriePS.Visible = False
 
-        Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoPS.Text}'")
+        Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoPS.Text.Trim}'")
         If DrPS Is Nothing Then
-            Alert($"No se ha encontrado un producto del Codigo ""<b>{TxtCodigoPS.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
+            Alert($"No se ha encontrado un producto del Código: ""<b>{TxtCodigoPS.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
             TxtCodigoPS.Text = ""
             Exit Sub
@@ -2392,7 +2388,7 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim Valido = ValidaExistencia(1, CvePSSerie, CveUMSerie, -1, TxtSeriePS.Text.Trim, "-1", MinFecha)
 
         If Valido Then
-            AgregarPS(1, CvePSSerie, CveUMSerie, Serie:=TxtSeriePS.Text.Trim)
+            AgregarPS(1, CvePSSerie, CveUMSerie, Serie:=TxtSeriePS.Text.Trim.ToUpper)
         Else
             TxtSeriePS.Text = ""
             TxtSeriePS.Focus()
@@ -2444,7 +2440,7 @@ Partial Class Inventarios_TraspasoAlmacen
         If Existe Then
             Alert($"Ya se ha cargado la totalidad del Producto  ""<b>{PSTemp}</b>"" con el Codigo ""<b>{TxtCodigoPSRecepcion.Text}</b>"".", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus1,200);")
         Else
-            Alert($"No se ha encontrado un producto para surtir con el Codigo ""<b>{TxtCodigoPSRecepcion.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus1,200);")
+            Alert($"No se ha encontrado un producto para surtir con el Código: ""<b>{TxtCodigoPSRecepcion.Text}</b>"".", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus1,200);")
         End If
 
         RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -2458,7 +2454,7 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
 
         For Each Gvr As GridViewRow In GvDatosRecepcion.Rows
-            If Gvr.DataKey("CodigoBarras") = TxtCodigoPSRecepcion.Text.Trim And Gvr.DataKey("Serie") = TxtSeriePSRecepcion.Text.Trim Then
+            If Gvr.DataKey("CodigoBarras") = TxtCodigoPSRecepcion.Text.Trim And Gvr.DataKey("Serie") = TxtSeriePSRecepcion.Text.Trim.ToUpper Then
                 Dim TxtCantidad = GvDatosRecepcion.Rows(Gvr.RowIndex).FCTextBox("TxtCantidad")
                 If Gvr.DataKey("Cantidad").ToDecimal - TxtCantidad.Text.ToDecimal - 1 >= 0 Then
 
@@ -2470,15 +2466,15 @@ Partial Class Inventarios_TraspasoAlmacen
                     Exit Sub
                 End If
 
-                Alert($"Ya se ha cargado la totalidad del Producto  ""<b>{Gvr.DataKey("PS").ToString}</b>"" con el Codigo ""<b>{TxtCodigoPSRecepcion.Text}</b>"".", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus1,200);")
+                Alert($"Ya se ha cargado la totalidad del Producto  ""<b>{Gvr.DataKey("PS").ToString}</b>"" con el Código ""<b>{TxtCodigoPSRecepcion.Text}</b>"".", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus1,200);")
                 RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
 
             End If
         Next
 
-        Alert($"No se ha encontrado un producto para surtir con el Codigo ""<b>{TxtCodigoPSRecepcion.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus1,200);")
+        Alert($"No se ha encontrado un producto para surtir con el Codigo ""<b>{TxtCodigoPSRecepcion.Text}</b>"". Serie:{TxtSeriePSRecepcion.Text.Trim} ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus1,200);")
         RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
-        'Alert($"Ya se han cargado todos los productos o no se ha encontrado un producto de la Serie ""<b>{TxtSeriePSRecepcion.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus2,200);")
+
         TxtSeriePSRecepcion.Text = ""
     End Sub
 #End Region

OC/OC.aspx

@@ -255,7 +255,7 @@
                                 <%--linea 5--%>
                                 <div class="row" style="padding-bottom: 0.6em;">
                                     <b>
-                                        <asp:Label runat="server" ID="LblFechaEstimada" Text="Fecha Estimada:" class="col-md-2" /></b>
+                                        <asp:Label runat="server" ID="LblFechaEstimada" Text="F. Estimada:" class="col-md-2" /></b>
                                     <div class="col-md-4" id="DivFechaEstimada" runat="server">
                                         <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80% !important; padding: 0px;">
                                             <asp:TextBox ID="TxtFechaEstimadaEntrega" runat="server" ClientIDMode="Static" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
@@ -284,25 +284,19 @@
                                     </div>
                                 </div>
                                 <%--linea 6--%>
-                                <asp:UpdatePanel ID="UPProv" runat="server" UpdateMode="Conditional">
+                                <asp:UpdatePanel ID="UPProv" runat="server" UpdateMode="Conditional" RenderMode="Inline" style="class=Row">
                                     <ContentTemplate>
                                         <div id="PnlProveedor" runat="server" style="padding-bottom: 0.6em;">
 
                                             <div class="row">
                                                 <label class="col-md-2">Proveedor:</label>
                                                 <div class="col-md-9">
-                                                    <%--<asp:DropDownList ID="DdlProveedores" CssClass="select2me" AutoPostBack="True" Style="width: 100%;" runat="server" DataTextField="NombreCortoProveedor" DataValueField="CveProveedor">
-                                                        <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                                    </asp:DropDownList>--%>
                                                     <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />                                                                                                        
-                                                    <%--<asp:RangeValidator ID="RVProveedores" CssClass="form-control" runat="server" ControlToValidate="DdlProveedores" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
-                                                    <ajax:ValidatorCalloutExtender ID="VCOProveedores" runat="server" HighlightCssClass="vco" TargetControlID="RVProveedores" Width="300px"></ajax:ValidatorCalloutExtender>--%>
-                                                    <asp:ImageButton ID="ImgCambiaProv" Visible="false" ImageUrl="/Imagenes/accept.png" runat="server" />
                                                 </div>
                                                 <div class="col-md-1" style="padding-left: 0px;">
+                                                    <asp:LinkButton runat="server" Visible="false" ID="ImgCambiaProv"  data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea actualizar proveedor?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Actualizar Proveedor" />
                                                     <asp:Label ID="LblLeyendaProveedorIVA" runat="server" Width="100%" Text="" Font-Italic="True"></asp:Label>
                                                 </div>
-
                                             </div>
                                         </div>
 
@@ -326,10 +320,7 @@
                                     </ContentTemplate>
                                 </asp:UpdatePanel>
 
-                        
-
                                 <div class="row">
-
                                     <label class="col-md-2"><b>IVA A Facturar:</b> </label>
                                     <div class="col-md-2">
                                         <asp:UpdatePanel ID="UpDdlIVA" runat="server" UpdateMode="Conditional">
@@ -438,16 +429,11 @@
                                     </tr>
                                     <tr id="TrUsuarioAsignado" runat="server" visible="False">
                                         <td colspan="2">
-                                            <asp:Label ID="LblUsuarioAsignado" runat="server" Text=""></asp:Label></td>
+                                            <asp:Label ID="LblUsuarioAsignado" runat="server" Text=""></asp:Label>
-                                    </tr>
+                                             <asp:HiddenField ID="hdnCveSuperior" runat="server" Value="-1" />
-                                    <tr>
-                                        <td></td>
-                                        <td>
-                                            <asp:HiddenField ID="hdnCveSuperior" runat="server" Value="-1" />
                                         </td>
                                     </tr>                                    
-
+                                    <tr id="trCfdi" style="display:none;" >
-                                    <tr>
                                         <td>
                                             <div class="caption font-green">
                                                 <i class="icon-pin font-green"></i>

OC/OC.aspx.vb

@@ -2218,9 +2218,18 @@ Partial Class OC_OC
                 End If
             End If
 
-            'Si es Proveedor Extranjero el IVA es 0%
+            If DdlProveedores.SelectedValue.ToEntero > 0 Then
-            If GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros($"CveProveedor = {DdlProveedores.SelectedValue} AND RFC = 'XEXX010101000'").Rows.Count = 1 Then
+                'Si es Proveedor Extranjero el IVA es 0%
-                IvaPS = 0
+                Dim drProv As DataRow = GlobalDTCompProveedores(CveEmpresaActual, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimero("")
+
+                If drProv IsNot Nothing Then
+                    If drProv("RFC").ToString = "XEXX010101000" Then
+                        IvaPS = 0
+                    End If
+                    If drProv("CodigoRegimenFiscal").ToString = "626" Then 'simplificado lleva retencion de 1.25 de isr
+                        RetISR = 0.0125
+                    End If
+                End If
             End If
 
             AddPS(TxtCant.Text, DdlP2.SelectedValue.ToEntero, DdlP2.SelectedText, TxtObsPS.Text, ImportePS, TxtDescuentoAdd.Text.ToDecimal, TotalPS,
@@ -4026,7 +4035,19 @@ Partial Class OC_OC
             ' IEPSPSIVA = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDecimal, 0)
         End If
 
+        If DdlProveedores.SelectedValue.ToEntero > 0 Then
+            'Si es Proveedor Extranjero el IVA es 0%
+            Dim drProv As DataRow = GlobalDTCompProveedores(CveEmpresaActual, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimero("")
 
+            If drProv IsNot Nothing Then
+                If drProv("RFC").ToString = "XEXX010101000" Then
+                    IvaPS = 0
+                End If
+                If drProv("CodigoRegimenFiscal").ToString = "626" Then 'simplificado lleva retencion de 1.25 de isr
+                    RetISR = 0.0125
+                End If
+            End If
+        End If
 
         CveSubProyecto = gvr.FCDropDownList("DdlSubProyectoEdit").SelectedValue.ToEntero
         SubProyecto = gvr.FCDropDownList("DdlSubProyectoEdit").SelectedItem.Text
@@ -4038,8 +4059,6 @@ Partial Class OC_OC
             Cuadro = gvr.FCDropDownList("DdlCultivosCuadroEdit").SelectedItem.Text
         End If
 
-
-
         If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
             CveProyecto = -1
             Proyecto = "Seleccione"
@@ -4082,9 +4101,6 @@ Partial Class OC_OC
             End If
         End If
 
-
-
-
         'Agarra el nuevo AF si se modifico o deja el pasado
         CveActivoFijo = If(gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero > 0, gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero, HdnEditCveActivoFijo.Value.ToEntero)
         Codigo = If(gvr.FCHiddenField("HdnCodigoAF").Value <> "-1", gvr.FCHiddenField("HdnCodigoAF").Value, HdnEditCodigo.Value)
@@ -6959,7 +6975,7 @@ Partial Class OC_OC
 #End Region
 
 #Region "  ACTUALIZA OC  "
-    Protected Sub ImgCambiaProv_Click(sender As Object, e As ImageClickEventArgs) Handles ImgCambiaProv.Click
+    Private Sub ImgCambiaProv_Click(sender As Object, e As EventArgs) Handles ImgCambiaProv.Click
         Dim OC As New ClsOC
         If OC.UpdateProveedorOrdenCompra(DdlProveedores.SelectedValue.ToEntero, CveOrdenCompra, UsuarioActual.CveUsuario, CveEmpresaActual) Then
             CargaHistorial()