Transferencias, formatos

Bancos/Transferencias.aspx.vb

@@ -42,7 +42,9 @@ Partial Class Bancos_Transferencias
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
         If Not IsPostBack Then
+
             tCveMonedaOrigen = 0
             tCveMonedaDestino = 0
             If Request("OPC") IsNot Nothing AndAlso IsNumeric(Request("OPC")) Then
@@ -70,6 +72,8 @@ Partial Class Bancos_Transferencias
 
             TxtFechaDocumento.Text = Now.ToShortDateString
 
+            DdlTipoMovto_SelectedIndexChanged(Nothing, Nothing)
+
         End If
     End Sub
 
@@ -281,20 +285,26 @@ Partial Class Bancos_Transferencias
             Observaciones = TxtObservaciones.Text.Trim
         End If
 
-        If Opcion = 1 Then
+
+        If Opcion = 1 Then 'ESTO ES TRANSFERENCIA ENTRE
             CveIE = ObjIE.AddBancos_IE(DdlCuentaDestino.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, CuentaDestino, ImporteMXOrigen, CveMonedaOrigen, TipoCambio, Observaciones, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
             CveIEDestino = CveIE
         Else
+
             If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                 FolioDestino = TxtFolio.Text.Trim
                 If TxtPaguese.Text.Trim <> "" Then
                     CuentaDestino = TxtPaguese.Text.Trim
                 End If
-
+            Else
+                If DdlTipoMovto.SelectedValue.ToEntero = 1 Then
+                    CuentaDestino = TxtPaguese.Text.Trim
+                End If
             End If
 
             CveIE = ObjIE.AddBancos_IE(DdlCuentaOrigen.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, CuentaDestino, TxtImporte.Text.Trim.ToDouble, CveMonedaOrigen, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
             CveIEDestino = ObjIE.AddBancos_IE(DdlCuentaDestino.SelectedValue.ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, String.Format("Transferencia Cta: {0}", DdlCuentaOrigen.SelectedItem.Text), ImporteDestino, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
         End If
 
         Dim CveIEDevolucion As Integer = -1
@@ -636,12 +646,21 @@ Partial Class Bancos_Transferencias
 
     Private Sub DdlTipoMovto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoMovto.SelectedIndexChanged
 
+        RFVTxtPaguese.Visible = False
+
         If Opcion = 1 Then
             CargaFolio(DdlCuentaDestino.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
         Else
             CargaFolio(DdlCuentaOrigen.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
+
+            If DdlTipoMovto.SelectedValue.ToEntero = 1 And Opcion <> 1 Then 'CHEQUE ACTIVA EL REQUIRED DE  TxtPaguese
+                RFVTxtPaguese.Visible = True
+            End If
+
         End If
 
+        UPPDatos.Update()
+
     End Sub
 
     Protected Sub RBLOpcion_SelectedIndexChanged(sender As Object, e As EventArgs)