AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--FIX, soportes

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-05-21 18:50:42 -07:00
parent 8379eb3b37
commit 3e6d9ec9c6
4 changed files with 46 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Empresas/190/Formatos/RepCortes.rdlc
View File

@@ -402,6 +402,7 @@
<Value>=Fields!SerieFolio.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
</Style>
</TextRun>
</TextRuns>
@@ -415,6 +416,7 @@
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -434,6 +436,7 @@
<Value>=Fields!NombreComercial.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
</Style>
</TextRun>
</TextRuns>
@@ -447,6 +450,7 @@
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -468,6 +472,7 @@
<Style>
<FontSize>8pt</FontSize>
<Format>#,0.00</Format>
<Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
</Style>
</TextRun>
</TextRuns>
@@ -481,6 +486,7 @@
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -501,6 +507,7 @@
<Value>=Fields!MetodoPago.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
</Style>
</TextRun>
</TextRuns>
@@ -514,6 +521,7 @@
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -1668,6 +1676,10 @@
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="CveVenta">
<DataField>CveVenta</DataField>
<rd:TypeName>System.Integer</rd:TypeName>
</Field>
<Field Name="SerieFolio">
<DataField>SerieFolio</DataField>
<rd:TypeName>System.String</rd:TypeName>

12
Empresas/193/Formatos/RepCortes.rdlc
View File

@@ -182,6 +182,7 @@
<Value>=Fields!SerieFolio.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
</Style>
</TextRun>
</TextRuns>
@@ -195,6 +196,7 @@
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -214,6 +216,7 @@
<Value>=Fields!NombreComercial.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
</Style>
</TextRun>
</TextRuns>
@@ -227,6 +230,7 @@
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -248,6 +252,7 @@
<Style>
<FontSize>8pt</FontSize>
<Format>#,0.00</Format>
<Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
</Style>
</TextRun>
</TextRuns>
@@ -261,6 +266,7 @@
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -281,6 +287,7 @@
<Value>=Fields!MetodoPago.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
</Style>
</TextRun>
</TextRuns>
@@ -294,6 +301,7 @@
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -2577,6 +2585,10 @@
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="CveVenta">
<DataField>CveVenta</DataField>
<rd:TypeName>System.Integer</rd:TypeName>
</Field>
<Field Name="SerieFolio">
<DataField>SerieFolio</DataField>
<rd:TypeName>System.String</rd:TypeName>

44
Ventas/CatClasificaciones2.aspx.vb
View File

@@ -186,33 +186,31 @@ Partial Class Ventas_CatClasificaciones2
Protected Sub LbAgregarS_Click(sender As Object, e As EventArgs) Handles LbAgregarS.Click
Dim ObjClasificaciones As New ClsClasificaciones
'If ObjClasificaciones.AddClasificaciones(TxtClasificacionS.Text.Trim, "",
' -1, "", -1, "", -1, "",
' DdlCategoriaS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RequiereAFCompra:=False, RequiereAFInsumo:=False, RequierePersonal:=False) Then
If ObjClasificaciones.AddClasificaciones(TxtClasificacionS.Text.Trim, "", DdlCategoriaS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RequiereAFCompra:=False, RequiereAFInsumo:=False, RequierePersonal:=False) Then
' 'DdlCuentaGastoS.SelectedValue.ToEntero, DdlCuentaGastoS.SelectedItem.Text,
' 'DdlCuentaAnticipoS.SelectedValue.ToEntero, DdlCuentaAnticipoS.SelectedItem.Text,
' 'DdlCuentaInventarioS.SelectedValue.ToEntero, DdlCuentaInventarioS.SelectedItem.Text,
' TxtClasificacionS.Text = ""
' Alert("La nueva Clasificación se guardó correctamente.", TipoMensaje.MsgInformacion)
' UpTitulosS.Update()
'DdlCuentaGastoS.SelectedValue.ToEntero, DdlCuentaGastoS.SelectedItem.Text,
'DdlCuentaAnticipoS.SelectedValue.ToEntero, DdlCuentaAnticipoS.SelectedItem.Text,
'DdlCuentaInventarioS.SelectedValue.ToEntero, DdlCuentaInventarioS.SelectedItem.Text,
TxtClasificacionS.Text = ""
Alert("La nueva Clasificación se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulosS.Update()
' If ObjClasificaciones.GetClasificaciones(-1, 4) Then
' GlobalDTClasificaciones2(UsuarioActual.CveEmpresa) = Nothing
' ViewState("DTClasificacion2") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
' GlobalDTClasificaciones2(UsuarioActual.CveEmpresa) = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
' End If
If ObjClasificaciones.GetClasificaciones(-1, 4) Then
GlobalDTClasificaciones2(UsuarioActual.CveEmpresa) = Nothing
ViewState("DTClasificacion2") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
GlobalDTClasificaciones2(UsuarioActual.CveEmpresa) = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
End If
' 'DdlCuentaGastoS.SelectedValue = "-1"
' 'DdlCuentaAnticipoS.SelectedValue = "-1"
' 'DdlCuentaInventarioS.SelectedValue = "-1"
'DdlCuentaGastoS.SelectedValue = "-1"
'DdlCuentaAnticipoS.SelectedValue = "-1"
'DdlCuentaInventarioS.SelectedValue = "-1"
' If ViewState("Orden2").ToString() <> String.Empty Then
' CargaGridS(ViewState("Orden2").ToString())
' Else
' CargaGridS("")
' End If
'End If
If ViewState("Orden2").ToString() <> String.Empty Then
CargaGridS(ViewState("Orden2").ToString())
Else
CargaGridS("")
End If
End If
ObjClasificaciones.Dispose()
End Sub

2
Ventas/Ventas.aspx.vb
View File

@@ -5073,7 +5073,7 @@ Partial Class Ventas
'End If
'si utiliza cortes, y cajas, no permitir cancelar de días anteriores
If UsuarioActual.CveRol <> 1 AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso DbRowVenta("Fecha").ToString.ToDate.ToShortDateString.ToDate < Now.ToShortDateString.ToDate Then
LbCancelarDocumento.Visible = False
LbCancelarDocumento.Visible = UsuarioActual.TienePermisoProceso(378)
End If
End If