AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- preparacion para dev de remision

Browse Source
This commit is contained in:
rrene
2020-09-04 19:15:37 -07:00
parent b0400a9daa
commit 1ed8cd9e75
1 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -1612,13 +1612,17 @@ Partial Class Inventarios_EntregaAlmacen
End If End If
If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then
For Each Gvr As GridViewRow In GvDatos.Rows If Not (EsDevolucionVenta = 1 And TipoDocto.Contiene("Rem")) Then ' condicion si hay una devolucion de remision, no verifique la totalidad surtido
If Not Gvr.FCCheckBox("cbInv").Checked Or (Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal <> Gvr.DataKey("CantidadC").ToString.ToDecimal) Then For Each Gvr As GridViewRow In GvDatos.Rows
Alert("Es necesario surtir todos los productos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) If Not Gvr.FCCheckBox("cbInv").Checked Or (Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal <> Gvr.DataKey("CantidadC").ToString.ToDecimal) Then
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") Alert("Es necesario surtir todos los productos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
Exit Sub RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
End If Exit Sub
Next End If
Next
End If
End If End If
@@ -2304,7 +2308,7 @@ Partial Class Inventarios_EntregaAlmacen
CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadEntradaSinCosto CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadEntradaSinCosto
End If End If
'si el alamcen del que salio, es el mismo que entra, no hay traspasos. 'si el alamcen del que salio, es el mismo que entra, no hay traspasos.
If CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero Then CveAlmacenTraspasoDestino = 0 If CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero And TipoDocto <> "Rem" Then CveAlmacenTraspasoDestino = 0
If Not ErrorMovInv AndAlso CantidadPendientePorSalir > 0 Then If Not ErrorMovInv AndAlso CantidadPendientePorSalir > 0 Then
Dim ConceptoMovimiento = 3 Dim ConceptoMovimiento = 3
@@ -2810,7 +2814,7 @@ Partial Class Inventarios_EntregaAlmacen
Dim Fecha As Date = TxtFecha.Text.ToDate ' If(TipoMovimiento <> 1, TxtFecha.Text.ToDate, ObjVentas.DtResultados(0)("Fecha").ToString.ToDate) Dim Fecha As Date = TxtFecha.Text.ToDate ' If(TipoMovimiento <> 1, TxtFecha.Text.ToDate, ObjVentas.DtResultados(0)("Fecha").ToString.ToDate)
Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero
Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString
Dim Serie As String = ObjVentas.DtResultados(0)("Serie").ToString Dim Serie As String = ObjVentas.DtResultados(0)("SerieFolio").ToString
Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL() Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL()
Dim TotalCostoAcumulado As Decimal = 0 Dim TotalCostoAcumulado As Decimal = 0
Dim cont As Integer = 1 Dim cont As Integer = 1