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

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

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-06-29 16:01:18 -07:00
parent b6340b02e6 03bfaaaffd
commit 0f7967f1bf
7 changed files with 144 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Compras/Compras.aspx.vb
View File

@@ -19493,7 +19493,7 @@ Partial Class Compras_Compras
Dim IdCtaContableRecepcionOCER = -1 Dim IdCtaContableRecepcionOCER = -1
Dim IdCtaContableRecepcionOCERME = -1 Dim IdCtaContableRecepcionOCERME = -1
Dim IdCtaContableRecepcionOCERComplementaria = -1 Dim IdCtaContableRecepcionOCERComplementaria = -1
Dim Fecha As Date = Now Dim Fecha As Date = TxtFecha.Text.ToDate
Dim CveProveedorInvOC As Integer = -1 Dim CveProveedorInvOC As Integer = -1
Dim ProveedorNombre As String = "" Dim ProveedorNombre As String = ""
Dim SerieFolio As String = "" Dim SerieFolio As String = ""
@@ -19542,7 +19542,7 @@ Partial Class Compras_Compras
PUCompra = DrDiferencias("PUCompra").ToString.ToDecimal PUCompra = DrDiferencias("PUCompra").ToString.ToDecimal
PS = DrDiferencias("PS").ToString PS = DrDiferencias("PS").ToString
Fecha = Now Fecha = TxtFecha.Text.ToDate
SerieFolio = $"OC: {DrDiferencias("FolioOC").ToString}" SerieFolio = $"OC: {DrDiferencias("FolioOC").ToString}"
CveProveedor = DrDiferencias("CveProveedor").ToString.ToEntero CveProveedor = DrDiferencias("CveProveedor").ToString.ToEntero
ProveedorNombre = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {CveProveedor}").ToString ProveedorNombre = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {CveProveedor}").ToString

2
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -940,7 +940,7 @@ Partial Class Inventarios_TraspasoAlmacen
If dr IsNot Nothing Then If dr IsNot Nothing Then
IdCuentaCostos = dr("IdCuentaCostos").ToString.ToEntero IdCuentaCostos = dr("IdCuentaCostos").ToString.ToEntero
End If End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importe, TxtObservaciones.Text, 69, TxtObservaciones.Text, Fecha, IdCuentaCostos, -1, CveClasificacion:=tCveClasificacion, CveSubProyecto:=CveSubProyectoOrigen, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=-importe) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 69, TxtObservaciones.Text, Fecha, IdCuentaCostos, -1, CveClasificacion:=tCveClasificacion, CveSubProyecto:=CveSubProyectoOrigen, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=importe) Then
ErrorMovInv = True ErrorMovInv = True
End If End If
Contabilizable = False Contabilizable = False

25
TareasProgramadas/Tareas119.ashx
View File

@@ -81,6 +81,27 @@ public class TareasJam : IHttpHandler
ObjGenerales.Dispose(); ObjGenerales.Dispose();
DTProductos.Columns[0].ColumnName = "Código Producto Interno ";
DTProductos.Columns[1].ColumnName = "Nombre del Producto";
DTProductos.Columns[2].ColumnName = "Presentación";
DTProductos.AcceptChanges();
DTClientes.Columns[4].ColumnName = "address.countryId";
DTClientes.Columns[5].ColumnName = "address.stateId";
DTClientes.Columns[6].ColumnName = "address.city";
DTClientes.Columns[7].ColumnName = "address.street1";
DTClientes.Columns[8].ColumnName = "address.street2";
DTClientes.Columns[9].ColumnName = "address.postalCode";
DTClientes.Columns[9].ColumnName = "phone.intCode";
DTClientes.Columns[9].ColumnName = "phone.areaCode";
DTClientes.Columns[9].ColumnName = "phone.number";
DTClientes.Dispose();
DTVentas.Columns.RemoveAt(7);
DTVentas.AcceptChanges();
if (!ErrorProceso) if (!ErrorProceso)
{ {
string RutaProductos = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Productos{DateTime.Now.ToString("yyyyMMdd")}.xlsx"; string RutaProductos = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Productos{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
@@ -125,13 +146,13 @@ public class TareasJam : IHttpHandler
var workbookAlmacenes = new ExcelFile(); var workbookAlmacenes = new ExcelFile();
var worksheetAlmacenes = workbookClientes.Worksheets.Add("Almacenes"); var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes");
worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions() worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions()
{ {
ColumnHeaders = true, ColumnHeaders = true,
StartRow = 0 StartRow = 0
}); });
workbookClientes.Save(RutaAlmacenes); workbookAlmacenes.Save(RutaAlmacenes);
var FInfoProductos = new FileInfo(RutaProductos); var FInfoProductos = new FileInfo(RutaProductos);

33
Ventas/Clientes.aspx
View File

@@ -423,7 +423,8 @@
<label for="<%= TxtCiudad.ClientID.ToString()%>">Municipio/Delegación: </label> <label for="<%= TxtCiudad.ClientID.ToString()%>">Municipio/Delegación: </label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<%--<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtEstado" runat="server" CssClass="form-control" MaxLength="25"></asp:TextBox> <asp:TextBox ID="TxtEstado" runat="server" CssClass="form-control" MaxLength="25"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVEstado" runat="server" ControlToValidate="TxtEstado" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVEstado" runat="server" ControlToValidate="TxtEstado" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= TxtEstado.ClientID.ToString()%>">Estado:</label> <label for="<%= TxtEstado.ClientID.ToString()%>">Estado:</label>
@@ -431,6 +432,29 @@
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtPais" runat="server" CssClass="form-control" MaxLength="25"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVPais" runat="server" ControlToValidate="TxtPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''País''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= TxtPais.ClientID.ToString()%>">País:</label>
<i></i>
</div>
--%>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlSATPais" runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Value="MEX" Text="México"></asp:ListItem>
<asp:ListItem Value="USA" Text="USA"></asp:ListItem>
<asp:ListItem Value="CAN" Text="Canada"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidator19" runat="server" InitialValue="-1" ControlToValidate="DdlSATPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= DdlSATPais.ClientID.ToString()%>">Pais:</label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEstadoSAT" DataTextField="NombreEstado" DataValueField="CveSATEstado" runat="server" CssClass="form-control input-sm select2me"> <asp:DropDownList ID="DdlEstadoSAT" DataTextField="NombreEstado" DataValueField="CveSATEstado" runat="server" CssClass="form-control input-sm select2me">
@@ -443,12 +467,7 @@
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtPais" runat="server" CssClass="form-control" MaxLength="25"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVPais" runat="server" ControlToValidate="TxtPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''País''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= TxtPais.ClientID.ToString()%>">País:</label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright" runat="server" visible="False" id="dvZH"> <div class="form-group form-md-line-input input-iconright" runat="server" visible="False" id="dvZH">
<asp:DropDownList ID="DdlZonaHoraria" DataTextField="DisplayText" DataValueField="CveZonaHoraria" runat="server" CssClass="form-control input-sm select2me"> <asp:DropDownList ID="DdlZonaHoraria" DataTextField="DisplayText" DataValueField="CveZonaHoraria" runat="server" CssClass="form-control input-sm select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>

86
Ventas/Clientes.aspx.vb
View File

@@ -669,6 +669,7 @@ Partial Class Clientes
CreaDtPago() CreaDtPago()
RegistraScript("CargaHeader();") RegistraScript("CargaHeader();")
CargaEstados()
If UsuarioActual.Empresa.CvePlataforma = 3 Then 'SI ES USUARIO GPS If UsuarioActual.Empresa.CvePlataforma = 3 Then 'SI ES USUARIO GPS
TabFiscalContable.Visible = True TabFiscalContable.Visible = True
@@ -809,7 +810,7 @@ Partial Class Clientes
CreaDTSucursales() CreaDTSucursales()
CargaDocumentacionCliente() CargaDocumentacionCliente()
TxtPais.Text = "México" 'TxtPais.Text = "México"
End If End If
If UsuarioActual.Empresa.CvePlataforma = 3 Then If UsuarioActual.Empresa.CvePlataforma = 3 Then
@@ -906,6 +907,11 @@ Partial Class Clientes
#Region "C A R G A S" #Region "C A R G A S"
Private Sub CreaDtPago() Private Sub CreaDtPago()
DtPagos = New DataTable DtPagos = New DataTable
DtPagos.Columns.Add("CveTipoMovimiento", GetType(String)) DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
@@ -924,7 +930,36 @@ Partial Class Clientes
DdlClasificacion.DataBind() DdlClasificacion.DataBind()
DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
UpDatos.Update() UpDatos.Update()
End Sub
Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
DdlEstadoSAT.Items.Clear()
Dim ObjCliente As New ClsClientes
If ObjCliente.GetEstados(ClaveSATPais) Then
DdlEstadoSAT.DataSource = ObjCliente.DtResultados.Copy
End If
ObjCliente.Dispose()
DdlEstadoSAT.DataBind()
DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlEstadoSAT.SelectedValue = "-1"
UpDatos.Update()
End Sub End Sub
Private Sub CargaResponsables() Private Sub CargaResponsables()
Dim Dt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("True", "Nombre") Dim Dt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("True", "Nombre")
DdlResponsable.DataSource = Dt.FiltraParametros("", "", {"CveUsuario", "Nombre"}) DdlResponsable.DataSource = Dt.FiltraParametros("", "", {"CveUsuario", "Nombre"})
@@ -974,14 +1009,12 @@ Partial Class Clientes
DdlClienteSucursal.DataSource = ObjCliente.DtResultados DdlClienteSucursal.DataSource = ObjCliente.DtResultados
DdlClienteSucursalEnvio.DataSource = ObjCliente.DtResultados DdlClienteSucursalEnvio.DataSource = ObjCliente.DtResultados
End If End If
End If End If
If ObjCliente.GetEstados("-1") Then
DdlEstadoSAT.DataSource = ObjCliente.DtResultados.Copy
End If
ObjCliente.Dispose() ObjCliente.Dispose()
DdlSucursalCliente.DataBind() DdlSucursalCliente.DataBind()
@@ -995,12 +1028,10 @@ Partial Class Clientes
DdlClienteSucursalEnvio.DataBind() DdlClienteSucursalEnvio.DataBind()
DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClienteSucursalEnvio.SelectedValue = "-1" DdlClienteSucursalEnvio.SelectedValue = "-1"
DdlEstadoSAT.DataBind()
DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlEstadoSAT.SelectedValue = "-1"
End Sub End Sub
Private Sub CargaGridRetenciones() Private Sub CargaGridRetenciones()
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
@@ -1175,8 +1206,10 @@ Partial Class Clientes
End If End If
CargaCombosComercioExterior() CargaCombosComercioExterior()
End Sub End Sub
Private Sub CargaSubProyectoss() Private Sub CargaSubProyectoss()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -1400,8 +1433,8 @@ Partial Class Clientes
TxtColonia.Text = ObjClientes.Colonia TxtColonia.Text = ObjClientes.Colonia
TxtLocalidad.Text = ObjClientes.Localidad TxtLocalidad.Text = ObjClientes.Localidad
TxtCiudad.Text = ObjClientes.Ciudad TxtCiudad.Text = ObjClientes.Ciudad
TxtEstado.Text = ObjClientes.Estado 'TxtEstado.Text = ObjClientes.Estado
TxtPais.Text = ObjClientes.Pais 'TxtPais.Text = ObjClientes.Pais
TxtRFC.Text = ObjClientes.RFC TxtRFC.Text = ObjClientes.RFC
TxtCP.Text = ObjClientes.CP.ToString TxtCP.Text = ObjClientes.CP.ToString
TxtTelefono.Text = ObjClientes.Telefono TxtTelefono.Text = ObjClientes.Telefono
@@ -1525,8 +1558,12 @@ Partial Class Clientes
CargaEstado() CargaEstado()
DdlEstadoSAT.SelectedValueExist(ObjClientes.CveSATEstado) CargaEstados(ObjClientes.DtResultados(0)("SATPais").ToString)
DdlSATPais.SelectedValueExist(ObjClientes.DtResultados(0)("SATPais").ToString)
DdlEstadoSAT.SelectedValueExist(ObjClientes.CveSATEstado)
If DdlPais.SelectedValue.Contiene("151", "66", "40") Then If DdlPais.SelectedValue.Contiene("151", "66", "40") Then
DdlEstado.Visible = True DdlEstado.Visible = True
DdlEstado.SelectedValueExist(ObjClientes.CveEstado) DdlEstado.SelectedValueExist(ObjClientes.CveEstado)
@@ -2443,7 +2480,7 @@ Partial Class Clientes
If ObjClientes.AddCliente(TxtNombre.Text.Trim, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, TxtTelefono.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), If ObjClientes.AddCliente(TxtNombre.Text.Trim, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, DdlEstadoSAT.SelectedItem.Text.Trim, DdlSATPais.SelectedItem.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, TxtTelefono.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text.Trim, TxtGiro.Text.Trim, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble, TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text.Trim, TxtGiro.Text.Trim, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble,
TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero, TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero,
DiasPago, DdlTipoPago.SelectedValue, DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero, DiasPago, DdlTipoPago.SelectedValue, DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero,
@@ -2538,7 +2575,7 @@ Partial Class Clientes
NombreCliente = TxtNombre.Text.Trim() NombreCliente = TxtNombre.Text.Trim()
End If End If
If ObjClientes.UpdateCliente(NombreCliente, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, If ObjClientes.UpdateCliente(NombreCliente, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, DdlEstadoSAT.SelectedItem.Text.Trim, DdlSATPais.SelectedItem.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim,
TxtTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text, TxtGiro.Text, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked, TxtTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text, TxtGiro.Text, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked,
ChkEstado.Checked, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero, DiasPago, DdlTipoPago.SelectedValue, ChkEstado.Checked, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero, DiasPago, DdlTipoPago.SelectedValue,
DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero, DdlCtaContableAnticipos.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero, DdlCtaContableAnticipos.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero,
@@ -10107,6 +10144,9 @@ Partial Class Clientes
End Sub End Sub
Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs) Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs)
CargaEventoBitacora() CargaEventoBitacora()
End Sub End Sub
Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaEstados(DdlSATPais.SelectedValue)
End Sub
End Class End Class

2
Ventas/Ventas.aspx
View File

@@ -1314,7 +1314,7 @@
<Columns> <Columns>
<asp:TemplateField HeaderText="Código Único"> <asp:TemplateField HeaderText="Código Único">
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtCodigoUnico" runat="server" Text='<%# Eval("SerieLote") %>' /> <asp:TextBox ID="TxtCodigoUnico" runat="server" Text='<%# Eval("Serie") %>' />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>

42
Ventas/Ventas.aspx.vb
View File

@@ -10347,18 +10347,33 @@ Partial Class Ventas
Next Next
If ImporteConcepto12 < ImporteAcumulado91 Then If ImporteConcepto12 <> ImporteAcumulado91 Then
Dim ImporteOtrosIngresos As Decimal = ImporteConcepto12 - ImporteAcumulado91 Dim CveConceptoOtIngresos As Integer = 0
If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteOtrosIngresos, Referencia, 91, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=CveUltimaVenta, ImporteMX:=ImporteOtrosIngresos, ImporteME:=0, CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio) Then Dim IdCuentaContableOt As Integer = 0
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, ImporteOtrosIngresos, Referencia, 211, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, ImporteME:=0, ImporteMX:=ImporteOtrosIngresos, CveSubProyecto:=CveSubProyectoContabilizar) Then Dim TipoMovtoOt As Boolean = False
ErrorPrepoliza = True
End If If ImporteConcepto12 > ImporteAcumulado91 Then
IdCuentaContableOt = UsuarioActual.Empresa.Funcionalidad(559).ToEntero()
CveConceptoOtIngresos = 211
TipoMovtoOt = False
Else Else
IdCuentaContableOt = UsuarioActual.Empresa.IdCuentaOtrosIngresos
CveConceptoOtIngresos = 78
TipoMovtoOt = True
End If
Dim ImporteOtrosIngresos As Decimal = ImporteConcepto12 - ImporteAcumulado91
' If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteOtrosIngresos, Referencia, 91, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=CveUltimaVenta, ImporteMX:=ImporteOtrosIngresos, ImporteME:=0, CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio) Then
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovtoOt, ImporteOtrosIngresos, Referencia, CveConceptoOtIngresos, Concepto, FechaMovimiento, IdCuentaContableOt, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, ImporteME:=0, ImporteMX:=ImporteOtrosIngresos, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
'Else
' ErrorPrepoliza = True
'End If
End If End If
If ObjConta.ValidacionPrePolizaCuadre(ObjFactura.CvePrePoliza, 5) Then If Not ErrorPrepoliza AndAlso ObjConta.ValidacionPrePolizaCuadre(ObjFactura.CvePrePoliza, 5) Then
If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre > 0 Then
'ErrorPrepoliza = True 'ErrorPrepoliza = True
GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas") GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas")
@@ -11348,6 +11363,12 @@ Partial Class Ventas
End If End If
End If End If
'Simplificacion de PrePolizas
If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
If Not ObjConta.PrePolizaSimplificacion(ObjFactura.CvePrePoliza, UsuarioActual.CveEmpresa) Then
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
End If
End If
If ObjConta.ValidacionPrePolizaCuadre(ObjFactura.CvePrePoliza, 2) Then If ObjConta.ValidacionPrePolizaCuadre(ObjFactura.CvePrePoliza, 2) Then
If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre > 0 Then
@@ -11365,13 +11386,6 @@ Partial Class Ventas
End If End If
End If End If
'Simplificacion de PrePolizas
If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
If Not ObjConta.PrePolizaSimplificacion(ObjFactura.CvePrePoliza, UsuarioActual.CveEmpresa) Then
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
End If
End If
'EN CASO DE SER REFACTURACION DE ANTICIPO SE ACTUALIZAN LAS VENTAS APLICADAS HACIA EL NUEVO 'EN CASO DE SER REFACTURACION DE ANTICIPO SE ACTUALIZAN LAS VENTAS APLICADAS HACIA EL NUEVO
If NuevaFactura = 1 AndAlso CveDevolucion > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ant") Then If NuevaFactura = 1 AndAlso CveDevolucion > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ant") Then
If Not ObjVentas.TraspasaVentasAplicadasAnt(ObjFactura.CveVenta, CveDevolucion, UsuarioActual.CveEmpresa) Then If Not ObjVentas.TraspasaVentasAplicadasAnt(ObjFactura.CveVenta, CveDevolucion, UsuarioActual.CveEmpresa) Then