GDiaz - Identificar anticipos puntuales

Bancos/IE.aspx.vb

@@ -646,6 +646,10 @@ Partial Class Bancos_IE
                 If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
                     DivOtrosIngresosEgresos.Visible = True
                 End If
+                If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                    ChkAnticipoPuntual.Visible = True
+                End If
+
             End If
 
             If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then
@@ -711,6 +715,7 @@ Partial Class Bancos_IE
                 TxtObservaciones.Enabled = False
                 ChkAplicaImpuestos.Enabled = False
                 ChkAbonoCuenta.Enabled = False
+                ChkAnticipoPuntual.Enabled = False
                 Anexo.Visible = False
                 DdlCliente.Enabled = False
                 DdlProveedores.Enabled = False
@@ -806,6 +811,8 @@ Partial Class Bancos_IE
 
                 End Try
 
+                ChkAnticipoPuntual.Checked = CBool(ObjIE.DtResultados(0)("AnticipoPuntual").ToString)
+
                 CveIEDeposito = ObjIE.DtResultados(0)("CveIEDepositoPadre").ToString.ToEntero
                 CuentaDepositoPadre = ObjIE.DtResultados(0)("CuentaDepositoPadre").ToString
                 Cuenta = ObjIE.DtResultados(0)("NumCuenta").ToString
@@ -1755,6 +1762,13 @@ Partial Class Bancos_IE
         End If
         Dep.Dispose()
 
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+            If String.IsNullOrEmpty(TxtObservaciones.Text.Trim) Then
+                Alert("Las observaciones son obligatorias.", TipoMensaje.MsgAdvertencia)
+                EsValido = False
+            End If
+        End If
+
         If CveOCSolicitudAnticipo > 0 Then
             Dim ObjOC As New ClsOC
             If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then
@@ -2001,7 +2015,7 @@ Partial Class Bancos_IE
                 CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, tCveMoneda,
                                            TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                            CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"),
-                                           ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo)
+                                           ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo, AnticipoPuntual:=ChkAnticipoPuntual.Checked)
 
                 If CveIE > 0 Then