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

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
rakcsle
2022-03-04 23:36:28 -07:00
parent 4834ce7fe1 50add89d2f
commit 59bb7f9760
9 changed files with 63 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
App_Code/ClsVentas.vb
View File

@@ -1288,20 +1288,20 @@ Public Class ClsVentas
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@Cantidad", SqlDbType.Float).Value = Cantidad .Add("@Cantidad", SqlDbType.Decimal).Value = Cantidad
.Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
.Add("@PU", SqlDbType.Float).Value = PU .Add("@PU", SqlDbType.Decimal).Value = PU
.Add("@IVA", SqlDbType.Float).Value = IVA .Add("@IVA", SqlDbType.Decimal).Value = IVA
.Add("@IEPS", SqlDbType.Float).Value = IEPS .Add("@IEPS", SqlDbType.Decimal).Value = IEPS
.Add("@ImporteRetIVA", SqlDbType.Float).Value = ImporteRetIVA .Add("@Descuento", SqlDbType.Decimal).Value = Descuento
.Add("@ImporteRetISR", SqlDbType.Float).Value = ImporteRetISR .Add("@ImporteRetIVA", SqlDbType.Decimal).Value = ImporteRetIVA
.Add("@PorcentajeIVA", SqlDbType.Float).Value = PorcentajeIVA .Add("@ImporteRetISR", SqlDbType.Decimal).Value = ImporteRetISR
.Add("@PorcentajeIEPS", SqlDbType.Float).Value = PorcentajeIEPS .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
.Add("@PorcentajeRetIVA", SqlDbType.Float).Value = PorcentajeRetIVA .Add("@PorcentajeIEPS", SqlDbType.Decimal).Value = PorcentajeIEPS
.Add("@PorcentajeRetISR", SqlDbType.Float).Value = PorcentajeRetISR .Add("@PorcentajeRetIVA", SqlDbType.Decimal).Value = PorcentajeRetIVA
.Add("@Total", SqlDbType.Float).Value = Total .Add("@PorcentajeRetISR", SqlDbType.Decimal).Value = PorcentajeRetISR
.Add("@Total", SqlDbType.Decimal).Value = Total
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
.Add("@Descuento", SqlDbType.Float).Value = Descuento
.Add("@TipoDescuento", SqlDbType.Int).Value = TipoDescuento .Add("@TipoDescuento", SqlDbType.Int).Value = TipoDescuento
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CvePresupuestoIngreso", SqlDbType.Int).Value = CvePresupuestoIngreso .Add("@CvePresupuestoIngreso", SqlDbType.Int).Value = CvePresupuestoIngreso

BIN
Bin/GoCfdi.dll
View File

Binary file not shown.

2
Compras/PopUpVerFactura.aspx.vb
View File

@@ -2051,7 +2051,7 @@ Partial Class PopUpVerFactura
Else Else
Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow() Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow()
If dr1("PorcentajeIEPS").ToString.ToDouble > 0 Then If dr1("PorcentajeIEPS").ToString.ToDouble > 0 Then
DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", dr1("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = dr1("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(dr1("PorcentajeIEPS").ToString = "0.03", "2", If(dr1("PorcentajeIEPS").ToString = "0.06", "3", If(dr1("PorcentajeIEPS").ToString = "0.07", "4", If(dr1("PorcentajeIEPS").ToString = "0.09", "5", "")))) DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", dr1("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = dr1("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.03, "2", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.06, "3", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.07, "4", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.09, "5", ""))))
TmpDTImpuestosIVAIEPS.Rows.Add(DR2) TmpDTImpuestosIVAIEPS.Rows.Add(DR2)
TmpDTImpuestosIVAIEPS.AcceptChanges() TmpDTImpuestosIVAIEPS.AcceptChanges()
End If End If

6
Documentacion/TableroMaterialidad.aspx
View File

@@ -17,15 +17,15 @@
} }
th.Modulo5{ th.Modulo5{
color:#fff; color:#fff;
background-color:darksalmon; background-color:#8e44ad;
} }
th.Modulo6{ th.Modulo6{
color:#fff; color:#fff;
background-color:#67809f; background-color:#3598dc;
} }
th.Modulo7{ th.Modulo7{
color:#fff; color:#fff;
background-color:purple; background-color:#36c6d3;
} }
th:not(.Modulo5) + th.Modulo5, th:not(.Modulo5) + th.Modulo5,
th:not(.Modulo6) + th.Modulo6, th:not(.Modulo6) + th.Modulo6,

4
Inventarios/RepVentasXSurtir.aspx
View File

@@ -62,8 +62,8 @@
<asp:BoundField DataField="SubProyecto" HeaderText="Sucursal" /> <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal" />
<asp:BoundField DataField="NombreCliente" HeaderText="Cliente" /> <asp:BoundField DataField="NombreCliente" HeaderText="Cliente" />
<asp:BoundField DataField="CodigoPS" HeaderText="Producto" /> <asp:BoundField DataField="CodigoPS" HeaderText="Producto" />
<asp:BoundField DataField="CantidadVenta" HeaderText="Cant. Venta" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="CantidadVenta" HeaderText="Cant. Venta" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="Cantidad" HeaderText="Cant. Pendiente" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Cantidad" HeaderText="Cant. Pendiente" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>

39
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -186,7 +186,7 @@ Partial Class Inventarios_TraspasoAlmacen
If UsuarioActual.CveEmpresa = 119 Then If UsuarioActual.CveEmpresa = 119 Then
divGastoIndirecto.Visible = False divGastoIndirecto.Visible = False
LblGastoIndirecto.Visible = False LblGastoIndirecto.Visible = False
divResponsable.Visible = False DivResponsable.Visible = False
End If End If
CargaCombos() CargaCombos()
@@ -238,7 +238,7 @@ Partial Class Inventarios_TraspasoAlmacen
End If End If
Else Else
If ChkTransitorio.Checked Then If ChkTransitorio.Checked Then
RegistraScript(" $('#DivGastoIndirecto').show(0); ") RegistraScript(" $('#DivGastoIndirecto').show(0); ")
DivResponsable.Visible = True DivResponsable.Visible = True
DivTransitorio2.Visible = True DivTransitorio2.Visible = True
@@ -437,11 +437,15 @@ Partial Class Inventarios_TraspasoAlmacen
'dtAlm.Merge(GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 2)) 'dtAlm.Merge(GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 2))
'Llena Almacen Destino, todos los almacenes destino, 'Llena Almacen Destino, todos los almacenes destino,
'Dim CveSubP As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo'")
'DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 4") 'DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo' AND CveSubProyecto = {0}", CveSubP))
DdlAlmacenDestino.DataBind() ''DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 4")
DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) 'DdlAlmacenDestino.DataBind()
'DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
CargaAlmacenDestino()
'Llena Almacen Transitorio 'Llena Almacen Transitorio
DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3) DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
@@ -813,19 +817,16 @@ Partial Class Inventarios_TraspasoAlmacen
#Region " GUARDAR " #Region " GUARDAR "
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
'If ChkEmitirTimbrado.Checked Then If ChkEmitirCartaPorte.Checked Then
If DdlChofer.SelectedValue.ToEntero <= 0 Then
' If DdlChofer.SelectedValue.ToEntero <= 0 Then Alert("Debe de seleccionar un chofer.", TipoMensaje.MsgAdvertencia)
' Alert("Debe de seleccionar un chofer") Exit Sub
' Exit Sub End If
' End If If DdlUnidadCamion.SelectedValue.ToEntero <= 0 Then
' If DdlUnidadCamion.SelectedValue.ToEntero <= 0 Then Alert("Debe de seleccionar una unidad.", TipoMensaje.MsgAdvertencia)
' Alert("Debe de seleccionar una unidad") Exit Sub
' Exit Sub End If
' End If End If
'End If
'VALIDA ALMACEN ORIGEN Y DESTINO 'VALIDA ALMACEN ORIGEN Y DESTINO
If DdlAlmacenOrigen.SelectedValue = DdlAlmacenDestino.SelectedValue Then If DdlAlmacenOrigen.SelectedValue = DdlAlmacenDestino.SelectedValue Then

24
RH/Personal.aspx.vb
View File

@@ -2390,18 +2390,18 @@ Partial Class RH_Personal
Private Sub CargaCombosBuzon() Private Sub CargaCombosBuzon()
Dim ObjClientes As New ClsClientes 'Dim ObjClientes As New ClsClientes
If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then 'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
DdlClienteBuzon.DataSource = ObjClientes.DtResultados ' DdlClienteBuzon.DataSource = ObjClientes.DtResultados
DdlClienteBuzon.DataSource = ObjClientes.DtResultados ' DdlClienteBuzon.DataSource = ObjClientes.DtResultados
DdlClienteBuzon.DataSource = ObjClientes.DtResultados ' DdlClienteBuzon.DataSource = ObjClientes.DtResultados
Else 'Else
DdlClienteBuzon.DataSource = Nothing ' DdlClienteBuzon.DataSource = Nothing
DdlClienteBuzon.DataSource = Nothing ' DdlClienteBuzon.DataSource = Nothing
DdlClienteBuzon.DataSource = Nothing ' DdlClienteBuzon.DataSource = Nothing
End If 'End If
ObjClientes.Dispose() 'ObjClientes.Dispose()
DdlClienteBuzon.DataBind() 'DdlClienteBuzon.DataBind()
Dim objRH As New ClsRH Dim objRH As New ClsRH

2
Ventas/PV.aspx.vb
View File

@@ -6820,7 +6820,7 @@ Partial Class PV
Private Sub CargaModelos() Private Sub CargaModelos()
Dim ObjGral As New ClsGenerales Dim ObjGral As New ClsGenerales
If ObjGral.ModelosAutosGet(UsuarioActual.CveEmpresa) Then If ObjGral.ModelosAutosGet(1, UsuarioActual.CveEmpresa) Then
DtModelosAuto = ObjGral.DtResultados DtModelosAuto = ObjGral.DtResultados
DdlModeloAuto.DataSource = DtModelosAuto DdlModeloAuto.DataSource = DtModelosAuto
End If End If

12
vwd.webinfo
View File

@@ -418,6 +418,18 @@