-mejoras

Contabilidad2/CatCuentasAsignaciones.aspx

@@ -143,7 +143,7 @@
                                             <label for="<%= TxtIdCuentaContable.ClientID.ToString()%>">IdCuentaContable:</label>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright" id="divProveedor" runat="server" visible="false">
-                                            <asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
+                                            <ADS:Dropdownlost ID="DdlProveedor" CssClassDdl="select2me" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" data-metodo="getproveedores" CssStyle="width: 100%;" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="240px" ValidationGroup="GrpModulo" ></ADS:Dropdownlost>
                                             <label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor: </label>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright" id="divCliente" runat="server" visible="false">

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -26,14 +26,14 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
     End Sub
 
-    Private Sub CargaDatos()
-        Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then
-            GvDatos.DataSource = ObjConta.DtResultados
-        End If
-        ObjConta.Dispose()
-        GvDatos.DataBind()
-    End Sub
+    'Private Sub CargaDatos()
+    '    Dim ObjConta As New ClsContabilidad
+    '    If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then
+    '        GvDatos.DataSource = ObjConta.DtResultados
+    '    End If
+    '    ObjConta.Dispose()
+    '    GvDatos.DataBind()
+    'End Sub
 
     Private Sub CargaDatosSistema()
         Dim ObjConta As New ClsContabilidad
@@ -67,8 +67,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             DdlCuentaGlobal.DataSource = ObjConta.DtResultados
         End If
         ObjConta.Dispose()
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-
+        DdlProveedor.setEsWebService(True) 'GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+
         DdlClientes.setEsWebService(True)
 
         DdlPersonal.setEsWebService(True)
@@ -102,7 +102,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlConceptoNomina.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlCconceptosContables.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
@@ -123,7 +123,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             DdlCconceptosContables.SelectedValueExist(GvRow.DataKey("CveConceptoContable"))
             DdlCuenta.SelectedValueExist(GvRow.DataKey("CveCuenta"))
             DdlConceptoNomina.SelectedValueExist(GvRow.DataKey("CveConceptoNomina").ToEntero)
-            DdlProveedor.SelectedValueExist(GvRow.DataKey("CveProveedor"))
+            DdlProveedor.ddl.SelectedValueExist(GvRow.DataKey("CveProveedor"))
             DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion"))
             DdlAlmacen.SelectedValueExist(GvRow.DataKey("CveAlmacen"))
             TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
@@ -151,41 +151,22 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
         If Dr IsNot Nothing Then
 
-            If Dr("AplicaCliente").ToString = "True" Then
-                divCliente.Visible = True
-                DdlClientes.setEsWebService(True)
-            End If
 
-            If Dr("AplicaProveedor").ToString = "True" Then
-                divProveedor.Visible = True
-            End If
+            divCliente.Visible = Dr("AplicaCliente").ToString = "True"
 
-            If Dr("AplicaPersonal").ToString = "True" Then
-                divPersonal.Visible = True
-                DdlPersonal.setEsWebService(True)
+            divProveedor.Visible = Dr("AplicaProveedor").ToString = "True"
 
-            End If
+            divPersonal.Visible = Dr("AplicaPersonal").ToString = "True"
 
-            If Dr("AplicaImpuesto").ToString = "True" Then
-                divPorcentajeIVA.Visible = True
-            End If
+            divPorcentajeIVA.Visible = Dr("AplicaImpuesto").ToString = "True"
 
+            divClasificacion.Visible = Dr("AplicaClasificacion").ToString = "True"
 
-            If Dr("AplicaClasificacion").ToString = "True" Then
-                divClasificacion.Visible = True
-            End If
+            divBancos.Visible = Dr("AplicaBancos").ToString = "True"
 
-            If Dr("AplicaBancos").ToString = "True" Then
-                divBancos.Visible = True
-            End If
+            divAlmacen.Visible = Dr("AplicaAlmacen").ToString = "True"
 
-            If Dr("AplicaAlmacen").ToString = "True" Then
-                divAlmacen.Visible = True
-            End If
-
-            If Dr("AplicaSubProyecto").ToString = "True" Then
-                divSubProyectos.Visible = True
-            End If
+            divSubProyectos.Visible = Dr("AplicaSubProyecto").ToString = "True"
 
             If Dr("AplicaActivoFijo").ToString = "True" Then
                 divActivoFijo.Visible = True
@@ -194,9 +175,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
                 ' DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo"))
             End If
 
-            If Dr("AplicaNomina").ToString = "True" Then
-                divConceptoNomina.Visible = True
-            End If
+            divConceptoNomina.Visible = Dr("AplicaNomina").ToString = "True"
         End If
 
     End Sub

Inventarios/TraspasoAlmacen.aspx

@@ -190,6 +190,20 @@
                                                         <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
                                                     </div>
                                                 </div>
+                                                <label class="col-md-2">F. Envío:</label>
+                                                <div class="col-md-2" style="padding-left: 5px; padding-top: 0px;" runat="server" id="divFechaEnvio" visible="false">
+                                                    
+                                                    <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 120px !important;">
+                                                        <asp:TextBox ID="TxtFechaEnvio" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="75px" ClientIDMode="Static"></asp:TextBox>
+                                                        <span class="input-group-btn ">
+                                                            <asp:LinkButton runat="server" ID="ImgFechaEnvio" class="btn default"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
+                                                        </span>
+                                                        <ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtFechaEnvio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                        <ajax:CalendarExtender runat="server" ID="CalendarExtender2" TargetControlID="TxtFechaEnvio" PopupButtonID="ImgFechaEnvio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                        <asp:CompareValidator ID="CompareValidator2" runat="server" ControlToValidate="TxtFechaEnvio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Envío''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date"></asp:CompareValidator>
+                                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator2" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    </div>
+                                                </div>
                                             </div>
                                             <div class="row">
                                                 <label class="col-md-1">Unidad:</label>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -189,6 +189,10 @@ Partial Class Inventarios_TraspasoAlmacen
                 LblResponsable.Visible = False
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
+                divFechaEnvio.Visible = True
+            End If
+
 
             CargaCombos()
             CreaDT()