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

-- limpieza de cvecuentas de clientes

Browse Source
This commit is contained in:
rrene
2021-07-09 09:05:26 -07:00
parent a5bef5f8ba
commit b8106a1d46
1 changed files with 11 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
Ventas/Ventas.aspx.vb
View File

@@ -797,31 +797,19 @@ Partial Class Ventas
Return ViewState("IdCtaContAnticipos").ToString().ToEntero() Return ViewState("IdCtaContAnticipos").ToString().ToEntero()
End Get End Get
End Property End Property
Private ReadOnly Property CveCuentaAnticipos As Integer
Get
Return ViewState("CveCuentaAnticipos").ToString().ToEntero()
End Get
End Property
Private ReadOnly Property IdCtaContRetIVA As Integer Private ReadOnly Property IdCtaContRetIVA As Integer
Get Get
Return ViewState("IdCtaContRetIVA").ToString().ToEntero() Return ViewState("IdCtaContRetIVA").ToString().ToEntero()
End Get End Get
End Property End Property
Private ReadOnly Property CveCuentaRetIVA As Integer
Get
Return ViewState("CveCuentaRetIVA").ToString().ToEntero()
End Get
End Property
Private ReadOnly Property IdCtaContRetISR As Integer Private ReadOnly Property IdCtaContRetISR As Integer
Get Get
Return ViewState("IdCtaContRetISR").ToString().ToEntero() Return ViewState("IdCtaContRetISR").ToString().ToEntero()
End Get End Get
End Property End Property
Private ReadOnly Property CveCuentaRetISR As Integer
Get
Return ViewState("CveCuentaRetISR").ToString().ToEntero()
End Get
End Property
Private ReadOnly Property CodCliente As String Private ReadOnly Property CodCliente As String
Get Get
@@ -5601,15 +5589,11 @@ Partial Class Ventas
ViewState("Vendedor") = ObjCliente.Vendedor ViewState("Vendedor") = ObjCliente.Vendedor
ViewState("CtaContable") = ObjCliente.CuentaContable ViewState("CtaContable") = ObjCliente.CuentaContable
ViewState("IdCtaContClientes") = ObjCliente.IdCtaContClientes ViewState("IdCtaContClientes") = ObjCliente.IdCtaContClientes
ViewState("CveCuentaClientes") = ObjCliente.CveCuentaClientes
ViewState("IdCtaContMonedaExtranjera") = ObjCliente.IdCtaContMonedaExtranjera ViewState("IdCtaContMonedaExtranjera") = ObjCliente.IdCtaContMonedaExtranjera
ViewState("IdCtaContComplementaria") = ObjCliente.IdCtaContComplementaria ViewState("IdCtaContComplementaria") = ObjCliente.IdCtaContComplementaria
ViewState("IdCtaContAnticipos") = ObjCliente.IdCtaContAnticipos ViewState("IdCtaContAnticipos") = ObjCliente.IdCtaContAnticipos
ViewState("CveCuentaAnticipos") = ObjCliente.CveCuentaAnticipos
ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA
ViewState("CveCuentaRetIVA") = ObjCliente.CveCuentaRetIVA
ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR
ViewState("CodCliente") = ObjCliente.Codigo ViewState("CodCliente") = ObjCliente.Codigo
ViewState("CvePrecioLista") = ObjCliente.CvePrecioLista ViewState("CvePrecioLista") = ObjCliente.CvePrecioLista
@@ -14966,7 +14950,7 @@ Partial Class Ventas
Private Function AgregarPrePolizasXTrasladar(ObjConta As ClsContabilidad, CvePrePoliza As Integer, PorcentajeAmortizacion As Decimal, TipoCambio As Decimal, ByRef CuentasContablesInvalidas As StringBuilder, ByRef idCuentaContabilizacion As Integer, ByRef CveCuentaContabilizacion As Integer, Importe13 As Decimal, Importe8 As Decimal, Importe9 As Decimal) As Boolean Private Function AgregarPrePolizasXTrasladar(ObjConta As ClsContabilidad, CvePrePoliza As Integer, PorcentajeAmortizacion As Decimal, TipoCambio As Decimal, ByRef CuentasContablesInvalidas As StringBuilder, ByRef idCuentaContabilizacion As Integer, ByRef CveCuentaContabilizacion As Integer, Importe13 As Decimal, Importe8 As Decimal, Importe9 As Decimal) As Boolean
Dim ImporteMovimiento As Decimal Dim ImporteMovimiento As Decimal
Dim ImporteMX As Decimal Dim ImporteMX As Decimal
Dim IdCtaContable, CveCuenta As Integer Dim IdCtaContable As Integer
Dim FechaMovimiento As Date = Now Dim FechaMovimiento As Date = Now
Dim Concepto As String = ViewState("VentaFolio").ToString() Dim Concepto As String = ViewState("VentaFolio").ToString()
Dim PrePolizaCorrecta = True Dim PrePolizaCorrecta = True
@@ -14990,7 +14974,7 @@ Partial Class Ventas
End If End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, PorcentajeImpuesto:=PorcentajeImpuesto) Then
PrePolizaCorrecta = False PrePolizaCorrecta = False
End If End If
End If End If
@@ -15001,7 +14985,6 @@ Partial Class Ventas
If IdCtaContRetIVA <> 0 Then If IdCtaContRetIVA <> 0 Then
IdCtaContable = IdCtaContRetIVA IdCtaContable = IdCtaContRetIVA
CveCuenta = CveCuentaRetIVA
Else Else
If ObjConta.GetRetCuenta(8, UsuarioActual.CveEmpresa) Then If ObjConta.GetRetCuenta(8, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -15016,7 +14999,7 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 8, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 8, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then
PrePolizaCorrecta = False PrePolizaCorrecta = False
End If End If
End If End If
@@ -15043,7 +15026,7 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 9, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 9, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then
PrePolizaCorrecta = False PrePolizaCorrecta = False
End If End If
End If End If
@@ -15056,7 +15039,7 @@ Partial Class Ventas
Dim ImporteMovimiento As Decimal Dim ImporteMovimiento As Decimal
Dim ImporteMX As Decimal Dim ImporteMX As Decimal
Dim IdCtaContable, CveCuenta As Integer Dim IdCtaContable As Integer
Dim FechaMovimiento As Date = Now Dim FechaMovimiento As Date = Now
Dim Concepto As String = ViewState("VentaFolio").ToString() Dim Concepto As String = ViewState("VentaFolio").ToString()
Dim PrePolizaCorrecta = True Dim PrePolizaCorrecta = True
@@ -15082,13 +15065,7 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
''ContaSIG If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, PorcentajeImpuesto:=PorcentajeImpuesto) Then
'If CveCuenta <= 0 Then
' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 61))("ConceptoContable").ToString())
' CveCuentaContabilizacion = 0
'End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
PrePolizaCorrecta = False PrePolizaCorrecta = False
End If End If
End If End If
@@ -15106,27 +15083,13 @@ Partial Class Ventas
End If End If
End If End If
''Conta SIG
'If CveCuentaRetIVA <> 0 Then
' CveCuenta = CveCuentaRetIVA
'Else
' If ObjConta.GetRetCuenta(62, UsuarioActual.CveEmpresa) Then
' CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero()
' End If
'End If
If ImporteMovimiento > 0 Then If ImporteMovimiento > 0 Then
If IdCtaContable <= 0 Then If IdCtaContable <= 0 Then
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString()) CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString())
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
'If CveCuenta <= 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 62, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then
' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString())
' CveCuentaContabilizacion = 0
'End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 62, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then
PrePolizaCorrecta = False PrePolizaCorrecta = False
End If End If
End If End If
@@ -15146,15 +15109,6 @@ Partial Class Ventas
End If End If
End If End If
'If CveCuentaRetISR <> 0 Then
' CveCuenta = CveCuentaRetISR
'Else
' If ObjConta.GetRetCuenta(63, UsuarioActual.CveEmpresa) Then
' If ObjConta.DtResultados.Rows.Count > 0 Then
' CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero()
' End If
' End If
'End If
If ImporteMovimiento > 0 Then If ImporteMovimiento > 0 Then
If IdCtaContable <= 0 Then If IdCtaContable <= 0 Then
@@ -15162,12 +15116,7 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
'If CveCuenta <= 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 63, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then
' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 63))("ConceptoContable").ToString())
' CveCuentaContabilizacion = 0
'End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 63, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then
PrePolizaCorrecta = False PrePolizaCorrecta = False
End If End If
End If End If