quitar clssucursales
- concepto 103, ventas
This commit is contained in:
rrene
@@ -429,22 +429,22 @@ Public Class WS_PuntoVenta
|
||||
Return Respuesta
|
||||
End Function
|
||||
|
||||
<WebMethod()>
|
||||
Public Function GetSucursales(CveEmpresa As Integer) As RespuestaWS
|
||||
Dim objSucursales As New ClsSucursales
|
||||
Dim Respuesta As New RespuestaWS
|
||||
'<WebMethod()>
|
||||
'Public Function GetSucursales(CveEmpresa As Integer) As RespuestaWS
|
||||
' Dim objSucursales As New ClsSucursales
|
||||
' Dim Respuesta As New RespuestaWS
|
||||
|
||||
If objSucursales.GetSucursales() Then
|
||||
Respuesta.Datos = objSucursales.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa))
|
||||
Respuesta.Datos.TableName = "Resultados"
|
||||
Respuesta.HuboError = False
|
||||
Else
|
||||
Respuesta.Descripcion = "HUBO UN ERROR"
|
||||
End If
|
||||
' If objSucursales.GetSucursales() Then
|
||||
' Respuesta.Datos = objSucursales.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa))
|
||||
' Respuesta.Datos.TableName = "Resultados"
|
||||
' Respuesta.HuboError = False
|
||||
' Else
|
||||
' Respuesta.Descripcion = "HUBO UN ERROR"
|
||||
' End If
|
||||
|
||||
objSucursales.Dispose()
|
||||
Return Respuesta
|
||||
End Function
|
||||
' objSucursales.Dispose()
|
||||
' Return Respuesta
|
||||
'End Function
|
||||
|
||||
<WebMethod()>
|
||||
Public Function GetClientes(CveEmpresa As Integer) As RespuestaWS
|
||||
@@ -1170,7 +1170,7 @@ Public Class WS_PuntoVenta
|
||||
'Enviar correo de corte de turno
|
||||
EnviarCorreo(VtaCorte.CveCorte, VtaCorte.CveEmpresa)
|
||||
|
||||
Dim cuenta As Integer = GetCuenta(2090)
|
||||
' Dim cuenta As Integer = GetCuenta(2090)
|
||||
Else
|
||||
objPV.RollBack()
|
||||
End If
|
||||
@@ -1197,16 +1197,16 @@ Public Class WS_PuntoVenta
|
||||
Return objVentasPago
|
||||
End Function
|
||||
|
||||
<WebMethod()>
|
||||
Public Function GetCuenta(CveSucursal As Integer) As Integer
|
||||
Dim objSU As New ClsSucursales
|
||||
Dim Cuenta As Integer
|
||||
'<WebMethod()>
|
||||
'Public Function GetCuenta(CveSucursal As Integer) As Integer
|
||||
' Dim objSU As New ClsSucursales
|
||||
' Dim Cuenta As Integer
|
||||
|
||||
'Cuenta = objSU.GetCuenta(CveSucursal)
|
||||
objSU.Dispose()
|
||||
' 'Cuenta = objSU.GetCuenta(CveSucursal)
|
||||
' objSU.Dispose()
|
||||
|
||||
Return Cuenta
|
||||
End Function
|
||||
' Return Cuenta
|
||||
'End Function
|
||||
|
||||
<WebMethod()>
|
||||
Public Function AddBancosIE(Importe As Double, Moneda As Integer, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer, Cuenta As Integer, Comprobante As String, Opcion As String) As Boolean
|
||||
|
||||
@@ -10963,25 +10963,39 @@ Partial Class Ventas
|
||||
'CveCuenta = ObjConta.DtResultados.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString().ToEntero()
|
||||
End If
|
||||
End If
|
||||
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
|
||||
If importeMovimiento > 0 AndAlso UsuarioActual.CveEmpresa = 119 Then
|
||||
'código fijo en base el porcentaje iva, que se afecten las clasificaciones
|
||||
For i = 0 To TmpDTDetalle.Rows.Count - 1
|
||||
'If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal > 0 Then
|
||||
' If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal = 0.08 Then
|
||||
' TmpDTDetalle(i)("CveClasificacion") = 20242 'clasif: ventas tasa 8%
|
||||
' Else
|
||||
' TmpDTDetalle(i)("CveClasificacion") = 19929 'clasif: ventas tasa 16%
|
||||
' End If
|
||||
'Else
|
||||
' TmpDTDetalle(i)("CveClasificacion") = 19930 'clasif: ventas tasa 0%
|
||||
'End If
|
||||
|
||||
If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then
|
||||
TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString()
|
||||
DT = TmpDTDetalle.FiltraParametros("", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"})
|
||||
|
||||
If DT.Rows.Count > 0 Then
|
||||
'Se agrega movimiento separado por la cuenta de ventas (ER)
|
||||
For Each Row2 As DataRow In DT.Rows
|
||||
importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
|
||||
importeMX = importeMovimiento * tipoCambio * Multiplicador
|
||||
FechaMovimiento = ObjFactura.FechaPago
|
||||
Concepto = $"{ViewState("VentaFolio").ToString()} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
|
||||
|
||||
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
|
||||
'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
|
||||
If ObjFactura.TipoDocto.Contiene("Egs") Then
|
||||
IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero()
|
||||
Else
|
||||
IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresos", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero()
|
||||
End If
|
||||
|
||||
If importeMovimiento <> 0 Then
|
||||
|
||||
If IdCtaContable <= 0 Then
|
||||
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"))
|
||||
idCuentaContabilizacion = 0
|
||||
End If
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 103, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveVentaAmortizacion:=-1, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal) Then
|
||||
ErrorPrepoliza = True
|
||||
Else
|
||||
ViewState("SeGuardoPrePoliza") = True
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user