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

OC Correciones SubProyecto

Browse Source
This commit is contained in:
rakcsle
2025-05-10 11:24:01 -07:00
parent ff0b9cc5a0
commit 10a00c992e
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Compras/Compras.aspx.vb
View File

@@ -23178,7 +23178,7 @@ Partial Class Compras_Compras
Dim Importe As Decimal = row("Importe").ToString.ToDecimal Dim Importe As Decimal = row("Importe").ToString.ToDecimal
If Not CveSubProyecto > 0 Then If Not CveSubProyecto > 0 Then
SBErrores.Append($"Fila: {ContadorRow} SubProyecto: {row("SubProyecto").ToString} no encontrado.<br/>") SBErrores.Append($"Fila: {ContadorRow} SubProyecto: <b>'{row("SubProyecto").ToString}'</b> no encontrado.<br/>")
ErrorProceso = True ErrorProceso = True
End If End If
@@ -23226,7 +23226,7 @@ Partial Class Compras_Compras
End If End If
Else Else
Alert(SBErrores.ToString, TipoMensaje.MsgError) Alert(SBErrores.ToString, TipoMensaje.MsgAdvertencia)
End If End If
End If End If

6
OC/OC.aspx.vb
View File

@@ -3693,7 +3693,7 @@ Partial Class OC_OC
HuboError = True HuboError = True
End If End If
Dim CveSubProyecto As Integer = UsuarioActual.CveSubProyecto Dim CveSubProyecto As Integer = -1
If ModalidadSubProyectoGeneral Then If ModalidadSubProyectoGeneral Then
CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
@@ -3708,7 +3708,7 @@ Partial Class OC_OC
PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal,
CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, NumRemision:=TxtNumRemision.Text.Trim, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero(), CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, NumRemision:=TxtNumRemision.Text.Trim, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero(),
CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago, DiasCreditoOC:=TxtDiasCreditoOC.Text.Toentero) Then CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago, DiasCreditoOC:=TxtDiasCreditoOC.Text.ToEntero) Then
'CREA POLIZA POR CADA PROVEEDOR 'CREA POLIZA POR CADA PROVEEDOR
@@ -3777,7 +3777,7 @@ Partial Class OC_OC
HuboError = True HuboError = True
End If End If
Dim tCveSubProyecto As Integer = UsuarioActual.CveSubProyecto Dim tCveSubProyecto As Integer = -1
If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
If tCveSubProyecto <= 0 Then If tCveSubProyecto <= 0 Then
tCveSubProyecto = GetCveSubProyectoDetalles() tCveSubProyecto = GetCveSubProyectoDetalles()