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

-- se depuró/limpió la variables idctaXXX

Browse Source
This commit is contained in:
rrene
2023-08-17 18:56:22 -07:00
parent 70fce81f48
commit 2765dab757
74 changed files with 1350 additions and 5328 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
asmx/WSApp.asmx
View File

@@ -766,8 +766,7 @@ Public Class WSApp
TmpDT.Columns.Add("TotalImporte", GetType(Decimal))
TmpDT.Columns.Add("Total", GetType(Decimal))
'Para uso del módulo contable
TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
TmpDT.Columns.Add("IdCtaContVentas", GetType(Integer))
TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean))
TmpDT.Columns.Add("CveProyecto", GetType(Integer))
TmpDT.Columns.Add("Proyecto", GetType(String))

3
asmx/WSSIGApp.asmx
View File

@@ -2011,8 +2011,7 @@ Public Class WSSIGApp
TmpDT.Columns.Add("TotalImporte", GetType(Decimal))
TmpDT.Columns.Add("Total", GetType(Decimal))
'Para uso del módulo contable
TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
TmpDT.Columns.Add("IdCtaContVentas", GetType(Integer))
TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean))
TmpDT.Columns.Add("CveProyecto", GetType(Integer))
TmpDT.Columns.Add("Proyecto", GetType(String))

16
asmx/WS_PuntoVenta.asmx
View File

@@ -393,8 +393,7 @@ Public Class WS_PuntoVenta
Public Referencia As String
Public CveConceptoContable As Integer
Public Concepto As String
Public FechaVencimiento As DateTime
Public IdCtaContable As Integer
Public FechaVencimiento As DateTime
Public IdSegmentoNegocio As Integer
Public CveIE As Integer
Public CveVenta As Integer
@@ -954,7 +953,7 @@ Public Class WS_PuntoVenta
'If DT.Rows.Count > 0 Then
'Se agrega movimiento separado por la cuenta de ventas (ER)
' For Each Row As DataRow In DT.Rows
ImporteMov = objVenta.SubTotal ' TmpDT.SUM("Total", "IdCtaContVentas = '" & Row("IdCtaContVentas").ToString & "'")
ImporteMov = objVenta.SubTotal
Dim CveClasificacion_04 = -1
If ImporteMov <> 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoVenta, ImporteMov, ImporteMov, CveConceptoVenta, " ", " ", CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, CveSubProyecto:=objVenta.CveSubProyecto, CveClasificacion:=CveClasificacion_04) Then
@@ -1414,17 +1413,6 @@ Public Class WS_PuntoVenta
' For Each objPrepoliza As ClsPrePolizaWS In ArregloPrePolizas
' objConta.IniciaTransacSQL()
' CvePrePoliza = objConta.AddPrePolizas(objPrepoliza.Modulo, objPrepoliza.CveTipoPoliza, objPrepoliza.Cargos, objPrepoliza.Abonos, objPrepoliza.CveMoneda, objPrepoliza.Fecha, objPrepoliza.CveUsuario, objPrepoliza.CveEmpresa)
' If CvePrePoliza > 0 Then
' 'Ingresar los detalles
' For Each Detalle As ClsPrePolizaWS.ClsPrePolizaDetalleWS In objPrepoliza.Detalle
' If objConta.AddPrePolizasDetalle(objPrepoliza.CvePrepoliza, Detalle.TipoMovto, Detalle.Importe, Detalle.Referencia, Detalle.CveConceptoContable, Detalle.Concepto, Detalle.FechaVencimiento, Detalle.IdCtaContable, Detalle.IdSegmentoNegocio, Detalle.CveIE, Detalle.CveVenta, Detalle.CveCompra, Detalle.CveSubProyecto, Detalle.CveCliente, Detalle.CveProveedor, Detalle.CvePersonal, Detalle.CveMovimientoAlmacen, Detalle.CveActivoFijo) = False Then
' 'Error al ingresar el detalle de la venta
' Errores = True
' Exit For
' End If
' Next
' End If
' If Errores = False Then
' objConta.Commit()