Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/CatPromociones.aspx.vb

@@ -28,7 +28,7 @@ Partial Class Ventas_CatPromociones
             End If
 
             InicializaControles()
-            OcultarMostrarInactivar(True)
+
             CargaDatos()
         End If
     End Sub

Ventas/PVCobranza.aspx.vb

@@ -1599,6 +1599,7 @@ Partial Class Ventas_PVCobranza
                     Pago.CveMonedaPago = VentaActual.CveMoneda
                     Pago.Fecha = NowADS()
                     Pago.Referencia = VentaActual.SerieFolio
+                    If Pago.CveMonedaPago > 1 Then Pago.TCPago = GlobalTipoCambio(Now).ToDecimal
 
                     ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta)
                 End If