Movimiento de garantia en servicio a domicilio

App_Code/Modelos.vb

@@ -3825,6 +3825,49 @@ Namespace Modelos
                         If Not (GenerarMovimientoAlmacenServicioDomicilio(ObjInventario, factura, DtInventario, factura.CveAlmacenTraspasoDestino, 9, factura.CveMoneda, factura.CveVenta, "Modelos/SD2", CveMovimientoRelacionado:=CveMovimientoSalida) > 0) Then
                             OcurrioError = True
                         End If
+
+                        ' COMIENZA: GARANTIAS
+                        Dim CveAlmacenGarantia As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=6).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={factura.CveSubProyecto}").ToEntero()
+                        Dim DtGarantias As DataTable = Nothing
+
+                        If ObjAcum.GetGarantiasDetalle(factura.CveVenta) Then
+                            DtGarantias = ObjAcum.DtResultados.Copy()
+                        End If
+
+                        If DtGarantias IsNot Nothing AndAlso DtGarantias.Rows.Count > 0 AndAlso CveAlmacenGarantia > 0 Then
+                            Dim TotalGarantia As Decimal = 0
+                            Dim CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, 2, 1, factura.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, -1, -1, Observaciones:="", Guia:="", Modulo:="Modelos/SDGA")
+                            Dim FolioGarantia = ObjInventario.Folio
+
+                            For Each RowGarantia As DataRow In DtGarantias.Rows
+                                Dim CvePS = RowGarantia("CvePS").ToString().ToEntero()
+                                Dim CveTamaño As Integer = RowGarantia("CveTamaño").ToString().ToEntero()
+                                Dim CveUM As Integer = RowGarantia("CveUnidadMedida").ToString().ToEntero()
+                                Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble()
+                                Dim Serie As String = RowGarantia("Comprobante").ToString
+
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=RowGarantia("CveVentaDetalle").ToString.ToEntero) Then
+                                    OcurrioError = True
+                                    Exit For
+                                End If
+                                TotalGarantia += (RowGarantia("Cantidad").ToString().ToDecimal() * PU)
+                            Next
+
+                            Dim CvePrePolizaTraspaso As Integer = ObjConta.AddPrePolizas("EA/Gar", 53, 0, 0, 1, factura.Fecha, "Entrada Garantía", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                            If CvePrePolizaTraspaso > 0 Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, False, TotalGarantia, "MOVIMIENTO DE GARANTIA", 68, "MOVIMIENTO DE GARANTIA", factura.Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
+                                    OcurrioError = True
+                                End If
+
+                                If Not OcurrioError AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, True, TotalGarantia, "MOVIMIENTO DE GARANTIA", 331, "MOVIMIENTO DE GARANTIA", factura.Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
+                                    OcurrioError = True
+                                End If
+                            Else
+                                OcurrioError = True
+                            End If
+
+                        End If
+
                     Else
                         OcurrioError = True
                     End If