From a167fb86693ded2c52dc9780edddae239e7d2d96 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 15 Oct 2021 18:17:51 -0700 Subject: [PATCH] Requerir combos SAT cuando es sucursal --- Compras/eFacturas.aspx.vb | 8 ++++++-- Planeacion/CatSubProyectos.aspx | 12 +++++++----- Planeacion/CatSubProyectos.aspx.vb | 21 ++++++++++++++++++++- 3 files changed, 33 insertions(+), 8 deletions(-) diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 3bd8d405b..322ac5493 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2924,14 +2924,18 @@ Partial Class Compras_eFacturas For Each dRow2 As DataRow In DTDocumentosRelacionados.Rows - If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper And drow("CveIE").ToString.ToEntero > 0 Then + If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper Then dRow2("CveCompra") = drow("CveCompra").ToString.ToEntero dRow2("CveFactura") = drow("CveFactura").ToString.ToEntero dRow2("CveMetodoPago") = drow("CveMetodoPago").ToString.ToEntero dRow2("SerieFolioCompra") = drow("SerieFolioCompra").ToString Try - dRow2("CvePrePolizaDetalle") = drow("CvePrePolizaDetalle").ToString + + If drow("CveIE").ToString.ToEntero > 0 Then + dRow2("CvePrePolizaDetalle") = drow("CvePrePolizaDetalle").ToString + End If + Catch ex As Exception dRow2("CvePrePolizaDetalle") = 0 End Try diff --git a/Planeacion/CatSubProyectos.aspx b/Planeacion/CatSubProyectos.aspx index 4535b4e75..a0f58e6cf 100644 --- a/Planeacion/CatSubProyectos.aspx +++ b/Planeacion/CatSubProyectos.aspx @@ -300,7 +300,7 @@
- +
@@ -310,7 +310,7 @@
- +
@@ -323,8 +323,9 @@
- - + + +
@@ -332,6 +333,7 @@
+
@@ -345,7 +347,7 @@
- +
diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb index eff61c7fb..02500da0f 100644 --- a/Planeacion/CatSubProyectos.aspx.vb +++ b/Planeacion/CatSubProyectos.aspx.vb @@ -743,7 +743,8 @@ Partial Class CatSubProyectos RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarCentroCosto")) End Sub - Private Sub CargaRequired() + Private Sub CargaRequired() + If ChkEsSucursal.Checked = True Then RFVSerie.Enabled = True RFVIVA.Enabled = True @@ -767,6 +768,14 @@ Partial Class CatSubProyectos RFVPais.Visible = True RFVCP.Visible = True + RFVCP.Visible = True + RFVDdlPais.Visible = True + RFVDdlEstado.Visible = True + RFVMunicipio.Visible = True + RFVLocalidad.Visible = True + RFVColonia.Visible = True + + Else RFVSerie.Enabled = False RFVIVA.Enabled = False @@ -790,6 +799,14 @@ Partial Class CatSubProyectos RFVPais.Visible = False RFVCP.Visible = False + + RFVCP.Visible = False + RFVDdlPais.Visible = False + RFVDdlEstado.Visible = False + RFVMunicipio.Visible = False + RFVLocalidad.Visible = False + RFVColonia.Visible = False + End If End Sub @@ -909,5 +926,7 @@ Partial Class CatSubProyectos + + End Class