-
+
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 7c11763f9..90f5c97d8 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2784,8 +2784,6 @@ Partial Class Bancos_IE
If MsgError = "" Then
-
-
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero,
TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1),
@@ -2793,8 +2791,6 @@ Partial Class Bancos_IE
If CveIE > 0 Then
-
-
If DdlCuentaDeposito.SelectedValue.ToEntero > 0 And DdlTipoTransaccion.SelectedValue = "17" Then
If TxtReferenciaCIE.Text <> OriReferenciaCIE Or TxtConceptoCIE.Text <> OriConceptoCIE Then
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index e406742b0..e05a7a8e4 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -1081,7 +1081,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
End If
- If Not TieneError Then
+ If Not TieneError AndAlso IDPoliza > 0 Then
'actualizar la conta del IE
ObjIE.UpdateIEPrePoliza(Fecha, FolioPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0)
Else
diff --git a/Bancos/Reportes/rptChequeMovimientos.rdlc b/Bancos/Reportes/rptChequeMovimientos.rdlc
index 09954375b..f3455310b 100644
--- a/Bancos/Reportes/rptChequeMovimientos.rdlc
+++ b/Bancos/Reportes/rptChequeMovimientos.rdlc
@@ -1,1971 +1,1967 @@
-
-
-
-
-
- true
- true
-
-
-
-
- =Parameters!Cuenta.Value
-
-
-
-
-
-
- Cuenta
- 0.74936in
- 0.23622in
- 1in
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Paguese.Value
-
-
-
-
-
-
- Paguese
- 0.25011in
- 0.73547in
- 0.22233in
- 4.91481in
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- ="<b>Importe: </b>" & FormatCurrency(Parameters!Importe.Value, 2) & " " & Parameters!MonedaAbreviatura.Value
- HTML
-
-
-
-
-
-
- Importe
- 0.264in
- 5.71972in
- 0.20844in
- 1.9609in
- 2
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Observaciones.Value
-
-
-
-
-
-
- Observaciones
- 0.48633in
- 0.73547in
- 0.23622in
- 6.8993in
- 3
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
- 2.57974cm
-
-
- 6.32386cm
-
-
- 2.08353cm
-
-
- 2.00257cm
-
-
- 2.29951cm
-
-
- 1.79499cm
-
-
- 2.18122cm
-
-
-
-
- 0.4677cm
-
-
-
-
- true
- true
-
-
-
-
- Factura
-
-
-
-
-
-
- Textbox19
-
-
- LightGrey
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Descripción
-
-
-
-
-
-
- Textbox21
-
-
- LightGrey
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- F. Factura
-
-
-
-
-
-
- Textbox23
-
-
- LightGrey
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Original
-
-
-
-
-
-
- Textbox25
-
-
- LightGrey
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Abonado
-
-
-
-
-
-
- Textbox27
-
-
- LightGrey
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- N.C
-
-
-
-
-
-
- Textbox2
-
-
- LightGrey
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Saldo
-
-
-
-
-
-
- Textbox3
-
-
- LightGrey
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.6cm
-
-
-
-
- true
- true
-
-
-
-
- =Fields!SerieFolio.Value
-
-
-
-
-
-
- SerieFolio
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Descripcion.Value
-
-
-
-
-
-
- Descripcion
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!FechaCompra.Value
-
-
-
-
-
-
- FechaCompra
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Total.Value
-
-
-
-
-
-
- Total
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Importe.Value
-
-
-
-
-
-
- Importe1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Sum(Fields!ImporteNC.Value)
-
-
-
-
-
-
- ImporteNC
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Saldo.Value
-
-
-
-
-
-
- Saldo
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.6cm
-
-
-
-
- true
- true
-
-
-
-
- Total
-
-
-
- :
-
-
-
-
-
-
- Textbox30
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
- 4
-
-
-
-
-
- true
- true
-
-
-
-
- =IiF(SUM(Fields!Importe.Value) > 0, SUM(Fields!Importe.Value),0.00)
-
-
-
-
-
-
- Importe2
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Sum(Fields!ImporteNC.Value)
-
-
-
-
-
-
- Textbox5
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Sum(Fields!Saldo.Value)
-
-
-
-
-
-
- Textbox6
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- After
-
-
-
-
- =Fields!SerieFolio.Value
- =Fields!Descripcion.Value
- =Fields!FechaCompra.Value
- =Fields!Total.Value
- =Fields!Importe.Value
- =Fields!Saldo.Value
-
-
-
-
- Before
-
-
-
- true
- DataSet1
- 2.18687cm
- 0.25413cm
- 1.6677cm
- 19.26542cm
- 4
-
-
-
-
-
- true
- true
-
-
-
-
- Cuenta:
-
-
-
-
-
-
- Textbox36
- 0.22238cm
- 0.6cm
- 1.64572cm
- 5
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Paguese:
-
-
-
-
-
-
- Textbox36
- 0.6cm
- 0.22238cm
- 0.6cm
- 1.64572cm
- 6
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Obs:
-
-
-
-
-
-
- Textbox36
- 1.23528cm
- 0.22238cm
- 0.6cm
- 1.64572cm
- 7
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 2.03432cm
- 19.51955cm
- 0cm
- -19.47588cm
- 8
-
-
-
-
-
- true
- true
-
-
-
-
- ="<b> Folio: </b>" & Parameters!Folio.Value
- HTML
-
-
-
-
-
-
- Textbox43
- 7.55254cm
- 0.6cm
- 5.23812cm
- 9
- ="<b> Folio: </b>" & Parameters!Folio.Value
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
- 2.5cm
-
-
- 2.95074cm
-
-
- 2.5cm
-
-
-
-
- 0.52063cm
-
-
-
-
- true
- true
-
-
-
-
- Resumen Notas de Crédito
-
-
-
-
-
-
- Textbox7
-
-
- LightGrey
- 2pt
- 2pt
- 2pt
- 2pt
-
-
- 3
-
-
-
-
-
- 0.6cm
-
-
-
-
- true
- true
-
-
-
-
- Factura
-
-
-
-
-
-
- Textbox4
-
-
- LightGrey
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Nota de Crédito
-
-
-
-
-
-
- Textbox8
-
-
- LightGrey
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Importe
-
-
-
-
-
-
- Textbox10
-
-
- LightGrey
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.6cm
-
-
-
-
- true
- true
-
-
-
-
- =Fields!SerieFolio.Value
-
-
-
-
-
-
- SerieFolio1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!SerieFolioNC.Value
-
-
-
-
-
-
- SerieFolioNC
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!Importe.Value
-
-
-
-
-
-
- Importe3
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.6cm
-
-
-
-
- true
- true
-
-
-
-
- Total:
-
-
-
-
-
-
- Textbox13
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
- 2
-
-
-
-
-
- true
- true
-
-
-
-
- =SUM(Fields!Importe.Value)
-
-
-
-
-
-
- Textbox15
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- After
-
-
- After
-
-
-
-
- =Fields!SerieFolio.Value
-
-
-
-
-
-
- Before
-
-
-
- true
- DataSet2
- 4.20735cm
- 0.25413cm
- 2.32063cm
- 7.95074cm
- 10
-
- =iif(Sum(Fields!Importe.Value)>0,false, true)
-
-
-
-
-
-
- 6.70437cm
- 19.51955cm
- 0cm
- -19.51955cm
- 11
-
-
-
-
-
- true
- true
-
-
-
-
- Fecha:
-
-
-
-
-
-
- Textbox36
- 0.0635cm
- 14.52104cm
- 0.6cm
- 1.30176cm
- 12
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Fecha.Value
-
-
-
-
-
-
- Cuenta
- 0.0635cm
- 6.22945in
- 0.23622in
- 1.40532in
- 13
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- 7.24235cm
-
-
- 19.51955cm
-
-
- 2.46175cm
- true
- true
-
-
- true
- true
-
-
-
-
- =Parameters!NombreEmpresa.Value
-
-
-
-
-
-
- Textbox1
- 0.3175cm
- 2.52765cm
- 0.6cm
- 14.40301cm
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- REPORTE DE PAGO DE MOVIMIENTOS
-
-
-
-
-
-
-
-
-
-
-
-
-
- Textbox2
- 0.95278cm
- 2.52765cm
- 0.55591cm
- 14.40301cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- External
- =Parameters!LogoPath.Value
- FitProportional
- 0.15522cm
- 2.22362cm
- 2.33715cm
- 2
-
-
-
-
-
-
-
-
-
-
- 0.52063cm
- true
- true
-
-
- true
- true
-
-
-
-
- ="Página " & Globals.PageNumber & " de " & Globals.TotalPages
-
-
-
-
-
-
- Textbox41
- 0.01764cm
- 16.41607cm
- 0.48535cm
- 2.97625cm
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Usuario:
-
-
-
-
-
-
- Textbox8
- 0.01764cm
- 0.15522cm
- 0.50299cm
- 1.60042cm
- 1
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!UsuarioImprimio.Value
-
-
-
-
-
-
- Textbox9
- 0.01764cm
- 1.75564cm
- 0.48535cm
- 5.14936cm
- 2
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Fecha Impresión:
-
-
-
-
-
-
- Textbox10
- 0cm
- 7.44414cm
- 0.50299cm
- 2.87394cm
- 3
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!FechaImpresion.Value
-
-
-
-
-
-
- Textbox11
- 0cm
- 10.31808cm
- 0.50299cm
- 4.58986cm
- 4
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 27.94cm
- 21.59cm
- 1cm
- 1cm
- 1.5cm
- 1.5cm
- 0.13cm
-
-
- 0
-
-
-
- System.Data.DataSet
- /* Local Connection */
-
- c18b6686-bd84-460b-985a-bb3859af70bf
-
-
-
-
-
- DsBancos
- /* Local Query */
-
-
-
- Folio
- System.String
-
-
- Descripcion
- System.String
-
-
- FechaCompra
- System.String
-
-
- Total
- System.Double
-
-
- ImporteNC
- System.Double
-
-
- Importe
- System.Double
-
-
- SerieFolio
- System.String
-
-
- Saldo
- System.Double
-
-
-
- DsBancos
- C:\inetpub\wwwVentas\App_Code\DsBancos.xsd
- DsCheque
-
-
-
-
- DsBancos
- /* Local Query */
-
-
-
- SerieFolio
- System.String
-
-
- SerieFolioNC
- System.String
-
-
- Fecha
- System.String
-
-
- Total
- System.Double
-
-
- Importe
- System.Double
-
-
-
- DsBancos
- C:\inetpub\wwwVentas\App_Code\DsBancos.xsd
- DsCheque
-
-
-
-
-
- String
- ReportParameter1
-
-
- DateTime
- ReportParameter1
-
-
- String
- ReportParameter1
-
-
- Float
- ReportParameter1
-
-
- String
- true
- ReportParameter1
-
-
- String
- ReportParameter1
-
-
- String
- true
- ReportParameter1
-
-
- String
- true
- true
- ReportParameter1
-
-
- String
- true
- true
- ReportParameter1
-
-
- String
- true
- true
- ReportParameter1
-
-
- String
- true
- true
- ReportParameter1
-
-
-
-
- =5
-
-
- Cm
- 806b374c-24e0-40bb-a805-d2a7038259c9
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Cuenta.Value
+
+
+
+
+
+
+ Cuenta
+ 0.74936in
+ 0.23622in
+ 1in
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Paguese.Value
+
+
+
+
+
+
+ Paguese
+ 0.25011in
+ 0.73547in
+ 0.22233in
+ 4.91481in
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ ="<b>Importe: </b>" & FormatCurrency(Parameters!Importe.Value, 2) & " " & Parameters!MonedaAbreviatura.Value
+ HTML
+
+
+
+
+
+
+ Importe
+ 0.264in
+ 5.71972in
+ 0.20844in
+ 1.9609in
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Observaciones.Value
+
+
+
+
+
+
+ Observaciones
+ 0.48633in
+ 0.73547in
+ 0.23622in
+ 6.8993in
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+ 2.57974cm
+
+
+ 6.32386cm
+
+
+ 2.08353cm
+
+
+ 2.00257cm
+
+
+ 2.29951cm
+
+
+ 1.79499cm
+
+
+ 2.18122cm
+
+
+
+
+ 0.4677cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Factura
+
+
+
+
+
+
+ Textbox19
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Descripción
+
+
+
+
+
+
+ Textbox21
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ F. Factura
+
+
+
+
+
+
+ Textbox23
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Original
+
+
+
+
+
+
+ Textbox25
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Abonado
+
+
+
+
+
+
+ Textbox27
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ N.C
+
+
+
+
+
+
+ Textbox2
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Saldo
+
+
+
+
+
+
+ Textbox3
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!SerieFolio.Value
+
+
+
+
+
+
+ SerieFolio
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Descripcion.Value
+
+
+
+
+
+
+ Descripcion
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!FechaCompra.Value
+
+
+
+
+
+
+ FechaCompra
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Total.Value
+
+
+
+
+
+
+ Total
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Importe.Value
+
+
+
+
+
+
+ Importe1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Sum(Fields!ImporteNC.Value)
+
+
+
+
+
+
+ ImporteNC
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Saldo.Value
+
+
+
+
+
+
+ Saldo
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Total
+
+
+
+ :
+
+
+
+
+
+
+ Textbox30
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+ 4
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =IiF(SUM(Fields!Importe.Value) > 0, SUM(Fields!Importe.Value),0.00)
+
+
+
+
+
+
+ Importe2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Sum(Fields!ImporteNC.Value)
+
+
+
+
+
+
+ Textbox5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Sum(Fields!Saldo.Value)
+
+
+
+
+
+
+ Textbox6
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+ =Fields!SerieFolio.Value
+ =Fields!Descripcion.Value
+ =Fields!FechaCompra.Value
+ =Fields!Total.Value
+ =Fields!Importe.Value
+ =Fields!Saldo.Value
+
+
+
+
+ Before
+
+
+
+ true
+ DataSet1
+ 2.18687cm
+ 0.25413cm
+ 1.6677cm
+ 19.26542cm
+ 4
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Cuenta:
+
+
+
+
+
+
+ Textbox36
+ 0.22238cm
+ 0.6cm
+ 1.64572cm
+ 5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Paguese:
+
+
+
+
+
+
+ Textbox36
+ 0.6cm
+ 0.22238cm
+ 0.6cm
+ 1.64572cm
+ 6
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Obs:
+
+
+
+
+
+
+ Textbox36
+ 1.23528cm
+ 0.22238cm
+ 0.6cm
+ 1.64572cm
+ 7
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 2.03432cm
+ 19.51955cm
+ 0cm
+ -19.47588cm
+ 8
+
+
+
+
+
+ true
+ true
+
+
+
+
+ ="<b> Folio: </b>" & Parameters!Folio.Value
+ HTML
+
+
+
+
+
+
+ Textbox43
+ 7.55254cm
+ 0.6cm
+ 5.23812cm
+ 9
+ ="<b> Folio: </b>" & Parameters!Folio.Value
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+ 2.5cm
+
+
+ 2.95074cm
+
+
+ 2.5cm
+
+
+
+
+ 0.52063cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Resumen Notas de Crédito
+
+
+
+
+
+
+ Textbox7
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+ 3
+
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Factura
+
+
+
+
+
+
+ Textbox4
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Nota de Crédito
+
+
+
+
+
+
+ Textbox8
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Importe
+
+
+
+
+
+
+ Textbox10
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!SerieFolio.Value
+
+
+
+
+
+
+ SerieFolio1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!SerieFolioNC.Value
+
+
+
+
+
+
+ SerieFolioNC
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Importe.Value
+
+
+
+
+
+
+ Importe3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Total:
+
+
+
+
+
+
+ Textbox13
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+ 2
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =SUM(Fields!Importe.Value)
+
+
+
+
+
+
+ Textbox15
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+ After
+
+
+
+
+ =Fields!SerieFolio.Value
+
+
+
+
+
+
+ Before
+
+
+
+ true
+ DataSet2
+ 4.20735cm
+ 0.25413cm
+ 2.32063cm
+ 7.95074cm
+ 10
+
+ =iif(Sum(Fields!Importe.Value)>0,false, true)
+
+
+
+
+
+
+ 6.70437cm
+ 19.51955cm
+ 0cm
+ -19.51955cm
+ 11
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Fecha:
+
+
+
+
+
+
+ Textbox36
+ 0.0635cm
+ 14.52104cm
+ 0.6cm
+ 1.30176cm
+ 12
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Fecha.Value
+
+
+
+
+
+
+ Cuenta
+ 0.0635cm
+ 6.22945in
+ 0.23622in
+ 1.40532in
+ 13
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 7.24235cm
+
+
+ 19.51955cm
+
+
+ 2.46175cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ =Parameters!NombreEmpresa.Value
+
+
+
+
+
+
+ Textbox1
+ 0.3175cm
+ 2.52765cm
+ 0.6cm
+ 14.40301cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ REPORTE DE PAGO DE MOVIMIENTOS
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Textbox2
+ 0.95278cm
+ 2.52765cm
+ 0.55591cm
+ 14.40301cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ External
+ =Parameters!LogoPath.Value
+ FitProportional
+ 0.15522cm
+ 2.22362cm
+ 2.33715cm
+ 2
+
+
+
+
+
+
+
+
+
+
+ 0.52063cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages
+
+
+
+
+
+
+ Textbox41
+ 0.01764cm
+ 16.41607cm
+ 0.48535cm
+ 2.97625cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Usuario:
+
+
+
+
+
+
+ Textbox8
+ 0.01764cm
+ 0.15522cm
+ 0.50299cm
+ 1.60042cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!UsuarioImprimio.Value
+
+
+
+
+
+
+ Textbox9
+ 0.01764cm
+ 1.75564cm
+ 0.48535cm
+ 5.14936cm
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Impresión:
+
+
+
+
+
+
+ Textbox10
+ 7.44414cm
+ 0.50299cm
+ 2.87394cm
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!FechaImpresion.Value
+
+
+
+
+
+
+ Textbox11
+ 10.31808cm
+ 0.50299cm
+ 4.58986cm
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 27.94cm
+ 21.59cm
+ 1cm
+ 1cm
+ 1.5cm
+ 1.5cm
+ 0.13cm
+
+
+ 0
+
+
+
+ System.Data.DataSet
+ /* Local Connection */
+
+ c18b6686-bd84-460b-985a-bb3859af70bf
+
+
+
+
+
+ DsBancos
+ /* Local Query */
+
+
+
+ Folio
+ System.String
+
+
+ Descripcion
+ System.String
+
+
+ FechaCompra
+ System.String
+
+
+ Total
+ System.Double
+
+
+ ImporteNC
+ System.Double
+
+
+ Importe
+ System.Double
+
+
+ SerieFolio
+ System.String
+
+
+ Saldo
+ System.Double
+
+
+
+ DsBancos
+ C:\inetpub\wwwVentas\App_Code\DsBancos.xsd
+ DsCheque
+
+
+
+
+ DsBancos
+ /* Local Query */
+
+
+
+ SerieFolio
+ System.String
+
+
+ SerieFolioNC
+ System.String
+
+
+ Fecha
+ System.String
+
+
+ Total
+ System.Double
+
+
+ Importe
+ System.Double
+
+
+
+ DsBancos
+ C:\inetpub\wwwVentas\App_Code\DsBancos.xsd
+ DsCheque
+
+
+
+
+
+ String
+ ReportParameter1
+
+
+ DateTime
+ ReportParameter1
+
+
+ String
+ ReportParameter1
+
+
+ Float
+ ReportParameter1
+
+
+ String
+ true
+ ReportParameter1
+
+
+ String
+ ReportParameter1
+
+
+ String
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ DateTime
+ ReportParameter1
+
+
+
+
+ =5
+
+
+ Cm
+ 806b374c-24e0-40bb-a805-d2a7038259c9
\ No newline at end of file
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 115ce05c3..349be1126 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8397,12 +8397,38 @@ Partial Class Compras_Compras
ObjConta = New ClsContabilidad(ObjCompra.IniciaTransacSQL)
End If
- Dim CveCompraNC, IdCtaContable As Integer
+ Dim CveCompraNC, IdCtaContable, IdCtaContableComp As Integer
Dim PorcentajePago As Decimal
Dim ConceptoPoliza As String = $"Amortización {NombreProveedor} - {TxtSerie.Text}-{TxtFolio.Text}"
Try
Dim CveIE As Integer = -1
+
+ Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
+ Dim CompraActual As New Compra
+ CompraActual.CveCompra = CveCompra
+ CompraActual.CveTipoConceptoProveedor = CveTipoConcepto
+ CompraActual.CveProveedor = CveProveedor
+ CompraActual.CveMoneda = DdlMoneda.SelectedValue.ToEntero
+ CompraActual.Fecha = TxtFecha.Text.ToDate
+ CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim
+ CompraActual.ProveedorNombre = HplProveedor.Text
+ CompraActual.TC = TipoCambio
+ CompraActual.Total = TxtTotal.Text.ToDecimal
+ CompraActual.IVA = TxtIVA.Text.ToDecimal
+ CompraActual.IVADeducible = TxtIVA.Text.ToDecimal
+ CompraActual.IEPS = TxtIEPS.Text.ToDecimal
+ CompraActual.RetIVA = TxtRetIVA.Text.ToDecimal
+ CompraActual.RetISR = TxtRetISR.Text.ToDecimal
+ CompraActual.CveConceptoRetISR = DdlRetISRConcepto.SelectedValue.ToEntero
+ CompraActual.CveConceptoRetIVA = DdlRetIVAConcepto.SelectedValue.ToEntero
+ CompraActual.PorcentajeIVA = PorcentajeIVA
+ CompraActual.UsuarioActual = UsuarioActual
+ CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
+ CompraActual.IdCtaContableProv = CtaProveedor
+ CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
+ CompraActual.EsImportacion = chkImportacion.Checked
+
For Each gvr As GridViewRow In GVAnticipos.Rows
If gvr.FCCheckBox("Chk") IsNot Nothing AndAlso gvr.FCCheckBox("Chk").Checked Then
@@ -8410,18 +8436,38 @@ Partial Class Compras_Compras
If CvePrePoliza > 0 Then
Dim CveConceptoCompra As Integer = 60
+ Dim CveConceptoCompraComplementaria As Integer = 266
Dim TipoMovimientoCompra As Boolean = True
+ Dim CveMonedaAnticipo As Integer = gvr.DataKey("CveMoneda").ToEntero
+ Dim TipoCambioAnt As Decimal = gvr.DataKey("TCCompra").ToDecimal
+ Dim ImporteAnt As Decimal = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal
+ Dim ImporComisionAnticipo As Decimal = gvr.FCTextBox("TxtComision").Text.ToDecimal
+
+ Dim Pago As New CompraPago
+ Pago.TipoPago = gvr.DataKey("TipoDocto")
+ Pago.ImportePago = ImporteAnt
+ Pago.OtroGastoIngreso = ImporComisionAnticipo
+ Pago.CveMonedaPago = CveMonedaAnticipo
+
Select Case gvr.DataKey("TipoDocto")
Case "NC", "DEV"
- CveConceptoCompra = 60
+ CveConceptoCompra = If(CveMonedaAnticipo = 1, 60, 60)
+ CveConceptoCompraComplementaria = 235
+ IdCtaContable = If(CveMonedaAnticipo = 1, CtaProveedor, CtaProveedorExtranjera)
+ IdCtaContableComp = CtaProveedorComplementaria
CveIE = -1
+ Pago.AplicaAcreditable = False
Case "Egsc"
- CveConceptoCompra = 21
+ CveConceptoCompra = If(CveMonedaAnticipo = 1, 21, 21)
+ CveConceptoCompraComplementaria = 266
+ IdCtaContable = If(CveMonedaAnticipo = 1, CtaProveedorAnticipos, CtaProveedorAnticiposExtranjera)
+ IdCtaContableComp = CtaProveedorAnticiposComplementaria
'vinculo la compra actual, y no la compra como si fuera nota de credito
CveCompraNC = -1
CveIE = gvr.DataKey("CveIE").ToEntero
Case "DD"
- CveConceptoCompra = 37
+ CveConceptoCompra = If(CveMonedaAnticipo = 1, 37, 37)
+ IdCtaContable = CtaProveedorDeudores
'vinculo la compra actual, y no la compra como si fuera nota de credito
CveCompraNC = -1
CveIE = gvr.DataKey("CveIE").ToEntero
@@ -8429,58 +8475,20 @@ Partial Class Compras_Compras
PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal
+ Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) * TipoCambioAnt
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, (ImporteAnt + ImporComisionAnticipo), "", CveConceptoCompra, "", TxtFechaPago.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMNComision, ImporteME:=If(TipoCambioAnt = 1, 0, (ImporteAnt + ImporComisionAnticipo)), CveSubProyecto:=CveSubProyectoAnticipo) Then
+ ErrorMovtosCxP = 1
+ End If
- Dim ImporteAnt As Decimal = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal
- Dim ImporComisionAnticipo As Decimal = gvr.FCTextBox("TxtComision").Text.ToDecimal
- Dim CveMonedaAnticipo As Integer = gvr.DataKey("CveMoneda").ToEntero
- Dim TipoCambioAnt As Decimal = gvr.DataKey("TCCompra").ToDecimal
-
- If ImporComisionAnticipo = 0 Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, ImporteAnt, " ", CveConceptoCompra, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, CveCompraAmortizacion:=CveCompraNC, ImporteMX:=ImporteAnt, ImporteME:=If(TipoCambioAnt = 1, 0, ImporteAnt), CveSubProyecto:=CveSubProyectoAnticipo) Then
- ErrorMovtosCxP = 1
- Exit For
- End If
- Else
- Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) * TipoCambioAnt
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, (ImporteAnt + ImporComisionAnticipo), "", CveConceptoCompra, "", TxtFechaPago.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMNComision, ImporteME:=If(TipoCambioAnt = 1, 0, (ImporteAnt + ImporComisionAnticipo)), CveSubProyecto:=CveSubProyectoAnticipo) Then
- ErrorMovtosCxP = 1
+ If CveMonedaAnticipo > 1 Then
+ Dim ImporteAntMN As Decimal = TipoCambioAnt * ImporteAnt - ImporteAnt
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, ImporteAntMN, "", CveConceptoCompraComplementaria, "", TxtFechaPago.Text.ToDate, IdCtaContableComp, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMN, ImporteME:=If(TipoCambioAnt = 1, 0, ImporteAnt), CveSubProyecto:=CveSubProyectoAnticipo) Then
ErrorMovtosCxP = 1
End If
End If
- Dim Pago As New CompraPago
- Pago.ImportePago = ImporteAnt
Pago.CveIE = CveIE
- Pago.CveMonedaPago = CveMonedaAnticipo
Pago.CveCompraAmortizacion = CveCompraNC
- Pago.CveCreditoDetalle = -1
- Pago.OtroGastoIngreso = ImporComisionAnticipo
-
- Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
- Dim CompraActual As New Compra
- CompraActual.CveCompra = CveCompra
- CompraActual.CveTipoConceptoProveedor = CveTipoConcepto
- CompraActual.CveProveedor = CveProveedor
- CompraActual.CveMoneda = DdlMoneda.SelectedValue.ToEntero
- CompraActual.Fecha = TxtFecha.Text.ToDate
- CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim
- CompraActual.ProveedorNombre = HplProveedor.Text
- CompraActual.TC = TipoCambio
- CompraActual.Total = TxtTotal.Text.ToDecimal
- CompraActual.IVA = TxtIVA.Text.ToDecimal
- CompraActual.IVADeducible = TxtIVA.Text.ToDecimal
- CompraActual.IEPS = TxtIEPS.Text.ToDecimal
- CompraActual.RetIVA = TxtRetIVA.Text.ToDecimal
- CompraActual.RetISR = TxtRetISR.Text.ToDecimal
- CompraActual.CveConceptoRetISR = DdlRetISRConcepto.SelectedValue.ToEntero
- CompraActual.CveConceptoRetIVA = DdlRetIVAConcepto.SelectedValue.ToEntero
- CompraActual.PorcentajeIVA = PorcentajeIVA
- CompraActual.UsuarioActual = UsuarioActual
- CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
- CompraActual.IdCtaContableProv = CtaProveedor
- CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
- CompraActual.EsImportacion = chkImportacion.Checked
-
AplicaPrePolizaPagoCompra(CompraActual, pago, CvePrePoliza, ObjConta)
End If
End If
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 1e0a49b93..edfc29a1a 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -25,6 +25,15 @@ Partial Class ContabilidadC_RegPrePolizaS
ViewState("DtMovimientos") = value
End Set
End Property
+
+ Public Property DtMovimientosEliminar As DataTable
+ Get
+ Return CType(ViewState("DtMovimientosEliminar"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("DtMovimientosEliminar") = value
+ End Set
+ End Property
Public Property DtCuentasContables As DataTable
Get
Return CType(ViewState("DtCuentasContables"), DataTable)
@@ -269,6 +278,7 @@ Partial Class ContabilidadC_RegPrePolizaS
ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero
CreaDT()
+ CreaDTEliminar()
CargaPrePoliza()
If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
GvPrePoliza.Columns(5).Visible = False
@@ -412,6 +422,14 @@ Partial Class ContabilidadC_RegPrePolizaS
DtMovimientos.AcceptChanges()
End Sub
+
+ Private Sub CreaDTEliminar()
+ DtMovimientosEliminar = New DataTable("MovimientosEliminar")
+ With DtMovimientosEliminar.Columns
+ .Add("CvePrePolizaDetalle", GetType(Integer))
+ End With
+ DtMovimientosEliminar.AcceptChanges()
+ End Sub
Private Sub CargaPrePoliza()
BtnEliminar.Visible = True
LblEncabezado.Text = "Edición de Póliza"
@@ -450,11 +468,15 @@ Partial Class ContabilidadC_RegPrePolizaS
DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
If dr("Modulo").ToString.Contiene("Banc/FluctuaA", "Banc/FluctuaC", "Banc/FluctuaV", "Banc/FluctuaFilial") Then
-
BtnEliminar.Enabled = False
BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarlos desde el módulo"
End If
+ If DtMovimientos IsNot Nothing AndAlso DtMovimientos.FiltraParametros("CveConceptoContable = 30 AND Contabilizable = 1").Rows.Count > 0 Then
+ BtnEliminar.Enabled = False
+ BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarla desde el módulo de Bancos"
+ End If
+
GvPrePoliza.DataSource = DtMovimientos
If Not DtMovimientos.Columns.Contains("IdMov") Then
Dim workColumn As DataColumn = DtMovimientos.Columns.Add("IdMov", GetType(Integer))
@@ -1142,7 +1164,7 @@ Partial Class ContabilidadC_RegPrePolizaS
' Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
'End If
- Alert(If(MensajeAlert.ToString = "", $"Se registro con exito {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} ", $"Se registro con exito {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} ", $"Se registro con exito {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}