--Parametro Add-Update clientes "Aseguradora"
--FIX de botones --OdeC en kardex
This commit is contained in:
@@ -540,7 +540,7 @@ Public Class ClsClientes
|
||||
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
|
||||
Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
|
||||
Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False,
|
||||
Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False) As Boolean
|
||||
Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False, Optional Aseguradora As Boolean = False) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
|
||||
@@ -677,6 +677,7 @@ Public Class ClsClientes
|
||||
.Add("@CreditoRegistroFirmas", SqlDbType.VarChar).Value = CreditoRegistroFirmas
|
||||
.Add("@GastosEnvio", SqlDbType.SmallMoney).Value = GastosEnvio
|
||||
.Add("@EsFilial", SqlDbType.VarChar).Value = EsFilial
|
||||
.Add("@Aseguradora", SqlDbType.Bit).Value = Aseguradora
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
@@ -723,7 +724,7 @@ Public Class ClsClientes
|
||||
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
|
||||
Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
|
||||
Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional UsaProductoAlterno As Boolean = False,
|
||||
Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False) As Boolean
|
||||
Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False, Optional Aseguradora As Boolean = False) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -870,6 +871,7 @@ Public Class ClsClientes
|
||||
.Add("@CreditoRegistroFirmas", SqlDbType.VarChar).Value = CreditoRegistroFirmas
|
||||
.Add("@GastosEnvio", SqlDbType.SmallMoney).Value = GastosEnvio
|
||||
.Add("@EsFilial", SqlDbType.VarChar).Value = EsFilial
|
||||
.Add("@Aseguradora", SqlDbType.Bit).Value = Aseguradora
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
@@ -498,6 +498,11 @@
|
||||
Text='<%# Eval("ValorInventario", "{0:N2}")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Center" HeaderText="OdeC">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LbOC" runat="server" Text='<%# Eval("NoOrden")%>' data-toggle="tooltip" title='<%# Eval("CveOrdendeCorte")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
@@ -646,11 +651,12 @@
|
||||
<asp:HyperLink ID="hlFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Target="_blank" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField HeaderText="Orden de corte" DataField="NoOrden" ItemStyle-Width="15%" />
|
||||
<asp:BoundField HeaderText="Orden de corte" DataField="NoOrden" ItemStyle-Width="10%" />
|
||||
<asp:BoundField HeaderText="Concepto" DataField="Concepto" ItemStyle-Width="15%" />
|
||||
<asp:BoundField HeaderText="Fecha" DataField="FechaMovto" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="10%" />
|
||||
<asp:BoundField HeaderText="Almacen" DataField="Almacen" ItemStyle-Width="15%" />
|
||||
<asp:BoundField HeaderText="Entrada" DataField="Entrada" DataFormatString="{0:#,###.##}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />
|
||||
<%-- <asp:BoundField HeaderText="Salida" DataField="Salida" DataFormatString="{0:#,###.##}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />--%>
|
||||
<%-- <asp:BoundField HeaderText="Salida" DataField="Salida" DataFormatString="{0:#,###.##}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />--%>
|
||||
<asp:BoundField HeaderText="Disponible" DataField="Disponible" DataFormatString="{0:#,###.##}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
@@ -82,6 +82,8 @@ Partial Class Inventarios_Kardex
|
||||
GvM.Columns(15).Visible = TienePermisoImportes ' importe
|
||||
GvM.Columns(17).Visible = TienePermisoImportes ' valor
|
||||
|
||||
GvM.Columns(18).Visible = UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
|
||||
DVFiltroCodigo.Visible = True
|
||||
End If
|
||||
@@ -282,7 +284,7 @@ Partial Class Inventarios_Kardex
|
||||
LnkSeries.Visible = AuxAplicaSerie
|
||||
LnkCaducidad.Visible = AuxAplicaCad
|
||||
|
||||
If UsuarioActual.CveEmpresa = 172 Then
|
||||
If UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1 Then
|
||||
LnkExistenciasPorCapas.Visible = True
|
||||
End If
|
||||
'CARGA INDICADORES
|
||||
|
||||
@@ -5030,9 +5030,14 @@ Partial Class Ventas
|
||||
BtnArchivoAdjunto.Visible = True
|
||||
BtnEliminarAdjunto.Visible = True
|
||||
BtnAdjuntar.Visible = False
|
||||
BtnReemplazarAdjunto.Visible = True
|
||||
|
||||
If Request("CveVenta") IsNot Nothing Then
|
||||
BtnReemplazarAdjunto.Visible = True
|
||||
End If
|
||||
Else
|
||||
BtnReemplazarAdjunto.Visible = True
|
||||
If Request("CveVenta") IsNot Nothing Then
|
||||
BtnReemplazarAdjunto.Visible = True
|
||||
End If
|
||||
End If
|
||||
|
||||
ViewState("CveSubProyectoVenta") = DbRowVenta("CveSubProyecto").ToString().ToEntero()
|
||||
@@ -6070,19 +6075,23 @@ Partial Class Ventas
|
||||
ThCantidadFacturada2.Visible = False
|
||||
End If
|
||||
|
||||
'ACTIVA EDITAR
|
||||
'SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA
|
||||
If (UsuarioActual.CveUsuario = DbRowVenta("CveUsuario").ToString().ToEntero() Or UsuarioActual.CveVendedor = DdlVendedor.SelectedValue.ToEntero()) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad")
|
||||
BtnPermisoEditarCotizacion.Visible = True
|
||||
'SI ES FACTURACION DIRECTA DESDE URL NO CARGAR LOS BOTONES
|
||||
If Request("CveCotizacion") Is Nothing Then
|
||||
'ACTIVA EDITAR
|
||||
'SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA
|
||||
If (UsuarioActual.CveUsuario = DbRowVenta("CveUsuario").ToString().ToEntero() Or UsuarioActual.CveVendedor = DdlVendedor.SelectedValue.ToEntero()) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad")
|
||||
BtnPermisoEditarCotizacion.Visible = True
|
||||
End If
|
||||
|
||||
'SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA
|
||||
If UsuarioActual.TienePermisoProceso(281) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad")
|
||||
BtnPermisoEditarCotizacion.Visible = True
|
||||
End If
|
||||
|
||||
'ACTIVA BOTONERA | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR
|
||||
VerificarBtnFacturarCotizacion(DbRowVenta("CveVendedor").ToString().ToEntero())
|
||||
End If
|
||||
|
||||
'SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA
|
||||
If UsuarioActual.TienePermisoProceso(281) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad")
|
||||
BtnPermisoEditarCotizacion.Visible = True
|
||||
End If
|
||||
|
||||
'ACTIVA BOTONERA | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR
|
||||
VerificarBtnFacturarCotizacion(DbRowVenta("CveVendedor").ToString().ToEntero())
|
||||
End If
|
||||
|
||||
If DbRowVenta("TipoDocto").ToString().Contiene("Ped") Then
|
||||
@@ -6115,6 +6124,11 @@ Partial Class Ventas
|
||||
If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True
|
||||
If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
|
||||
|
||||
'OCULTAR BOTON DE EDICION SI SE FACTURA COTIZACION DESDE URL
|
||||
If UsuarioActual.Empresa.Funcionalidad(558) <> "1" AndAlso Request("CveCotizacion") IsNot Nothing Then
|
||||
BtnEditar.Visible = False
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then
|
||||
RblPaqueteria.SelectedValue = If(DbRowVenta("FormaPaqueteria").ToString = "", "1", DbRowVenta("FormaPaqueteria").ToString)
|
||||
RblPaqueteria.Enabled = False
|
||||
@@ -12103,7 +12117,7 @@ Partial Class Ventas
|
||||
'**** IMPUESTOS LOCALES
|
||||
|
||||
factura.DtDetalle = tmpcon
|
||||
Dim TotalSubTotal As Decimal = tmpcon.SUMD("TotalImporte")
|
||||
Dim TotalSubTotal As Decimal = tmpcon.SUMD("TotalImporte").RoundSQL(2)
|
||||
Dim TotalDescuentos As Decimal = tmpcon.SUMD("Descuento")
|
||||
|
||||
Dim TotalIVA As Decimal = tmpcon.SUMD("ImporteIVA")
|
||||
|
||||
Reference in New Issue
Block a user