diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 38cec4aa4..2a408ff3c 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7742,6 +7742,8 @@ Public Class ClsPaginas 'Dim urlHost As String = "http://localhost:2202/" If EsProduccion Then urlHost = "http://192.200.113.178:6599/" + Else + urlHost = "http://localhost:2202/" End If 'SITIO DE PRUEBA EN IIS Dim Url As Uri = New Uri(String.Format("{0}{1}", urlHost, Opcion)) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index b71c4f47d..b8dd69b13 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3548,32 +3548,35 @@ Namespace Modelos If Not ErrorPrepoliza AndAlso ObjFactura.CveTipoAmortizacionAnticipo = 2 AndAlso ObjFactura.EsNCAmortizacion AndAlso ObjFactura.TipoDocto.Contiene("Egs") AndAlso ObjFactura.DtAnticiposAplicados IsNot Nothing Then - For Each row2 As DataRow In ObjFactura.DtAnticiposAplicados.Rows - If row2("CveConceptoContable").ToString().ToEntero() = 3 Then - CveIEAnticipo = row2("CveIE").ToString().ToEntero() + For Each RowAnticipo As DataRow In ObjFactura.DtAnticiposAplicados.Rows + If RowAnticipo("Tipo").ToString() = "Ant" AndAlso RowAnticipo("CveConceptoContable").ToString().ToEntero().Contiene(3, 295) Then - importeMovimiento = row2("Importe").ToString().ToDecimal() '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal) + importeMovimiento = RowAnticipo("Importe").ToString().ToDecimal() Dim ImporteAnticipo As Decimal = importeMovimiento - Dim CveMonedaAnticipo As Integer = row2("CveMoneda").ToString().ToEntero() - - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" + Dim CveMonedaAnticipo As Integer = RowAnticipo("CveMoneda").ToString().ToEntero() If ObjFactura.CveTipoAmortizacionAnticipo = 2 Then - Dim DescuentosAnticipos As Decimal = row2("Descuentos").ToString().ToDecimal - ImporteAnticipo = ImporteAnticipo / (row2("TotalAnticipo").ToString().ToDecimal - DescuentosAnticipos) * row2("SubTotalAnticipo").ToString().ToDecimal + Dim DescuentosAnticipos As Decimal = RowAnticipo("Descuentos").ToString().ToDecimal + ImporteAnticipo = ImporteAnticipo / (RowAnticipo("TotalAnticipo").ToString().ToDecimal - DescuentosAnticipos) * RowAnticipo("SubTotalAnticipo").ToString().ToDecimal ImporteAnticipo = ImporteAnticipo.RoundSQL(2) End If - Dim Importe11MX As Decimal = ImporteAnticipo - CveSubProyectoContabilizar = CveSubProyectoVenta + Dim PagoAnt As New ClsPaginas.VentaPago + PagoAnt.ImportePagoVenta = 0 'DEBE SER 0 PORQUE EL PAGO A LA FACTURA YA FUE APLICADO PREVIAMENTE + PagoAnt.ImportePago = ImporteAnticipo + PagoAnt.CveIE = RowAnticipo("CveIE").ToString().ToEntero() + PagoAnt.CveMonedaPago = CveMonedaAnticipo + PagoAnt.TipoPago = "A" + PagoAnt.Fecha = ObjFactura.Fecha + PagoAnt.CveVentaAmortizacion = RowAnticipo("CveVenta").ToString().ToEntero() + PagoAnt.TCPago = RowAnticipo("TipoCambioPago").ToString().ToDecimal() + PagoAnt.AplicaTraslado = False + PagoAnt.Referencia = Referencia + PagoAnt.AplicaConceptoImpuestoPendiente = False + + ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, PagoAnt, ObjFactura.CvePrePoliza, ObjConta) - If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe11MX, Importe11MX, 11, Referencia, Concepto, CveVenta:=row2("CveVenta").ToString().ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then - ErrorPrepoliza = True - Exit For - End If - End If End If Next diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index d1c505122..5b6573de1 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -347,8 +347,8 @@ FitProportional 0.04167in 0.04352in - 1.37377in - 1.73969in + 1.31047in + 1.6772in @@ -2244,8 +2244,8 @@ Textbox5 - 14.04286cm - 0.23924cm + 13.8103cm + 0.18621cm 0.05496cm 20.88652cm 15 @@ -2465,7 +2465,7 @@ Textbox4 - 14.20365cm + 13.9814cm 0.23068cm 2.44366cm 15.43864cm @@ -2500,7 +2500,7 @@ Textbox19 - 5.5781in + 5.5031in 6.212in 0.17608in 0.94607in @@ -2535,7 +2535,7 @@ Textbox19 - 5.73307in + 5.65807in 6.21199in 0.17608in 0.94607in @@ -2570,7 +2570,7 @@ Textbox19 - 5.89456in + 5.81956in 6.21199in 0.17608in 0.94607in @@ -2605,7 +2605,7 @@ Textbox19 - 6.06331in + 5.98831in 6.22241in 0.17608in 0.94607in @@ -2641,7 +2641,7 @@ Textbox19 - 6.22894in + 6.15394in 6.23283in 0.19596in 0.94607in @@ -2677,7 +2677,7 @@ Textbox42 - 5.5781in + 5.5031in 7.15807in 0.17608in 0.98426in @@ -2712,7 +2712,7 @@ Textbox42 - 5.73307in + 5.65807in 7.15807in 0.17608in 0.98425in @@ -2747,7 +2747,7 @@ Textbox42 - 5.89456in + 5.81956in 7.16849in 0.17608in 0.98425in @@ -2783,7 +2783,7 @@ Textbox42 - 6.06331in + 5.98831in 7.16849in 0.17608in 0.98425in @@ -2819,7 +2819,7 @@ Textbox42 - 6.22894in + 6.15394in 7.17891in 0.19596in 0.98425in @@ -2884,7 +2884,7 @@ Textbox5 - 16.71787cm + 16.59087cm 0.23924cm 0.05496cm 20.75387cm @@ -3562,21 +3562,6 @@ 2pt - - Embedded - logos_facturaremovebgpreview - FitProportional - 13.21248cm - 0.34979cm - 0.81831cm - 20.58859cm - 34 - - - - true true @@ -3605,7 +3590,7 @@ 0.12869cm 0.44183cm 20.69914cm - 35 + 34 @@ -3623,24 +3608,10 @@ =System.Convert.FromBase64String(Parameters!QRDescarga.Value) image/png FitProportional - 0.07039in - 0.6035in - 0.78275in - - - - - - Embedded - ID3 - FitProportional - 1.70928cm - 0.17877cm - 0.7733cm - 1.98819cm - 1 + 0.41036in + 0.2273in + 0.5535in + 0.66635in @@ -3743,16 +3714,16 @@ Textbox4 - 0cm - 2.34335cm - 3.28957cm + 0.10583cm + 2.51436cm + 2.85742cm 18.45416cm - 2 + 1 @@ -3765,13 +3736,67 @@ Embedded - ID3 + playstore FitProportional - 2.65897cm - 0.1834cm + 2.51877cm + 0.34516cm 0.66588cm 1.98357cm + 2 + + + + + + true + true + + + + + Agrega tu póliza escaneando el QR + + + + + + + Textbox34 + 0.11909cm + 0cm + 0.88796cm + 2.76491cm 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + logos_facturaremovebgpreview + FitProportional + 3.13964cm + 2.32873cm + 0.81831cm + 18.72552cm + 4 @@ -3780,17 +3805,32 @@ true - 9.74652cm - 0.17101cm - 3.46596cm - 20.96852cm - 36 + 9.64068cm + 0cm + 3.95795cm + 21.13953cm + 35 + + Embedded + appstore + FitProportional + 12.96645cm + 0.34516cm + 0.7733cm + 1.98819cm + 36 + + + + 22.76325cm @@ -100,8 +164,8 @@ -
  • - Cargar Proyecciones +
  • + Cargar Proyecciones
    • @@ -179,8 +243,8 @@
    - + <%----%>
    @@ -195,7 +259,7 @@ - + <%----%> @@ -229,19 +293,19 @@
    - + - - - + + +
    - + - + @@ -250,51 +314,48 @@ " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> - - - -
    -
    - - - - - Código - - -
    - -
    -     - -     + + - - - Producto - - -
    - -
    -     - -     +
    + + + + + Código + + +
    + +
    +     + +     -     - -     + + + Producto + + +
    + +
    +     + +     -
    +     + <%----%> +     -
    - +
    -     -     + + +