diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 323eb9250..62d1d7386 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6489,7 +6489,15 @@ Partial Class Compras_Compras
End If
Dim UsaComplementariaFleteImportaciones As Boolean = False
+ 'DEBE METER EL CONCEPTO DE COMPRAS SI EL TIPO ES GASTO CON ALMACEN
+ If DdlTipoCompra.SelectedValue = "10" Then
+ ConceptoContabilizacion = 6
+ End If
+
Select Case ConceptoContabilizacion
+ Case 6
+ importeMovimiento = TmpDT.SUMD(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"))
+ importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'TIENE QUE TENER EL IMPORTEMN IGUAL AL IMPORTEMOVIMIENTO PORQUE NO TOMA EN CUENTA SI UN PRODUCTO ES TIPO SERVICIO
Case 176
ConceptoContabilizacionME = 228
ConceptoContabilizacionMEComp = 229
@@ -6510,8 +6518,14 @@ Partial Class Compras_Compras
importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'TIENE QUE TENER EL IMPORTEMN IGUAL AL IMPORTEMOVIMIENTO PORQUE NO TOMA EN CUENTA SI UN PRODUCTO ES TIPO SERVICIO
End Select
- If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+ If ConceptoContabilizacion = 6 Then
+ If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero
+ End If
+ Else
+ If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+ End If
End If
If ObjConta.GetRetCuenta(ConceptoContabilizacionME, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
@@ -6605,6 +6619,26 @@ Partial Class Compras_Compras
ErrorPrepoliza = True
End If
End If
+ Case 6
+ Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
+
+ For Each RowDetalle As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "CveSubProyecto"}).Rows
+
+ If ObjConta.GetRetCuenta(6, RowDetalle("CveClasificacion").ToString().ToEntero()) Then
+ If ObjConta.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero
+ CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero
+ End If
+ End If
+
+ If importeMN <> 0 Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual,
+ CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza) Then
+ ErrorPrepoliza = True
+ End If
+ End If
+ Next
+
End Select
'End If
diff --git a/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc b/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc
index 574f43d48..fbf8a8cbf 100644
--- a/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc
+++ b/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc
@@ -52,10 +52,10 @@
4.42895cm
- 3.2021cm
+ 3.06732cm
- 3.36938cm
+ 3.6031cm
2.89562cm
@@ -156,7 +156,7 @@
- Fecha Ven.
+ Fecha Vencimiento.
@@ -191,7 +191,7 @@
- Movto.
+ Cheque.
@@ -226,14 +226,14 @@
- Abono
+ Abonado
@@ -250,47 +250,14 @@
2pt
+ 2
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox21
-
-
- Silver
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
+
- 0.6cm
+ 0.46771cm
@@ -303,7 +270,8 @@
= IIF( IsNothing(Fields!CveVenta.Value) , (Fields!Banco.Value & " - " & Fields!NumCuenta.Value),Fields!SerieFolio.Value)
@@ -336,7 +304,8 @@
=Fields!Fecha.Value
@@ -372,7 +341,8 @@
= IIF( IsNothing(Fields!CveVenta.Value), Fields!FechaDocumento.Value,Fields!FechaVencimiento.Value)
@@ -408,7 +378,8 @@
= IIF( IsNothing(Fields!CveVenta.Value) , Fields!FolioCobro.Value,"")
@@ -441,7 +412,8 @@
=Fields!ImporteAbonado.Value
@@ -478,7 +450,8 @@
=IIF(Fields!CveVenta.Value > 0,Fields!MonedaVenta.Value, Fields!MonedaIE.Value)
@@ -527,8 +500,8 @@
DataSet1
1.00112cm
0.12912cm
- 1.2cm
- 19.74272cm
+ 1.06771cm
+ 19.84166cm
2