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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-02-19 11:53:56 -07:00
parent 02d76fc38a 7ec6197c34
commit eb000772b5
2 changed files with 8 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Compras/Compras.aspx.vb
View File

@@ -18303,6 +18303,12 @@ Partial Class Compras_Compras
If Not DdlTipoCompra.SelectedValue.Contiene("12") AndAlso DrPS("AplicaSerie").ToString = "True" Then If Not DdlTipoCompra.SelectedValue.Contiene("12") AndAlso DrPS("AplicaSerie").ToString = "True" Then
Row("CveMetodoInventario") = "1" Row("CveMetodoInventario") = "1"
End If End If
If (DrPS("CvePSCargo").ToString <> "") Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto)
CveTipoPS = 2
End If
Row("AplicaSerie") = DrPS("AplicaSerie")
Row("AplicaLote") = DrPS("AplicaLote")
Row("AplicaCaducidad") = DrPS("AplicaCaducidad")
Else Else
Row("PSCodigo") = PSCodigo Row("PSCodigo") = PSCodigo
Row("CveMetodoInventario") = 0 Row("CveMetodoInventario") = 0
@@ -18316,36 +18322,17 @@ Partial Class Compras_Compras
If (Version = "3.3" Or Version = "4.0") And CveSATPS > 0 Then If (Version = "3.3" Or Version = "4.0") And CveSATPS > 0 Then
Dim DrPSSAT As DataRow = Nothing Dim DrPSSAT As DataRow = Nothing
If CargaXml Then DrPSSAT = GlobalDTPSATPS("-1", CveSATPS.ToString).FiltroPrimero("")
DrPSSAT = GlobalDTPSATPS("-1", CveSATPS.ToString).FiltroPrimero("")
'If GlobalDTPSATPS().FiltraParametros(String.Format("SATClavePS={0}", CveSATPS)).Rows.Count > 0 Then
' DrPSSAT = GlobalDTPSATPS().FiltraParametros(String.Format("SATClavePS={0}", CveSATPS)).Rows(0)
'End If
Else
DrPSSAT = GlobalDTPSATPS("-1", CveSATPS.ToString).FiltroPrimero("") '= GlobalDTPSATPS().FiltroPrimero(String.Format("SATClavePS={0}", CveSATPS))
'If GlobalDTPSATPS().FiltraParametros(String.Format("CveSATPS={0}", CveSATPS)).Rows.Count > 0 Then
' DrPSSAT = GlobalDTPSATPS().FiltraParametros(String.Format("CveSATPS={0}", CveSATPS)).Rows(0)
'End If
End If
If DrPSSAT IsNot Nothing Then If DrPSSAT IsNot Nothing Then
Row("SATClaveProductoServicio") = DrPSSAT("SATClaveProductoServicio").ToString Row("SATClaveProductoServicio") = DrPSSAT("SATClaveProductoServicio").ToString
Row("CveSATPS") = DrPSSAT("CveSATPS").ToString Row("CveSATPS") = DrPSSAT("CveSATPS").ToString
If CveSATPSActualizado Then If CveSATPSActualizado Then
Row("CveSATPSActualizado") = 1 Row("CveSATPSActualizado") = 1
Else Else
Row("CveSATPSActualizado") = 0 Row("CveSATPSActualizado") = 0
End If End If
End If End If
End If End If
Try
If (DrPS("CvePSCargo").ToString <> "") Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto)
CveTipoPS = 2
End If
Catch ex As Exception
End Try
Dim DecimalesPermitidos As Integer = 6 Dim DecimalesPermitidos As Integer = 6
@@ -18435,10 +18422,6 @@ Partial Class Compras_Compras
Row("CveContratoDetalle") = CveContratoDetalle Row("CveContratoDetalle") = CveContratoDetalle
Row("AplicaSerie") = DrPS("AplicaSerie")
Row("AplicaLote") = DrPS("AplicaLote")
Row("AplicaCaducidad") = DrPS("AplicaCaducidad")
Row("CveCultivoCuadroDetalle") = CveCultivoCuadroDetalle Row("CveCultivoCuadroDetalle") = CveCultivoCuadroDetalle
Row("TemporadaCuadro") = TemporadaCuadro Row("TemporadaCuadro") = TemporadaCuadro
If CveAlmacen > 0 Then Row("CveAlmacen") = CveAlmacen If CveAlmacen > 0 Then Row("CveAlmacen") = CveAlmacen

2
Ventas/ProductosServicios.aspx.vb
View File

@@ -1456,7 +1456,7 @@ Partial Class ProductosyServicios
Exit Sub Exit Sub
End If End If
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso ChkAplicaParaVenta.Checked Then
Dim tcontador As Integer = 0 Dim tcontador As Integer = 0
For Each GvRow As GridViewRow In GvPLMultiple.Rows For Each GvRow As GridViewRow In GvPLMultiple.Rows
Dim CvePrecioLista As Integer = GvRow.DataKey("CvePrecioLista").ToEntero() Dim CvePrecioLista As Integer = GvRow.DataKey("CvePrecioLista").ToEntero()