From 3c1c9a2f2c82391c6d7812a4d4970d4cf50f4840 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 21 Feb 2022 17:29:36 -0700 Subject: [PATCH] -- que se active la carta porte al timbrar --- Inventarios/TraspasoAlmacen.aspx.vb | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 04ceface6..fb5a5af4a 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -855,6 +855,16 @@ Partial Class Inventarios_TraspasoAlmacen If ChkTransitorio.Checked Then DivResponsable.Visible = True : DivTransitorio2.Visible = True Exit Sub End If + + ''validaciones de carta porte en productos + If ChkEmitirTimbrado.Checked AndAlso ChkEmitirCartaPorte.Checked Then + ' Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") + 'If Not ValidaPSSAT(DrPS) Then + ' Exit Sub + 'End If + End If + + End If Dim DrAlmO, DrAlmD As DataRow @@ -1729,6 +1739,7 @@ Partial Class Inventarios_TraspasoAlmacen DivTransitorio2.Visible = True If UsuarioActual.CveEmpresa.Contiene(119, 140) Then ChkEmitirTimbrado.Checked = True + ChkEmitirCartaPorte.Checked = True End If Else RegistraScript(" $('#DivGastoIndirecto').hide(500);") @@ -1736,6 +1747,7 @@ Partial Class Inventarios_TraspasoAlmacen DivTransitorio2.Visible = True DivEmitirTransitorio.Visible = False ChkEmitirTimbrado.Checked = False + ChkEmitirCartaPorte.Checked = True End If UpEmitirTransitorio.Update() CargaAlmacenDestino() @@ -3145,7 +3157,7 @@ Partial Class Inventarios_TraspasoAlmacen Protected Sub ChkEmitirTimbrado_CheckedChanged(sender As Object, e As EventArgs) If ChkEmitirTimbrado.Checked Then - ChkEmitirCartaPorte.Checked = False + ChkEmitirCartaPorte.Checked = True ChkEmitirCartaPorte.Visible = True Else ChkEmitirCartaPorte.Visible = False