-- que se active la carta porte al timbrar

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