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

-- parametro adicional para materiales

Browse Source
This commit is contained in:
rrene
2023-12-22 08:39:46 -07:00
parent 17de9abfcd
commit 5a88a98336
2 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsOS.vb
View File

@@ -852,14 +852,15 @@ Public Class ClsOS
Return Retorno
End Function
Public Function GetDetalleMateriales(CveOSDetalle As Integer, CveOS As Integer, Optional FiltraTipoAlamacen As Boolean = False) As Boolean
Public Function GetDetalleMateriales(CveOSDetalle As Integer, CveOS As Integer, Opcion As Integer, Optional FiltraTipoAlmacen As Boolean = False) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_OS_OrdenesServicioDetallesMaterialesGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveOSDetalle", SqlDbType.Int).Value = CveOSDetalle
.Add("@CveOS", SqlDbType.Int).Value = CveOS
.Add("@FiltraTipoAlamacen", SqlDbType.Bit).Value = FiltraTipoAlamacen
.Add("@FiltraTipoAlmacen", SqlDbType.Bit).Value = FiltraTipoAlmacen
.Add("@Opcion", SqlDbType.Int).Value = Opcion
End With
Try

19
Ventas/Ventas.aspx.vb
View File

@@ -4483,7 +4483,7 @@ Partial Class Ventas
End If
For Each Row As DataRow In DtDetalle.Rows
If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS) Then
If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS, -1) Then
If OS.DtResultados.FiltraParametros("SeFacturara = 1").Rows.Count > 0 Then
Alert("Hay materiales en la Orden de Servicio, ¿Desea facturar los materiales?", TipoMensaje.MsgConfirmacion, "BtnMateriales()")
End If
@@ -8075,6 +8075,7 @@ Partial Class Ventas
e.Row.FCTextBox("TxtPrecio").Enabled = False
End If
'PERMISO EDITAR REM
If e.Row.DBCampo("TipoDocto") = "Rem" And ModalidadEdicion Then
'LO PERMITIDO MODIFICAR
@@ -21640,7 +21641,7 @@ Partial Class Ventas
DtDetalle = TmpDT.Copy
For Each Row As DataRow In DtDetalle.Rows
If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS) Then
If OS.GetDetalleMateriales(Row("CveOSDetalle").ToString().ToEntero(), CveOS, -1) Then
Dim Cons As Integer = TmpDT.Rows.Count + 1
For Each dr As DataRow In OS.DtResultados.FiltraParametros("SeFacturara = 1 ").Rows
@@ -36068,21 +36069,23 @@ Partial Class Ventas
DdlMedico.SelectedValueExist(DdlMedicoModal.SelectedValue)
DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue)
'si es A - Vista o ,Fuera De Linea requiere tecnico
If RBLTipoVenta.SelectedValue.ToEntero.Contiene(1, 2) Then
'si es pago directo es factura
If RBLTipoVenta.SelectedValue.Contiene("2") Then
DdlTipoComprobante.SelectedValueExist("Ing")
TdRequiereTecnico1.Visible = True
TdRequiereTecnico2.Visible = True
Else
TdFechaOS1.Visible = True
TdFechaOS2.Visible = True
ChkRequiereTecnico.Checked = True
ChkRequiereTecnico.Enabled = False
DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
DdlTipoComprobante.SelectedValueExist("Ped")
Else
DdlTipoComprobante.SelectedValueExist("Ing")
End If
DdlTipoComprobante.Enabled = False
TdRequiereTecnico1.Visible = True
TdRequiereTecnico2.Visible = True
CargaCliente(CveCliente)