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

6
OC/OC.aspx.vb
View File

@@ -3693,7 +3693,7 @@ Partial Class OC_OC
HuboError = True
End If
Dim CveSubProyecto As Integer = UsuarioActual.CveSubProyecto
Dim CveSubProyecto As Integer = -1
If ModalidadSubProyectoGeneral Then
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,
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(),
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
@@ -3777,7 +3777,7 @@ Partial Class OC_OC
HuboError = True
End If
Dim tCveSubProyecto As Integer = UsuarioActual.CveSubProyecto
Dim tCveSubProyecto As Integer = -1
If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
If tCveSubProyecto <= 0 Then
tCveSubProyecto = GetCveSubProyectoDetalles()