Cambios BDH, ajuste y garantia

Inventarios/RecepcionAlmacen.aspx.vb

@@ -3001,31 +3001,34 @@ Partial Class Inventarios_RecepcionAlmacen
 
                             Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero()).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
 
-                            CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, 13, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoRef, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/VD")
-
                             If CveMovimientoVirtual > 0 Then
-                                FolioVirtual = ObjInventario.Folio
 
-                                For Each RowUsado As DataRow In DtPSVirtual.Rows
-                                    Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
-                                    Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
-                                    Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
-                                    Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
+                                CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, 13, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoRef, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/VD")
 
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                                        ErrorMovInv = True
-                                        Exit For
+                                If CveMovimientoVirtual > 0 Then
+                                    FolioVirtual = ObjInventario.Folio
+
+                                    For Each RowUsado As DataRow In DtPSVirtual.Rows
+                                        Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                                        Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
+                                        Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
+                                        Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
+
+                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                            ErrorMovInv = True
+                                            Exit For
+                                        End If
+                                    Next
+
+                                    If SumarImporteUsados Then
+                                        If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) Then
+                                            ImporteIngresoAdicional = ObjInventario.DtResultados.SUMD("TotalOriginal")
+                                        End If
                                     End If
-                                Next
 
-                                If SumarImporteUsados Then
-                                    If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) Then
-                                        ImporteIngresoAdicional = ObjInventario.DtResultados.SUMD("TotalOriginal")
-                                    End If
+                                Else
+                                    ErrorMovInv = True
                                 End If
-
-                            Else
-                                ErrorMovInv = True
                             End If
 
                         Else

Inventarios/RecepcionUsados.aspx

@@ -369,20 +369,26 @@
                                                 </div>
                                             </div>
                                             <div class="row">
-                                                <div class="col-md-12">
+                                                <div class="col-md-6">
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:DropDownList ID="DdlBCIAjuste" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="BCI" DataValueField="CveBCIUsado" Width="100%" AutoPostBack="true">
                                                         </asp:DropDownList>
                                                         <label for="<%= DdlBCIAjuste.ClientID.ToString()%>">BCI:</label>
                                                     </div>
                                                 </div>
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:TextBox ID="TxtEtiqueta" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
+                                                        <label for="<%= TxtEtiqueta.ClientID.ToString()%>">Etiqueta:</label>
+                                                    </div>
+                                                </div>
                                             </div>
                                             <div class="row">
                                                 <div class="col-md-8">
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:DropDownList ID="DdlFolioGarantia" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="FolioGarantia" DataValueField="CveFolioGarantia" Width="100%" AutoPostBack="true">
                                                         </asp:DropDownList>
-                                                      <%--  <asp:RequiredFieldValidator ID="RFVFolioGarantia" runat="server" ControlToValidate="DdlFolioGarantia" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAjuste"></asp:RequiredFieldValidator>
+                                                        <%--  <asp:RequiredFieldValidator ID="RFVFolioGarantia" runat="server" ControlToValidate="DdlFolioGarantia" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAjuste"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCEFolioGarantia" runat="server" HighlightCssClass="vco" TargetControlID="RFVFolioGarantia"></ajax:ValidatorCalloutExtender>--%>
                                                         <label for="<%= DdlFolioGarantia.ClientID.ToString()%>">Folio:</label>
                                                     </div>

Inventarios/RecepcionUsados.aspx.vb

@@ -2656,6 +2656,7 @@ Partial Class Inventarios_RecepcionUsados
         TmpDTAjustes.Columns.Add("CveFolioGarantia", GetType(Integer))
         TmpDTAjustes.Columns.Add("CveTipoUso", GetType(Integer))
         TmpDTAjustes.Columns.Add("CveTipoDefecto", GetType(Integer))
+        TmpDTAjustes.Columns.Add("CodigoTD", GetType(String))
         TmpDTAjustes.Columns.Add("CodigoEnsamble", GetType(String))
         TmpDTAjustes.Columns.Add("CodigoLinea", GetType(String))
         TmpDTAjustes.Columns.Add("CodigoInspeccion", GetType(String))
@@ -2664,7 +2665,8 @@ Partial Class Inventarios_RecepcionUsados
         TmpDTAjustes.Columns.Add("FechaAjuste", GetType(Date))
         TmpDTAjustes.Columns.Add("Meses", GetType(String))
         TmpDTAjustes.Columns.Add("PorcentajeAjuste", GetType(Double))
-        TmpDTAjustes.Columns.Add("NumPoliza", GetType(String))
+        TmpDTAjustes.Columns.Add("TipoComprobante", GetType(Integer))
+        TmpDTAjustes.Columns.Add("Comprobante", GetType(String))
         TmpDTAjustes.Columns.Add("Importe", GetType(Double))
         TmpDTAjustes.Columns.Add("CvePS", GetType(Integer))
         TmpDTAjustes.Columns.Add("PS", GetType(String))
@@ -2673,6 +2675,11 @@ Partial Class Inventarios_RecepcionUsados
         TmpDTAjustes.Columns.Add("CveVentaDetalle", GetType(Integer))
         TmpDTAjustes.Columns.Add("CveVenta", GetType(Integer))
         TmpDTAjustes.Columns.Add("PUFactura", GetType(Double))
+        TmpDTAjustes.Columns.Add("CveBCIAjuste", GetType(Integer))
+        TmpDTAjustes.Columns.Add("Etiqueta", GetType(String))
+        TmpDTAjustes.Columns.Add("CveClienteDistribuidor", GetType(Integer))
+        TmpDTAjustes.Columns.Add("CveModeloAuto", GetType(Integer))
+        TmpDTAjustes.Columns.Add("Año", GetType(String))
     End Sub
     Private Sub CargaPSAjuste()
         DdlPSAjuste.setEsWebService(True)
@@ -2963,6 +2970,7 @@ Partial Class Inventarios_RecepcionUsados
         Row("CveFolioGarantia") = DdlFolioGarantia.SelectedValue.ToEntero
         Row("CveTipoUso") = DdlTipoUso.SelectedValue.ToEntero
         Row("CveTipoDefecto") = DdlTipoDefecto.SelectedValue.ToEntero
+        Row("CodigoTD") = TxtCodigoTD.Text
         Row("CodigoEnsamble") = TxtCodEnsamble.Text
         Row("CodigoLinea") = TxtCodLinea.Text
         Row("CodigoInspeccion") = TxtCodInspeccion.Text
@@ -2970,7 +2978,8 @@ Partial Class Inventarios_RecepcionUsados
         Row("FechaAjuste") = TxtFechaAjuste.Text.ToDate
         Row("Meses") = TxtMesesUso.Text.ToEntero
         Row("PorcentajeAjuste") = TxtPorcentajeAjuste.Text.ToDouble
-        Row("NumPoliza") = TxtPoliza.Text
+        Row("TipoComprobante") = 1
+        Row("Comprobante") = TxtPoliza.Text
         Row("Importe") = TxtImporteAjuste.Text.ToDouble
         Row("ConsecutivoVenta") = TxtConsecutivoAjuste.Text.ToEntero()
         Row("CvePS") = DdlPSAjuste.SelectedValue
@@ -2988,6 +2997,11 @@ Partial Class Inventarios_RecepcionUsados
         End If
         Row("CveUM") = CveUM
         Row("CveVentaDetalle") = -1
+        Row("CveBCIAjuste") = DdlBCIAjuste.SelectedValue.ToEntero()
+        Row("Etiqueta") = TxtEtiqueta.Text.TrimStart.TrimEnd
+        Row("CveClienteDistribuidor") = -1
+        Row("CveModeloAuto") = -1
+        Row("Año") = ""
         TmpDTAjustes.Rows.Add(Row)