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

- mejora

Browse Source
This commit is contained in:
rrene
2024-06-19 22:33:44 -07:00
parent 091f4d76bf
commit a322a92fa0
1 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Ventas/Ventas.aspx.vb
View File

@@ -37835,19 +37835,17 @@ Partial Class Ventas
Dim tCveAlmacenExistencia As Integer = -1 Dim tCveAlmacenExistencia As Integer = -1
If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es pago directo es remisión sino tine técnico If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es pago directo es remisión sino tiene técnico
TrVentasMedicas1.Visible = True TrVentasMedicas1.Visible = True
TrVentasMedicas2.Visible = True TrVentasMedicas2.Visible = True
ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked
ChkRequiereTecnico.Enabled = True ChkRequiereTecnico.Enabled = True
If ChkRequiereTecnico.Checked Then If ChkRequiereTecnico.Checked Then
DdlTipoComprobante.SelectedValueExist("Ped") DdlTipoComprobante.SelectedValueExistInsert("Ped", "Pedido")
Else Else
DdlTipoComprobante.SelectedValueExist("Rem") DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión")
End If End If
ElseIf RBLTipoVenta.SelectedValue.Contiene("3") Then ' A vista ElseIf RBLTipoVenta.SelectedValue.Contiene("3") Then ' A vista
DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped")) DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
DdlTipoComprobante.SelectedValueExist("Ped") DdlTipoComprobante.SelectedValueExist("Ped")
@@ -38004,7 +38002,6 @@ Partial Class Ventas
UpDvModalTipoVenta.Update() UpDvModalTipoVenta.Update()
End Sub End Sub
Private Function GeneraOS(ByRef TransacSQL As SqlClient.SqlTransaction, ByRef errorList As List(Of String), CveVentaOS As Integer, SerieFolioOS As String) As Boolean Private Function GeneraOS(ByRef TransacSQL As SqlClient.SqlTransaction, ByRef errorList As List(Of String), CveVentaOS As Integer, SerieFolioOS As String) As Boolean
Dim Errores As Boolean = False Dim Errores As Boolean = False