diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 3a56568cf..ce6ccabce 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -19493,7 +19493,7 @@ Partial Class Compras_Compras
Dim IdCtaContableRecepcionOCER = -1
Dim IdCtaContableRecepcionOCERME = -1
Dim IdCtaContableRecepcionOCERComplementaria = -1
- Dim Fecha As Date = Now
+ Dim Fecha As Date = TxtFecha.Text.ToDate
Dim CveProveedorInvOC As Integer = -1
Dim ProveedorNombre As String = ""
Dim SerieFolio As String = ""
@@ -19542,7 +19542,7 @@ Partial Class Compras_Compras
PUCompra = DrDiferencias("PUCompra").ToString.ToDecimal
PS = DrDiferencias("PS").ToString
- Fecha = Now
+ Fecha = TxtFecha.Text.ToDate
SerieFolio = $"OC: {DrDiferencias("FolioOC").ToString}"
CveProveedor = DrDiferencias("CveProveedor").ToString.ToEntero
ProveedorNombre = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {CveProveedor}").ToString
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index fa0be78b9..9cb9ddc3a 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -940,7 +940,7 @@ Partial Class Inventarios_TraspasoAlmacen
If dr IsNot Nothing Then
IdCuentaCostos = dr("IdCuentaCostos").ToString.ToEntero
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
End If
Contabilizable = False
diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx
index 83be5b74f..bc0290609 100644
--- a/TareasProgramadas/Tareas119.ashx
+++ b/TareasProgramadas/Tareas119.ashx
@@ -81,6 +81,27 @@ public class TareasJam : IHttpHandler
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)
{
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 worksheetAlmacenes = workbookClientes.Worksheets.Add("Almacenes");
+ var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes");
worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions()
{
ColumnHeaders = true,
StartRow = 0
});
- workbookClientes.Save(RutaAlmacenes);
+ workbookAlmacenes.Save(RutaAlmacenes);
var FInfoProductos = new FileInfo(RutaProductos);
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 6b4136efb..81a8d4702 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -423,7 +423,8 @@
-
+
+ <%--
@@ -431,6 +432,29 @@
+
+
+
+
+
+
+
+
+ --%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -443,12 +467,7 @@
-
-
-
-
-
-
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index e0ded8064..a6d91ab98 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -669,6 +669,7 @@ Partial Class Clientes
CreaDtPago()
RegistraScript("CargaHeader();")
+ CargaEstados()
If UsuarioActual.Empresa.CvePlataforma = 3 Then 'SI ES USUARIO GPS
TabFiscalContable.Visible = True
@@ -809,7 +810,7 @@ Partial Class Clientes
CreaDTSucursales()
CargaDocumentacionCliente()
- TxtPais.Text = "México"
+ 'TxtPais.Text = "México"
End If
If UsuarioActual.Empresa.CvePlataforma = 3 Then
@@ -906,6 +907,11 @@ Partial Class Clientes
#Region "C A R G A S"
+
+
+
+
+
Private Sub CreaDtPago()
DtPagos = New DataTable
DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
@@ -924,7 +930,36 @@ Partial Class Clientes
DdlClasificacion.DataBind()
DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
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
+
Private Sub CargaResponsables()
Dim Dt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("True", "Nombre")
DdlResponsable.DataSource = Dt.FiltraParametros("", "", {"CveUsuario", "Nombre"})
@@ -974,14 +1009,12 @@ Partial Class Clientes
DdlClienteSucursal.DataSource = ObjCliente.DtResultados
DdlClienteSucursalEnvio.DataSource = ObjCliente.DtResultados
End If
- End If
-
-
-
- If ObjCliente.GetEstados("-1") Then
- DdlEstadoSAT.DataSource = ObjCliente.DtResultados.Copy
- End If
-
+ End If
+
+
+
+
+
ObjCliente.Dispose()
DdlSucursalCliente.DataBind()
@@ -995,12 +1028,10 @@ Partial Class Clientes
DdlClienteSucursalEnvio.DataBind()
DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
- DdlClienteSucursalEnvio.SelectedValue = "-1"
-
- DdlEstadoSAT.DataBind()
- DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
- DdlEstadoSAT.SelectedValue = "-1"
-
+ DdlClienteSucursalEnvio.SelectedValue = "-1"
+
+
+
End Sub
Private Sub CargaGridRetenciones()
Dim ObjClientes As New ClsClientes
@@ -1175,8 +1206,10 @@ Partial Class Clientes
End If
- CargaCombosComercioExterior()
-
+ CargaCombosComercioExterior()
+
+
+
End Sub
Private Sub CargaSubProyectoss()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -1400,8 +1433,8 @@ Partial Class Clientes
TxtColonia.Text = ObjClientes.Colonia
TxtLocalidad.Text = ObjClientes.Localidad
TxtCiudad.Text = ObjClientes.Ciudad
- TxtEstado.Text = ObjClientes.Estado
- TxtPais.Text = ObjClientes.Pais
+ 'TxtEstado.Text = ObjClientes.Estado
+ 'TxtPais.Text = ObjClientes.Pais
TxtRFC.Text = ObjClientes.RFC
TxtCP.Text = ObjClientes.CP.ToString
TxtTelefono.Text = ObjClientes.Telefono
@@ -1525,8 +1558,12 @@ Partial Class Clientes
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
DdlEstado.Visible = True
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,
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,
@@ -2538,7 +2575,7 @@ Partial Class Clientes
NombreCliente = TxtNombre.Text.Trim()
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,
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,
@@ -10107,6 +10144,9 @@ Partial Class Clientes
End Sub
Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs)
CargaEventoBitacora()
- End Sub
+ End Sub
+ Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs)
+ CargaEstados(DdlSATPais.SelectedValue)
+ End Sub
End Class
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 539f72842..d8d8caf02 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1314,7 +1314,7 @@
-
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index cc1afcc10..9c27d444d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10347,18 +10347,33 @@ Partial Class Ventas
Next
- If ImporteConcepto12 < ImporteAcumulado91 Then
- 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, True, ImporteOtrosIngresos, Referencia, 211, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, ImporteME:=0, ImporteMX:=ImporteOtrosIngresos, CveSubProyecto:=CveSubProyectoContabilizar) Then
- ErrorPrepoliza = True
- End If
+ If ImporteConcepto12 <> ImporteAcumulado91 Then
+ Dim CveConceptoOtIngresos As Integer = 0
+ Dim IdCuentaContableOt As Integer = 0
+ Dim TipoMovtoOt As Boolean = False
+
+ If ImporteConcepto12 > ImporteAcumulado91 Then
+ IdCuentaContableOt = UsuarioActual.Empresa.Funcionalidad(559).ToEntero()
+ CveConceptoOtIngresos = 211
+ TipoMovtoOt = False
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
End If
+ 'Else
+ ' ErrorPrepoliza = True
+ '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
'ErrorPrepoliza = True
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
+ '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.ValorPolizaDescuadre > 0 Then
@@ -11365,13 +11386,6 @@ Partial Class Ventas
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
If NuevaFactura = 1 AndAlso CveDevolucion > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ant") Then
If Not ObjVentas.TraspasaVentasAplicadasAnt(ObjFactura.CveVenta, CveDevolucion, UsuarioActual.CveEmpresa) Then