-merge traspaso almacen

2021-02-10 13:06:19 -07:00
parent b29d81b472 4721d38109
commit 07813acacc
56 changed files with 27541 additions and 14199 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2785,7 +2785,7 @@ Partial Class Compras_Compras

                DdlTipoComprobante.Enabled = False
                DdlTipoComprobante.SelectedValue = dr("TipoDocto").ToString
-                If dr("TipoDocto").ToString = "Fac" Then
+                If dr("TipoDocto").ToString.Contiene("Fac", "Ant") Then
                    ChkAplicaNotaCredito.Enabled = True
                    ImgAnticiposPendientes.Visible = True
                Else
@@ -19877,7 +19877,7 @@ Private Sub CargaNCINV()
        ObjCompras.Dispose()

        Dim ObjInv As New ClsInventarios
-        If ObjInv.GetFletes(UsuarioActual.CveEmpresa) Then
+        If ObjInv.GetFletes(UsuarioActual.CveEmpresa, OpcionInventario:=1) Then
            DdlFletes.DataSource = ObjInv.DtResultados
            DdlFletes.Items.Insert(0, New ListItem("Seleccione", "-1"))
        End If
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2357,8 +2357,8 @@ Partial Class PopUpVerFactura
                        Else
                            params.Add(New ReportParameter("LogoPath", ""))
                        End If
-                        params.Add(New ReportParameter("Origen", Almacen))
-                        params.Add(New ReportParameter("Destino", AlmacenDestino))
+                        params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
+                        params.Add(New ReportParameter("Destino", Almacen))

                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -210,7 +210,7 @@
                                </asp:TemplateField>
                                <asp:TemplateField HeaderText="Proveedor">
                                    <ItemTemplate>
-                                        <asp:HyperLink ID="HplProveedor" runat="server" CssClass="Texto" Target="_newtab" Text='<%# Eval("NombreProveedor") %>'></asp:HyperLink>
+                                        <asp:HyperLink ID="HplProveedor" runat="server" CssClass="Texto" Target="_blank" rel="opener"  Text='<%# Eval("NombreProveedor") %>'></asp:HyperLink>
                                    </ItemTemplate>
                                    <ItemStyle HorizontalAlign="Left" />
                                </asp:TemplateField>
@@ -236,7 +236,7 @@
                                <asp:TemplateField HeaderText="Prov">
                                    <ItemTemplate>
                                        <%--<asp:Literal ID="LtlProv" runat="server"></asp:Literal>--%>
-                                        <asp:HyperLink ID="HplProv" runat="server" Visible='False' CssClass="btn btn-circle btn-sm blue" ToolTip="Agregar Proveedor" Target="_blank"><i class="fa fa-pencil"></i></asp:HyperLink>
+                                        <asp:HyperLink ID="HplProv" runat="server" Visible='False' CssClass="btn btn-circle btn-sm blue" ToolTip="Agregar Proveedor" Target="_blank" rel="opener"><i class="fa fa-pencil"></i></asp:HyperLink>
                                    </ItemTemplate>
                                    <ItemStyle HorizontalAlign="Center" />
                                </asp:TemplateField>
@@ -250,7 +250,7 @@
                                <asp:TemplateField HeaderText="Agregar">
                                    <ItemTemplate>
                                        <%--<asp:Image ID="ImgAgregar" runat="server" Style="cursor: pointer;" Visible='<%# Eval("CveProveedor").ToString <> "" %>' ToolTip="Agregar Factura" ImageUrl="/Imagenes/Nota.gif" Height="18px" />--%>
-                                        <asp:HyperLink ID="HplAgregar" runat="server" CssClass="btn btn-circle btn-sm green" Visible='<%# Eval("CveProveedor").ToString <> "" %>' data-toggle="tooltip" title="Agregar Factura" Target="_blank"><i class="fa fa-plus"></i></asp:HyperLink>
+                                        <asp:HyperLink ID="HplAgregar" runat="server" CssClass="btn btn-circle btn-sm green" Visible='<%# Eval("CveProveedor").ToString <> "" %>' data-toggle="tooltip" title="Agregar Factura" rel="opener" Target="_blank" ><i class="fa fa-plus"></i></asp:HyperLink>
                                        <asp:LinkButton ID="LnkAgregarPago" runat="server" OnClick="LnkAgregarPago_Click" CssClass="btn btn-sm blue" Visible="false" data-toggle="tooltip" title="Vincular Pago"><i class="fa fa-check"></i></asp:LinkButton>
                                    </ItemTemplate>
                                    <ItemStyle HorizontalAlign="Center" />
@@ -324,7 +324,7 @@
                                    </asp:TemplateField>
                                    <asp:TemplateField HeaderText="Proveedor">
                                        <ItemTemplate>
-                                            <asp:HyperLink ID="HplProveedor" runat="server" CssClass="Texto" Target="_newtab" Text='<%# Eval("NombreProveedor") %>'></asp:HyperLink>
+                                            <asp:HyperLink ID="HplProveedor" runat="server" CssClass="Texto" Target="_blank" rel="opener" Text='<%# Eval("NombreProveedor") %>'></asp:HyperLink>
                                        </ItemTemplate>
                                        <ItemStyle HorizontalAlign="Left" />
                                    </asp:TemplateField>
@@ -348,7 +348,7 @@
                                    </asp:TemplateField>
                                    <asp:TemplateField HeaderText="Prov">
                                        <ItemTemplate>
-                                            <asp:HyperLink ID="HplProv" runat="server" Visible='False' CssClass="btn btn-circle btn-sm blue" ToolTip="Agregar Proveedor" Target="_blank"><i class="fa fa-pencil"></i></asp:HyperLink>
+                                            <asp:HyperLink ID="HplProv" runat="server" Visible='False' CssClass="btn btn-circle btn-sm blue" ToolTip="Agregar Proveedor" rel="opener" Target="_blank"><i class="fa fa-pencil"></i></asp:HyperLink>
                                        </ItemTemplate>
                                        <ItemStyle HorizontalAlign="Center" />
                                    </asp:TemplateField>
@@ -361,7 +361,7 @@
                                    </asp:TemplateField>
                                    <asp:TemplateField HeaderText="Agregar">
                                        <ItemTemplate>
-                                            <asp:HyperLink ID="HplAgregarP" runat="server" CssClass="btn btn-circle btn-sm green" Visible='<%# Eval("CveProveedor").ToString <> "" %>' data-toggle="tooltip" title="Agregar Factura" Target="_blank"><i class="fa fa-plus"></i></asp:HyperLink>
+                                            <asp:HyperLink ID="HplAgregarP" runat="server" CssClass="btn btn-circle btn-sm green" Visible='<%# Eval("CveProveedor").ToString <> "" %>' data-toggle="tooltip" title="Agregar Factura" Target="_blank" rel="opener"><i class="fa fa-plus"></i></asp:HyperLink>
                                            <asp:LinkButton ID="LnkAgregarPagoP" runat="server" OnClick="LnkAgregarPago_Click" CssClass="btn btn-sm blue" Visible="false" data-toggle="tooltip" ></asp:LinkButton>
                                        </ItemTemplate>
                                        <ItemStyle HorizontalAlign="Center" />
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -898,7 +898,7 @@ Partial Class Compras_eFacturas

            End If
            If e.Row.DBCampo("CveCompra") <> "" Then
-                e.Row.FCLiteral("LtlFolio").Text = String.Format("<a class=""Texto"" style=""cursor:pointer;text-decoration: underline;"" href='/Compras/Compras.aspx?CveCompra={0}' target='_newtab');"">{1}</a>", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio"))  '1\Compras\GAPC480413QL3\A-69.xml
+                e.Row.FCLiteral("LtlFolio").Text = String.Format("<a class=""Texto"" style=""cursor:pointer;text-decoration: underline;"" href='/Compras/Compras.aspx?CveCompra={0}' target='_blank' rel='opener'  );"">{1}</a>", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio"))  '1\Compras\GAPC480413QL3\A-69.xml
            End If

            If e.Row.DBCampo("CveProveedor") = "" Then
@@ -1059,7 +1059,7 @@ Partial Class Compras_eFacturas

            End If
            If e.Row.DBCampo("CveCompra") <> "" Then
-                e.Row.FCLiteral("LtlFolio").Text = String.Format("<a class=""Texto"" style=""cursor:pointer;text-decoration: underline;"" href='/Compras/Compras.aspx?CveCompra={0}' target='_newtab');"">{1}</a>", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio"))  '1\Compras\GAPC480413QL3\A-69.xml
+                e.Row.FCLiteral("LtlFolio").Text = String.Format("<a class=""Texto"" style=""cursor:pointer;text-decoration: underline;"" href='/Compras/Compras.aspx?CveCompra={0}' target='_blank' rel='opener');"">{1}</a>", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio"))  '1\Compras\GAPC480413QL3\A-69.xml
            End If

            If e.Row.DBCampo("CveProveedor") = "" Then
@@ -1686,6 +1686,8 @@ Partial Class Compras_eFacturas

        End Using
    End Sub
+
+
    Public Shared Function CargaEmisordeXML(ArchivoXML As String, CampoXML As String, RFCEmpresaActual As String) As String
        Dim Valor As [String] = Nothing

@@ -3142,15 +3144,6 @@ Partial Class Compras_eFacturas

            If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then

-                'GvVincularPago.DataSource = ObjCompras.DtResultados
-
-                'If ObjCompras.DtResultados.Rows.Count > 0 Then
-                '    SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
-                'End If
-
-
-                'ImportePago = ObjCompras.DtResultados.SUMD("Monto")
-
                For Each Drow As DataRow In ObjCompras.DtResultados.Rows
                    For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows

@@ -3171,16 +3164,26 @@ Partial Class Compras_eFacturas

                For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
                    If GvRow.RowType = DataControlRowType.DataRow Then
+
                        If GvRow.FCLabel("LblCveIE").Text.ToEntero > 0 And GvRow.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero > 0 Then
                            ErrorVinculacion = False
-                            Exit For
+
                        Else
-                            ErrorVinculacion = True
+
+                            If ObjCompras.DtResultados.Rows.Count > 0 Then
+                                GvRow.FCLabel("LblCveIE").Text = ObjCompras.DtResultados(0)("CveIE").ToString.ToEntero.ToString
+                                GvRow.FCLabel("LblCvePrePolizaDetalle").Text = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero.ToString
+                            Else
+                                ErrorVinculacion = True
+                                Exit For
+                            End If

                        End If
                    End If
+
                Next

+
            Else
                ErrorVinculacion = True
            End If