-- cambios en prepolizasdetalle
This commit is contained in:
@@ -448,7 +448,6 @@ Partial Class Contabilidad_FisImpuestos
|
||||
Dim Concepto As String = TxtConcepto.Text.ToUpper.Trim
|
||||
Dim CveConcepto As Integer = gvRow.DataKey("CveConcepto").ToEntero
|
||||
|
||||
Dim IdCtaContable As Integer = gvRow.DataKey("IDCuenta").ToEntero
|
||||
Dim CveSubProtyecto As Integer = If(gvRow.DataKey("CveSubProyecto").ToEntero = 0, -1, gvRow.DataKey("CveSubProyecto").ToEntero)
|
||||
Dim CveProveedor As Integer = gvRow.DataKey("CveProveedor").ToEntero
|
||||
Dim TipoMovimientoString As String = gvRow.DataKey("TipoMovto")
|
||||
@@ -462,7 +461,7 @@ Partial Class Contabilidad_FisImpuestos
|
||||
End If
|
||||
|
||||
If Importe > 0 Then
|
||||
If objConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovto, Importe, TxtFolio.Text.Trim.ToUpper, CveConcepto, Concepto, Now, IdCtaContable, -1, CveProveedor:=CveProveedor, CveSubProyecto:=CveSubProtyecto) Then
|
||||
If objConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovto, Importe, Importe, CveConcepto, TxtFolio.Text.Trim.ToUpper, Concepto, CveProveedor:=CveProveedor, CveSubProyecto:=CveSubProtyecto) Then
|
||||
ContadorOrdern = ContadorOrdern + 1
|
||||
ErrorProceso = False
|
||||
Else
|
||||
|
||||
@@ -106,9 +106,9 @@ Partial Class Contabilidad_OCDetalleAlmacen
|
||||
If CvePrePoliza > 0 Then
|
||||
|
||||
If Cargo > Abono Then
|
||||
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 176, Referencia, Fecha, IdCtaCuenta228, -1, ImporteME:=Diferencia, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
|
||||
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Diferencia, 176, Referencia, Referencia, ImporteME:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
|
||||
|
||||
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, Referencia, 177, Referencia, Fecha, IdCtaCuenta177, -1, ImporteME:=-0, ImporteMX:=-Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
|
||||
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, -Diferencia, 177, Referencia, Referencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
|
||||
ContadorProcesados = ContadorProcesados + 1
|
||||
Else
|
||||
ErrorProcesamiento = True
|
||||
@@ -120,9 +120,9 @@ Partial Class Contabilidad_OCDetalleAlmacen
|
||||
End If
|
||||
|
||||
Else
|
||||
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, Referencia, 176, Referencia, Fecha, IdCtaCuenta176, -1, ImporteME:=-0, ImporteMX:=-Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
|
||||
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, -Diferencia, 176, Referencia, Referencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
|
||||
|
||||
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 177, Referencia, Fecha, IdCtaCuenta177, -1, ImporteME:=0, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
|
||||
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Diferencia, 177, Referencia, Referencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
|
||||
ContadorProcesados = ContadorProcesados + 1
|
||||
Else
|
||||
ErrorProcesamiento = True
|
||||
|
||||
@@ -989,8 +989,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
Dim ImporteME As Decimal = 0
|
||||
Dim TipoCambio As Decimal = 1
|
||||
Dim TipoMovto As Boolean = False
|
||||
Dim IdCtaContable As Integer = 0
|
||||
|
||||
FolioPoliza = ObjMov.FolioPoliza
|
||||
|
||||
Dim Gv As GridView = GvMov
|
||||
@@ -1084,9 +1082,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
End If
|
||||
|
||||
If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then
|
||||
idCuentaContabilizacion = 0
|
||||
End If
|
||||
If Importe <> 0 OrElse TipoGrid = 1 Then 'si es diferente de cero o si viene de grid prepolizas, que registre todo
|
||||
Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
|
||||
Dim tReferencia, tConcepto As String
|
||||
@@ -1104,11 +1099,11 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
tCveTipoGasto = gvr.DataKey("CveTipoGasto").ToEntero
|
||||
End If
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePolizaInsertada, TipoMovto, Importe, tReferencia, gvr.DataKey("CveConceptoContable").ToEntero, tConcepto,
|
||||
TxtFechaDocumento.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=tCveSubProyecto, CveIE:=CveIE,
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePolizaInsertada, TipoMovto, Importe, Importe, gvr.DataKey("CveConceptoContable").ToEntero, tReferencia, tConcepto,
|
||||
CveSubProyecto:=tCveSubProyecto, CveIE:=CveIE,
|
||||
CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
|
||||
CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
|
||||
ImporteMX:=Importe, ImporteME:=ImporteME, TipoCambio:=TipoCambio,
|
||||
ImporteME:=ImporteME, TipoCambio:=TipoCambio,
|
||||
CveTipoGasto:=tCveTipoGasto,
|
||||
CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta, PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal) Then
|
||||
ContRegInsertados = ContRegInsertados + 1
|
||||
@@ -1247,13 +1242,13 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
|
||||
row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), row.DataKey("Referencia").ToString,
|
||||
row.DataKey("CveConceptoContable").ToEntero, row.FCLiteral("TxtConcepto").Text, Now,
|
||||
row.DataKey("IdCtaContable").ToEntero, 0, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero,
|
||||
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True),
|
||||
If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal),
|
||||
If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal),
|
||||
row.DataKey("CveConceptoContable").ToEntero, row.DataKey("Referencia").ToString, row.FCLiteral("TxtConcepto").Text,
|
||||
CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero,
|
||||
CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
|
||||
ImporteMX:=If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
|
||||
row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveProveedor:=row.DataKey("CveProveedor").ToEntero,
|
||||
CveProveedor:=row.DataKey("CveProveedor").ToEntero,
|
||||
CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
|
||||
CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal, CveIE:=CveIEAgregado) Then
|
||||
OcurrioError = True
|
||||
@@ -2901,8 +2896,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
Dim ImporteME As Decimal = 0
|
||||
Dim TipoCambio As Decimal = 1
|
||||
Dim TipoMovto As Boolean = False
|
||||
Dim IdCtaContable As Integer = 0
|
||||
|
||||
|
||||
'inserto las compras que voy a pagarDdlSaldos
|
||||
For Each gvr As GridViewRow In GvPrePoliza.Rows
|
||||
@@ -2957,17 +2950,14 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
End If
|
||||
|
||||
If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then
|
||||
idCuentaContabilizacion = 0
|
||||
End If
|
||||
If Importe <> 0 Then
|
||||
Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.DataKey("Referencia"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("Concepto"),
|
||||
TxtFechaDocumento.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveIE:=CveIE,
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("Referencia"), gvr.DataKey("Concepto"),
|
||||
CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveIE:=CveIE,
|
||||
CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
|
||||
CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
|
||||
ImporteMX:=Importe, ImporteME:=ImporteME, TipoCambio:=TipoCambio, CveTipoGasto:=gvr.DataKey("CveTipoGasto").ToEntero,
|
||||
ImporteME:=ImporteME, TipoCambio:=TipoCambio, CveTipoGasto:=gvr.DataKey("CveTipoGasto").ToEntero,
|
||||
CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta) Then
|
||||
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user