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
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.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("@PU", SqlDbType.Float).Value = PU
.Add("@IVA", SqlDbType.Float).Value = IVA
.Add("@IEPS", SqlDbType.Float).Value = IEPS
.Add("@ImporteRetIVA", SqlDbType.Float).Value = ImporteRetIVA
.Add("@ImporteRetISR", SqlDbType.Float).Value = ImporteRetISR
.Add("@PorcentajeIVA", SqlDbType.Float).Value = PorcentajeIVA
.Add("@PorcentajeIEPS", SqlDbType.Float).Value = PorcentajeIEPS
.Add("@PorcentajeRetIVA", SqlDbType.Float).Value = PorcentajeRetIVA
.Add("@PorcentajeRetISR", SqlDbType.Float).Value = PorcentajeRetISR
.Add("@Total", SqlDbType.Float).Value = Total
.Add("@PU", SqlDbType.Decimal).Value = PU
.Add("@IVA", SqlDbType.Decimal).Value = IVA
.Add("@IEPS", SqlDbType.Decimal).Value = IEPS
.Add("@Descuento", SqlDbType.Decimal).Value = Descuento
.Add("@ImporteRetIVA", SqlDbType.Decimal).Value = ImporteRetIVA
.Add("@ImporteRetISR", SqlDbType.Decimal).Value = ImporteRetISR
.Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
.Add("@PorcentajeIEPS", SqlDbType.Decimal).Value = PorcentajeIEPS
.Add("@PorcentajeRetIVA", SqlDbType.Decimal).Value = PorcentajeRetIVA
.Add("@PorcentajeRetISR", SqlDbType.Decimal).Value = PorcentajeRetISR
.Add("@Total", SqlDbType.Decimal).Value = Total
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
.Add("@Descuento", SqlDbType.Float).Value = Descuento
.Add("@TipoDescuento", SqlDbType.Int).Value = TipoDescuento
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.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
Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow()
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.AcceptChanges()
End If

6
Documentacion/TableroMaterialidad.aspx
View File

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

4
Inventarios/RepVentasXSurtir.aspx
View File

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

39
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -186,7 +186,7 @@ Partial Class Inventarios_TraspasoAlmacen
If UsuarioActual.CveEmpresa = 119 Then
divGastoIndirecto.Visible = False
LblGastoIndirecto.Visible = False
divResponsable.Visible = False
DivResponsable.Visible = False
End If
CargaCombos()
@@ -238,7 +238,7 @@ Partial Class Inventarios_TraspasoAlmacen
End If
Else
If ChkTransitorio.Checked Then
If ChkTransitorio.Checked Then
RegistraScript(" $('#DivGastoIndirecto').show(0); ")
DivResponsable.Visible = True
DivTransitorio2.Visible = True
@@ -437,11 +437,15 @@ Partial Class Inventarios_TraspasoAlmacen
'dtAlm.Merge(GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 2))
'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.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
'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.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 4")
'DdlAlmacenDestino.DataBind()
'DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
CargaAlmacenDestino()
'Llena Almacen Transitorio
DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
@@ -813,19 +817,16 @@ Partial Class Inventarios_TraspasoAlmacen
#Region " GUARDAR "
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
'If ChkEmitirTimbrado.Checked Then
' If DdlChofer.SelectedValue.ToEntero <= 0 Then
' Alert("Debe de seleccionar un chofer")
' Exit Sub
' End If
' If DdlUnidadCamion.SelectedValue.ToEntero <= 0 Then
' Alert("Debe de seleccionar una unidad")
' Exit Sub
' End If
'End If
If ChkEmitirCartaPorte.Checked Then
If DdlChofer.SelectedValue.ToEntero <= 0 Then
Alert("Debe de seleccionar un chofer.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If DdlUnidadCamion.SelectedValue.ToEntero <= 0 Then
Alert("Debe de seleccionar una unidad.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
'VALIDA ALMACEN ORIGEN Y DESTINO
If DdlAlmacenOrigen.SelectedValue = DdlAlmacenDestino.SelectedValue Then

24
RH/Personal.aspx.vb
View File

@@ -2390,18 +2390,18 @@ Partial Class RH_Personal
Private Sub CargaCombosBuzon()
Dim ObjClientes As New ClsClientes
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
Else
DdlClienteBuzon.DataSource = Nothing
DdlClienteBuzon.DataSource = Nothing
DdlClienteBuzon.DataSource = Nothing
End If
ObjClientes.Dispose()
DdlClienteBuzon.DataBind()
'Dim ObjClientes As New ClsClientes
'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
'Else
' DdlClienteBuzon.DataSource = Nothing
' DdlClienteBuzon.DataSource = Nothing
' DdlClienteBuzon.DataSource = Nothing
'End If
'ObjClientes.Dispose()
'DdlClienteBuzon.DataBind()
Dim objRH As New ClsRH

2
Ventas/PV.aspx.vb
View File

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

12
vwd.webinfo
View File

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