Transferencias, formatos

Bancos/Transferencias.aspx

@@ -30,7 +30,7 @@
                             <tr>
                                 <td>Tipo Movimiento:</td>
                                 <td>
-                                    <asp:DropDownList ID="DdlTipoMovto" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true" Width="400px" ValidationGroup="GrpGuardar">
+                                    <asp:DropDownList ID="DdlTipoMovto" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true" Width="400px"    >
                                         <asp:ListItem Value="1">Cheque Emitido</asp:ListItem>
                                         <asp:ListItem Value="2" Selected="True">Transferencia Bancaria</asp:ListItem>
                                     </asp:DropDownList>
@@ -127,7 +127,12 @@
                             <tr id="trPagueseA">
                                 <td>Paguese</td>
                                 <td>
-                                    <asp:TextBox ID="TxtPaguese" CssClass="form-control input-sm " runat="server" Width="100%"></asp:TextBox></td>
+                                    <asp:TextBox ID="TxtPaguese" CssClass="form-control input-sm " runat="server" Width="100%"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RFVTxtPaguese" runat="server" ControlToValidate="TxtPaguese" CssClass="help-block errorimput"  Visible="false" Display="Dynamic"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Paguese''</b> es necesario, por favor ingr<67>selo." 
+                                        ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                </td>
+
                             </tr>
                             <tr>
                                 <td>Observaciones:</td>
@@ -138,7 +143,7 @@
                             <tr>
                                 <br />
                                 <td colspan="2" style="text-align: center;">
-                                    <asp:Button ID="BtnGuardar" runat="server" Text="Aceptar" class="btn btn-primary" />
+                                    <asp:Button ID="BtnGuardar" runat="server" Text="Aceptar" class="btn btn-primary" ValidationGroup="GrpGuardar"  />
                                 </td>
                             </tr>
                         </table>

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)