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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2019-08-27 11:51:41 -07:00
parent 37d276ae80 1294ba7b5a
commit e98333e436
33 changed files with 4143 additions and 3861 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
App_Code/ClsContabilidad.vb
View File

@@ -228,9 +228,9 @@ Public Class ClsContabilidad
Public Function AddPrePolizasNegativa(CvePrePoliza As Integer, CveUsuario As Integer, Concepto As String, CveEmpresa As Integer, Fecha As Date) As Boolean Public Function AddPrePolizasNegativa(CvePrePoliza As Integer, CveUsuario As Integer, Concepto As String, CveEmpresa As Integer, Fecha As Date) As Integer
Dim Retorno As Boolean = False Dim Retorno As Integer = -1
DataAdapter("PA_Conta_PrePolizasNegativaAdd") DataAdapter("PA_Conta_PrePolizasNegativaAdd")
@@ -240,11 +240,12 @@ Public Class ClsContabilidad
.Add("@Concepto", SqlDbType.VarChar).Value = Concepto .Add("@Concepto", SqlDbType.VarChar).Value = Concepto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Fecha", SqlDbType.Date).Value = Fecha .Add("@Fecha", SqlDbType.Date).Value = Fecha
.Add("@CvePrePolizaNueva", SqlDbType.Int).Direction = ParameterDirection.Output
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = SqlAdapter.SelectCommand.Parameters("@CvePrePolizaNueva").Value.ToString.ToEntero
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try

2
App_Code/Modelos.vb
View File

@@ -2746,7 +2746,7 @@ Namespace Modelos
End If End If
'ContPAQ El movimiento 1 es el de Venta 'ContPAQ El movimiento 1 es el de Venta
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And UsuarioActual.Empresa.UsaContabilidad = True And Not ErrorPrepoliza Then If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso Not ErrorPrepoliza Then
If idCuentaContabilizacion > 0 Then If idCuentaContabilizacion > 0 Then
If ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa, ObjConta:=objContPaqi) Then If ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa, ObjConta:=objContPaqi) Then
Else Else

2
Bancos/Devoluciones.aspx.cs
View File

@@ -467,7 +467,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
} }
//CONTABILIZA //CONTABILIZA
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad) if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals(""))
{ {
if (IDCtaContableDevolucion > 0 && IDCtaContableBancos > 0) if (IDCtaContableDevolucion > 0 && IDCtaContableBancos > 0)
{ {

6661
Bancos/IE.aspx.vb
View File

File diff suppressed because it is too large Load Diff

4
Bancos/PagoAcreedor.aspx.cs
View File

@@ -527,7 +527,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
} }
//CONTABILIZA //CONTABILIZA
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad) if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals(""))
{ {
if (IDCtaContableAcreedor > 0 && IDCtaContableBancos > 0) if (IDCtaContableAcreedor > 0 && IDCtaContableBancos > 0)
{ {
@@ -801,7 +801,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
} }
//CONTABILIZA //CONTABILIZA
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad) if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") )
{ {
if (IDCtaContableAcreedor > 0 && IDCtaContableBancos > 0) if (IDCtaContableAcreedor > 0 && IDCtaContableBancos > 0)
{ {

4
Bancos/PagoDeudor.aspx.cs
View File

@@ -447,7 +447,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1"); bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1");
if (UsuarioActual.CveEmpresa == 119) AutoConta = false; if (UsuarioActual.CveEmpresa == 119) AutoConta = false;
if (AutoConta && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad) if (AutoConta && MsgError.Equals(""))
{ {
//JJMQ:20190103: Cambio la siguiente linea porque esta validando siempre una complementaria aunque el movto sea dlls //JJMQ:20190103: Cambio la siguiente linea porque esta validando siempre una complementaria aunque el movto sea dlls
//if (IDCtaContableDeudorPrestamo > 0 && IDCtaContableBancosPrestamo > 0 && IDCtaContableBancosComplementariaPrestamo > 0 && IDCtaContableDeudorCompPrestamo > 0) //if (IDCtaContableDeudorPrestamo > 0 && IDCtaContableBancosPrestamo > 0 && IDCtaContableBancosComplementariaPrestamo > 0 && IDCtaContableDeudorCompPrestamo > 0)
@@ -838,7 +838,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1"); bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1");
if (UsuarioActual.CveEmpresa == 119) AutoConta = false; if (UsuarioActual.CveEmpresa == 119) AutoConta = false;
if (AutoConta && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad) if (AutoConta && MsgError.Equals(""))
{ {
if (IDCtaContableDeudor > 0 && IDCtaContableBancos > 0) if (IDCtaContableDeudor > 0 && IDCtaContableBancos > 0)
{ {

2
Bancos/PopIECompras.aspx.vb
View File

@@ -3090,7 +3090,7 @@ Partial Class Bancos_PopIECompras
End If End If
'Conta ContPAQ 'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" AndAlso UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If idCuentaContabilizacion > 0 Then If idCuentaContabilizacion > 0 Then
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
IdPoliza = ObjMov.ContaIdPoliza IdPoliza = ObjMov.ContaIdPoliza

2
Bancos/PopIEVentas.aspx.vb
View File

@@ -3390,7 +3390,7 @@ Partial Class Bancos_PopIEVentas
End If End If
'Conta ContPAQ 'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" AndAlso UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
If idCuentaContabilizacion > 0 Then If idCuentaContabilizacion > 0 Then
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then

4
Bancos/PrestamoPersonal.aspx.cs
View File

@@ -366,7 +366,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
} }
//CONTABILIZA //CONTABILIZA
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad) if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") )
{ {
if (IDCtaContablePrestamo > 0 && IDCtaContableBancos > 0) if (IDCtaContablePrestamo > 0 && IDCtaContableBancos > 0)
{ {
@@ -626,7 +626,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
} }
//CONTABILIZA //CONTABILIZA
if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad) if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") )
{ {
if (IDCtaContablePrestamo > 0 && IDCtaContableBancosPrestamo > 0) if (IDCtaContablePrestamo > 0 && IDCtaContableBancosPrestamo > 0)
{ {

2
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -1823,7 +1823,7 @@ Partial Class Bancos_ProveedoresAbonar
End If End If
'Conta ContPAQ 'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" And UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If idCuentaContabilizacion > 0 Then If idCuentaContabilizacion > 0 Then
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjConta) Then If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjConta) Then
' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion) ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)

2
Bancos/Transferencias.aspx.vb
View File

@@ -412,7 +412,7 @@ Partial Class Bancos_Transferencias
End If End If
'Conta ContPAQ 'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" AndAlso UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
If (IdCtaContableOrigen > 0 AndAlso IdCtaContableDestino > 0) OrElse (IdCtaContableDestino > 0 AndAlso Opcion = 1) Then If (IdCtaContableOrigen > 0 AndAlso IdCtaContableDestino > 0) OrElse (IdCtaContableDestino > 0 AndAlso Opcion = 1) Then
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha:=TxtFechaDocumento.Text) Then If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha:=TxtFechaDocumento.Text) Then

43
Compras/Compras.aspx.vb
View File

@@ -4225,6 +4225,12 @@ Partial Class Compras_Compras
Else Else
CveConceptoContableAlmacen = 225 CveConceptoContableAlmacen = 225
End If End If
'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen
ElseIf OCVinculada AndAlso Not (CveImportacion > 0 Or CveFlete > 0) AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
ElseIf (CveImportacion > 0 Or CveFlete > 0) AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
CveConceptoContableAlmacen = CveConceptoContableAlmacen
End If End If
End If End If
@@ -6228,15 +6234,13 @@ Partial Class Compras_Compras
If ContienePSNeteoBonif Then If ContienePSNeteoBonif Then
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal
importeMN = importeMovimiento * tipoCambioActual * Multiplicador importeMN = importeMovimiento * tipoCambioActual * Multiplicador
If importeMovimiento <> 0 Then Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
End If
Else
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
Else
ErrorPrepoliza = True
End If End If
End If End If
@@ -7005,7 +7009,7 @@ Partial Class Compras_Compras
End If End If
'Conta ContPAQ 'Conta ContPAQ
If ObjContaAC IsNot Nothing AndAlso Not ErrorPrepoliza AndAlso Not ErrorPrepolizaDescuadre AndAlso UsuarioActual.Empresa.UsaContabilidad Then If ObjContaAC IsNot Nothing AndAlso Not ErrorPrepoliza AndAlso Not ErrorPrepolizaDescuadre AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
If idCuentaContabilizacion > 0 Then If idCuentaContabilizacion > 0 Then
If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then
' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion) ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
@@ -8571,7 +8575,7 @@ Partial Class Compras_Compras
End If End If
'Conta ContPAQ 'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And ErrorMovtosCxP = 0 And UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso ErrorMovtosCxP = 0 Then
If idCuentaContabilizacion > 0 Then If idCuentaContabilizacion > 0 Then
If ObjConta.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then If ObjConta.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
alertaContabilizacion.AppendFormat("<a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={0}'>{1}<\a><br>", ObjConta.ContaIdPoliza, ObjConta.ContaFolio) alertaContabilizacion.AppendFormat("<a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={0}'>{1}<\a><br>", ObjConta.ContaIdPoliza, ObjConta.ContaFolio)
@@ -9737,18 +9741,21 @@ Partial Class Compras_Compras
ReceptorRFC = ValorXML(node, "RFC") ReceptorRFC = ValorXML(node, "RFC")
End If End If
node = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces) If UsuarioActual.CveEmpresa.Contiene(119) Then
If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then node = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
If ValorXML(node, "TipoRelacion").ToString.Contiene("04", "07") Then If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
Dim nodeDocumentosRelacionados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionado", Prefijo), namespaces) If ValorXML(node, "TipoRelacion").ToString.Contiene("04", "07") Then
For Each documento As XmlNode In nodeDocumentosRelacionados Dim nodeDocumentosRelacionados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionado", Prefijo), namespaces)
If documento.Attributes("UUID").Value <> "" Then For Each documento As XmlNode In nodeDocumentosRelacionados
ListaDocumentos.Add(documento.Attributes("UUID").Value) If documento.Attributes("UUID").Value <> "" Then
End If ListaDocumentos.Add(documento.Attributes("UUID").Value)
Next End If
Next
End If
End If End If
End If End If
node = XMLDoc.SelectSingleNode(String.Format("//{0}:Impuestos", Prefijo), namespaces) node = XMLDoc.SelectSingleNode(String.Format("//{0}:Impuestos", Prefijo), namespaces)
If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
Dim nodeRetenciones As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Impuestos/{0}:Retenciones/{0}:Retencion", Prefijo), namespaces) Dim nodeRetenciones As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Impuestos/{0}:Retenciones/{0}:Retencion", Prefijo), namespaces)

2
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -1295,7 +1295,7 @@ Partial Class Compras_ReembolsosComprobaciones
End If End If
'Conta ContPAQ AUTOMATICA 'Conta ContPAQ AUTOMATICA
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError.Trim = "" AndAlso UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError.Trim = "" Then
If CvePrePolizaIERegistrado > 0 Then If CvePrePolizaIERegistrado > 0 Then
If IdCtaPersonal > 0 Or DdlCajaChica.Visible Then If IdCtaPersonal > 0 Or DdlCajaChica.Visible Then
If IdCtaProveedor > 0 Then If IdCtaProveedor > 0 Then

2
Compras/RepNotasCredito.aspx.vb
View File

@@ -200,7 +200,7 @@ Partial Class Compras_RepNotasCredito
End If End If
End If End If
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" And UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
If MensajeAlert.ToString = "" Then If MensajeAlert.ToString = "" Then
MensajeAlert.AppendFormat("Los siguientes movimientos fueron saldados correctamente: <br/>") MensajeAlert.AppendFormat("Los siguientes movimientos fueron saldados correctamente: <br/>")

2
Compras/RepRembolsoComprobaciones.aspx.vb
View File

@@ -198,7 +198,7 @@ Partial Class Compras_RepRembolsoComprobaciones
Msg.AppendFormat("Se unificaron todas las compras con éxito") Msg.AppendFormat("Se unificaron todas las compras con éxito")
End If End If
If UsuarioActual.Empresa.UsaContabilidad AndAlso Not TieneError Then If UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" AndAlso Not TieneError Then
If ObjAC Is Nothing Then If ObjAC Is Nothing Then
TieneError = True TieneError = True
End If End If

756
Contabilidad/PopUpAuxiliar.aspx.vb
View File

@@ -1,371 +1,371 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports System.Data Imports System.Data
Partial Class PopUpAuxiliar Partial Class PopUpAuxiliar
Inherits ClsPaginas Inherits ClsPaginas
Private Property Tipo As String Private Property Tipo As String
Get Get
Return ViewState("Tipo").ToString Return ViewState("Tipo").ToString
End Get End Get
Set(value As String) Set(value As String)
ViewState("Tipo") = value ViewState("Tipo") = value
End Set End Set
End Property End Property
Private Property CveCliente As Integer Private Property CveCliente As Integer
Get Get
Return ViewState("CveCliente").ToString.ToEntero Return ViewState("CveCliente").ToString.ToEntero
End Get End Get
Set(value As Integer) Set(value As Integer)
ViewState("CveCliente") = value ViewState("CveCliente") = value
End Set End Set
End Property End Property
Private Property CveVenta As Integer Private Property CveVenta As Integer
Get Get
Return ViewState("CveVenta").ToString.ToEntero Return ViewState("CveVenta").ToString.ToEntero
End Get End Get
Set(value As Integer) Set(value As Integer)
ViewState("CveVenta") = value ViewState("CveVenta") = value
End Set End Set
End Property End Property
Private Property CveProveedor As Integer Private Property CveProveedor As Integer
Get Get
Return ViewState("CveProveedor").ToString.ToEntero Return ViewState("CveProveedor").ToString.ToEntero
End Get End Get
Set(value As Integer) Set(value As Integer)
ViewState("CveProveedor") = value ViewState("CveProveedor") = value
End Set End Set
End Property End Property
Private Property CveCompra As Integer Private Property CveCompra As Integer
Get Get
Return ViewState("CveCompra").ToString.ToEntero Return ViewState("CveCompra").ToString.ToEntero
End Get End Get
Set(value As Integer) Set(value As Integer)
ViewState("CveCompra") = value ViewState("CveCompra") = value
End Set End Set
End Property End Property
Private Property DTDatos As DataTable Private Property DTDatos As DataTable
Get Get
Return CType(ViewState("DTDatos"), DataTable) Return CType(ViewState("DTDatos"), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
ViewState("DTDatos") = value ViewState("DTDatos") = value
End Set End Set
End Property End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
CType(Me.Master, BaseMasterPage).EsPopup = True CType(Me.Master, BaseMasterPage).EsPopup = True
CType(Me.Master, BaseMasterPage).PopupWidth = 915 CType(Me.Master, BaseMasterPage).PopupWidth = 915
RegistraScript("$get('tdContenido').style.height='1000'") RegistraScript("$get('tdContenido').style.height='1000'")
Tipo = Request("Tipo") Tipo = Request("Tipo")
CveCliente = 0 CveCliente = 0
CveProveedor = 0 CveProveedor = 0
CargaDatos() CargaDatos()
End If End If
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
GVAuxiliar.Columns(10).Visible = UsuarioActual.TienePermisoProceso(94) GVAuxiliar.Columns(10).Visible = UsuarioActual.TienePermisoProceso(94)
'GVAuxiliar.Columns(11).Visible = UsuarioActual.TienePermisoProceso(94) 'GVAuxiliar.Columns(11).Visible = UsuarioActual.TienePermisoProceso(94)
GVAuxiliar.Columns(12).Visible = UsuarioActual.TienePermisoProceso(94) GVAuxiliar.Columns(12).Visible = UsuarioActual.TienePermisoProceso(94)
Select Case Tipo Select Case Tipo
Case "CxCClientes" Case "CxCClientes"
CveCliente = Request("CveCliente").ToEntero CveCliente = Request("CveCliente").ToEntero
CveVenta = Request("CveVenta").ToEntero CveVenta = Request("CveVenta").ToEntero
CargaAuxiliarClienteCxC(CveCliente, CveVenta) CargaAuxiliarClienteCxC(CveCliente, CveVenta)
LtlTipo1.Text = "Cuentas por Cobrar" LtlTipo1.Text = "Cuentas por Cobrar"
LtlTipo2.Text = "Folio de la Venta" LtlTipo2.Text = "Folio de la Venta"
LtlTipo3.Text = "Fecha de la Venta" LtlTipo3.Text = "Fecha de la Venta"
Case "AnticiposClientes" Case "AnticiposClientes"
CveCliente = Request("CveCliente").ToEntero CveCliente = Request("CveCliente").ToEntero
CveVenta = Request("CveVenta").ToEntero CveVenta = Request("CveVenta").ToEntero
CargaAuxiliarClienteAnticipos(CveCliente, CveVenta) CargaAuxiliarClienteAnticipos(CveCliente, CveVenta)
LtlTipo1.Text = "Anticipo de Clientes" LtlTipo1.Text = "Anticipo de Clientes"
LtlTipo2.Text = "Folio de la Venta" LtlTipo2.Text = "Folio de la Venta"
LtlTipo3.Text = "Fecha de la Venta" LtlTipo3.Text = "Fecha de la Venta"
Case "CxPProveedor" Case "CxPProveedor"
CveProveedor = Request("CveProveedor").ToEntero CveProveedor = Request("CveProveedor").ToEntero
CveCompra = Request("CveCompra").ToEntero CveCompra = Request("CveCompra").ToEntero
CargaAuxiliarProveedor(CveProveedor, CveCompra) CargaAuxiliarProveedor(CveProveedor, CveCompra)
LtlTipo1.Text = "Cuentas por Pagar" LtlTipo1.Text = "Cuentas por Pagar"
LtlTipo2.Text = "Folio de la Compra" LtlTipo2.Text = "Folio de la Compra"
LtlTipo3.Text = "Fecha de la Compra" LtlTipo3.Text = "Fecha de la Compra"
End Select End Select
UpDatos.Update() UpDatos.Update()
End Sub End Sub
Private Sub CargaAuxiliarClienteCxC(CveCliente As Integer, CveVenta As Integer) Private Sub CargaAuxiliarClienteCxC(CveCliente As Integer, CveVenta As Integer)
Dim ObjMovtos As New ClsMovimientos() Dim ObjMovtos As New ClsMovimientos()
If ObjMovtos.GetCxCClienteAuxiliar(CveCliente, CveVenta) Then If ObjMovtos.GetCxCClienteAuxiliar(CveCliente, CveVenta) Then
DTDatos = ObjMovtos.DtResultados DTDatos = ObjMovtos.DtResultados
GVAuxiliar.DataSource = ObjMovtos.DtResultados GVAuxiliar.DataSource = ObjMovtos.DtResultados
If ObjMovtos.DtResultados.Rows.Count > 0 Then If ObjMovtos.DtResultados.Rows.Count > 0 Then
LtlFechaVenta.Text = ObjMovtos.DtResultados.Rows(1)("FechaVenta").ToString.ToDate.ToShortDateString() LtlFechaVenta.Text = ObjMovtos.DtResultados.Rows(1)("FechaVenta").ToString.ToDate.ToShortDateString()
LtlFolio.Text = ObjMovtos.DtResultados.Rows(1)("Folio").ToString LtlFolio.Text = ObjMovtos.DtResultados.Rows(1)("Folio").ToString
LtlImporte.Text = ObjMovtos.DtResultados.Rows(1)("Total").ToString.FormatoNumero(2) LtlImporte.Text = ObjMovtos.DtResultados.Rows(1)("Total").ToString.FormatoNumero(2)
LtlSaldo.Text = ObjMovtos.DtResultados.Rows(1)("Saldo").ToString.FormatoNumero(2) LtlSaldo.Text = ObjMovtos.DtResultados.Rows(1)("Saldo").ToString.FormatoNumero(2)
End If End If
Else Else
GVAuxiliar.DataSource = Nothing GVAuxiliar.DataSource = Nothing
End If End If
ObjMovtos.Dispose() ObjMovtos.Dispose()
GVAuxiliar.DataBind() GVAuxiliar.DataBind()
End Sub End Sub
Private Sub CargaAuxiliarClienteAnticipos(CveCliente As Integer, CveVenta As Integer) Private Sub CargaAuxiliarClienteAnticipos(CveCliente As Integer, CveVenta As Integer)
Dim ObjMovtos As New ClsMovimientos() Dim ObjMovtos As New ClsMovimientos()
If ObjMovtos.GetAnticiposClienteAuxiliar(CveCliente, CveVenta) Then If ObjMovtos.GetAnticiposClienteAuxiliar(CveCliente, CveVenta) Then
DTDatos = ObjMovtos.DtResultados DTDatos = ObjMovtos.DtResultados
GVAuxiliar.DataSource = ObjMovtos.DtResultados GVAuxiliar.DataSource = ObjMovtos.DtResultados
If ObjMovtos.DtResultados.Rows.Count > 0 Then If ObjMovtos.DtResultados.Rows.Count > 0 Then
LtlFechaVenta.Text = ObjMovtos.DtResultados.Rows(1)("FechaVenta").ToString.ToDate.ToShortDateString() LtlFechaVenta.Text = ObjMovtos.DtResultados.Rows(1)("FechaVenta").ToString.ToDate.ToShortDateString()
LtlFolio.Text = ObjMovtos.DtResultados.Rows(1)("Folio").ToString LtlFolio.Text = ObjMovtos.DtResultados.Rows(1)("Folio").ToString
'LtlImporte.Text = ObjMovtos.DtResultados.Rows(1)("Total").ToString.FormatoNumero(2) 'LtlImporte.Text = ObjMovtos.DtResultados.Rows(1)("Total").ToString.FormatoNumero(2)
'LtlSaldo.Text = ObjMovtos.DtResultados.Rows(1)("Saldo").ToString.FormatoNumero(2) 'LtlSaldo.Text = ObjMovtos.DtResultados.Rows(1)("Saldo").ToString.FormatoNumero(2)
End If End If
Else Else
GVAuxiliar.DataSource = Nothing GVAuxiliar.DataSource = Nothing
End If End If
ObjMovtos.Dispose() ObjMovtos.Dispose()
GVAuxiliar.DataBind() GVAuxiliar.DataBind()
End Sub End Sub
Private Sub CargaAuxiliarProveedor(CveProveedor As Integer, CveCompra As Integer) Private Sub CargaAuxiliarProveedor(CveProveedor As Integer, CveCompra As Integer)
Dim ObjMovtos As New ClsContabilidad() Dim ObjMovtos As New ClsContabilidad()
If ObjMovtos.GetProveedorAuxiliar(CveProveedor, CveCompra) Then If ObjMovtos.GetProveedorAuxiliar(CveProveedor, CveCompra) Then
DTDatos = ObjMovtos.DtResultados DTDatos = ObjMovtos.DtResultados
GVAuxiliar.DataSource = ObjMovtos.DtResultados GVAuxiliar.DataSource = ObjMovtos.DtResultados
If ObjMovtos.DtResultados.Rows.Count > 0 Then If ObjMovtos.DtResultados.Rows.Count > 0 Then
LtlFechaVenta.Text = ObjMovtos.DtResultados.Rows(1)("FechaVenta").ToString.ToDate.ToShortDateString() LtlFechaVenta.Text = ObjMovtos.DtResultados.Rows(1)("FechaVenta").ToString.ToDate.ToShortDateString()
LtlFolio.Text = ObjMovtos.DtResultados.Rows(1)("Folio").ToString LtlFolio.Text = ObjMovtos.DtResultados.Rows(1)("Folio").ToString
LtlImporte.Text = ObjMovtos.DtResultados.Rows(1)("Total").ToString.FormatoNumero(2) LtlImporte.Text = ObjMovtos.DtResultados.Rows(1)("Total").ToString.FormatoNumero(2)
LtlSaldo.Text = ObjMovtos.DtResultados.Rows(1)("Saldo").ToString.FormatoNumero(2) LtlSaldo.Text = ObjMovtos.DtResultados.Rows(1)("Saldo").ToString.FormatoNumero(2)
End If End If
Else Else
GVAuxiliar.DataSource = Nothing GVAuxiliar.DataSource = Nothing
End If End If
ObjMovtos.Dispose() ObjMovtos.Dispose()
GVAuxiliar.DataBind() GVAuxiliar.DataBind()
End Sub End Sub
Protected Sub GVAuxiliar_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAuxiliar.RowDataBound Protected Sub GVAuxiliar_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAuxiliar.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.RowIndex = 0 Then If e.Row.RowIndex = 0 Then
e.Row.BackColor = Drawing.Color.LightGray e.Row.BackColor = Drawing.Color.LightGray
e.Row.FCLiteral("LtlFechaMovto").Text = "Totales:&nbsp;" e.Row.FCLiteral("LtlFechaMovto").Text = "Totales:&nbsp;"
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(0).ColumnSpan = 2 e.Row.Cells(0).ColumnSpan = 2
e.Row.Cells(1).Visible = False e.Row.Cells(1).Visible = False
e.Row.Cells(4).ColumnSpan = 3 e.Row.Cells(4).ColumnSpan = 3
e.Row.Cells(5).Visible = False e.Row.Cells(5).Visible = False
e.Row.Cells(6).Visible = False e.Row.Cells(6).Visible = False
e.Row.Cells(7).Visible = False e.Row.Cells(7).Visible = False
e.Row.Cells(8).Visible = False e.Row.Cells(8).Visible = False
e.Row.Cells(12).Visible = False e.Row.Cells(12).Visible = False
ElseIf e.Row.RowIndex = 1 Then ElseIf e.Row.RowIndex = 1 Then
e.Row.Cells(0).Width = Unit.Pixel(95) e.Row.Cells(0).Width = Unit.Pixel(95)
e.Row.Cells(1).Width = Unit.Pixel(180) e.Row.Cells(1).Width = Unit.Pixel(180)
e.Row.Cells(2).Width = Unit.Pixel(80) e.Row.Cells(2).Width = Unit.Pixel(80)
e.Row.Cells(3).Width = Unit.Pixel(80) e.Row.Cells(3).Width = Unit.Pixel(80)
e.Row.Cells(4).Width = Unit.Pixel(83) e.Row.Cells(4).Width = Unit.Pixel(83)
e.Row.Cells(5).Width = Unit.Pixel(93) e.Row.Cells(5).Width = Unit.Pixel(93)
e.Row.Cells(6).Width = Unit.Pixel(85) e.Row.Cells(6).Width = Unit.Pixel(85)
e.Row.Cells(7).Width = Unit.Pixel(95) e.Row.Cells(7).Width = Unit.Pixel(95)
e.Row.Cells(8).Width = Unit.Pixel(70) e.Row.Cells(8).Width = Unit.Pixel(70)
End If End If
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Right e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Left
If e.Row.FCLiteral("LtlContabilizado").Text = "Si" Then If e.Row.FCLiteral("LtlContabilizado").Text = "Si" Then
Dim Liga As String = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">", e.Row.DBCampo("IdPoliza")) Dim Liga As String = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">", e.Row.DBCampo("IdPoliza"))
e.Row.FCLiteral("LtlPoliza").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("Poliza")) e.Row.FCLiteral("LtlPoliza").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("Poliza"))
End If End If
If e.Row.DBCampo("CveConceptoContable").ToEntero.Contiene(2) AndAlso e.Row.DBCampo("CvePersonal").ToEntero > 0 Then If e.Row.DBCampo("CveConceptoContable").ToEntero.Contiene(2) AndAlso e.Row.DBCampo("CvePersonal").ToEntero > 0 Then
Dim Liga As String = String.Format("<a class=""Texto"" href=""/RH/Personal.aspx?CvePersonal={0}"">", e.Row.DBCampo("CvePersonal")) Dim Liga As String = String.Format("<a class=""Texto"" href=""/RH/Personal.aspx?CvePersonal={0}"">", e.Row.DBCampo("CvePersonal"))
e.Row.FCLiteral("LtlConcepto").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("ConceptoContable")) e.Row.FCLiteral("LtlConcepto").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("ConceptoContable"))
End If End If
If e.Row.DBCampo("TipoReferencia").ToEntero = 1 Then If e.Row.DBCampo("TipoReferencia").ToEntero = 1 Then
e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Bancos/IE.aspx?CveIE={e.Row.DBCampo("CveReferencia").ToEntero}" e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Bancos/IE.aspx?CveIE={e.Row.DBCampo("CveReferencia").ToEntero}"
'If e.Row.DBCampo("CveReferencia").ToEntero > 0 Then 'If e.Row.DBCampo("CveReferencia").ToEntero > 0 Then
' e.Row.Cells(10).Text = "" ' e.Row.Cells(10).Text = ""
'End If 'End If
ElseIf e.Row.DBCampo("TipoReferencia").ToEntero = 2 Then ElseIf e.Row.DBCampo("TipoReferencia").ToEntero = 2 Then
Select Case Tipo Select Case Tipo
Case "CxCClientes" Case "CxCClientes"
e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveReferencia").ToEntero}" e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveReferencia").ToEntero}"
Case "CxPProveedor" Case "CxPProveedor"
e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveReferencia").ToEntero}" e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveReferencia").ToEntero}"
End Select End Select
End If End If
'If e.Row.DBCampo("CveConceptoContable").ToEntero.Contiene(272) AndAlso e.Row.DBCampo("CveCompraAmortizacion").ToEntero > 0 Then 'If e.Row.DBCampo("CveConceptoContable").ToEntero.Contiene(272) AndAlso e.Row.DBCampo("CveCompraAmortizacion").ToEntero > 0 Then
' Dim Liga As String = String.Format("<a class=""Texto"" href=""/Compras/Compras.aspx?CveCompra={0}"">", e.Row.DBCampo("CveCompraAmortizacion")) ' Dim Liga As String = String.Format("<a class=""Texto"" href=""/Compras/Compras.aspx?CveCompra={0}"">", e.Row.DBCampo("CveCompraAmortizacion"))
' e.Row.FCLiteral("LtlConcepto").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("ConceptoContable")) ' e.Row.FCLiteral("LtlConcepto").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("ConceptoContable"))
'End If 'End If
If e.Row.DBCampo("CveConceptoContable").ToEntero.Contiene(275) AndAlso e.Row.DBCampo("CveVenta").ToEntero > 0 Then If e.Row.DBCampo("CveConceptoContable").ToEntero.Contiene(275) AndAlso e.Row.DBCampo("CveVenta").ToEntero > 0 Then
e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveVenta").ToEntero}" e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveVenta").ToEntero}"
'Dim Liga As String = String.Format("<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">", e.Row.DBCampo("CveVenta")) 'Dim Liga As String = String.Format("<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">", e.Row.DBCampo("CveVenta"))
'e.Row.FCLiteral("LtlConcepto").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("ConceptoContable")) 'e.Row.FCLiteral("LtlConcepto").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("ConceptoContable"))
End If End If
End If End If
End Sub End Sub
Protected Sub GvDatos_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GVAuxiliar.RowDeleting Protected Sub GvDatos_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GVAuxiliar.RowDeleting
Dim ObjContPaq As ClsContPAQi = Nothing Dim ObjContPaq As ClsContPAQi = Nothing
Dim Conta As New ClsContabilidad() Dim Conta As New ClsContabilidad()
Conta.IniciaTransacSQL() Conta.IniciaTransacSQL()
Dim ClavePrePoliza = GVAuxiliar.Rows(e.RowIndex).DataKey("CvePrePolizaOriginal").ToEntero Dim ClavePrePoliza = GVAuxiliar.Rows(e.RowIndex).DataKey("CvePrePolizaOriginal").ToEntero
Dim IdPoliza = GVAuxiliar.Rows(e.RowIndex).DataKey("IdPoliza").ToEntero Dim IdPoliza = GVAuxiliar.Rows(e.RowIndex).DataKey("IdPoliza").ToEntero
Dim TieneError = False Dim TieneError = False
If Not TieneError Then If Not TieneError Then
If Not Conta.UpdatePrePolizasDetalleBloquear(ClavePrePoliza, False) Then If Not Conta.UpdatePrePolizasDetalleBloquear(ClavePrePoliza, False) Then
TieneError = True TieneError = True
End If End If
End If End If
If Not Conta.RemovePrePolizas(ClavePrePoliza, UsuarioActual.CveEmpresa) Then If Not Conta.RemovePrePolizas(ClavePrePoliza, UsuarioActual.CveEmpresa) Then
TieneError = True TieneError = True
End If End If
If Conta.ValidacionPrePolizaCuadre(ClavePrePoliza, -1) Then If Conta.ValidacionPrePolizaCuadre(ClavePrePoliza, -1) Then
If Conta.ValorPolizaDescuadre > 0 Then If Conta.ValorPolizaDescuadre > 0 Then
TieneError = True TieneError = True
End If End If
End If End If
If Not TieneError Then If Not TieneError Then
If IdPoliza > 0 Then If IdPoliza > 0 Then
If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then
ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa) ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
ObjContPaq.IniciaTransacSQL() ObjContPaq.IniciaTransacSQL()
If Not ObjContPaq.RemovePoliza(IdPoliza) Then If Not ObjContPaq.RemovePoliza(IdPoliza) Then
TieneError = True TieneError = True
End If End If
End If End If
End If End If
End If End If
If Not TieneError Then If Not TieneError Then
Alert("Movimiento Eliminado", TipoMensaje.MsgInformacion, "window.opener.location.reload(); window.close();") Alert("Movimiento Eliminado", TipoMensaje.MsgInformacion, "window.opener.location.reload(); window.close();")
If ObjContPaq IsNot Nothing Then ObjContPaq.Commit() If ObjContPaq IsNot Nothing Then ObjContPaq.Commit()
Conta.Commit() Conta.Commit()
Else Else
If ObjContPaq IsNot Nothing Then ObjContPaq.RollBack() If ObjContPaq IsNot Nothing Then ObjContPaq.RollBack()
Conta.RollBack() Conta.RollBack()
End If End If
If ObjContPaq IsNot Nothing Then ObjContPaq.Dispose() If ObjContPaq IsNot Nothing Then ObjContPaq.Dispose()
Conta.Dispose() Conta.Dispose()
CargaDatos() CargaDatos()
End Sub End Sub
Private Sub GVAuxiliar_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GVAuxiliar.RowUpdating Private Sub GVAuxiliar_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GVAuxiliar.RowUpdating
Dim CvePrePoliza As Integer Dim CvePrePoliza As Integer
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
ObjConta.IniciaTransacSQL() ObjConta.IniciaTransacSQL()
Dim CvePlantillaPoliza As Integer = 0 Dim CvePlantillaPoliza As Integer = 0
Dim Importe As Decimal Dim Importe As Decimal
Dim MsgError As String = "" Dim MsgError As String = ""
If GVAuxiliar.Rows(e.RowIndex).DataKey("Cargo").ToDecimal > GVAuxiliar.Rows(e.RowIndex).DataKey("Abono").ToDecimal Then If GVAuxiliar.Rows(e.RowIndex).DataKey("Cargo").ToDecimal > GVAuxiliar.Rows(e.RowIndex).DataKey("Abono").ToDecimal Then
Importe = GVAuxiliar.Rows(e.RowIndex).DataKey("Cargo").ToDecimal Importe = GVAuxiliar.Rows(e.RowIndex).DataKey("Cargo").ToDecimal
Else Else
Importe = GVAuxiliar.Rows(e.RowIndex).DataKey("Abono").ToDecimal Importe = GVAuxiliar.Rows(e.RowIndex).DataKey("Abono").ToDecimal
End If End If
If CveCliente > 0 Then CvePlantillaPoliza = 11 If CveCliente > 0 Then CvePlantillaPoliza = 11
If CveProveedor > 0 Then CvePlantillaPoliza = 2 If CveProveedor > 0 Then CvePlantillaPoliza = 2
CvePrePoliza = ObjConta.AddPrePolizas("Contabilidad/PopUpAuxiliar", CvePlantillaPoliza, Importe, Importe, 1, Now, "Cancelacion de Pago", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CvePrePoliza = ObjConta.AddPrePolizas("Contabilidad/PopUpAuxiliar", CvePlantillaPoliza, Importe, Importe, 1, Now, "Cancelacion de Pago", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CvePlantillaPoliza = 2 Then If CvePlantillaPoliza = 2 Then
If Not ObjConta.CancelarPagoCompraConAnticipo(CvePrePoliza, CveCompra, GVAuxiliar.Rows(e.RowIndex).DataKey("CveReferencia").ToEntero) Then If Not ObjConta.CancelarPagoCompraConAnticipo(CvePrePoliza, CveCompra, GVAuxiliar.Rows(e.RowIndex).DataKey("CveReferencia").ToEntero) Then
MsgError = "Ocurrió un error al cancelar el pago de la compra" MsgError = "Ocurrió un error al cancelar el pago de la compra"
End If End If
End If End If
If CvePlantillaPoliza = 11 Then If CvePlantillaPoliza = 11 Then
If Not ObjConta.CancelarPagoVentaConAnticipo(CvePrePoliza, CveVenta, GVAuxiliar.Rows(e.RowIndex).DataKey("CveReferencia").ToEntero) Then If Not ObjConta.CancelarPagoVentaConAnticipo(CvePrePoliza, CveVenta, GVAuxiliar.Rows(e.RowIndex).DataKey("CveReferencia").ToEntero) Then
MsgError = "Ocurrió un error al cancelar el pago de la venta" MsgError = "Ocurrió un error al cancelar el pago de la venta"
End If End If
End If End If
If MsgError = "" Then If MsgError = "" Then
ObjConta.Commit() ObjConta.Commit()
Alert("El movimiento se canceló exitosamente.") Alert("El movimiento se canceló exitosamente.")
Else Else
ObjConta.RollBack() ObjConta.RollBack()
Alert(MsgError, TipoMensaje.MsgError) Alert(MsgError, TipoMensaje.MsgError)
End If End If
ObjConta.Dispose() ObjConta.Dispose()
End Sub End Sub
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkPagosClientesBancosExcel.Click Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkPagosClientesBancosExcel.Click
GenerarPDF("Excel") GenerarPDF("Excel")
End Sub End Sub
Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LnkPagosClientesBancosPDF.Click Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LnkPagosClientesBancosPDF.Click
GenerarPDF() GenerarPDF()
End Sub End Sub
Private Sub GenerarPDF(Optional Formato As String = "PDF") Private Sub GenerarPDF(Optional Formato As String = "PDF")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If DTDatos IsNot Nothing And DTDatos.Rows.Count > 0 Then If DTDatos IsNot Nothing And DTDatos.Rows.Count > 0 Then
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Tipo", LtlTipo1.Text)) params.Add(New ReportParameter("Tipo", LtlTipo1.Text))
params.Add(New ReportParameter("Folio", LtlFolio.Text)) params.Add(New ReportParameter("Folio", LtlFolio.Text))
params.Add(New ReportParameter("Fecha", LtlFechaVenta.Text)) params.Add(New ReportParameter("Fecha", LtlFechaVenta.Text))
params.Add(New ReportParameter("Importe", LtlImporte.Text)) params.Add(New ReportParameter("Importe", LtlImporte.Text))
params.Add(New ReportParameter("Saldo", LtlSaldo.Text)) params.Add(New ReportParameter("Saldo", LtlSaldo.Text))
If Imagen.Exists Then If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri)) params.Add(New ReportParameter("LogoPath", logouri))
Else Else
params.Add(New ReportParameter("LogoPath", "")) params.Add(New ReportParameter("LogoPath", ""))
End If End If
ImprimirPDF("Empresas\Grales\Formatos\RepAuxiliarContable.rdlc", DTDatos, params, "RepAuxiliarContable_" & LtlFolio.Text, Formato:=Formato) ImprimirPDF("Empresas\Grales\Formatos\RepAuxiliarContable.rdlc", DTDatos, params, "RepAuxiliarContable_" & LtlFolio.Text, Formato:=Formato)
Else Else
Alert("No se encontró información suficiente.", TipoMensaje.MsgAdvertencia) Alert("No se encontró información suficiente.", TipoMensaje.MsgAdvertencia)
End If End If
End Sub End Sub
Property CvePrePolizaNegativa As Integer Property CvePrePolizaNegativa As Integer
@@ -390,23 +390,37 @@ Partial Class PopUpAuxiliar
Dim TieneError As Boolean = False Dim TieneError As Boolean = False
ObjContabilidad.IniciaTransacSQL() ObjContabilidad.IniciaTransacSQL()
If ObjContabilidad.AddPrePolizasNegativa(CvePrePoliza, UsuarioActual.CveUsuario, TxtConceptoCancelacion.Text, UsuarioActual.CveEmpresa, TxtFechaCancelacion.Text.ToDate) Then Dim CvePrePolizaNueva As Integer = ObjContabilidad.AddPrePolizasNegativa(CvePrePoliza, UsuarioActual.CveUsuario, TxtConceptoCancelacion.Text, UsuarioActual.CveEmpresa, TxtFechaCancelacion.Text.ToDate)
Alert("Se agrego polzia negativa correctamente.")
Else If Not CvePrePolizaNueva > 0 Then
TieneError = True TieneError = True
End If End If
If TieneError Then If Not TieneError Then
ObjContabilidad.RollBack()
Else
ObjContabilidad.Commit() ObjContabilidad.Commit()
Dim Str As New StringBuilder
Str.Append("Se agrego la póliza de cancelación correctamente.<br/>")
RegistraScript(" $('#DivCancelar').modal('hide'); ") RegistraScript(" $('#DivCancelar').modal('hide'); ")
CargaDatos() If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
If ObjContabilidad.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
Str.AppendFormat("<a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", ObjContabilidad.ContaIdPoliza)
End If
End If
Alert(Str.ToString)
Else
ObjContabilidad.RollBack()
End If End If
ObjContabilidad.Dispose()
ObjContabilidad.Dispose()
CargaDatos()
End Sub End Sub
@@ -424,4 +438,4 @@ Partial Class PopUpAuxiliar
End Class End Class

4
CxC/RepCxC.aspx.vb
View File

@@ -694,7 +694,7 @@ Partial Class RepCxC
Dim Registro = If(DdlUsuario.SelectedValue = "-1", "", $"&emsp;<b>Registró:</b>&nbsp;{DdlUsuario.SelectedItem.Text}") Dim Registro = If(DdlUsuario.SelectedValue = "-1", "", $"&emsp;<b>Registró:</b>&nbsp;{DdlUsuario.SelectedItem.Text}")
Dim Responsable = If(DdlResponsable.SelectedValue = "-1", "", $"&emsp;<b>Responsable:</b>&nbsp;{DdlResponsable.SelectedItem.Text}") Dim Responsable = If(DdlResponsable.SelectedValue = "-1", "", $"&emsp;<b>Responsable:</b>&nbsp;{DdlResponsable.SelectedItem.Text}")
Dim EstatusCob = If(DdlCobranzaEstatus.SelectedValue = "-1", "", $"&emsp;<b>Estatus Cobranza:</b>&nbsp;{DdlCobranzaEstatus.SelectedItem.Text}") Dim EstatusCob = If(DdlCobranzaEstatus.SelectedValue = "-1", "", $"&emsp;<b>Estatus Cobranza:</b>&nbsp;{DdlCobranzaEstatus.SelectedItem.Text}")
'Dim CorteA As String = If(txtCorteA.Text = "31/12/2018", "", $"&emsp;<b>Corte A:</b>&nbsp;{txtCorteA.Text}") Dim CorteA As String = If(txtCorteA.Text = "31/12/2019", "", $"&emsp;<b>Corte A:</b>&nbsp;{txtCorteA.Text}")
Dim EstatusCli = If(DdlEstatusCliente.SelectedValue = "-1", "", $"&emsp;<b>Clientes:</b>&nbsp;{DdlEstatusCliente.SelectedItem.Text}") Dim EstatusCli = If(DdlEstatusCliente.SelectedValue = "-1", "", $"&emsp;<b>Clientes:</b>&nbsp;{DdlEstatusCliente.SelectedItem.Text}")
Dim ClasificacionCli = If(DdlClienteClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación Cliente:</b>&nbsp;{DdlClienteClasificacion.SelectedItem.Text}") Dim ClasificacionCli = If(DdlClienteClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación Cliente:</b>&nbsp;{DdlClienteClasificacion.SelectedItem.Text}")
@@ -725,7 +725,7 @@ Partial Class RepCxC
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Grupo", DdlGrupo.SelectedItem.Text)) params.Add(New ReportParameter("Grupo", DdlGrupo.SelectedItem.Text))
params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{EstatusCli}{ClasificacionCli}")) params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{EstatusCli}{ClasificacionCli}{CorteA}"))
params.Add(New ReportParameter("TituloReporte", TituloReporte)) params.Add(New ReportParameter("TituloReporte", TituloReporte))
params.Add(New ReportParameter("CantColumnas", CantidadColumnas.ToString)) params.Add(New ReportParameter("CantColumnas", CantidadColumnas.ToString))

4
CxC/RepCxCDetalle.aspx.vb
View File

@@ -833,7 +833,7 @@ Partial Class RepCxCDetalle
Dim Registro = If(DdlUsuario.SelectedValue = "-1", "", $"&emsp;<b>Registró:</b>&nbsp;{DdlUsuario.SelectedItem.Text}") Dim Registro = If(DdlUsuario.SelectedValue = "-1", "", $"&emsp;<b>Registró:</b>&nbsp;{DdlUsuario.SelectedItem.Text}")
Dim Responsable = If(DdlResponsable.SelectedValue = "-1", "", $"&emsp;<b>Responsable:</b>&nbsp;{DdlResponsable.SelectedItem.Text}") Dim Responsable = If(DdlResponsable.SelectedValue = "-1", "", $"&emsp;<b>Responsable:</b>&nbsp;{DdlResponsable.SelectedItem.Text}")
Dim EstatusCob = If(DdlCobranzaEstatusFiltro.SelectedValue = "-1", "", $"&emsp;<b>Estatus Cobranza:</b>&nbsp;{DdlCobranzaEstatusFiltro.SelectedItem.Text}") Dim EstatusCob = If(DdlCobranzaEstatusFiltro.SelectedValue = "-1", "", $"&emsp;<b>Estatus Cobranza:</b>&nbsp;{DdlCobranzaEstatusFiltro.SelectedItem.Text}")
'Dim CorteA As String = If(txtCorteA.Text = "31/12/2018", "", $"&emsp;<b>Corte A:</b>&nbsp;{txtCorteA.Text}") Dim CorteA As String = If(txtCorteA.Text = "31/12/2019", "", $"&emsp;<b>Corte A:</b>&nbsp;{txtCorteA.Text}")
Dim ClasificacionCli = If(DdlClienteClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación Cliente:</b>&nbsp;{DdlClienteClasificacion.SelectedItem.Text}") Dim ClasificacionCli = If(DdlClienteClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación Cliente:</b>&nbsp;{DdlClienteClasificacion.SelectedItem.Text}")
Dim TituloReporte As String = "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE" Dim TituloReporte As String = "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE"
@@ -850,7 +850,7 @@ Partial Class RepCxCDetalle
params.Add(New ReportParameter("FechaFin", FechaF)) params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{ClasificacionCli}")) params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{ClasificacionCli}{CorteA}"))
params.Add(New ReportParameter("TituloReporte", TituloReporte)) params.Add(New ReportParameter("TituloReporte", TituloReporte))
If Imagen.Exists Then If Imagen.Exists Then

2
Empresas/144/Formatos/Factura.rdlc
View File

@@ -1209,7 +1209,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value> ). Valor recibido a mi (nuestra) entera satisfacción. La falta de pago de éste documento a su vencimiento dará derecho a Soluciones en Telemedición JAR SA de CV o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a </Value> <Value> ). Valor recibido a mi (nuestra) entera satisfacción. La falta de pago de éste documento a su vencimiento dará derecho a PAOLA CASTILLO VALENZUELA o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a </Value>
<Style> <Style>
<FontStyle>Normal</FontStyle> <FontStyle>Normal</FontStyle>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>

122
Empresas/Grales/Formatos/RepProductosServiciosDetalle.rdlc
View File

@@ -456,7 +456,7 @@
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight> <FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight>
<Color>=iif(Fields!CveVenta.Value= "", "White", "Black")</Color> <Color>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","White","#67809F"), "Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -468,7 +468,7 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=iif(Fields!CveVenta.Value = "", "#67809F", "Transparent")</BackgroundColor> <BackgroundColor>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","#67809F","#cccccc"), "Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -490,7 +490,7 @@
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight> <FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight>
<Format>dd/MM/yyyy</Format> <Format>dd/MM/yyyy</Format>
<Color>=iif(Fields!CveVenta.Value= "", "White", "Black")</Color> <Color>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","White","#67809F"), "Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -504,7 +504,7 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=iif(Fields!CveVenta.Value = "", "#67809F", "Transparent")</BackgroundColor> <BackgroundColor>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","#67809F","#cccccc"), "Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -525,7 +525,7 @@
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight> <FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight>
<Color>=iif(Fields!CveVenta.Value= "", "White", "Black")</Color> <Color>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","White","#67809F"), "Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -537,7 +537,7 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=iif(Fields!CveVenta.Value = "", "#67809F", "Transparent")</BackgroundColor> <BackgroundColor>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","#67809F","#cccccc"), "Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -555,11 +555,11 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Fields!Nombre.Value</Value> <Value>=IIf(Fields!Nombre.Value = "", IIf(Fields!Gpo.Value = "", Fields!Moneda.Value, Fields!Gpo.Value), Fields!Nombre.Value)</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight> <FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight>
<Color>=iif(Fields!CveVenta.Value= "", "White", "Black")</Color> <Color>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","White","#67809F"), "Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -571,13 +571,14 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=iif(Fields!CveVenta.Value = "", "#67809F", "Transparent")</BackgroundColor> <BackgroundColor>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","#67809F","#cccccc"), "Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -592,7 +593,7 @@
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight> <FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight>
<Color>=iif(Fields!CveVenta.Value= "", "White", "Black")</Color> <Color>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","White","#67809F"), "Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -606,7 +607,7 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=iif(Fields!CveVenta.Value = "", "#67809F", "Transparent")</BackgroundColor> <BackgroundColor>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","#67809F","#cccccc"), "Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -629,7 +630,7 @@
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight> <FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight>
<Format>f2</Format> <Format>f2</Format>
<Color>=iif(Fields!CveVenta.Value= "", "White", "Black")</Color> <Color>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","White","#67809F"), "Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -641,7 +642,7 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=iif(Fields!CveVenta.Value = "", "#67809F", "Transparent")</BackgroundColor> <BackgroundColor>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","#67809F","#cccccc"), "Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -664,7 +665,7 @@
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight> <FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight>
<Format>#,0.00;- #,0.00;'-'</Format> <Format>#,0.00;- #,0.00;'-'</Format>
<Color>=iif(Fields!CveVenta.Value= "", "White", "Black")</Color> <Color>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","White","#67809F"), "Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -678,7 +679,7 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=iif(Fields!CveVenta.Value = "", "#67809F", "Transparent")</BackgroundColor> <BackgroundColor>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","#67809F","#cccccc"), "Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -701,7 +702,7 @@
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight> <FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight>
<Format>#,0.00;- #,0.00;'-'</Format> <Format>#,0.00;- #,0.00;'-'</Format>
<Color>=iif(Fields!CveVenta.Value= "", "White", "Black")</Color> <Color>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","White","#67809F"), "Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -715,7 +716,7 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=iif(Fields!CveVenta.Value = "", "#67809F", "Transparent")</BackgroundColor> <BackgroundColor>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","#67809F","#cccccc"), "Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -737,7 +738,7 @@
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight> <FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight>
<Format>#,0.00;-#,0.00;'-'</Format> <Format>#,0.00;-#,0.00;'-'</Format>
<Color>=iif(Fields!CveVenta.Value= "", "White", "Black")</Color> <Color>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","White","#67809F"), "Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -751,7 +752,7 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=iif(Fields!CveVenta.Value = "", "#67809F", "Transparent")</BackgroundColor> <BackgroundColor>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","#67809F","#cccccc"), "Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -773,7 +774,7 @@
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight> <FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight>
<Format>#,0.00;- #,0.00;'-'</Format> <Format>#,0.00;- #,0.00;'-'</Format>
<Color>=iif(Fields!CveVenta.Value= "", "White", "Black")</Color> <Color>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","White","#67809F"), "Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -787,7 +788,7 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=iif(Fields!CveVenta.Value = "", "#67809F", "Transparent")</BackgroundColor> <BackgroundColor>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","#67809F","#cccccc"), "Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -810,7 +811,7 @@
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight> <FontWeight>=iif(Fields!CveVenta.Value = "", "Bold", "Normal")</FontWeight>
<Format>#,0.00;-#,0.00;'-'</Format> <Format>#,0.00;-#,0.00;'-'</Format>
<Color>=iif(Fields!CveVenta.Value= "", "White", "Black")</Color> <Color>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","White","#67809F"), "Black")</Color>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -824,7 +825,7 @@
<Border> <Border>
<Style>None</Style> <Style>None</Style>
</Border> </Border>
<BackgroundColor>=iif(Fields!CveVenta.Value = "", "#67809F", "Transparent")</BackgroundColor> <BackgroundColor>=iif(Fields!CveVenta.Value = "",IIf(Fields!Gpo.Value = "","#67809F","#cccccc"), "Transparent")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight> <PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop> <PaddingTop>2pt</PaddingTop>
@@ -896,14 +897,16 @@
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style /> <Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName> <rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.18521cm</Top> <Top>0.18521cm</Top>
<Left>2.8349cm</Left> <Left>3.37444cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>12.60299cm</Width> <Width>21.20747cm</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -949,9 +952,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>1.10271cm</Top> <Top>1.10271cm</Top>
<Left>8.17404cm</Left> <Left>9.22743cm</Left>
<Height>0.52945cm</Height> <Height>0.52945cm</Height>
<Width>10.36447cm</Width> <Width>10.12635cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -1018,7 +1021,7 @@
</Style> </Style>
</PageHeader> </PageHeader>
<PageFooter> <PageFooter>
<Height>0.58209cm</Height> <Height>1.04773cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage> <PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage> <PrintOnLastPage>true</PrintOnLastPage>
<ReportItems> <ReportItems>
@@ -1140,9 +1143,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName> <rd:DefaultName>Textbox10</rd:DefaultName>
<Top>0.0829cm</Top> <Top>0.0829cm</Top>
<Left>9.84544cm</Left> <Left>10.83183cm</Left>
<Height>0.38981cm</Height> <Height>0.38981cm</Height>
<Width>2.92333cm</Width> <Width>2.91804cm</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -1161,22 +1164,56 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Parameters!FechaImpresion.Value</Value> <Value>=Globals!ExecutionTime</Value>
<Style>
<FontSize>9pt</FontSize>
<Format>g</Format>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox11</rd:DefaultName>
<Top>0.0829cm</Top>
<Left>13.56466cm</Left>
<Height>0.38981cm</Height>
<Width>6.47703cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox14">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>IMPRESO EN SIG, Rep. Productos Servicios</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
<Format>D</Format>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style /> <Style />
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox11</rd:DefaultName> <rd:DefaultName>Textbox9</rd:DefaultName>
<Top>0.0829cm</Top> <Top>0.50799cm</Top>
<Left>12.75466cm</Left> <Left>0.06614cm</Left>
<Height>0.38981cm</Height> <Height>0.38981cm</Height>
<Width>4.32745cm</Width> <Width>6.69369cm</Width>
<ZIndex>4</ZIndex> <ZIndex>5</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -1272,6 +1309,14 @@
<DataField>Nombre</DataField> <DataField>Nombre</DataField>
<rd:TypeName>System.String</rd:TypeName> <rd:TypeName>System.String</rd:TypeName>
</Field> </Field>
<Field Name="Gpo">
<DataField>Gpo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Moneda">
<DataField>Moneda</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Codigo"> <Field Name="Codigo">
<DataField>Codigo</DataField> <DataField>Codigo</DataField>
<rd:TypeName>System.String</rd:TypeName> <rd:TypeName>System.String</rd:TypeName>
@@ -1331,6 +1376,7 @@
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
</ReportParameters> </ReportParameters>
<Language>es-MX</Language>
<rd:ReportUnitType>Cm</rd:ReportUnitType> <rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID> <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>
</Report> </Report>

160
General/SaldosIniciales.aspx.vb
View File

@@ -5,6 +5,8 @@ Imports System.Data
Imports Extensiones Imports Extensiones
Imports System.Xml Imports System.Xml
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports GemBox.Spreadsheet
Partial Class General_SaldosIniciales Partial Class General_SaldosIniciales
Inherits ClsPaginas Inherits ClsPaginas
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -25,44 +27,46 @@ Partial Class General_SaldosIniciales
Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String) Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
Dim dt As New DataTable Dim dt As New DataTable
Dim Conexion As Odbc.OdbcConnection = Nothing ' Conexion As Odbc.OdbcConnection = Nothing
Dim ErrorArchivo = False Dim ErrorArchivo = False
Dim ErrorExcel = False Dim ErrorExcel = False
Dim strConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + Ruta + FileName + ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1;"""
Dim objDbFactory As Common.DbProviderFactory = Common.DbProviderFactories.GetFactory("System.Data.OleDb") dt = ReadExcelFile(Ruta + FileName, True)
Dim objDbAdapter As Common.DbDataAdapter = objDbFactory.CreateDataAdapter() 'Dim strConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + Ruta + FileName + ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1;"""
Dim objDbConnection As Common.DbConnection = objDbFactory.CreateConnection() 'Dim objDbFactory As Common.DbProviderFactory = Common.DbProviderFactories.GetFactory("System.Data.OleDb")
objDbConnection.ConnectionString = strConnString 'Dim objDbAdapter As Common.DbDataAdapter = objDbFactory.CreateDataAdapter()
objDbConnection.Open() 'Dim objDbConnection As Common.DbConnection = objDbFactory.CreateConnection()
Dim objSheetNames As DataTable = objDbConnection.GetSchema("Tables") 'objDbConnection.ConnectionString = strConnString
Dim HojaExcel As String = objSheetNames.FiltroPrimeroValor("TABLE_NAME") 'objDbConnection.Open()
Try 'Dim objSheetNames As DataTable = objDbConnection.GetSchema("Tables")
Select Case Tipo 'Dim HojaExcel As String = objSheetNames.FiltroPrimeroValor("TABLE_NAME")
Case "CSV" 'Try
Conexion = New Odbc.OdbcConnection("Driver={Microsoft Access Text Driver (*.txt, *.csv)};Dbq=" + Ruta + ";Extensions=asc,csv,tab,txt;") ' Select Case Tipo
Conexion.Open() ' Case "CSV"
Dim cmd = Conexion.CreateCommand() ' Conexion = New Odbc.OdbcConnection("Driver={Microsoft Access Text Driver (*.txt, *.csv)};Dbq=" + Ruta + ";Extensions=asc,csv,tab,txt;")
cmd.CommandType = CommandType.Text ' Conexion.Open()
cmd.CommandText = $"SELECT * FROM [{FileName}]" ' Dim cmd = Conexion.CreateCommand()
Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) ' cmd.CommandType = CommandType.Text
DataAdapter.Fill(dt) ' cmd.CommandText = $"SELECT * FROM [{FileName}]"
Case "EXCEL" ' Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") ' DataAdapter.Fill(dt)
Conexion.Open() ' Case "EXCEL"
Dim cmd = Conexion.CreateCommand() ' Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
cmd.CommandType = CommandType.Text ' Conexion.Open()
cmd.CommandText = $"SELECT * FROM [{HojaExcel}]" ' Dim cmd = Conexion.CreateCommand()
Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) ' cmd.CommandType = CommandType.Text
DataAdapter.Fill(dt) ' cmd.CommandText = $"SELECT * FROM [{HojaExcel}]"
Case Else ' Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError) ' DataAdapter.Fill(dt)
Exit Sub ' Case Else
End Select ' Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
Catch ex As Exception ' Exit Sub
ErrorArchivo = True ' End Select
OnError("Ocurrio un error al leer el archivo <br/>" & ex.Message, ex) 'Catch ex As Exception
End Try ' ErrorArchivo = True
Conexion.Close() ' OnError("Ocurrio un error al leer el archivo <br/>" & ex.Message, ex)
'End Try
'Conexion.Close()
If Not ErrorArchivo Then If Not ErrorArchivo Then
If RblFormato.SelectedValue = "1" Or RblFormato.SelectedValue = "2" Then If RblFormato.SelectedValue = "1" Or RblFormato.SelectedValue = "2" Then
If Not dt.Columns(0).ColumnName = "Codigo" Then If Not dt.Columns(0).ColumnName = "Codigo" Then
@@ -1523,57 +1527,69 @@ Partial Class General_SaldosIniciales
ElseIf RblFormato.SelectedValue = "12" Then ElseIf RblFormato.SelectedValue = "12" Then
Dim ObjMovimientos As New ClsInventarios Dim ObjMovimientos As New ClsInventarios
ObjMovimientos.IniciaTransacSQL() ObjMovimientos.IniciaTransacSQL()
Dim OcurrioError As Boolean = False
Dim ProductosServiciosRef As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
Dim AlmacenRef As DataTable = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
Dim contadorMovimientos As Integer = 0 Dim contadorMovimientos As Integer = 0
Dim listadoMovimientos As String = "" Dim listadoMovimientos As String = ""
Dim mensajeError As String = ""
Try Try
For Each almacenSinRepetir As DataRow In dt.FiltraParametros("", DistinctColumns:={"Almacen"}).Rows For Each almacenSinRepetir As DataRow In dt.FiltraParametros("", DistinctColumns:={"Almacen"}).Rows
Dim almacenActual As String = almacenSinRepetir("Almacen").ToString Dim almacenActual As String = almacenSinRepetir("Almacen").ToString
Dim CveAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero 'Dim CveAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero
Dim CveAlmacen As Integer = AlmacenRef.FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero
Dim movimientoCabecera As Integer = ObjMovimientos.AddMovimiento(CveAlmacen, 1, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1) Dim movimientoCabecera As Integer = ObjMovimientos.AddMovimiento(CveAlmacen, 1, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
listadoMovimientos += $"movimiento con folio <a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={movimientoCabecera}' target='_blank' style='color:blue'>{ObjMovimientos.Folio}</a><br/>" listadoMovimientos += $"movimiento con folio <a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={movimientoCabecera}' target='_blank' style='color:blue'>{ObjMovimientos.Folio}</a><br/>"
If CveAlmacen > 0 Then If CveAlmacen > 0 Then
contadorMovimientos += 1 contadorMovimientos += 1
For Each nuevaEntrada As DataRow In dt.FiltraParametros($"Almacen = '{almacenActual}'").Rows For Each nuevaEntrada As DataRow In dt.FiltraParametros($"Almacen = '{almacenActual}'").Rows
Dim CvePS As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", $"Codigo = '{nuevaEntrada("CodigoPS")}'").ToEntero Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS")}' AND CveEmpresa = {UsuarioActual.CveEmpresa}")
Dim CveUM As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"Codigo = '{nuevaEntrada("CodigoPS")}'").ToEntero
Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero
Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero
If CvePS > 0 Then If CvePS > 0 Then
If CveUM > 0 Then If CveUM > 0 Then
Dim Cantidad As Decimal = nuevaEntrada("Existencia").ToString.ToDecimal Dim Cantidad As Decimal = nuevaEntrada("Existencia").ToString.ToDecimal
Dim Valor As Decimal = nuevaEntrada("Valor").ToString.ToDecimal Dim Valor As Decimal = nuevaEntrada("Valor").ToString.ToDecimal
If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, (Valor / Cantidad), -1, -1) Then If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, (Valor / Cantidad), -1, -1) Then
OcurrioError = True mensajeError = "No se logró generar el detalle del movimiento"
Throw New Exception()
End If End If
Else Else
OcurrioError = True mensajeError = $"La unidad de medida no se reconoce para el producto servicio:{nuevaEntrada("CodigoPS")}"
Throw New Exception()
End If End If
Else Else
OcurrioError = True mensajeError = $"No se encontró el producto o servicio con código ""{nuevaEntrada("CodigoPS")}"""
Throw New Exception()
End If End If
Next Next
Else Else
OcurrioError = True mensajeError = $"No se encontró el almacén con nombre ""{almacenActual}"""
'alert amacén no existe Throw New Exception()
Exit For Exit For
End If End If
Next Next
Catch ex As Exception Catch ex As Exception
OcurrioError = True If mensajeError = "" Then
mensajeError = "Error técnico, informar a soporte"
End If
ObjMovimientos.RollBack() ObjMovimientos.RollBack()
End Try End Try
If Not OcurrioError Then If mensajeError = "" Then
ObjMovimientos.Commit() ObjMovimientos.Commit()
Alert($"Se cargaron correctamente {contadorMovimientos} movimientos<br/><br/>{listadoMovimientos}") Alert($"Se cargaron correctamente {contadorMovimientos} movimientos<br/><br/>{listadoMovimientos}")
Else Else
Alert("Ocurrió un error al cargar las existencias", TipoMensaje.MsgError) Alert(mensajeError, TipoMensaje.MsgError)
ObjMovimientos.RollBack() ObjMovimientos.RollBack()
End If End If
ObjMovimientos.Dispose() ObjMovimientos.Dispose()
ProductosServiciosRef.Dispose()
AlmacenRef.Dispose()
End If End If
End If End If
@@ -1618,5 +1634,51 @@ Partial Class General_SaldosIniciales
End If End If
End Sub End Sub
Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
Dim unnamed As Integer = 0
Dim cols As Integer
Dim columns As String()
Dim curRow As Integer = 0
Dim curCol As Integer = 0
Dim dataTable As DataTable = New DataTable()
Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0)
For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
If firstRowHasHeaders Then
If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString())
Else
dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
End If
curRow = 1
Else
dataTable.Columns.Add("Column " & (cols + 1))
End If
Next
While curRow < worksheet.Rows.Count
columns = New String(cols - 1) {}
For curCol = 0 To cols - 1
If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
columns(curCol) = ""
Else
columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
End If
Next
dataTable.Rows.Add(columns)
curRow += 1
End While
Return dataTable
End Function
End Class End Class

7
Inventarios/RepAlmacenCompras.aspx
View File

@@ -95,15 +95,18 @@
<td> <td>
<asp:GridView ID="GvDatos" runat="server" data-sort="true" AutoGenerateColumns="False" EmptyDataText="No hay movimientos." ToolTip="Listado de Movimientos" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None"> <asp:GridView ID="GvDatos" runat="server" data-sort="true" AutoGenerateColumns="False" EmptyDataText="No hay movimientos." ToolTip="Listado de Movimientos" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
<Columns> <Columns>
<asp:HyperLinkField HeaderText="Folio Almacen" DataTextField="FolioAlmacen" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" ItemStyle-Width="7.5%" /> <asp:HyperLinkField HeaderText="Folio Almacen" DataTextField="FolioAlmacen" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField HeaderText="Almacen" DataField="Almacen" ItemStyle-Width="20%" /> <asp:BoundField HeaderText="Almacen" DataField="Almacen" ItemStyle-Width="20%" />
<asp:BoundField HeaderText="Fecha Movto" DataField="FechaMovto" DataFormatString="{0:d}" ItemStyle-Width="7.5%" /> <asp:BoundField HeaderText="Fecha Movto" DataField="FechaMovto" DataFormatString="{0:d}" ItemStyle-Width="7.5%" />
<asp:HyperLinkField HeaderText="Folio Compra" DataTextField="FolioCompra" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" ItemStyle-Width="7.5%" /> <asp:BoundField HeaderText="Total" DataField="TotalAlmacen" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
<asp:HyperLinkField HeaderText="Folio Compra" DataTextField="FolioCompra" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%" /> <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%" />
<asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="20%" /> <asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="20%" />
<asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" /> <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
<asp:BoundField HeaderText="Descuentos" DataField="Descuentos" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
<asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" /> <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
<asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" /> <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
<asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</td> </td>

7
Inventarios/RepAlmacenCompras.aspx.vb
View File

@@ -43,12 +43,15 @@ Partial Class Inventarios_RepAlmacenCompras
#Region " CARGA VALORES INICIALES " #Region " CARGA VALORES INICIALES "
Private Sub CargaPermisos() Private Sub CargaPermisos()
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
GvDatos.Columns(6).Visible = TienePermisoImportes GvDatos.Columns(3).Visible = TienePermisoImportes
GvDatos.Columns(7).Visible = TienePermisoImportes GvDatos.Columns(7).Visible = TienePermisoImportes
GvDatos.Columns(8).Visible = TienePermisoImportes GvDatos.Columns(8).Visible = TienePermisoImportes
GvDatos.Columns(9).Visible = TienePermisoImportes
GvDatos.Columns(10).Visible = TienePermisoImportes
GvDatos.Columns(11).Visible = TienePermisoImportes
If TienePermisoImportes Then If TienePermisoImportes Then
CabeceraAlmacen.Width = "35%" CabeceraAlmacen.Width = "36%"
CabeceraCompra.Width = "65%" CabeceraCompra.Width = "65%"
Else Else
CabeceraAlmacen.Width = "45%" CabeceraAlmacen.Width = "45%"

1
Planeacion/CatFolios.aspx.vb
View File

@@ -70,6 +70,7 @@ Partial Class CatFolios
DdlTipoDocto.Items.Insert(31, New ListItem("Proveedor", "Pro")) DdlTipoDocto.Items.Insert(31, New ListItem("Proveedor", "Pro"))
DdlTipoDocto.Items.Insert(32, New ListItem("Acreedor", "Acr")) DdlTipoDocto.Items.Insert(32, New ListItem("Acreedor", "Acr"))
DdlTipoDocto.Items.Insert(33, New ListItem("Productos/Servicios", "PS")) DdlTipoDocto.Items.Insert(33, New ListItem("Productos/Servicios", "PS"))
DdlTipoDocto.Items.Insert(34, New ListItem("NC de Remisión", "RNC"))
ElseIf UsuarioActual.Empresa.CvePlataforma = 2 Then ElseIf UsuarioActual.Empresa.CvePlataforma = 2 Then
DdlTipoDocto.Items.Insert(1, New ListItem("Facturas", "Ing")) DdlTipoDocto.Items.Insert(1, New ListItem("Facturas", "Ing"))
DdlTipoDocto.Items.Insert(2, New ListItem("Notas de Crédito", "Egs")) DdlTipoDocto.Items.Insert(2, New ListItem("Notas de Crédito", "Egs"))

2
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1538,7 +1538,7 @@ Partial Class Ventas_ClientesAbonar
End If End If
'Conta ContPAQ 'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" AndAlso UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If idCuentaContabilizacion > 0 Then If idCuentaContabilizacion > 0 Then
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
IDPoliza = ObjMov.ContaIdPoliza IDPoliza = ObjMov.ContaIdPoliza

1
Ventas/PopUpBuscarFolio.aspx
View File

@@ -46,6 +46,7 @@
<asp:ListItem Text="Pedido" Value="Ped"></asp:ListItem> <asp:ListItem Text="Pedido" Value="Ped"></asp:ListItem>
<asp:ListItem Text="Autorización" Value="PA"></asp:ListItem> <asp:ListItem Text="Autorización" Value="PA"></asp:ListItem>
<asp:ListItem Text="Pedido2" Value="Pd2"></asp:ListItem> <asp:ListItem Text="Pedido2" Value="Pd2"></asp:ListItem>
<asp:ListItem Text="NC de Remisión" Value="RNC"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</td> </td>
<td class="text-right"><b>Estatus Factura:</b></td> <td class="text-right"><b>Estatus Factura:</b></td>

1
Ventas/RepProductosServiciosDetalle.aspx.vb
View File

@@ -661,6 +661,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
params.Add(New ReportParameter("LogoPath", "")) params.Add(New ReportParameter("LogoPath", ""))
End If End If
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
ImprimirPDF("Empresas/Grales/Formatos/RepProductosServiciosDetalle.rdlc", TmpDT, params, "ReportePS") ImprimirPDF("Empresas/Grales/Formatos/RepProductosServiciosDetalle.rdlc", TmpDT, params, "ReportePS")

4
Ventas/RepVentasUtilidad.aspx
View File

@@ -233,7 +233,7 @@
<tr> <tr>
<td id="dvInv" runat="server" class="dataTables_scrollHead" style="text-align: center!important; width: 42%; font-size: 14px;"><b>Venta</b></td> <td id="dvInv" runat="server" class="dataTables_scrollHead" style="text-align: center!important; width: 42%; font-size: 14px;"><b>Venta</b></td>
<td id="dvVen" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px; border-right-color: white!important; border-left-color: white!important; width: 25%; border-style: solid;"><b>Costo</b></td> <td id="dvVen" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px; border-right-color: white!important; border-left-color: white!important; width: 25%; border-style: solid;"><b>Costo</b></td>
<td id="dvUt" runat="server" class="dataTables_scrollHead" style="text-align: center!important; width: 40%; font-size: 14px;"><b>Utilidad/Pérdida</b></td> <td id="dvUt" runat="server" class="dataTables_scrollHead" style="text-align: center!important; width: 42%; font-size: 14px;"><b>Utilidad/Pérdida</b></td>
</tr> </tr>
</table> </table>
</div> </div>
@@ -287,7 +287,7 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:HyperLinkField ItemStyle-HorizontalAlign="Center" HeaderText="% Rentabilidad" DataTextFormatString="{0:N}" DataTextField="Rentabilidad" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>

4
Ventas/RepVentasUtilidad.aspx.vb
View File

@@ -180,7 +180,9 @@ Partial Class Ventas_RepVentasUtilidad
e.Row.BackColor = ColorTranslator.FromHtml("#95A5A6") e.Row.BackColor = ColorTranslator.FromHtml("#95A5A6")
End If End If
If Not e.Row.RowIndex = 0 AndAlso e.Row.DBCampo("CveVenta") <> "" Then If Not e.Row.RowIndex = 0 AndAlso e.Row.DBCampo("SubTotal").ToDecimal = 0 AndAlso e.Row.DBCampo("CveVenta").ToEntero > 0 Then
e.Row.CssClass = "danger"
ElseIf Not e.Row.RowIndex = 0 AndAlso e.Row.DBCampo("CveVenta") <> "" Then
e.Row.Cells(0).BackColor = ColorTranslator.FromHtml("#e9e9e9") e.Row.Cells(0).BackColor = ColorTranslator.FromHtml("#e9e9e9")
e.Row.Cells(1).BackColor = ColorTranslator.FromHtml("#e9e9e9") e.Row.Cells(1).BackColor = ColorTranslator.FromHtml("#e9e9e9")
e.Row.Cells(2).BackColor = ColorTranslator.FromHtml("#e9e9e9") e.Row.Cells(2).BackColor = ColorTranslator.FromHtml("#e9e9e9")

110
Ventas/RepVentasUtilidadDetalle.aspx
View File

@@ -4,7 +4,7 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
<style> <style>
.gvFull tr td:nth-child(4) { /*.gvFull tr td:nth-child(4) {
display: none; display: none;
} }
@@ -18,7 +18,7 @@
.gvFull tr th:nth-child(7) { .gvFull tr th:nth-child(7) {
display: none; display: none;
} }*/
.Widthall { .Widthall {
@@ -64,7 +64,8 @@
.white a { .white a {
color: white !important; color: white !important;
} }
.select2 .select2-selection__rendered {
.select2 .select2-selection__rendered {
line-height: 1; line-height: 1;
color: #111; color: #111;
} }
@@ -279,6 +280,48 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpBonificacion" runat="server" UpdateMode="Conditional" class="col-md-4">
<ContentTemplate>
<div class="portlet smmallpadding light bordered" id="Div2" runat="server">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase"><a id="A2" runat="server" class="Texto">Bonificación </a></span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools">
<a href="javascript:;" class="expand"></a>
</div>
</div>
<div class="portlet-body form-horizontal form-row-sepe formnombottom" style="padding-top: 0px; margin-top: -5px;">
<div class="form-body">
<asp:GridView ID="GvBonificacion" runat="server" CssClass="table table-striped table-hover Widthall"
AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText=""
GridLines="None" DataKeyNames="CveVenta,Serie,Folio,SerieFolio,FolioFiscal,TipoDocto,CveConceptoContable,Importe">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Center">
<HeaderTemplate>Factura</HeaderTemplate>
<ItemTemplate>
<asp:HyperLink ID="HplFactura" runat="server" Target="_blank" CssClass="Texto" Text='<%# Eval("SerieFolio") %>' NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>'></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="TipoDocto" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Fecha" DataField="FechaAplicado" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Total" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Anticipo/NC/IxC" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Mon" DataField="Moneda" ItemStyle-HorizontalAlign="Center" />
</Columns>
</asp:GridView>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDetallesCosto" runat="server" UpdateMode="Conditional" class="col-md-4"> <asp:UpdatePanel ID="UpDetallesCosto" runat="server" UpdateMode="Conditional" class="col-md-4">
<ContentTemplate> <ContentTemplate>
<div class="portlet smmallpadding light bordered" id="Div1" runat="server"> <div class="portlet smmallpadding light bordered" id="Div1" runat="server">
@@ -320,7 +363,7 @@
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<br />
<asp:UpdatePanel ID="UpIndicador" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpIndicador" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div id="DivUtilidad" visible="False" runat="server" class="col-md-3"> <div id="DivUtilidad" visible="False" runat="server" class="col-md-3">
@@ -371,10 +414,10 @@
<ContentTemplate> <ContentTemplate>
<div id="dvCa" style="width:100%;top:40px"> <div id="dvCa" style="width:100%;top:40px">
<table id="dTable" class="correcto table Widthall Titulos"><tr> <table id="dTable" class="correcto table Widthall Titulos"><tr>
<td id="Td1" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px; width:30%;"><b>Producto</b></td> <td id="Td1" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px; width:25%;"><b>Producto</b></td>
<td id="dvInv" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px; width:25%; border-left-color: white!important;border-style: solid;border-right-color: white!important;"><b>Venta</b></td> <td id="dvInv" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px; width:30%; border-left-color: white!important;border-style: solid;border-right-color: white!important;"><b>Venta</b></td>
<td id="dvVen" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px; border-right-color: white!important;border-left-color: white!important;width:18%;border-style: solid;"><b>Costo</b></td> <td id="dvVen" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px; border-right-color: white!important;border-left-color: white!important;width:15%;border-style: solid;"><b>Costo</b></td>
<td id="dvUt" runat="server" class="dataTables_scrollHead" style="text-align:center!important;width: 35%;font-size:14px; "><b>Utilidad/Pérdida</b></td> <td id="dvUt" runat="server" class="dataTables_scrollHead" style="text-align:center!important;width: 15%;font-size:14px; "><b>Utilidad/Pérdida</b></td>
</tr></table> </tr></table>
</div> </div>
</ContentTemplate> </ContentTemplate>
@@ -383,51 +426,72 @@
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas Utilidad con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None"> <asp:GridView ID="GvDatos" runat="server" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas Utilidad con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
<Columns> <Columns>
<asp:TemplateField HeaderText="Cant." ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
<asp:BoundField HeaderText="TipoDocto" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
<asp:TemplateField HeaderText="Cant." ItemStyle-HorizontalAlign="Center">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbCantVenta" runat="server" Text='<%# If(Eval("CantVta").ToString() = "0", "-", Eval("CantVta", "{0:#,###.00}")) %>'></asp:Label> <asp:Label ID="LbCantVenta" runat="server" Text='<%# If(Eval("CantVta").ToString() = "0", "-", Eval("CantVta", "{0:#,###.00}")) %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Código" ItemStyle-Width="10%"> <asp:TemplateField HeaderText="Código" >
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbCodigo" runat="server" Text='<%# If(Eval("Codigo").ToString() = "0", "-", Eval("Codigo", "{0:#,###.##}")) %>'></asp:Label> <asp:Label ID="LbCodigo" runat="server" Text='<%# If(Eval("Codigo").ToString() = "0", "-", Eval("Codigo", "{0:#,###.##}")) %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="PS" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="PS" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbPS" runat="server" Text='<%# If(Eval("PS").ToString() = "0", "-", Eval("PS", "{0:#,###.##}")) %>'></asp:Label> <asp:Label ID="LbPS" runat="server" Text='<%# If(Eval("PS").ToString() = "0", "-", Eval("PS", "{0:#,###.##}")) %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="5%" DataNavigateUrlFields="CveVenta" DataTextField="SerieFolio" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}"/> <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveVenta" DataTextField="SerieFolio" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}"/>
<asp:TemplateField HeaderText="P.U" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="P.U" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbPU1" runat="server" Text='<%# If(Eval("PUVta").ToString() = "0", "-", Eval("PUVta", "{0:#,###.00}")) %>'></asp:Label> <asp:Label ID="LbPU1" runat="server" Text='<%# If(Eval("PUVta").ToString() = "0", "-", Eval("PUVta", "{0:#,###.00}")) %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Total" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="SubTotal" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbTotal1" runat="server" Text='<%# If(Eval("TotalVta").ToString() = "0", "-", Eval("TotalVta", "{0:#,###.00}")) %>'></asp:Label> <asp:Label ID="LbSubTotal" runat="server" Text='<%# If(Eval("SubTotal").ToString() = "0", "-", Eval("SubTotal", "{0:#,###.00}")) %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Descuento" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LbDescuento" runat="server" Text='<%# If(Eval("Descuento").ToString() = "0", "-", Eval("Descuento", "{0:#,###.00}")) %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Bonificacion" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LbBonificacion" runat="server" Text='<%# If(Eval("Bonificacion").ToString() = "0", "-", Eval("Bonificacion", "{0:#,###.00}")) %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SubTotal2" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LbSubTotal2" runat="server" Text='<%# If(Eval("SubTotal2").ToString() = "0", "-", Eval("SubTotal2", "{0:#,###.00}")) %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="5%" DataNavigateUrlFields="CveMovimiento" DataTextField="FolioMovto" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"/> <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveMovimiento" DataTextField="FolioMovto" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"/>
<asp:TemplateField HeaderText="P.U " ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="P.U " ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbPUs" runat="server" Text='<%# If(Eval("PUInv").ToString() = "0", "-", Eval("PUInv", "{0:#,###.##}")) %>'></asp:Label> <asp:Label ID="LbPUs" runat="server" Text='<%# If(Eval("PUInv").ToString() = "0", "-", Eval("PUInv", "{0:#,###.##}")) %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Total" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbTotal" runat="server" Text='<%# If(Eval("TotalInv").ToString() = "0", "-", Eval("TotalInv", "{0:#,###.00}")) %>'></asp:Label> <asp:Label ID="LbTotal" runat="server" Text='<%# If(Eval("TotalInv").ToString() = "0", "-", Eval("TotalInv", "{0:#,###.00}")) %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
@@ -437,25 +501,25 @@
<asp:TemplateField HeaderText="Utilidad" ItemStyle-Width="8%" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="Utilidad" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbUt" runat="server" Text='<%# If(Eval("Utilidad").ToString() = "0", "-", Eval("Utilidad", "{0:#,###.00}")) %>'></asp:Label> <asp:Label ID="LbUt" runat="server" Text='<%# If(Eval("Utilidad").ToString() = "0", "-", Eval("Utilidad", "{0:#,###.00}")) %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="%" ItemStyle-Width="8%" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="%" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbPorUtilidad" runat="server" Text='<%# If(Eval("PorUtilidad").ToString() = "0", "-", Eval("PorUtilidad", "{0:#,###.00}")) %>'></asp:Label> <asp:Label ID="LbPorUtilidad" runat="server" Text='<%# If(Eval("PorUtilidad").ToString() = "0", "-", Eval("PorUtilidad", "{0:#,###.00}")) %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Pérdida" ItemStyle-Width="8%" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="Pérdida" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbPerdida" runat="server" Text='<%# If(Eval("Perdida").ToString() = "0", "-", Eval("Perdida", "{0:#,###.00}")) %>'></asp:Label> <asp:Label ID="LbPerdida" runat="server" Text='<%# If(Eval("Perdida").ToString() = "0", "-", Eval("Perdida", "{0:#,###.00}")) %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="%" ItemStyle-Width="8%" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="%" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbPorPerdida" runat="server" Text='<%# If(Eval("PorPerdida").ToString() = "0", "-", Eval("PorPerdida", "{0:#,###.00}")) %>'></asp:Label> <asp:Label ID="LbPorPerdida" runat="server" Text='<%# If(Eval("PorPerdida").ToString() = "0", "-", Eval("PorPerdida", "{0:#,###.00}")) %>'></asp:Label>
</ItemTemplate> </ItemTemplate>

11
Ventas/RepVentasUtilidadDetalle.aspx.vb
View File

@@ -196,7 +196,14 @@ Partial Class Ventas_RepVentasUtilidadDetalle
LblPorUtilidad.Text = ((ObjVentas.Utilidad - ObjVentas.Perdida) / ObjVentas.SubTotalVenta * 100).ToString("N2") LblPorUtilidad.Text = ((ObjVentas.Utilidad - ObjVentas.Perdida) / ObjVentas.SubTotalVenta * 100).ToString("N2")
LblPerdida.Text = "$" + (ObjVentas.Perdida - ObjVentas.Utilidad).ToString("N2") LblPerdida.Text = "$" + (ObjVentas.Perdida - ObjVentas.Utilidad).ToString("N2")
LblPorPerdida.Text = ((ObjVentas.Perdida - ObjVentas.Utilidad) / ObjVentas.SubTotalVenta * 100).ToString("N2") LblPorPerdida.Text = ((ObjVentas.Perdida - ObjVentas.Utilidad) / ObjVentas.SubTotalVenta * 100).ToString("N2")
If ObjVentas.GetVentasAntNC(CveVenta, -1) Then
GvBonificacion.DataSource = ObjVentas.DtResultados
End If
ObjVentas.Dispose() ObjVentas.Dispose()
GvBonificacion.DataBind()
If ObjVentas.SubTotalVenta <> ObjVentas.SubTotalVentaDolares Then If ObjVentas.SubTotalVenta <> ObjVentas.SubTotalVentaDolares Then
LbSubTotalDolares.Visible = True LbSubTotalDolares.Visible = True
@@ -220,10 +227,12 @@ Partial Class Ventas_RepVentasUtilidadDetalle
End If End If
End Sub End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.RowIndex = 0 Or e.Row.DBCampo("CveVentaDetalle") = "" Then If e.Row.DBCampo("CveVentaDetalle") = "" AndAlso e.Row.DBCampo("CveVenta") = "" Then
e.Row.CssClass = "Totales" e.Row.CssClass = "Totales"
Else Else
'e.Row.Cells(0).BackColor = ColorTranslator.FromHtml("#e9e9e9") 'e.Row.Cells(0).BackColor = ColorTranslator.FromHtml("#e9e9e9")

4
Ventas/Ventas.aspx
View File

@@ -1238,6 +1238,7 @@
<asp:HyperLink ID="HplFactura" runat="server" Target="_blank" CssClass="Texto" Text='<%# Eval("SerieFolio") %>' NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>'></asp:HyperLink> <asp:HyperLink ID="HplFactura" runat="server" Target="_blank" CssClass="Texto" Text='<%# Eval("SerieFolio") %>' NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>'></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="TipoDocto" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Fecha" DataField="FechaAplicado" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField HeaderText="Fecha" DataField="FechaAplicado" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Total" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Total" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Anticipo/NC/IxC" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Anticipo/NC/IxC" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
@@ -1252,6 +1253,7 @@
<asp:HyperLink ID="HplFactura" runat="server" Target="_blank" CssClass="Texto" Text='<%# Eval("SerieFolio") %>' NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>'></asp:HyperLink> <asp:HyperLink ID="HplFactura" runat="server" Target="_blank" CssClass="Texto" Text='<%# Eval("SerieFolio") %>' NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>'></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="TipoDocto" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Fecha" DataField="FechaAplicado" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField HeaderText="Fecha" DataField="FechaAplicado" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Total" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Total" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Anticipo/NC/IxC" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Anticipo/NC/IxC" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
@@ -1419,7 +1421,7 @@
</td> </td>
<td><b>T.C.:</b></td> <td><b>T.C.:</b></td>
<td> <td>
<asp:TextBox ID="TxtTipoCambio" onkeyup="ConvertirDllsPesos();" runat="server" CssClass="form-control input-sm" MaxLength="7" Text="1" Enabled="true" Width="70px" ClientIDMode="Static"></asp:TextBox> <asp:TextBox ID="TxtTipoCambio" onkeyup="ConvertirDllsPesos();" runat="server" CssClass="form-control input-sm" MaxLength="7" Text="1" Enabled="true" Width="70px" ClientIDMode="Static" Readonly ="true"></asp:TextBox>
<asp:CompareValidator ID="CVTipoCambio" runat="server" ControlToValidate="TxtTipoCambio" Display="None" ErrorMessage="El campo <b>''Tipo de Cambio''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator> <asp:CompareValidator ID="CVTipoCambio" runat="server" ControlToValidate="TxtTipoCambio" Display="None" ErrorMessage="El campo <b>''Tipo de Cambio''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="VCOTipoCambio" runat="server" HighlightCssClass="vco" TargetControlID="CVTipoCambio" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCOTipoCambio" runat="server" HighlightCssClass="vco" TargetControlID="CVTipoCambio" Width="300px"></ajax:ValidatorCalloutExtender>
<asp:Label runat="server" ID="LblTCValuacion" ToolTip="Última Valuación" Text="" Visible="false"></asp:Label> <asp:Label runat="server" ID="LblTCValuacion" ToolTip="Última Valuación" Text="" Visible="false"></asp:Label>

63
Ventas/Ventas.aspx.vb
View File

@@ -1727,6 +1727,10 @@ Partial Class Ventas
DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Pd2")) DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Pd2"))
If UsuarioActual.Empresa.Funcionalidad(344).ToString = "1" Then
DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("NC de Remisión", "RNC"))
End If
If UsuarioActual.Empresa.Funcionalidad(528) = "1" Then 'FUNCIONALIDAD. DE REGISTRO DE CUENTA PREDIAL. If UsuarioActual.Empresa.Funcionalidad(528) = "1" Then 'FUNCIONALIDAD. DE REGISTRO DE CUENTA PREDIAL.
GvPS.Columns(ColumnaPredial).Visible = True GvPS.Columns(ColumnaPredial).Visible = True
thPredial1.Visible = True thPredial1.Visible = True
@@ -6568,11 +6572,11 @@ Partial Class Ventas
'ContPAQ El movimiento 1 es el de Venta 'ContPAQ El movimiento 1 es el de Venta
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
If UsuarioActual.CveEmpresa = 119 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ant", "Rem", "Cot", "Ped", "Pd2", "PA", "NC") Then If UsuarioActual.CveEmpresa = 119 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "NC") Then
AutoConta = False AutoConta = False
End If End If
If AutoConta And UsuarioActual.Empresa.UsaContabilidad = True Then If AutoConta Then
If idCuentaContabilizacion > 0 Then If idCuentaContabilizacion > 0 Then
If ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then If ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
@@ -6623,7 +6627,7 @@ Partial Class Ventas
Dim EstatusSMS = 0 Dim EstatusSMS = 0
'TIMBRADO Y CASO ESPECIAL NOTA DE CREDITO 'TIMBRADO Y CASO ESPECIAL NOTA DE CREDITO
If (TipoDoctoDevolucion = "" OrElse Not TipoDoctoDevolucion.Contiene("Rem", "Cot", "Ped", "DPe", "PA", "Pd2")) Then If (TipoDoctoDevolucion = "" OrElse Not TipoDoctoDevolucion.Contiene("Rem", "RNC", "Cot", "Ped", "DPe", "PA", "Pd2")) Then
Dim DebeTimbrar As Boolean = True Dim DebeTimbrar As Boolean = True
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
@@ -9104,7 +9108,7 @@ Partial Class Ventas
CvePlantilaPoliza = 4 CvePlantilaPoliza = 4
ElseIf ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then ElseIf ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
CvePlantilaPoliza = 7 CvePlantilaPoliza = 7
ElseIf ObjFactura.TipoDocto = "Rem" Then ElseIf ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
CvePlantilaPoliza = 4 CvePlantilaPoliza = 4
End If End If
@@ -9173,7 +9177,7 @@ Partial Class Ventas
Select Case ConceptoContable Select Case ConceptoContable
Case 1 'Cliente Case 1 'Cliente
If Not ObjFactura.TipoDocto.Contiene("Egs", "Rem") Then If Not ObjFactura.TipoDocto.Contiene("Egs", "Rem", "RNC") Then
importeMovimiento = (ObjFactura.Total - TotalOtrosConceptos) * ValorMultiplicador importeMovimiento = (ObjFactura.Total - TotalOtrosConceptos) * ValorMultiplicador
importeMX = importeMovimiento * tipoCambio * Multiplicador importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago FechaMovimiento = ObjFactura.FechaPago
@@ -9247,6 +9251,37 @@ Partial Class Ventas
ViewState("SeGuardoPrePoliza") = True ViewState("SeGuardoPrePoliza") = True
End If End If
Case 277 'Remisión del cliente
If ObjFactura.TipoDocto = "RNC" Then
importeMovimiento = (ObjFactura.Total - TotalOtrosConceptos) * ValorMultiplicador
importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago
CveSubProyectoContabilizar = CveSubProyectoVenta
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
If tipoCambio = 1 Then
IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
CveCuenta = ObjFactura.Cliente.CveCuentaClientes
Else
IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera
CveCuenta = ObjFactura.Cliente.CveCuentaMonedaExtranjera
End If
IdCtaContableCliente = IdCtaContable
CveCuentaCliente = CveCuenta
If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True
End If
Else
ErrorPrepoliza = True
End If
importeMovimiento = 0
ViewState("SeGuardoPrePoliza") = True
End If
Case 12 'Nota de Credito Case 12 'Nota de Credito
If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
importeMovimiento = ObjFactura.Total * ValorMultiplicador importeMovimiento = ObjFactura.Total * ValorMultiplicador
@@ -9712,7 +9747,7 @@ Partial Class Ventas
importeMovimiento = 0 importeMovimiento = 0
Case 4 'Venta Clasificacion Case 4 'Venta Clasificacion
If Not ObjFactura.TipoDocto.Contiene("Rem", "Ant", "Egs", "Dev") Then If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC", "Ant", "Egs", "Dev") Then
Dim ConceptoContableAplicar = 4 Dim ConceptoContableAplicar = 4
Dim CveVentaAplicar = ObjFactura.CveVenta Dim CveVentaAplicar = ObjFactura.CveVenta
@@ -9890,7 +9925,7 @@ Partial Class Ventas
importeMovimiento = 0 importeMovimiento = 0
Case 103 'Descuento Case 103 'Descuento
If Not ObjFactura.TipoDocto.Contiene("Rem") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "-1" Then If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "-1" Then
importeMovimiento = ObjFactura.Descuento * ValorMultiplicador importeMovimiento = ObjFactura.Descuento * ValorMultiplicador
importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
@@ -9937,7 +9972,7 @@ Partial Class Ventas
End If End If
Case 8 'Ret IVA por Trasladar Case 8 'Ret IVA por Trasladar
If Not ObjFactura.TipoDocto.Contiene("Rem") Then If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
importeMovimiento = ObjFactura.RetIVA * ValorMultiplicador importeMovimiento = ObjFactura.RetIVA * ValorMultiplicador
importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago FechaMovimiento = ObjFactura.FechaPago
@@ -9968,7 +10003,7 @@ Partial Class Ventas
End If End If
Case 9 'Ret ISR por Trasladar Case 9 'Ret ISR por Trasladar
If Not ObjFactura.TipoDocto.Contiene("Rem") Then If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
importeMovimiento = ObjFactura.RetISR * ValorMultiplicador importeMovimiento = ObjFactura.RetISR * ValorMultiplicador
importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago FechaMovimiento = ObjFactura.FechaPago
@@ -9998,7 +10033,7 @@ Partial Class Ventas
End If End If
End If End If
Case 13 'Iva por Trasladar Case 13 'Iva por Trasladar
If Not ObjFactura.TipoDocto.Contiene("Rem") Then If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
importeMovimiento = ObjFactura.IVA * ValorMultiplicador importeMovimiento = ObjFactura.IVA * ValorMultiplicador
importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2) importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2)
FechaMovimiento = ObjFactura.FechaPago FechaMovimiento = ObjFactura.FechaPago
@@ -20758,13 +20793,19 @@ Partial Class Ventas
CalculaTotalesVenta(True) CalculaTotalesVenta(True)
'condicióon, en la que se verifica que el importe total de aplicación de la nota de crédito sea igual al del total de la nota de crédito, ej. saldo de la factura 1000.01 y la nota de crédito se generó po 1000.00 'condicióon, en la que se verifica que el importe total de aplicación de la nota de crédito sea igual al del total de la nota de crédito, ej. saldo de la factura 1000.01 y la nota de crédito se generó po 1000.00
If Not AplicaNCMasiva Then If Not AplicaNCMasiva Then
Dim TT As Decimal = TxtNCImporte.Text.ToDecimal Dim TT As Decimal = TxtNCImporte.Text.ToDecimal
If TT > TxtTotal.Text.ToDecimal Then TT = TxtTotal.Text.ToDecimal If TT > TxtTotal.Text.ToDecimal Then TT = TxtTotal.Text.ToDecimal
CargaNCDT(CveVenta, TT) CargaNCDT(CveVenta, TT)
End If
End If
'verifica el tipo de cambio que se actualice
If DdlMoneda.SelectedValue <> "1" Then
TxtTipoCambio.Text = GlobalTipoCambio(Now).ToString
End If
LblTCValuacion.Visible = False
UpPS.Update() UpPS.Update()
LBNotaCredito.Visible = False LBNotaCredito.Visible = False