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

Bandera de garantia en PV

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-01-15 19:48:42 -07:00
parent 6de1cfc11e
commit 53dc47f11e
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/PV.aspx.vb
View File

@@ -3744,6 +3744,10 @@ Partial Class PV
ObjFactura.ErrorList.Add("No existe un almacen configurado como 'Servicio a Domicilio' en esta sucursal.") ObjFactura.ErrorList.Add("No existe un almacen configurado como 'Servicio a Domicilio' en esta sucursal.")
End If End If
If TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0 Then
ObjFactura.EsGarantia = True
End If
End If End If
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al generar la venta", ex) OnError("Ocurrió un error al generar la venta", ex)
@@ -6773,12 +6777,12 @@ Partial Class PV
DdlBCIAjuste.DataSource = DTBCIUsados.FiltraParametros($"CveTamaño={CveTamanio}") DdlBCIAjuste.DataSource = DTBCIUsados.FiltraParametros($"CveTamaño={CveTamanio}")
DdlBCIAjuste.DataBind() DdlBCIAjuste.DataBind()
DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
RFVAnio.Enabled = True
If CveTamanio = 16 Then 'motobaterias If CveTamanio = 16 Then 'motobaterias
DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0")) DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
RFVAnio.Enabled = False
End If End If
UPPDatosUsado.Update() ''refresca el RFV
Else Else
DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0")) DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
End If End If