diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index 06291a483..dac5e3565 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -384,11 +384,12 @@
-
+
+ OnRowDataBound="GvGarantiasDetalle_RowDataBound" DataKeyNames="Consecutivo,CodigoCliente,CodigoSucursal,Codigo,CodigoProducto2,CodigoTipoUso,CodigoTipoDefecto,CodigoEnsamble,CodigoLinea,CodigoInspeccion,FechaVenta,FechaReclamacion,TipoComprobante,Comprobante,Autorizo,Comentarios,ClaveAutorizacion" BorderColor="#D3D3D3" GridLines="None"> + @@ -397,9 +398,15 @@ - + + + + + + +
diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb index 3acab2744..6d76cfee3 100644 --- a/Acumuladores/CatFoliosGarantia.aspx.vb +++ b/Acumuladores/CatFoliosGarantia.aspx.vb @@ -1,6 +1,6 @@ Imports System.Data Imports Extensiones - +Imports Microsoft.Reporting.WebForms Partial Class Acumuladores_CatFoliosGarantia Inherits ClsPaginas @@ -41,10 +41,10 @@ Partial Class Acumuladores_CatFoliosGarantia CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, DdlTipoFolio.SelectedValue) End If - End Sub - - - + End Sub + + + #Region "Folios Garantía" Private Sub CargaSubProyectos() CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto) @@ -162,27 +162,22 @@ Partial Class Acumuladores_CatFoliosGarantia End Sub - Public Sub Remove_ClickFolioGarantia(sender As Object, e As EventArgs) - - Dim objAcum As New ClsAcumuladores + Public Sub Remove_ClickFolioGarantia(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim activo As Boolean = 0 Dim CveCapacitador As Integer = GvRow.DataKey("CveFolioGarantia") + Dim objAcum As New ClsAcumuladores If objAcum.FoliosGarantiaRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then - CargadatosGvFolioGarantia(-1, "-1") - Alert("Capacitador Eliminó Correctamente ", TipoMensaje.MsgInformacion) Else Alert("Ocurrió un error al Eliminar el Folio de Garantía", TipoMensaje.MsgError) End If - objAcum.Dispose() CargadatosGvFolioGarantia(-1, "-1") CveFolioGarantia = -1 - End Sub Public Sub Edit_ClickFolioGarantia(sender As Object, e As EventArgs) @@ -263,9 +258,9 @@ Partial Class Acumuladores_CatFoliosGarantia '1.- Consecutivo Partida-->1 SbTxt.AppendFormat("{0}@", GvRow.DataKey("Consecutivo")) '2.- Cliente-->100407 - SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoCliente")) + SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoSucursal")) '3. Codigo De Articulo --> 171402 - SbTxt.AppendFormat("{0}@", GvRow.DataKey("Codigo")) + SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoProducto2")) '4. Tipo De Uso --> A SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoTipoUso")) '5. Defecto --> P @@ -277,9 +272,9 @@ Partial Class Acumuladores_CatFoliosGarantia '8. Codigo De Inspeccion --> J8K SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoInspeccion")) '9. Fecha De Venta --> 05/09/2009 - SbTxt.AppendFormat("{0}@", GvRow.DataKey("FechaVenta").ToDateTime().ToString("dd/MM/yyyy")) + SbTxt.AppendFormat("{0}@", GvRow.DataKey("FechaVenta").ToDateTime().ToString("MM-dd-yyyyy")) '10. Fecha De Reclamacion --> 05/07/2010 - SbTxt.AppendFormat("{0}@", GvRow.DataKey("FechaReclamacion").ToDateTime().ToString("dd/MM/yyyy")) + SbTxt.AppendFormat("{0}@", GvRow.DataKey("FechaReclamacion").ToDateTime().ToString("MM-dd-yyyyy")) '11. TipoComprobante --> 1 SbTxt.AppendFormat("{0}@", GvRow.DataKey("TipoComprobante")) '12. Comprobante --> N/A @@ -305,4 +300,10 @@ Partial Class Acumuladores_CatFoliosGarantia Response.End() End Sub + + Protected Sub GvGarantiasDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + e.Row.FCHyperLink("HlDescargarPDF").NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=AJUSTE&CveGarantiaDetalle={e.Row.DBCampo("CveGarantiaDetalle")}")}" + End If + End Sub End Class diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx b/Acumuladores/EntradasUsadosResumenRep.aspx index 9fe1ff8df..67f945d0f 100644 --- a/Acumuladores/EntradasUsadosResumenRep.aspx +++ b/Acumuladores/EntradasUsadosResumenRep.aspx @@ -14,7 +14,7 @@
  • - +
    • diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb index 4043c344f..8e389cde6 100644 --- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb +++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb @@ -9,6 +9,7 @@ Partial Class Acumuladores_RepEntradasUsados Private DiasSemana(7) As String Private Meses(12) As String + Private Cargado As Integer = 0 Private Property DatosEntradasUsados() As DataTable Get @@ -25,8 +26,6 @@ Partial Class Acumuladores_RepEntradasUsados txtFechaF.Text = Today CargarDatos() CargarCombos() - - End If End Sub @@ -36,14 +35,18 @@ Partial Class Acumuladores_RepEntradasUsados End Sub Protected Sub CargarCombos() - Dim ObjAcum As New ClsAcumuladores Dim fecha As Date = Date.Now.AddMonths(-1) - ObjAcum.GetAñosVentas(UsuarioActual.CveEmpresa) - DdlAño.DataSource = ObjAcum.DtResultados - DdlAño.DataBind() - DdlAño.SelectedValue = fecha.Year.ToEntero - ObjAcum.Dispose() + Dim Años As New ListItem + Dim i As Integer + If Cargado = 0 Then + For i = Date.Now.Year.ToEntero To (fecha.Year.ToEntero - 5) Step -1 + Años = New ListItem(i, i) + DdlAño.Items.Add(Años) + Next + End If + Cargado = 1 + DdlAño.SelectedValue = fecha.Year.ToEntero DdlMes.SelectedValue = fecha.Month.ToEntero End Sub diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx index a2dd036e1..7b495acc8 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx +++ b/Acumuladores/RepEntradasUsadosClientes.aspx @@ -16,7 +16,7 @@
  • - +
    • @@ -39,7 +39,7 @@
    -
    Almacen:
    +
    Almacén:
    diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index b14e03dfe..940bf0817 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -727,8 +727,9 @@ Public Class ClsAcumuladores Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CvePS As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer, CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String, - CveTipoDefecto As Integer, NumPoliza As String, Importe As Double, - Consecutivo As String, FechaAjuste As DateTime, PorcentajeAjuste As Decimal) As Boolean + CveTipoDefecto As Integer, CodigoTD As String, TipoComprobante As Integer, Comprobante As String, Importe As Double, + Consecutivo As String, FechaAjuste As DateTime, PorcentajeAjuste As Decimal, CveBCIAjuste As Integer, Etiqueta As String, CveClienteDistribuidor As Integer, + CveModeloAuto As Integer, Año As String) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_Acum_GarantiasDetalleAdd") With SqlAdapter.SelectCommand.Parameters @@ -739,12 +740,19 @@ Public Class ClsAcumuladores .Add("@CodigoEnsamble", SqlDbType.VarChar).Value = CodigoEnsamble .Add("@CodigoLinea", SqlDbType.VarChar).Value = CodigoLinea .Add("@CodigoInspeccion", SqlDbType.VarChar).Value = CodigoInspeccion - .Add("@CveTipoDefecto", SqlDbType.Int).Value = CveTipoDefecto - .Add("@NumPoliza", SqlDbType.VarChar).Value = NumPoliza + .Add("@CveTipoDefecto", SqlDbType.Int).Value = CveTipoDefecto + .Add("@CodigoTD", SqlDbType.VarChar).Value = CodigoTD + .Add("@TipoComprobante", SqlDbType.TinyInt).Value = TipoComprobante + .Add("@Comprobante", SqlDbType.VarChar).Value = Comprobante .Add("@Importe", SqlDbType.Float).Value = Importe .Add("@Consecutivo", SqlDbType.VarChar).Value = Consecutivo - .Add("@FechaAjuste", SqlDbType.DateTime).Value = FechaAjuste + .Add("@FechaAjuste", SqlDbType.DateTime).Value = FechaAjuste .Add("@PorcentajeAjuste", SqlDbType.Float).Value = PorcentajeAjuste + .Add("@CveBCIAjuste", SqlDbType.Int).Value = CveBCIAjuste + .Add("@Etiqueta", SqlDbType.VarChar).Value = Etiqueta + .Add("@CveClienteDistribuidor", SqlDbType.Int).Value = CveClienteDistribuidor + .Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto + .Add("@Año", SqlDbType.VarChar).Value = Año End With Try SqlAdapter.Fill(Data) @@ -754,6 +762,8 @@ Public Class ClsAcumuladores End Try Return Retorno End Function + + Public Function GetGarantiasDetalle(CveVenta As Integer) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_Acum_GarantiasDetalleGet") @@ -1153,13 +1163,14 @@ Public Class ClsAcumuladores Return Retorno End Function - Public Function GetFoliosGarantiasDetalle(CveFolioGarantia As Integer) As Boolean + Public Function GetFoliosGarantiasDetalle(CveFolioGarantia As Integer, Optional CveGarantiaDetalle As Integer = -1) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_Acum_GarantiasDetalleFolioGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia + .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia + .Add("@CveGarantiaDetalle", SqlDbType.Int).Value = CveGarantiaDetalle End With Try @@ -1195,20 +1206,6 @@ Public Class ClsAcumuladores Return Retorno End Function - Public Function GetAñosVentas(CveEmprea As Integer) As Boolean - Dim Retorno As Boolean = False - SqlDataAdapter(String.Format("select year(Fecha) as Año from Ventas where CveEmpresa = {0} group by year(Fecha) Order by year(Fecha)", CveEmprea.ToString), CommandType.Text) - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError(String.Format("Ocurrió un error al consultar los año de venta"), ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - Return Retorno - - End Function - #Region " IDisposable Support " ' IDisposable diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index a4eb2d97a..a1169276d 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -68,7 +68,7 @@ Public Class ClsClientes Public Property RecepcionPagos As String Public Property TipoPago As String Public Property CuentaContable As String - Public Property ConvenioCIE As String + 'Public Property ConvenioCIE As String Public Property FormaFacturacion As String Public Property IdCtaContClientes As Integer Public Property IdCtaContMonedaExtranjera As Integer @@ -86,8 +86,8 @@ Public Class ClsClientes Public Property CveCuentaFondoGarantia As Integer Public Property Codigo As String Public Property LimiteCredito As Double - Public Property NumCtaPago As String - Public Property CveMetodoPago As Integer + 'Public Property NumCtaPago As String + 'Public Property CveMetodoPago As Integer Public Property AplicaFEMSA As Boolean Public Property FEMSA_NumSociedad As String Public Property FEMSA_NumProveedor As String @@ -341,11 +341,11 @@ Public Class ClsClientes _CveCuentaRetIVA = Data.Rows(0)("IdCtaContRetIVASIG").ToString.ToEntero _CveCuentaRetISR = Data.Rows(0)("IdCtaContRetISRSIG").ToString.ToEntero _CveCuentaFondoGarantia = Data.Rows(0)("IdCtaContFondoGarantiaSIG").ToString.ToEntero - _ConvenioCIE = Data.Rows(0)("ConvenioCIE").ToString + '_ConvenioCIE = Data.Rows(0)("ConvenioCIE").ToString _FormaFacturacion = Data(0)("FormaFacturacion").ToString _LimiteCredito = Data(0)("LimiteCredito").ToString.ToDouble - _NumCtaPago = Data(0)("NumCtaPago").ToString - _CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero + '_NumCtaPago = Data(0)("NumCtaPago").ToString + '_CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero _AplicaFEMSA = CBool(Data(0)("AplicaFEMSA").ToString) _FEMSA_NumSociedad = Data(0)("FEMSA_NumSociedad").ToString _FEMSA_NumProveedor = Data(0)("FEMSA_NumProveedor").ToString @@ -569,7 +569,7 @@ Public Class ClsClientes RetieneIVAFletes As Boolean, CveUsuario As Integer, CveEmpresa As Integer, NombreCorto As String, CveVendedor As Integer, PlazoCobranza As Integer, PlazoCobranzaRemision As Integer, RecepcionPagos As String, TipoPago As String, IdCtaContClientes As Integer, CtaContClientes As String, IdCtaContAnticipos As Integer, CtaContAnticipos As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaFondoGarantia As Integer, CtaFondoGarantia As String, IdCtaContCompClientes As Integer, CtaCompClientes As String, IdCtaContCompAnticipos As Integer, CtaCompAnticipos As String, - ConvenioCIE As String, FormaFacturacion As String, Codigo As String, LimiteCredito As Double, NumCtaPago As String, CveMetodoPago As Integer, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String, FEMSA_NumProveedor As String, + FormaFacturacion As String, Codigo As String, LimiteCredito As Double, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String, FEMSA_NumProveedor As String, FEMSA_Mail As String, AplicaDetallista As Boolean, Detallista_GLNComprador As String, Detallista_Departamento As String, Detallista_GLNVendedor As String, Detallista_NumProveedor As String, SevenEleven_NumProveedor As String, AplicaFord As Boolean, Ford_GSDB As String, TelefonoExtension As String, TelefonoOtros As String, PermiteCredito As Boolean, CveSubProyecto As Integer, CveClienteCorporativo As Integer, Optional CveClienteClasificacion As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, @@ -637,14 +637,12 @@ Public Class ClsClientes .Add("@CtaContCompClientes", SqlDbType.VarChar).Value = CtaCompClientes .Add("@IdCtaContCompAnticipos", SqlDbType.Int).Value = IdCtaContCompAnticipos - .Add("@CtaContCompAnticipos", SqlDbType.VarChar).Value = CtaCompAnticipos - - .Add("@ConvenioCIE", SqlDbType.VarChar).Value = ConvenioCIE + .Add("@CtaContCompAnticipos", SqlDbType.VarChar).Value = CtaCompAnticipos + + .Add("@FormaFacturacion", SqlDbType.VarChar).Value = FormaFacturacion .Add("@Codigo", SqlDbType.VarChar).Value = Codigo - .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito - .Add("@NumCtaPago", SqlDbType.VarChar).Value = NumCtaPago - .Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago + .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito .Add("@AplicaFEMSA", SqlDbType.Bit).Value = If(AplicaFEMSA, 1, 0) .Add("@FEMSA_NumSociedad", SqlDbType.VarChar).Value = FEMSA_NumSociedad .Add("@FEMSA_NumProveedor", SqlDbType.VarChar).Value = FEMSA_NumProveedor @@ -754,7 +752,7 @@ Public Class ClsClientes IdCtaContClientes As Integer, CtaContClientes As String, IdCtaContAnticipos As Integer, CtaContAnticipos As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaFondoGarantia As Integer, CtaFondoGarantia As String, IdCtaContCompClientes As Integer, CtaCompClientes As String, IdCtaContCompAnticipos As Integer, CtaCompAnticipos As String, IdCtaContMonedaExtranjera As Integer, CtaContMonedaExtranjera As String, IdCtaContMonedaExtranjeraAnticipos As Integer, CtaContMonedaExtranjeraAnticipos As String, - ConvenioCIE As String, FormaFacturacion As String, Codigo As String, LimiteCredito As Double, NumCtaPago As String, CveMetodoPago As Integer, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String, + FormaFacturacion As String, Codigo As String, LimiteCredito As Double, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String, FEMSA_NumProveedor As String, FEMSA_Mail As String, AplicaDetallista As Boolean, Detallista_GLNComprador As String, Detallista_Departamento As String, Detallista_GLNVendedor As String, Detallista_NumProveedor As String, SevenEleven_NumProveedor As String, AplicaFord As Boolean, Ford_GSDB As String, CveUsuario As Integer, CveCliente As Integer, CveUsuarioModifico As Integer, CveEmpresa As Integer, TelefonoExtension As String, TelefonoOtros As String, PermiteCredito As Boolean, CveSubProyecto As Integer, CveClienteCorporativo As Integer, @@ -833,14 +831,13 @@ Public Class ClsClientes .Add("@IdCtaContMonedaExtranjera", SqlDbType.Int).Value = IdCtaContMonedaExtranjera .Add("@CtaContMonedaExtranjera", SqlDbType.VarChar).Value = CtaContMonedaExtranjera .Add("@IdCtaContMonedaExtranjeraAnticipos", SqlDbType.Int).Value = IdCtaContMonedaExtranjeraAnticipos - .Add("@CtaContMonedaExtranjeraAnticipos", SqlDbType.VarChar).Value = IdCtaContMonedaExtranjeraAnticipos - - .Add("@ConvenioCIE", SqlDbType.VarChar).Value = ConvenioCIE + .Add("@CtaContMonedaExtranjeraAnticipos", SqlDbType.VarChar).Value = IdCtaContMonedaExtranjeraAnticipos + + .Add("@FormaFacturacion", SqlDbType.VarChar).Value = FormaFacturacion .Add("@Codigo", SqlDbType.VarChar).Value = Codigo - .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito - .Add("@NumCtaPago", SqlDbType.VarChar).Value = NumCtaPago - .Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago + .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito + .Add("@AplicaFEMSA", SqlDbType.Bit).Value = If(AplicaFEMSA, 1, 0) .Add("@FEMSA_NumSociedad", SqlDbType.VarChar).Value = FEMSA_NumSociedad .Add("@FEMSA_NumProveedor", SqlDbType.VarChar).Value = FEMSA_NumProveedor diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index aaa18df7f..ccf45d815 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -7373,10 +7373,10 @@ Public Class ClsContPAQi AND PP.Fecha >= @Inicio AND PP.Fecha <= @Fin") StrSQL.Append(" END; ") - StrSQL.Append(" SELECT P.Id,P.Fecha,T.Nombre as TipoPoliza, MP.IdPoliza, P.IdUsuario, P.Concepto AS ConceptoPoliza,P.Cargos,P.Abonos,P.Folio ,P.Folio AS Numero , SN.Nombre AS SegNeg, MP.Concepto, ") - StrSQL.Append(" CASE WHEN ISNUMERIC(C.CODIGO) = 1 THEN FORMAT(CAST (C.CODIGO AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE C.CODIGO END AS CuentaFormato , MP.TipoMovto ") - StrSQL.Append(" ,C.Nombre AS Cuenta ,MP.Referencia AS Referencia, CASE WHEN MP.TipoMovto=0 THEN MP.Importe ELSE 0 END AS Cargo ") - StrSQL.Append(" , CASE WHEN MP.TipoMovto=1 THEN MP.Importe ELSE 0 END AS Abono,U.Nombre AS UsuarioRegistro ") + StrSQL.Append(" SELECT P.Id,P.Fecha,T.Nombre as TipoPoliza, MP.Id, P.IdUsuario, P.Concepto AS ConceptoPoliza,P.Cargos,P.Abonos,P.Folio ,P.Folio AS Numero , SN.Nombre AS SegNeg, MP.Concepto, ") + StrSQL.Append(" CASE WHEN ISNUMERIC(C.CODIGO) = 1 THEN FORMAT(CAST (C.CODIGO AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE C.CODIGO END AS CodigoCuenta , MP.TipoMovto ") + StrSQL.Append(" ,C.Nombre AS NombreCuenta ,MP.Referencia AS Referencia, CASE WHEN MP.TipoMovto=0 THEN MP.Importe ELSE 0 END AS Cargo ") + StrSQL.Append(" , CASE WHEN MP.TipoMovto=1 THEN MP.Importe ELSE 0 END AS Abono,U.Nombre AS NombreUsuario ") StrSQL.Append(" FROM Polizas P ") StrSQL.Append(" LEFT JOIN MovimientosPoliza MP ON P.Id= MP.IdPoliza ") diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 54b6235a9..03d56386d 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5923,7 +5923,7 @@ Public Class ClsContabilidad Public Function GetPrePolizasImpresion(CveEmpresa As Integer, FechaI As String, FechaF As String, Optional CveTipoPoliza As Integer = -1, Optional FolioI As Integer = -1, Optional FolioF As Integer = -1, Optional CveUsuario As Integer = -1, Optional CveSubProyecto As Integer = -1, - Optional CveCuenta As Integer = -1, Optional CvePlantillaPoliza As Integer = -1, Optional CveProveedor As Integer = -1) As Boolean + Optional CveCuenta As Integer = -1, Optional CvePlantillaPoliza As Integer = -1, Optional CveTipoProveedor As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasImpresionGet") @@ -5939,14 +5939,14 @@ Public Class ClsContabilidad .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CvePlantillaPoliza", SqlDbType.Int).Value = CvePlantillaPoliza - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor End With Try SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - Me.OnError("Ocurrió un error al eliminar el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Me.OnError("Ocurrió un error al obtener impresión pólizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno diff --git a/App_Code/ClsSisRoles.vb b/App_Code/ClsSisRoles.vb index da2d9a59a..85b9a7211 100644 --- a/App_Code/ClsSisRoles.vb +++ b/App_Code/ClsSisRoles.vb @@ -237,13 +237,15 @@ Public Class ClsSisRoles Return Retorno End Function - Public Function GetRolesModulos(CveRol As Integer, CveModulo As Integer) As Boolean + Public Function GetRolesModulos(CveRol As Integer, CveModulo As Integer, CvePlataforma As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Sis_RolesModulosGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveRol", SqlDbType.Int).Value = CveRol .Add("@CveModulo", SqlDbType.Int).Value = CveModulo + .Add("@CvePlataforma", SqlDbType.Int).Value = CvePlataforma + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/App_Code/ClsSubProyectos.vb b/App_Code/ClsSubProyectos.vb index f14b98c57..eb0f0d55a 100644 --- a/App_Code/ClsSubProyectos.vb +++ b/App_Code/ClsSubProyectos.vb @@ -327,13 +327,13 @@ Public Class ClsSubProyectos OnError("Ocurrió un error al obtener las ventas no timbradas por centro de costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function - + End Function + #Region "N U E V O C E N T R O D E C O S T O S" Public Function AddCentroCosto(SubProyecto As String, IdSegNeg As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveProyecto As Integer, Optional Serie As String = "", Optional IVA As Double = 0.0, Optional Calle As String = "", Optional NoExt As String = "", Optional NoInt As String = "", Optional Colonia As String = "", Optional Localidad As String = "", Optional Municipio As String = "", Optional Estado As String = "", Optional Pais As String = "", Optional CP As String = "", Optional TipoSucursal As Integer = 0, Optional EsSucursal As Integer = 0, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional AplicaComercioExterior As Boolean = False, Optional Correo As String = "", Optional CvePrecioLista As Integer = -1, - Optional Telefono As String = "", Optional NoVerificaAlmacen As Boolean = False) As Boolean + Optional Telefono As String = "", Optional NoVerificaAlmacen As Boolean = False, Optional CodigoSucursal As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CentroCostoAdd") @@ -365,7 +365,8 @@ Public Class ClsSubProyectos .Add("@Correo", SqlDbType.VarChar).Value = Correo .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista .Add("@Telefono", SqlDbType.VarChar).Value = Telefono - .Add("@NoVerificaAlmacen", SqlDbType.Bit).Value = NoVerificaAlmacen + .Add("@NoVerificaAlmacen", SqlDbType.Bit).Value = NoVerificaAlmacen + .Add("@CodigoSucursal", SqlDbType.VarChar).Value = CodigoSucursal .Add("@CveSubProyecto", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -388,7 +389,7 @@ Public Class ClsSubProyectos Public Function UpdateCentroCosto(CveSubProyecto As Integer, SubProyecto As String, IdSegNeg As Integer, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveProyecto As Integer, Optional Serie As String = "", Optional IVA As Double = 0.0, Optional Calle As String = "", Optional NoExt As String = "", Optional NoInt As String = "", Optional Colonia As String = "", Optional Localidad As String = "", Optional Municipio As String = "", Optional Estado As String = "", Optional Pais As String = "", Optional CP As String = "", Optional TipoSucursal As Integer = 0, Optional EsSucursal As Integer = 0, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional AplicaComercioExterior As Boolean = False, Optional Correo As String = "", Optional CvePrecioLista As Integer = -1, - Optional Telefono As String = "", Optional HorarioVerano As Integer = Nothing, Optional HorarioInvierno As Integer = Nothing, Optional NoVerificaAlmacen As Boolean = False) As Boolean + Optional Telefono As String = "", Optional HorarioVerano As Integer = Nothing, Optional HorarioInvierno As Integer = Nothing, Optional NoVerificaAlmacen As Boolean = False, Optional CodigoSucursal As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CentroCostoUpdate") @@ -425,6 +426,7 @@ Public Class ClsSubProyectos .Add("@HorarioVerano", SqlDbType.Int).Value = HorarioVerano .Add("@HorarioInvierno", SqlDbType.Int).Value = HorarioInvierno .Add("@NoVerificaAlmacen", SqlDbType.Bit).Value = NoVerificaAlmacen + .Add("@CodigoSucursal", SqlDbType.VarChar).Value = CodigoSucursal End With Try @@ -442,10 +444,10 @@ Public Class ClsSubProyectos End Try Return Retorno - End Function + End Function #End Region #Region " IDisposable Support " - ' Visual Basic agregó este código para implementar correctamente el modelo descartable. + ' Visual Basic agregó este código para implementar correctamente el modelo descartable. Public Sub Dispose() Implements IDisposable.Dispose ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean). ConexionClose() diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 8ebf065ce..37f285efa 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1527,8 +1527,9 @@ Namespace Modelos If DtAjustes IsNot Nothing AndAlso DtAjustes.Rows.Count > 0 Then For Each Dr As DataRow In DtAjustes.Rows If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero, - Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero, - Dr("NumPoliza").ToString, Dr("Importe").ToString.ToDouble, Dr("Consecutivo").ToString, Dr("FechaAjuste").ToString.ToDateTime(), Dr("PorcentajeAjuste").ToString.ToDecimal()) Then + Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero, Dr("CodigoTD").ToString, Dr("TipoComprobante").ToString.ToEntero(), + Dr("Comprobante").ToString, Dr("Importe").ToString.ToDouble, Dr("Consecutivo").ToString, Dr("FechaAjuste").ToString.ToDateTime(), Dr("PorcentajeAjuste").ToString.ToDecimal(), + Dr("CveBCIAjuste").ToString.ToEntero(), Dr("Etiqueta").ToString, Dr("CveClienteDistribuidor").ToString.ToEntero(), Dr("CveModeloAuto").ToString.ToEntero(), Dr("Año").ToString) Then ErrorList.Add("Ocurrió un error al agregar la garantia detalle.") End If Next @@ -4839,14 +4840,14 @@ Namespace Modelos Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString Dim SerieFolio As String = ObjVentas.DtResultados(0)("SerieFolio").ToString - Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL() + Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundAD() Dim TotalCostoAcumulado As Decimal = 0 Dim cont As Integer = 1 Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Modelos/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) 'SE AGREGA MOVIMIENTO SEPARADO POR LA CUENTA DE VENTAS (ER) For Each RowInv As DataRow In tmpCostos.Rows - ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL() + ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundAD() TotalCostoAcumulado += ValorInventario 'CUANDO ES EL ÚLTIMO MOVIMIENTO Y HAY DIFERENCIAS EN LOS IMPORTES diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index ee3b331f1..94768effd 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -380,7 +380,7 @@ Namespace Extensiones Dim Pag As Page = DirectCast(System.Web.HttpContext.Current.Handler, Page) Dim script As String = "" If showalert Then - script = String.Format("bootbox.dialog({{message: ""{0} "", className: ""{11}"", {12} onEscape: function() {{ {12} }},title: ""{1}"",buttons: {{ success: {{ label: ""{2}"", className: "" {3}""," & + script = String.Format("bootbox.dialog({{message: ""{0} "", className: ""{11}"", {13} onEscape: function() {{ {12} }},title: ""{1}"",buttons: {{ success: {{ label: ""{2}"", className: "" {3}""," & "callback: function() {{ {4} }} }}, danger: {{ label: ""{5}"", className: "" {6}"",callback: function() {{ {7} }} }}," & "main: {{ label: ""{8}"", className: "" {9}"", callback: function() {{ {10} }} }} }} }});", Mensaje, Titulo, b3title, b3clas, b3js, b2title, b2clas, b2js, b1title, b1clas, b1js, headerclas, onEscape, closeButtonOption) diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 8f1a3f8bf..a2726b647 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -1382,12 +1382,21 @@ Partial Class Bancos_PopIECompras Dim rv As RangeValidator = CType(e.Row.FindControl("RVSaldoDeudor"), RangeValidator) End If - End Sub + End Sub #End Region - + #Region "G U A R D A R" Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click - 'VALIDACION PARA LOS IMPORTES CUANDO SE QUIERE PAGAR EN DIFERENTE MONEDA + + + If FechaCompra.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then + Alert($"La fecha de compra no puede ser mayor que la fecha de pago
    Fecha de compra: { FechaCompra.ToString("dd/MM/yyyy") } ", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + + + 'VALIDACION PARA LOS IMPORTES CUANDO SE QUIERE PAGAR EN DIFERENTE MONEDA If Not Page.IsValid Then Exit Sub End If diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 4df830f18..07c87b1ed 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1382,12 +1382,21 @@ Partial Class Bancos_PopIEVentas End If UpDatos.Update() - End Sub + End Sub #End Region - + #Region "G U A R D A R" - Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click - 'VALIDACION PARA LOS IMPORTES CUANDO SE QUIERE PAGAR EN DIFERENTE MONEDA + Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click + + + + If FechaVenta.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then + Alert($"La fecha de venta no puede ser mayor que la fecha de pago
    Fecha de venta: { FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + + 'VALIDACION PARA LOS IMPORTES CUANDO SE QUIERE PAGAR EN DIFERENTE MONEDA If Not Page.IsValid Then Exit Sub End If @@ -2148,34 +2157,34 @@ Partial Class Bancos_PopIEVentas Else ImporteMovimiento = 0 End If - CveSubProyectoContabilizar = CveSubProyectoVenta - - 'Case 65 'Perdida - ' If CveMoneda <> 1 OrElse CveMonedaVenta <> 1 Then - ' IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria - ' CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria - - ' Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta) - ' TimpocambioGeneral = TCImpuestos - - - ' Dim Diferencia As Decimal = ((MovimientoPagar.Total * PorcentajePago) * tipoCambioVentaValuacion) - ((MovimientoPagar.Total * PorcentajePago) * tipoCambioPago) 'Añadimos la diferencia de perdida en la venta - ' Diferencia -= ((MovimientoPagar.IVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IVA - ' Diferencia += ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA - ' Diferencia += ((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR - ' Diferencia -= ((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS - ' Diferencia = Math.Round(Diferencia, 2) - - ' 'si la diferencia es negativa es pérdida, si es positiva es ganancia - ' If Diferencia > 0 AndAlso CveMonedaVenta = 2 Then - ' ImporteMovimiento = Math.Abs(Diferencia) - ' ImporteMX = ImporteMovimiento - ' End If - ' Else - ' ImporteMovimiento = 0 - ' End If - ' CveSubProyectoContabilizar = CveSubProyectoVenta - + CveSubProyectoContabilizar = CveSubProyectoVenta + + 'Case 65 'Perdida + ' If CveMoneda <> 1 OrElse CveMonedaVenta <> 1 Then + ' IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria + ' CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria + + ' Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta) + ' TimpocambioGeneral = TCImpuestos + + + ' Dim Diferencia As Decimal = ((MovimientoPagar.Total * PorcentajePago) * tipoCambioVentaValuacion) - ((MovimientoPagar.Total * PorcentajePago) * tipoCambioPago) 'Añadimos la diferencia de perdida en la venta + ' Diferencia -= ((MovimientoPagar.IVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IVA + ' Diferencia += ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA + ' Diferencia += ((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR + ' Diferencia -= ((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS + ' Diferencia = Math.Round(Diferencia, 2) + + ' 'si la diferencia es negativa es pérdida, si es positiva es ganancia + ' If Diferencia > 0 AndAlso CveMonedaVenta = 2 Then + ' ImporteMovimiento = Math.Abs(Diferencia) + ' ImporteMX = ImporteMovimiento + ' End If + ' Else + ' ImporteMovimiento = 0 + ' End If + ' CveSubProyectoContabilizar = CveSubProyectoVenta + Case 30 If RBLContado.SelectedValue = "1" Then If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then @@ -2878,249 +2887,249 @@ Partial Class Bancos_PopIEVentas End If Next ImporteMovimiento = 0 - End If - - 'Case 16 'Ret ISR X Acreditar COMPRA - ' If RBLContado.SelectedValue = "5" Then - ' For Each rw As GridViewRow In GvCompras.Rows - ' If rw.FCCheckBox("Chk").Checked Then - ' If rw.DataKey("CveRetIVAConcepto").ToString.ToDecimal = 1 Then - ' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal - - ' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then - ' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra - ' ImporteMX = ImporteMovimiento - ' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then - ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) - ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal - ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then - ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) - ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal - ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then - ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) - ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal - ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) - - ' If rw.DataKey("TipoCambio").ToString.ToDecimal > 1 Then ConceptoMovimiento += $" TC:{rw.DataKey("TipoCambio").ToString.ToDecimal} ${ImporteMovimiento.FormatoNumero(2)}" - - ' 'Conta ContPAQ - ' If IdCtaContRetISRProveedor > 0 Then - ' IdCtaContable = IdCtaContRetISRProveedor - ' ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then - ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(315).ToEntero - ' Else - ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' End If - ' End If - ' End If - - ' 'Conta SIG - ' If CveCuentaRetISRProveedor <> 0 Then - ' CveCuenta = CveCuentaRetISRProveedor - ' Else - ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero - ' End If - ' End If - ' End If - - ' If ImporteMovimiento > 0 Then - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then - ' MsgError = "No se pudo insertar la póliza" - ' End If - ' End If - ' End If - ' End If - ' Next - ' ImporteMovimiento = 0 - ' End If - - 'Case 23 'Ret ISR Acreditable COMPRA - ' If RBLContado.SelectedValue = "5" Then - ' For Each rw As GridViewRow In GvCompras.Rows - ' If rw.FCCheckBox("Chk").Checked Then - ' If rw.DataKey("CveRetIVAConcepto").ToString.ToDecimal = 1 Then - ' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal - - ' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then - ' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra - ' ImporteMX = ImporteMovimiento - ' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then - ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) - ' ImporteMX = ImporteMovimiento '* If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) - ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then - ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) - ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) - ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then - ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) - ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) - ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) - - ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" - - ' 'Conta ContPAQ - ' If IdCtaContRetISRAcreditableProveedor > 0 Then - ' IdCtaContable = IdCtaContRetISRAcreditableProveedor - ' ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then - ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(316).ToEntero - ' Else - ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' End If - ' End If - ' End If - - ' 'Conta SIG - ' If CveCuentaRetISRProveedor <> 0 Then - ' CveCuenta = CveCuentaRetISRProveedor - ' Else - ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero - ' End If - ' End If - ' End If - - - ' If ImporteMovimiento > 0 Then - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then - ' MsgError = "No se pudo insertar la póliza" - ' End If - ' End If - ' End If - ' End If - ' Next - ' ImporteMovimiento = 0 - ' End If - 'Case 243 'Ret ISR x Acreditar Terceros y Arrendamiento - ' If RBLContado.SelectedValue = "5" Then - ' For Each rw As GridViewRow In GvCompras.Rows - ' If rw.FCCheckBox("Chk").Checked Then - ' If rw.DataKey("CveRetISRConcepto").ToString.ToDecimal = 2 Then - ' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal - - ' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then - ' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra - ' ImporteMX = ImporteMovimiento - ' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then - ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) - ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal - ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then - ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) - ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal - ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then - ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) - ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal - ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) - - ' If rw.DataKey("TipoCambio").ToString.ToDecimal > 1 Then ConceptoMovimiento += $" TC:{rw.DataKey("TipoCambio").ToString.ToDecimal} ${ImporteMovimiento.FormatoNumero(2)}" - - ' 'Conta ContPAQ - ' If IdCtaContRetISRProveedor > 0 Then - ' IdCtaContable = IdCtaContRetISRProveedor - ' ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then - ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(317).ToEntero - ' Else - ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' End If - ' End If - ' End If - - ' 'Conta SIG - ' If CveCuentaRetISRProveedor <> 0 Then - ' CveCuenta = CveCuentaRetISRProveedor - ' Else - ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero - ' End If - ' End If - ' End If - - ' If ImporteMovimiento > 0 Then - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then - ' MsgError = "No se pudo insertar la póliza" - ' End If - ' End If - ' End If - ' End If - ' Next - ' ImporteMovimiento = 0 - ' End If - - 'Case 244 'Ret ISR Acreditable Terceros y Arrendamiento - ' If RBLContado.SelectedValue = "5" Then - ' For Each rw As GridViewRow In GvCompras.Rows - ' If rw.FCCheckBox("Chk").Checked Then - ' If rw.DataKey("CveRetISRConcepto").ToString.ToDecimal = 2 Then - ' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal - - ' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then - ' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra - ' ImporteMX = ImporteMovimiento - ' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then - ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) - ' ImporteMX = ImporteMovimiento '* If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) - ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then - ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) - ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) - ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then - ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) - ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) - ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) - - ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" - - ' 'Conta ContPAQ - ' If IdCtaContRetISRAcreditableProveedor > 0 Then - ' IdCtaContable = IdCtaContRetISRAcreditableProveedor - ' ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then - ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero - ' Else - ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero - ' End If - ' End If - ' End If - - ' 'Conta SIG - ' If CveCuentaRetISRProveedor <> 0 Then - ' CveCuenta = CveCuentaRetISRProveedor - ' Else - ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then - ' If ObjMov.DtResultados.Rows.Count > 0 Then - ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero - ' End If - ' End If - ' End If - - - ' If ImporteMovimiento > 0 Then - ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then - ' MsgError = "No se pudo insertar la póliza" - ' End If - ' End If - ' End If - ' End If - ' Next - ' ImporteMovimiento = 0 - ' End If - + End If + + 'Case 16 'Ret ISR X Acreditar COMPRA + ' If RBLContado.SelectedValue = "5" Then + ' For Each rw As GridViewRow In GvCompras.Rows + ' If rw.FCCheckBox("Chk").Checked Then + ' If rw.DataKey("CveRetIVAConcepto").ToString.ToDecimal = 1 Then + ' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal + + ' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then + ' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra + ' ImporteMX = ImporteMovimiento + ' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then + ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) + ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal + ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then + ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) + ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal + ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then + ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) + ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal + ' End If + ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) + ' ImporteMX = Math.Round(ImporteMX, 2) + + ' If rw.DataKey("TipoCambio").ToString.ToDecimal > 1 Then ConceptoMovimiento += $" TC:{rw.DataKey("TipoCambio").ToString.ToDecimal} ${ImporteMovimiento.FormatoNumero(2)}" + + ' 'Conta ContPAQ + ' If IdCtaContRetISRProveedor > 0 Then + ' IdCtaContable = IdCtaContRetISRProveedor + ' ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then + ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(315).ToEntero + ' Else + ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then + ' If ObjMov.DtResultados.Rows.Count > 0 Then + ' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero + ' End If + ' End If + ' End If + + ' 'Conta SIG + ' If CveCuentaRetISRProveedor <> 0 Then + ' CveCuenta = CveCuentaRetISRProveedor + ' Else + ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then + ' If ObjMov.DtResultados.Rows.Count > 0 Then + ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero + ' End If + ' End If + ' End If + + ' If ImporteMovimiento > 0 Then + ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then + ' MsgError = "No se pudo insertar la póliza" + ' End If + ' End If + ' End If + ' End If + ' Next + ' ImporteMovimiento = 0 + ' End If + + 'Case 23 'Ret ISR Acreditable COMPRA + ' If RBLContado.SelectedValue = "5" Then + ' For Each rw As GridViewRow In GvCompras.Rows + ' If rw.FCCheckBox("Chk").Checked Then + ' If rw.DataKey("CveRetIVAConcepto").ToString.ToDecimal = 1 Then + ' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal + + ' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then + ' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra + ' ImporteMX = ImporteMovimiento + ' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then + ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) + ' ImporteMX = ImporteMovimiento '* If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) + ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then + ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) + ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) + ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then + ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) + ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) + ' End If + ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) + ' ImporteMX = Math.Round(ImporteMX, 2) + + ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" + + ' 'Conta ContPAQ + ' If IdCtaContRetISRAcreditableProveedor > 0 Then + ' IdCtaContable = IdCtaContRetISRAcreditableProveedor + ' ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then + ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(316).ToEntero + ' Else + ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then + ' If ObjMov.DtResultados.Rows.Count > 0 Then + ' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero + ' End If + ' End If + ' End If + + ' 'Conta SIG + ' If CveCuentaRetISRProveedor <> 0 Then + ' CveCuenta = CveCuentaRetISRProveedor + ' Else + ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then + ' If ObjMov.DtResultados.Rows.Count > 0 Then + ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero + ' End If + ' End If + ' End If + + + ' If ImporteMovimiento > 0 Then + ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then + ' MsgError = "No se pudo insertar la póliza" + ' End If + ' End If + ' End If + ' End If + ' Next + ' ImporteMovimiento = 0 + ' End If + 'Case 243 'Ret ISR x Acreditar Terceros y Arrendamiento + ' If RBLContado.SelectedValue = "5" Then + ' For Each rw As GridViewRow In GvCompras.Rows + ' If rw.FCCheckBox("Chk").Checked Then + ' If rw.DataKey("CveRetISRConcepto").ToString.ToDecimal = 2 Then + ' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal + + ' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then + ' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra + ' ImporteMX = ImporteMovimiento + ' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then + ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) + ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal + ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then + ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) + ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal + ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then + ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) + ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal + ' End If + ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) + ' ImporteMX = Math.Round(ImporteMX, 2) + + ' If rw.DataKey("TipoCambio").ToString.ToDecimal > 1 Then ConceptoMovimiento += $" TC:{rw.DataKey("TipoCambio").ToString.ToDecimal} ${ImporteMovimiento.FormatoNumero(2)}" + + ' 'Conta ContPAQ + ' If IdCtaContRetISRProveedor > 0 Then + ' IdCtaContable = IdCtaContRetISRProveedor + ' ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then + ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(317).ToEntero + ' Else + ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then + ' If ObjMov.DtResultados.Rows.Count > 0 Then + ' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero + ' End If + ' End If + ' End If + + ' 'Conta SIG + ' If CveCuentaRetISRProveedor <> 0 Then + ' CveCuenta = CveCuentaRetISRProveedor + ' Else + ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then + ' If ObjMov.DtResultados.Rows.Count > 0 Then + ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero + ' End If + ' End If + ' End If + + ' If ImporteMovimiento > 0 Then + ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then + ' MsgError = "No se pudo insertar la póliza" + ' End If + ' End If + ' End If + ' End If + ' Next + ' ImporteMovimiento = 0 + ' End If + + 'Case 244 'Ret ISR Acreditable Terceros y Arrendamiento + ' If RBLContado.SelectedValue = "5" Then + ' For Each rw As GridViewRow In GvCompras.Rows + ' If rw.FCCheckBox("Chk").Checked Then + ' If rw.DataKey("CveRetISRConcepto").ToString.ToDecimal = 2 Then + ' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal + + ' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then + ' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra + ' ImporteMX = ImporteMovimiento + ' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then + ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) + ' ImporteMX = ImporteMovimiento '* If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) + ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then + ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) + ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) + ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then + ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) + ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) + ' End If + ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) + ' ImporteMX = Math.Round(ImporteMX, 2) + + ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" + + ' 'Conta ContPAQ + ' If IdCtaContRetISRAcreditableProveedor > 0 Then + ' IdCtaContable = IdCtaContRetISRAcreditableProveedor + ' ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then + ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero + ' Else + ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then + ' If ObjMov.DtResultados.Rows.Count > 0 Then + ' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero + ' End If + ' End If + ' End If + + ' 'Conta SIG + ' If CveCuentaRetISRProveedor <> 0 Then + ' CveCuenta = CveCuentaRetISRProveedor + ' Else + ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then + ' If ObjMov.DtResultados.Rows.Count > 0 Then + ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero + ' End If + ' End If + ' End If + + + ' If ImporteMovimiento > 0 Then + ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then + ' MsgError = "No se pudo insertar la póliza" + ' End If + ' End If + ' End If + ' End If + ' Next + ' ImporteMovimiento = 0 + ' End If + Case 14 'Iva por Acreditar COMPRA If RBLContado.SelectedValue = "5" Then For Each rw As GridViewRow In GvCompras.Rows diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index e0d894fd5..269273ba0 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -711,6 +711,30 @@ Partial Class Bancos_ProveedoresAbonar #Region " GUARDAR " Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click + + + Dim ValFechaDocumento As Boolean = False + Dim FoliosFechasValFechaDocumento As New StringBuilder + + FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha superior a la fecha de pago:
    ") + + For Each gvRowVal As GridViewRow In GvCxP.Rows + + If gvRowVal.FCCheckBox("Chk").Checked Then + If gvRowVal.DataKey("Fecha").ToDate > TxtFechaDocumento.Text.ToDate Then + FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
    ") + ValFechaDocumento = True + End If + + End If + Next + + If ValFechaDocumento Then + Alert(FoliosFechasValFechaDocumento.ToString, TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If DdlTipoTransaccion.SelectedValue.ToEntero < 0 Then Alert("Seleccione un tipo de transacción", TipoMensaje.MsgAdvertencia) Exit Sub diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 4ffaeb928..6bd0ab547 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3988,6 +3988,20 @@ Partial Class Compras_Compras Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click '------------------INICIA VALIDACIONES------------------ + + Dim TempIva As Decimal + For Each drowv As DataRow In TmpDT.Rows + TempIva = TempIva + (drowv("Total").ToString.ToDecimal * drowv("IVAPorcentaje").ToString.ToDecimal) + Next + + Dim DifGenelraIvas As Decimal = (TxtIVA.Text.ToDecimal - TempIva) + + If Math.Abs(DifGenelraIvas) > 0.2 Then + Alert($"Los importes no coinciden, error en calculo de IVA diferencia { DifGenelraIvas }", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + Dim EstatusCredito As Integer = 0 Dim CveSubProyecto As Integer = 0 'Credito Multiple @@ -4586,7 +4600,7 @@ Partial Class Compras_Compras 'End If 'METODO DE PREPOLIZA DE ALMACEN - If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 152, 153, 159, 160, 161, 162, 163) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then + If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 152, 153, 154, 159, 160, 161, 162, 163) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal If ImporteAlmacen > 0 Then If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 7f42c8bf3..3992cdd1d 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -491,6 +491,13 @@ Partial Class PopUpVerFactura If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString) End If + End If + + 'PDF AJUSTE + If UrlParametros("OP").ToString = "AJUSTE" Then + If UrlParametros("CVEGARANTIADETALLE") IsNot Nothing Then + ImprimirPDFAjuste(UrlParametros("CVEGARANTIADETALLE").ToString.ToEntero) + End If End If End Sub @@ -1302,7 +1309,7 @@ Partial Class PopUpVerFactura Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo") - If Recibio.Trim = "" Then + If String.IsNullOrEmpty(Recibio) Then Dim ObjRH As New ClsRH If ObjRH.GetPersonal(ObjInventarios.CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then Recibio = ObjRH.DtResultados.Rows(0)("NombreCompleto").ToString @@ -4509,4 +4516,153 @@ Partial Class PopUpVerFactura End Function #End Region +#Region "OP = AJUSTE" + Private Sub ImprimirPDFAjuste(CveGarantiaDetalle As Integer) + ' Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim RowAjuste As DataRow = Nothing + + Using ObjAcum As New ClsAcumuladores + If ObjAcum.GetFoliosGarantiasDetalle(-1, CveGarantiaDetalle) Then + If ObjAcum.DtResultados.Rows.Count > 0 Then + RowAjuste = ObjAcum.DtResultados.Rows(0) + End If + End If + End Using + + Dim CvePSAjuste As Integer = RowAjuste("CvePS").ToString.ToEntero() + Dim CveCliente As Integer = RowAjuste("CveCliente").ToString.ToEntero() + Dim CveClienteDistribuidor As Integer = RowAjuste("CveClienteDistribuidor").ToString.ToEntero() + Dim Consec As String = RowAjuste("Consecutivo").ToString + Dim FolioGarantia As String = RowAjuste("FolioGarantia").ToString + Dim FechaAjuste As DateTime = RowAjuste("FechaVenta").ToString.ToDateTime() + Dim FechaReclamacion As DateTime = RowAjuste("FechaReclamacion").ToString.ToDateTime() + Dim TipoDefecto As String = RowAjuste("TipoDefecto").ToString + Dim CveTipoUso As Integer = RowAjuste("CveTipoUso").ToString.ToEntero() + Dim CodigoEnsamble As String = RowAjuste("CodigoEnsamble").ToString + Dim CodigoLinea As String = RowAjuste("CodigoLinea").ToString + Dim CodigoInspeccion As String = RowAjuste("CodigoInspeccion").ToString + + Dim MesesUso As String = "0" + Dim PorcentajeAjuste As String = RowAjuste("PorcentajeAjuste").ToString + Dim BCIAjuste As String = RowAjuste("BCIAjuste").ToString + Dim Etiqueta As String = RowAjuste("Etiqueta").ToString + + Dim Año As String = RowAjuste("Año").ToString + Dim Comprobante As String = RowAjuste("Comprobante").ToString + + Dim ModeloAuto As String = RowAjuste("ModeloAuto").ToString + Dim MarcaAuto As String = RowAjuste("MarcaAuto").ToString + + Dim MarcaPS As String = "" + Dim CveMarca As Integer = -1 + + Dim FechaI As Date = FechaAjuste.AddDays(1) + Dim FechaF As Date = FechaReclamacion + + Dim Dia As Integer = FechaI.Day + Try + 'validación adicional, para saber si el mes tiene 31 días y el actua es menor. + If FechaI.Day > Today.LastDayOfMonth.Day Then Dia = Today.LastDayOfMonth.Day + Dim FechaT As Date = String.Format("{0}/{1}/{2}", Dia, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual + + Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo + + If FechaT > FechaF Then + 'todavía está en el mes actual. + MesesTrascurridos = MesesTrascurridos + Else + MesesTrascurridos = MesesTrascurridos + 1 + End If + + MesesUso = MesesTrascurridos.ToString + + Catch ex As Exception + OnError("Ocurrió un error al calcular los meses de uso", ex) + End Try + + + Dim ObjPS As New ClsProductosServicios + If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then + MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", CvePSAjuste)) + End If + ObjPS.Dispose() + + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim DtDatos As New DataTable + + Dim params As New List(Of ReportParameter) + + + 'Informacion Distribuidor + If (CveClienteDistribuidor > 0) Then + + Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveClienteDistribuidor)) + Dim CiudadEstado As String = "" + Dim Telefono As String = "" + Dim Nombre As String = "" + + If DatosClienteSeleccionado IsNot Nothing Then + CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado")) + Telefono = DatosClienteSeleccionado("Telefono").ToString + Nombre = DatosClienteSeleccionado("Nombre").ToString + End If + + params.Add(New ReportParameter("NombreDistribuidor", Nombre)) + params.Add(New ReportParameter("CiudadEstado", CiudadEstado)) + params.Add(New ReportParameter("TelCliente", Telefono)) + End If + + + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Consec", Consec)) + params.Add(New ReportParameter("FolioAcuse", FolioGarantia)) + + 'Informacion de Garantia o ajuste + params.Add(New ReportParameter("FechaInst", FechaAjuste.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Fecha", FechaReclamacion.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Defecto", TipoDefecto)) + params.Add(New ReportParameter("MesesUso", MesesUso)) + params.Add(New ReportParameter("PorcentajeAjuste", PorcentajeAjuste)) + + 'Informacion Acumulador + params.Add(New ReportParameter("CodEnsamble", CodigoEnsamble)) + params.Add(New ReportParameter("CodLinea", CodigoLinea)) + params.Add(New ReportParameter("CodInspeccion", CodigoInspeccion)) + params.Add(New ReportParameter("Tipo", BCIAjuste)) + params.Add(New ReportParameter("Marca", MarcaPS)) + params.Add(New ReportParameter("Etiqueta", Etiqueta)) + + 'Informacion Vehiculo + params.Add(New ReportParameter("MarcaAuto", MarcaAuto)) + params.Add(New ReportParameter("TipoAuto", ModeloAuto)) + + 'Informacion Consumidor + 'Informacion Distribuidor + If (CveCliente > 0) Then + + Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveCliente)) + Dim Nombre As String = DatosClienteSeleccionado.Item("Nombre").ToString + Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString + Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString + + params.Add(New ReportParameter("NombreCliente", Nombre)) + params.Add(New ReportParameter("Direccion", String.Format("{0}, {1}", Ciudad.Trim, Estado))) + params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad.Trim, Estado))) + params.Add(New ReportParameter("TelConsumidor", DatosClienteSeleccionado.Item("Telefono").ToString)) + End If + + params.Add(New ReportParameter("Anio", Año)) + params.Add(New ReportParameter("Comprobante", Comprobante)) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") + End Sub +#End Region + End Class diff --git a/Compras/ReembolsosComprobaciones.aspx b/Compras/ReembolsosComprobaciones.aspx index 02d0f7f59..285fe20dd 100644 --- a/Compras/ReembolsosComprobaciones.aspx +++ b/Compras/ReembolsosComprobaciones.aspx @@ -244,7 +244,7 @@
    -
    +
    diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 4b00fbc2c..8e2fedf24 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -112,11 +112,11 @@ Partial Class Compras_ReembolsosComprobaciones CbPermitirExcedente.Visible = False End If - If UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12, 72, 80, 119) Then - rowComisiones.Visible = True - End If + ' If UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12, 72, 80, 119) Then + 'rowComisiones.Visible = True + ' End If - If UsuarioActual.CveEmpresa = 119 Then + If UsuarioActual.CveEmpresa = 119 Then ChkReembolsarSinBancos.Visible = True End If diff --git a/Contabilidad/PolizasImpresion.aspx.vb b/Contabilidad/PolizasImpresion.aspx.vb index 7450186f7..d597518c4 100644 --- a/Contabilidad/PolizasImpresion.aspx.vb +++ b/Contabilidad/PolizasImpresion.aspx.vb @@ -49,8 +49,8 @@ Partial Class Contabilidad_PolizasImpresion Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString)) - params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text)) + params.Add(New ReportParameter("FFin", TxtFechaFin.Text)) params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) 'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString)) 'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString)) diff --git a/Contabilidad2/PolizasImpresion.aspx.vb b/Contabilidad2/PolizasImpresion.aspx.vb index 992887fb8..6b89745ae 100644 --- a/Contabilidad2/PolizasImpresion.aspx.vb +++ b/Contabilidad2/PolizasImpresion.aspx.vb @@ -42,7 +42,7 @@ Partial Class Contabilidad2_PolizasImpresion If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text, TxtFechaFin.Text, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli, FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero, - CveProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then + CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then If ObjConta.DtResultados.Rows.Count < 10000 Then If ObjConta.DtResultados.Rows.Count > 0 Then @@ -51,8 +51,8 @@ Partial Class Contabilidad2_PolizasImpresion Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString)) - params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text)) + params.Add(New ReportParameter("FFin", TxtFechaFin.Text)) params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) 'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString)) 'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString)) diff --git a/Contratos/Contrato.aspx b/Contratos/Contrato.aspx index 3624dace8..72adfa923 100644 --- a/Contratos/Contrato.aspx +++ b/Contratos/Contrato.aspx @@ -291,7 +291,7 @@
    - +
    @@ -741,16 +741,7 @@
    -
    -
    -
    -
    - - -
    -
    -
    -
    +
    @@ -1972,8 +1963,21 @@
    -
    - +
    + +
    +
    + +
    +
    +
    +
    +
    +
    + + +
    +
    @@ -2003,11 +2007,11 @@ - <%-- --%> + <%-- --%> -<%-- + <%-- --%> diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 1653e71d9..cc658606f 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -4450,15 +4450,17 @@ Partial Class Contratos_Default Select Case TipoContrato Case 7 'Contrato Comodato - SufijoContrato = "COM" + SufijoContrato = "COMODATO" Case 8 'Contrato Consignacion - SufijoContrato = "CONSIG" + SufijoContrato = "CONSIGNACION" + Case 9 'Contrato de Arrendamiento + SufijoContrato = "ARRENDAMIENTO" Case 10 'Contrato de Financiamiento - SufijoContrato = "FIN" + SufijoContrato = "FINANCIAMIENTO" Case 13 'Contrato Servicio Administrado de Impresion (?) SufijoContrato = "MPS" Case 28 'Convenio Precio Fijo - SufijoContrato = "CON" + SufijoContrato = "CONVENIO" End Select Dim Serie As String = String.Format("-{0}-{1}", DateTime.Today.Year, SufijoContrato) @@ -4504,6 +4506,61 @@ Partial Class Contratos_Default UpFacCiclica.Update() End Sub + Protected Sub BtnVerPlantilla_Click(sender As Object, e As EventArgs) + Dim Plantilla As String = TxtObservaciones.Text + + If Plantilla.Contains("{DIA}") Then + Plantilla = Plantilla.Replace("{DIA}", DateTime.Now.Day.ToString()) + End If + + If Plantilla.Contains("{MES}") Then + Dim fecha As DateTime = DateTime.Now + Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat + Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper() + + Plantilla = Plantilla.ToString().Replace("{MES}", nombreMes) + End If + + If Plantilla.Contains("{AÑO}") Then + Plantilla = Plantilla.Replace("{AÑO}", DateTime.Now.Year.ToString()) + End If + + If Plantilla.Contains("{TC}") Then + Plantilla = Plantilla.Replace("{TC}", GlobalTipoCambio(Now).FormatoNumero) + End If + + If Plantilla.Contains("{MESANTERIOR}") Then + Dim fecha As DateTime = DateTime.Now.AddMonths(-1) + Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat + Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper() + + Plantilla = Plantilla.ToString().Replace("{MESANTERIOR}", nombreMes) + End If + + If Plantilla.Contains("{INICIOMESANTERIOR}") Then + Dim fecha As DateTime = DateTime.Now.AddMonths(-1) + Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat + Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper() + + Dim mesAnterior As String = String.Format("01 {0} {1}", nombreMes, fecha.Year) + + Plantilla = Plantilla.ToString().Replace("{INICIOMESANTERIOR}", mesAnterior) + End If + + If Plantilla.Contains("{FINMESANTERIOR}") Then + Dim fecha As DateTime = DateTime.Now.AddMonths(-1) + Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat + Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper() + + Dim LastDayOfMonth = DateTime.DaysInMonth(fecha.Year, fecha.Month) + + Dim mesAnterior As String = String.Format("{0} {1} {2}", LastDayOfMonth, nombreMes, fecha.Year) + + Plantilla = Plantilla.ToString().Replace("{FINMESANTERIOR}", mesAnterior) + End If + + Alert(Plantilla) + End Sub End Class diff --git a/Empresas/119/Formatos/Polizas.rdlc b/Empresas/119/Formatos/Polizas.rdlc index 30145ef5f..080600e53 100644 --- a/Empresas/119/Formatos/Polizas.rdlc +++ b/Empresas/119/Formatos/Polizas.rdlc @@ -1,5 +1,5 @@ - + 0 @@ -17,86 +17,78 @@ /* Local Query */ - - Id - System.Int16 - - - IdPoliza - System.Int16 - - - Fecha - System.DateTime - - - TipoPol - System.String - - - Nombre - System.String - - - Cuenta - System.String - - - CuentaFormato - System.String - - - Numero - System.String - - - Referencia - System.String - - - Concepto - System.String - - - ConceptoPoliza - System.String - - - Cargos - System.Double - - - Abonos - System.Double - - - Cargo - System.Double - - - Abono - System.Double - - - Folio - System.Double - - - Codigo - System.Double - - - SegNeg - System.String - - - TipoMovto - System.Double - - - UsuarioRegistro - System.String - + + Id + System.Int32 + + + Fecha + System.DateTime + + + TipoPoliza + System.String + + + NombreCuenta + System.String + + + CodigoCuenta + System.String + + + Numero + System.Int32 + + + Folio + System.Int32 + + + Referencia + System.String + + + Concepto + System.String + + + ConceptoPoliza + System.String + + + TipoMovto + System.Int32 + + + Cargos + System.String + + + Abonos + System.String + + + SegNeg + System.String + + + Cargo + System.Decimal + + + Abono + System.Decimal + + + Codigo + System.String + + + NombreUsuario + System.String + DataSet1 @@ -116,22 +108,31 @@ - 2.5cm + 2.15421cm - 2.5cm + 2.15421cm - 8.64979cm + 2.15421cm - 2.15333cm + 2.15421cm - 2.15604cm + 2.15421cm - 1.89146cm + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm @@ -240,6 +241,108 @@ + + + + true + true + + + + + + + + + + + + Textbox34 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox25 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox17 + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -283,7 +386,7 @@ - ="Folio: " & Fields!Folio.Value + ="Folio: " & Fields!Numero.Value - 4 + 7 + + + @@ -517,8 +623,12 @@ 2pt + 4 + + + @@ -671,7 +781,7 @@ - =Fields!CuentaFormato.Value + =Fields!CodigoCuenta.Value + 4 + + + @@ -944,8 +1058,12 @@ 1pt + 4 + + + @@ -1065,7 +1183,7 @@ - =Code.IsNewPage(Fields!IdPoliza.Value,nothing,nothing) + =Code.IsNewPage(Fields!Id.Value,nothing,nothing) + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + @@ -1274,6 +1488,175 @@ + + 2.26688cm + + + + + true + true + + + + + Usuario: + + + + + + + + + =Fields!NombreUsuario.Value + + + + + + + UsuarioRegistro1 + + + Bottom + 1pt + 1pt + 1pt + 1pt + + + 3 + + + + + + + + true + true + + + + + Revisado Por: + + + + + + + + + + + + + + + + Textbox41 + + + Bottom + 1pt + 1pt + 1pt + 1pt + + + 3 + + + + + + + + true + true + + + + + Autorizado Por: + + + + + + + + + + + + + + + + UsuarioRegistro + + + + + + Bottom + 1pt + 1pt + 1pt + 1pt + + + 3 + + + + + + @@ -1284,14 +1667,17 @@ + + + - + - =Fields!IdPoliza.Value + =Fields!Id.Value End @@ -1299,7 +1685,7 @@ - =Fields!UsuarioRegistro.Value + =Fields!NombreUsuario.Value @@ -1328,6 +1714,9 @@ Before + + Before + @@ -1339,8 +1728,8 @@ true 0.05076cm - 3.18542cm - 19.85062cm + 5.4523cm + 19.38789cm @@ -1375,153 +1764,11 @@ 2pt - - true - true - - - - - Usuario: - - - - - - - - - - - - - =ReportItems!TxtUsuarioRegistro.Value - - - - - - - Textbox31 - 4.47958cm - 0.9cm - 6cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Revisado Por: - - - - - - - - - - - Textbox31 - 4.47958cm - 7.295cm - 0.9cm - 6cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Autorizado Por: - - - - - - - - - - - Textbox31 - 4.47958cm - 14.14166cm - 0.9cm - 5.70896cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - 5.82055cm - =Today + =Now() diff --git a/Empresas/140/Formatos/RepEntradasUsados.rdlc b/Empresas/140/Formatos/RepEntradasUsados.rdlc new file mode 100644 index 000000000..22e6dba92 --- /dev/null +++ b/Empresas/140/Formatos/RepEntradasUsados.rdlc @@ -0,0 +1,1477 @@ + + + + + + + + + 2.6528cm + + + 1.31753cm + + + 2.31753cm + + + 1.58961cm + + + 1.60315cm + + + 2.31753cm + + + 1.37304cm + + + 1.5767cm + + + 2.05295cm + + + 1.49732cm + + + 2.31753cm + + + + + 0.62959cm + + + + + true + true + + + + + Grupo + + + + + + + Textbox9 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Inicial + + + + + + + Textbox1 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + E.Alm + + + + + + + Textbox29 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + E.Pub + + + + + + + Textbox13 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + E.Tras + + + + + + + Textbox27 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + E.Compras + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Otrs. + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + S.Alm + + + + + + + Textbox5 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + S.Trasp + + + + + + + Textbox8 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Otrs + + + + + + + Textbox11 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Exist Actual + + + + + + + Textbox41 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.58521cm + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 0 + + + + + + + TipoAgrupador + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!E_Almacen.Value + + + + + + + E_Almacen + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 0 + + + + + + + Paqueteria1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!E_Traspaso.Value + + + + + + + E_Traspaso + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!E_Compra.Value + + + + + + + E_Compra + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 0 + + + + + + + Fecha + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!S_Almacen.Value + + + + + + + S_Almacen + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!S_Traspaso.Value + + + + + + + S_Traspaso + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 0 + + + + + + + Textbox16 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 0 + + + + + + + Textbox42 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 0.95278cm + 0.08377cm + 1.2148cm + 20.61569cm + + + + + + true + true + + + + + Entradas + + + + + + + Textbox37 + 0.17639cm + 3.02491cm + 0.6cm + 10.33589cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Salidas + + + + + + + Textbox38 + 0.17639cm + 13.43136cm + 0.6cm + 7.2681cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.9799in + + + + + 8.2362in + + + 3.1764cm + true + true + + + Embedded + Logo + Fit + 0.09927in + 0.10752in + 0.99993in + 1.6045in + + + + + + true + true + + + + + BDH BATERÍAS DISTRIBUCIONES DE + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tarjeta de Almacén Del + + + + =Parameters!FechaInicial.Value + + + + Al + + + + =Parameters!FechaFinal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaConFormato.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!PageNumber + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.727cm + true + true + + + 0.127cm + 0.01325cm + 0cm + 20.90669cm + + + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0cm + 0.5cm + 1cm + 0.13cm + + + + + + + Codigo + + + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Codigo_Clientes.Value + + + + + + + Codigo_Clientes + + + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Cantidad + + + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + DataSet1 + 0.17639cm + 0.08377cm + 0.58521cm + 20.05235cm + + + + + + 0.64657in + + + + + 8.2362in + + + 3.87766cm + true + true + + + Embedded + Logo + Fit + 0.09927in + 0.10752in + 0.99993in + 1.6045in + + + + + + true + true + + + + + BDH BATERÍAS DISTRIBUCIONES DE + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Entradas de Usados del + + + + =Parameters!FechaInicial.Value + + + + al + + + + =Parameters!FechaFinal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaConFormato.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo + + + + + + + Textbox1 + 3.27766cm + 0.6cm + 1.68911cm + 4 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Clientes/Grupos + + + + + + + Textbox3 + 3.27766cm + 1.68911cm + 0.6cm + 15.36419cm + 5 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Cantidad + + + + + + + Textbox1 + 3.27766cm + 17.0533cm + 0.6cm + 3.08282cm + 6 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.727cm + true + true + + + 0.127cm + 0.01325cm + 0cm + 20.90669cm + + + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0cm + 0.5cm + 1cm + 0.13cm + - - - =Parameters!Direccion.Value - - - - - - 2pt - 2pt - 1pt - 1pt - - - 5 - - - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 1pt - 1pt - - - - - - - - true - true - - - - - Código postal: - - - - - - - Textbox103 - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =Parameters!CodigoPostal.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.25in - - - - - true - true - - - - - Reg. Fed.: - - - - =Parameters!RFC.Value - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - true - true - - - - - Cta. Estatal: - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =Parameters!Cta.Value - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.25in - - - - - true - true - - - - - Fecha - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Tipo - - - - - - - Textbox19 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Número - - - - - - - Textbox20 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox27 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Concepto - - - - - - - Textbox33 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox39 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox45 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Clase - - - - - - - Textbox51 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Diario - - - - - - - Textbox65 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.25in - - - - - true - true - - - - - No. - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Refer. - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cuenta - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Nombre - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Diario - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Seg. - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cargos - - - - - - - Textbox52 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Abonos - - - - - - - Textbox66 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.15in - - - - - true - - - - - =Fields!Fecha.Value - - - - - - - Fecha1 - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Parameters!TipoPoliza.Value - - - - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - =Parameters!Numero.Value - - - - - - - Textbox6 - - - - - - 1pt - 4pt - 1pt - 1pt - - - - - - - - true - true - - - - - =Fields!ConceptoPoliza.Value - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.15in - - - - - true - - - - - =RowNumber("Fecha") - - - - - - - Textbox2 - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!Referencia.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!Codigo.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!Cuenta.Value - - - - - - - Cuenta1 - - - 1pt - 1pt - 1pt - 1pt - - - 2 - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - =Fields!Cargo.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!Abono.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - 0.15in - - - - - true - true - - - - - - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - =Fields!Concepto.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - 2 - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.2in - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Total póliza: - - - - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - - - - - =Sum(Fields!Cargo.Value) - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - =Sum(Fields!Abono.Value) - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - - - =FormatDateTime(Fields!Fecha.Value, DateFormat.ShortDate) - =Fields!TipoPol.Value - =Fields!Numero.Value - =Fields!ConceptoPoliza.Value - - - Start - - - - - =Fields!Folio.Value - - - - - After - - - After - - - After - - - After - - - After - - - - - - - - - - Before - - - - - - DataSet1 - - Start - - 0.02083in - 1.65in - 7.9617in - - - - - - 1.65in - - - - - - - - - Impreso de póliza del - - - - =Parameters!Finicio.Value - - - - al - - - - =Parameters!FFin.Value - - - - - - - - - Moneda: - - - - =Parameters!Moneda.Value - - - - - - - Textbox4 - 0.61055cm - 1.8125in - 1.26472cm - 9.94376cm - - - 2pt - 2pt - - - - true - - - - - Hoja: - - - - =Globals!PageNumber - - - - - - - - - Fecha: - - - - =Parameters!Fecha.Value - - - - - - - - - - - - Textbox4 - 0.61055cm - 5.94612in - 0.89872cm - 4.22452cm - 1 - - - - - - External - = Parameters!pImg.Value - FitProportional - 0.19871in - 1.52576cm - 1.54252cm - 1.70215cm - 2 - - - - - - - - - - - 0.23958in - true - true - - - true - true - - - - - Fecha Impresión: - - - - =Today - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.19685in - 0.19685in - 0.01181in - + + + =Parameters!Direccion.Value + + + + + + 2pt + 2pt + 1pt + 1pt + + + 5 + + + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 1pt + 1pt + + + + + + + + true + true + + + + + Código postal: + + + + + + + Textbox103 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Parameters!CodigoPostal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.25in + + + + + true + true + + + + + Reg. Fed.: + + + + =Parameters!RFC.Value + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + Cta. Estatal: + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Parameters!Cta.Value + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.25in + + + + + true + true + + + + + Fecha + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tipo + + + + + + + Textbox19 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Número + + + + + + + Textbox20 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox27 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Concepto + + + + + + + Textbox33 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox39 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox45 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Clase + + + + + + + Textbox51 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Diario + + + + + + + Textbox65 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.25in + + + + + true + true + + + + + No. + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Refer. + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cuenta + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nombre + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Diario + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Seg. + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cargos + + + + + + + Textbox52 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonos + + + + + + + Textbox66 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.15in + + + + + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha1 + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Parameters!TipoPoliza.Value + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Parameters!Numero.Value + + + + + + + Textbox6 + + + + + + 1pt + 4pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!ConceptoPoliza.Value + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.15in + + + + + true + + + + + =RowNumber("Fecha") + + + + + + + Textbox2 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!Referencia.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!Codigo.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!CodigoCuenta.Value + + + + + + + CodigoCuenta + + + 1pt + 1pt + 1pt + 1pt + + + 2 + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!Cargo.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!Abono.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + 0.15in + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!Concepto.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + 2 + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.2in + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total póliza: + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + + + + + =Sum(Fields!Cargo.Value) + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Sum(Fields!Abono.Value) + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + =FormatDateTime(Fields!Fecha.Value, DateFormat.ShortDate) + =Fields!TipoPol.Value + =Fields!Numero.Value + =Fields!ConceptoPoliza.Value + + + Start + + + + + =Fields!Folio.Value + + + + + After + + + After + + + After + + + After + + + After + + + + + + + + + + Before + + + + + + DataSet1 + + Start + + 0.02083in + 1.65in + 7.9617in + + + + + + 1.65in + + + + + + + + + Impreso de póliza del + + + + =Parameters!Finicio.Value + + + + al + + + + =Parameters!FFin.Value + + + + + + + + + Moneda: + + + + =Parameters!Moneda.Value + + + + + + + Textbox4 + 0.61055cm + 1.8125in + 1.26472cm + 9.94376cm + + + 2pt + 2pt + + + + true + + + + + Hoja: + + + + =Globals!PageNumber + + + + + + + + + Fecha: + + + + =Parameters!Fecha.Value + + + + + + + + + + + + Textbox4 + 0.61055cm + 5.94612in + 0.89872cm + 4.22452cm + 1 + + + + + + External + = Parameters!pImg.Value + FitProportional + 0.19871in + 1.52576cm + 1.54252cm + 1.70215cm + 2 + + + + + + + + + + + 0.23958in + true + true + + + true + true + + + + + Fecha Impresión: + + + + =Today + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.19685in + 0.19685in + 0.01181in + @@ -819,7 +827,7 @@ - + @@ -2645,8 +2653,8 @@
    - +
    @@ -2667,7 +2675,7 @@
    - +
    @@ -2763,7 +2771,7 @@
    - Total: $ + Total: $
    @@ -2816,12 +2824,13 @@
    -
    -
    - +
    + +
    +
    @@ -2842,13 +2851,19 @@
    -
    +
    +
    +
    + + +
    +
    @@ -2897,7 +2912,7 @@
    - +
    @@ -2923,11 +2938,11 @@
    - + - +
    @@ -2952,33 +2967,45 @@
    - + - +
    -
    +
    - - + + + + + + + + +
    +
    +
    +
    + + <%----%> <%----%> - +
    - + - +
    diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 20408025b..5e4698a5b 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -1144,6 +1144,11 @@ Partial Class PV CargaVenta() End If + + If CveVenta > 0 Then + CargaTmpDTAjustes() + End If + 'CARGA PARA FACTURAR ViewState("CveRemision") = IfNull(Request("CveRemision").ToEntero, 0) ViewState("CveCotizacion") = IfNull(Request("CveCotizacion").ToEntero, 0) @@ -1807,6 +1812,28 @@ Partial Class PV OcurrioError = True Exit For End If + + If TmpDTRecepcionUsados IsNot Nothing Then + If TmpDTRecepcionUsados.Select($"CvePS={Row("CvePS").ToString.ToEntero}").Length > 0 Then + Dim rowInv As DataRow = TmpDTRecepcionUsados.Select($"CvePS={Row("CvePS").ToString.ToEntero}")(0) + rowInv("CveVentaDetalle") = CveVentaDetalle + End If + End If + + If TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0 Then + If TmpDTAjustes.Select($"ConsecutivoVenta={Row("Consec").ToString.ToEntero}").Length > 0 Then + Dim DrAju As DataRow = TmpDTAjustes.Select($"ConsecutivoVenta={Row("Consec").ToString.ToEntero}")(0) + DrAju("CveVentaDetalle") = CveVentaDetalle + End If + End If + + If TmpDTPolizaVirtual IsNot Nothing Then + If TmpDTPolizaVirtual.Select($"CvePS={Row("CvePS").ToString.ToEntero}").Length > 0 Then + Dim RowPoliza As DataRow = TmpDTPolizaVirtual.Select($"CvePS={Row("CvePS").ToString.ToEntero}")(0) + RowPoliza("CveVentaDetalle") = CveVentaDetalle + End If + End If + Else If Not ObjVentas.AddVentaDetalle(CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("CveUM").ToString.ToEntero, Row("PU").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("ImporteIVA").ToString.ToDouble, Math.Round((Row("Total").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)) * (1 + Row("PorcentajeIVA").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)))), 6), @@ -1901,9 +1928,11 @@ Partial Class PV If Not OcurrioError AndAlso TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0 Then For Each Dr As DataRow In TmpDTAjustes.Rows If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero, - Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero, - Dr("NumPoliza").ToString, Dr("Importe").ToString.ToDouble, Dr("Consecutivo").ToString, Dr("FechaAjuste").ToString.ToDateTime(), Dr("PorcentajeAjuste").ToString.ToDecimal()) Then - ErrorList.Add("Ocurrió un error al agregar la garantia detalle.") + Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero, Dr("CodigoTD").ToString, Dr("TipoComprobante").ToString.ToEntero, + Dr("Comprobante").ToString, Dr("Importe").ToString.ToDouble, Dr("Consecutivo").ToString, Dr("FechaAjuste").ToString.ToDateTime(), Dr("PorcentajeAjuste").ToString.ToDecimal(), + Dr("CveBCIAjuste").ToString.ToEntero(), Dr("Etiqueta").ToString, Dr("CveClienteDistribuidor").ToString.ToEntero(), Dr("CveModeloAuto").ToString.ToEntero(), Dr("Año").ToString) Then + OcurrioError = True + Exit For End If Next End If @@ -2451,9 +2480,9 @@ Partial Class PV End If If CveVenta <= 0 Then - CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString.ToEntero + CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString.ToEntero DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI.ToString) - DdlMetodoPago.SelectedValueExist(ObjCliente.CveMetodoPago.ToString) + 'DdlMetodoPago.SelectedValueExist(ObjCliente.CveMetodoPago.ToString) DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33.ToString) 'DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString) DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty) @@ -2624,7 +2653,7 @@ Partial Class PV End If If CveVenta <= 0 Then - CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString.ToEntero + CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString.ToEntero DdlMetodoPago.SelectedValueExist(CveMetodoPagoCliente.ToString) DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString) DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString) @@ -2652,7 +2681,7 @@ Partial Class PV PlazoCobranza = ObjCliente.PlazoCobranza If CveVenta <= 0 Then - CveMetodoPagoCliente = ObjCliente.CveMetodoPago + 'CveMetodoPagoCliente = ObjCliente.CveMetodoPago DdlMetodoPago.SelectedValueExist(CveMetodoPagoCliente.ToString) DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33) @@ -3156,10 +3185,19 @@ Partial Class PV If TmpDT.Rows.Count > 0 Then Dim Retorno = ObjFactura.EmitirFactura() If Retorno.CveVenta > 0 Then + Dim SbAlert As New StringBuilder SbAlert.AppendFormat("{0}
    ", Retorno.Mensajes(Retorno.Mensajes.Count - 1)) - SbAlert.AppendFormat("
    ", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))) + SbAlert.AppendFormat("
    ", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", Retorno.CveVenta))) + Using ObjAcum As New ClsAcumuladores + If ObjAcum.GetGarantiasDetalle(Retorno.CveVenta) Then + Dim RowGarantia As DataRow = ObjAcum.DtResultados.FiltroPrimero("") + If RowGarantia IsNot Nothing Then + SbAlert.AppendFormat("
    ", Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle")))) + End If + End If + End Using Retorno.Mensajes(Retorno.Mensajes.Count - 1) = SbAlert.ToString() End If @@ -3432,7 +3470,7 @@ Partial Class PV 'SI LA SUCURSAL NO TIENE ENTREGA POR ADELANTADO If ObjFactura.CveAlmacenTraspasoDestino <= 0 And ObjFactura.TipoDocto = "Rem" Then - ErrorList.Add("Ocurrió un error al seleccionar el almacen de entrega por adelantado de la sucursal.") + ObjFactura.ErrorList.Add("Ocurrió un error al seleccionar el almacen de entrega por adelantado de la sucursal.") End If End If @@ -4687,10 +4725,10 @@ Partial Class PV LblTotalPS.Text = GvRow.DataKey("Total") ChkAgregar.Checked = False divagregrarotrops.Visible = False - If CveVenta <= 0 Then - Ajuste() - End If + + Ajuste() AddPolizaVirtual(DdlPS.SelectedValue.ToEntero()) + UpVenta.Update() RegistraScript("$('#DivAddVenta').modal({backdrop: 'static', keyboard: false});", "EdicionVenta") End Sub @@ -5967,6 +6005,7 @@ Partial Class PV TmpDTAjustes.Columns.Add("CveFolioGarantia", GetType(Integer)) TmpDTAjustes.Columns.Add("CveTipoUso", GetType(Integer)) TmpDTAjustes.Columns.Add("CveTipoDefecto", GetType(Integer)) + TmpDTAjustes.Columns.Add("CodigoTD", GetType(String)) TmpDTAjustes.Columns.Add("CodigoEnsamble", GetType(String)) TmpDTAjustes.Columns.Add("CodigoLinea", GetType(String)) TmpDTAjustes.Columns.Add("CodigoInspeccion", GetType(String)) @@ -5975,7 +6014,8 @@ Partial Class PV TmpDTAjustes.Columns.Add("FechaAjuste", GetType(Date)) TmpDTAjustes.Columns.Add("Meses", GetType(String)) TmpDTAjustes.Columns.Add("PorcentajeAjuste", GetType(Double)) - TmpDTAjustes.Columns.Add("NumPoliza", GetType(String)) + TmpDTAjustes.Columns.Add("TipoComprobante", GetType(Integer)) + TmpDTAjustes.Columns.Add("Comprobante", GetType(String)) TmpDTAjustes.Columns.Add("Importe", GetType(Double)) TmpDTAjustes.Columns.Add("CvePS", GetType(Integer)) TmpDTAjustes.Columns.Add("PS", GetType(String)) @@ -5984,6 +6024,93 @@ Partial Class PV TmpDTAjustes.Columns.Add("CveVentaDetalle", GetType(Integer)) TmpDTAjustes.Columns.Add("CveVenta", GetType(Integer)) TmpDTAjustes.Columns.Add("PUFactura", GetType(Double)) + TmpDTAjustes.Columns.Add("CveBCIAjuste", GetType(Integer)) + TmpDTAjustes.Columns.Add("Etiqueta", GetType(String)) + TmpDTAjustes.Columns.Add("CveClienteDistribuidor", GetType(Integer)) + TmpDTAjustes.Columns.Add("Distribuidor", GetType(String)) + TmpDTAjustes.Columns.Add("CveModeloAuto", GetType(Integer)) + TmpDTAjustes.Columns.Add("Año", GetType(String)) + End Sub + + Private Sub CargaTmpDTAjustes() + Dim DtGarantias As DataTable = Nothing + Using ObjAcum As New ClsAcumuladores + If ObjAcum.GetGarantiasDetalle(CveVenta) Then + Dim RowGarantia As DataRow = ObjAcum.DtResultados.FiltroPrimero("") + If RowGarantia IsNot Nothing Then + If ObjAcum.GetFoliosGarantiasDetalle(-1, CveGarantiaDetalle:=RowGarantia("CveGarantiaDetalle").ToString().ToEntero()) Then + DtGarantias = ObjAcum.DtResultados.Copy() + End If + End If + End If + End Using + + If DtGarantias IsNot Nothing Then + For Each Row As DataRow In DtGarantias.Rows + Dim RowAjuste As DataRow = TmpDTAjustes.NewRow + + RowAjuste("CveFolioGarantia") = Row("CveFolioGarantia") + RowAjuste("CveTipoUso") = Row("CveTipoUso") + RowAjuste("CveTipoDefecto") = Row("CveTipoDefecto") + RowAjuste("CodigoTD") = Row("CodigoTipoDefecto") + RowAjuste("CodigoEnsamble") = Row("CodigoEnsamble") + RowAjuste("CodigoLinea") = Row("CodigoLinea") + RowAjuste("CodigoInspeccion") = Row("CodigoInspeccion") + RowAjuste("Consecutivo") = Row("Consecutivo") + RowAjuste("FechaAjuste") = Row("FechaAjuste") + + Dim FechaAjuste As DateTime = Row("FechaVenta").ToString.ToDateTime() + Dim FechaReclamacion As DateTime = Row("FechaReclamacion").ToString.ToDateTime() + + Dim FechaI As Date = FechaAjuste.AddDays(1) + Dim FechaF As Date = FechaReclamacion + + Dim Dia As Integer = FechaI.Day + Try + 'validación adicional, para saber si el mes tiene 31 días y el actua es menor. + If FechaI.Day > Today.LastDayOfMonth.Day Then Dia = Today.LastDayOfMonth.Day + Dim FechaT As Date = String.Format("{0}/{1}/{2}", Dia, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual + + Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo + + If FechaT > FechaF Then + 'todavía está en el mes actual. + MesesTrascurridos = MesesTrascurridos + Else + MesesTrascurridos = MesesTrascurridos + 1 + End If + + RowAjuste("Meses") = MesesTrascurridos.ToString + + Catch ex As Exception + OnError("Ocurrió un error al calcular los meses de uso", ex) + End Try + + RowAjuste("PorcentajeAjuste") = Row("PorcentajeAjuste") + RowAjuste("TipoComprobante") = Row("TipoComprobante") + RowAjuste("Comprobante") = Row("Comprobante") + RowAjuste("Importe") = Row("Importe") + + If TmpDT IsNot Nothing Then + RowAjuste("ConsecutivoVenta") = TmpDT.FiltroPrimeroValor("Consec", $"CveVentaDetalle={Row("CveVentaDetalle")}") + End If + + RowAjuste("CvePS") = Row("CvePS") + RowAjuste("PS") = Row("PS") + RowAjuste("CveVenta") = Row("CveRemision") + RowAjuste("PUFactura") = Row("Importe") + RowAjuste("Cantidad") = 1 + + RowAjuste("CveBCIAjuste") = Row("CveBCIAjuste") + RowAjuste("Etiqueta") = Row("Etiqueta") + RowAjuste("CveClienteDistribuidor") = Row("CveClienteDistribuidor") + RowAjuste("Distribuidor") = Row("Distribuidor") + RowAjuste("CveModeloAuto") = Row("CveModeloAuto") + RowAjuste("Año") = Row("Año") + + TmpDTAjustes.Rows.Add(RowAjuste) + Next + End If End Sub @@ -6047,6 +6174,7 @@ Partial Class PV CreaDTmpDTPolizaVirtual() DdlDistribuidor.setEsWebService(True) DivChkAjuste.Visible = True + End Sub Private Sub CargaModelos() @@ -6087,7 +6215,9 @@ Partial Class PV ' DdlPSAjuste.Items.Insert(0, New ListItem("Seleccione", "-1")) DtPUFacturas.AcceptChanges() UpAjuste.Update() - CalculaPorcentajeAjuste() + If CveVenta < 0 Then + CalculaPorcentajeAjuste() + End If End Sub Private Sub Ajuste() @@ -6097,11 +6227,16 @@ Partial Class PV TxtPrecio.Attributes.Add("onKeyUp", $"CambiaAjuste(this,{TxtPrecio.ClientID});") ChkAjuste.Checked = True DivAjuste.Visible = True + + ChkAjuste_CheckedChanged(ChkAjuste, EventArgs.Empty) + CargaAjusteDetalle() Else ModalidadAjuste = "A" TxtPrecio.Attributes.Add("onKeyUp ", "Recalcula();") End If + + UpAjuste.Update() End Sub Private Sub LimpiaAjuste() @@ -6117,11 +6252,15 @@ Partial Class PV TxtMesesUso.Text = "" DdlTipoDefecto.SelectedIndex = -1 TxtPorcentajeAjuste.Text = "" - TxtPoliza.Text = "" + TxtComprobante.Text = "" TxtImporteAjuste.Text = "" DdlPSAjuste.SelectedValue = "-1" ChkAjuste.Checked = False DivAjuste.Visible = False + DdlBCIAjuste.SelectedValueExist(-1) + TxtEtiqueta.Text = "" + DdlModeloAuto.SelectedValueExist(-1) + TxtAnioVehiculo.Text = "" End Sub @@ -6137,6 +6276,18 @@ Partial Class PV Next If Dr IsNot Nothing Then IndexAjuste = TmpDTAjustes.Rows.IndexOf(Dr) + + CargaPSAjuste() + + DdlPSAjuste.SelectedValue = Dr("CvePS").ToString() + DdlPSAjuste.SelectedText = Dr("PS").ToString() + DdlPSAjuste_selectedindexchange(DdlPSAjuste, EventArgs.Empty) + + If Dr("CveClienteDistribuidor").ToString().ToEntero() > 0 Then + DdlDistribuidor.SelectedValue = Dr("CveClienteDistribuidor").ToString() + DdlDistribuidor.SelectedText = Dr("Distribuidor").ToString() + End If + DdlFolioGarantia.SelectedValueExist(Dr("CveFolioGarantia").ToString) TxtConsecutivoAjuste.Text = Dr("Consecutivo").ToString TxtCodEnsamble.Text = Dr("CodigoEnsamble").ToString @@ -6145,15 +6296,32 @@ Partial Class PV TxtCodInspeccion.Text = Dr("CodigoInspeccion").ToString TxtMesesUso.Text = Dr("Meses").ToString DdlTipoDefecto.SelectedValueExist(Dr("CveTipoDefecto").ToString) + TxtCodigoTD.Text = Dr("CodigoTD").ToString TxtPorcentajeAjuste.Text = Dr("PorcentajeAjuste").ToString - TxtPoliza.Text = Dr("NumPoliza").ToString + DdlTipoComprobanteAjuste.SelectedValueExist(Dr("TipoComprobante").ToString()) + TxtComprobante.Text = Dr("Comprobante").ToString TxtImporteAjuste.Text = Dr("Importe").ToString DdlFacturas.SelectedValueExist(Dr("CveVenta").ToString) - CargaPSAjuste() - DdlPSAjuste.SelectedValue = (Dr("CvePS").ToString) + + If TxtDescuento.Text.ToDecimal() > 0 AndAlso Dr("Importe").ToString.ToDecimal() > 0 Then + + Dim DescuentoSinAjuste As Decimal = TxtDescuento.Text.ToDecimal - Dr("Importe").ToString.ToDecimal + + If DescuentoSinAjuste <= 0 Then + TxtDescuento.Text = "0" + Else + TxtDescuento.Text = DescuentoSinAjuste.FormatoNumero(2) + End If + + End If + TxtFechaAjuste.Text = Dr("FechaAjuste").ToString.ToDate.ToShortDateString TxtPrecio.Text = Dr("PUFactura").ToString.ToDecimal.FormatoNumero(2) - TxtPrecio.Enabled = Not Dr("CveVenta").ToString.ToEntero > 0 + 'TxtPrecio.Enabled = Dr("CveVenta").ToString.ToEntero > 0 + DdlBCIAjuste.SelectedValueExist(Dr("CveBCIAjuste").ToString()) + TxtEtiqueta.Text = Dr("Etiqueta").ToString + DdlModeloAuto.SelectedValueExist(Dr("CveModeloAuto").ToString()) + TxtAnioVehiculo.Text = Dr("Año").ToString End If End Sub 'Protected Sub BtnCalculaMesesUso_Click(sender As Object, e As EventArgs) @@ -6188,7 +6356,7 @@ Partial Class PV TxtMesesUso.Text = MesesTrascurridos.ToString Catch ex As Exception - OnError("Ocurrió un error al calcular los meses de uso", ex) + OnError("Ocurrió un Error al calcular los meses de uso", ex) End Try Return True @@ -6342,7 +6510,7 @@ Partial Class PV End If End If - Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}") + Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} And CveTamaño = {CveTamaño}") If DrCargo IsNot Nothing Then CargoVendido = DrCargo("Cargo").ToString.ToDecimal @@ -6395,6 +6563,7 @@ Partial Class PV Row("CveFolioGarantia") = DdlFolioGarantia.SelectedValue.ToEntero Row("CveTipoUso") = DdlTipoUso.SelectedValue.ToEntero Row("CveTipoDefecto") = DdlTipoDefecto.SelectedValue.ToEntero + Row("CodigoTD") = TxtCodigoTD.Text Row("CodigoEnsamble") = TxtCodEnsamble.Text Row("CodigoLinea") = TxtCodLinea.Text Row("CodigoInspeccion") = TxtCodInspeccion.Text @@ -6402,7 +6571,8 @@ Partial Class PV Row("FechaAjuste") = TxtFechaAjuste.Text.ToDate Row("Meses") = TxtMesesUso.Text.ToEntero Row("PorcentajeAjuste") = TxtPorcentajeAjuste.Text.ToDouble - Row("NumPoliza") = TxtPoliza.Text + Row("TipoComprobante") = DdlTipoComprobanteAjuste.SelectedValue.ToEntero() + Row("Comprobante") = TxtComprobante.Text Row("Importe") = TxtImporteAjuste.Text.ToDouble Row("ConsecutivoVenta") = ConsecutivoVenta Row("CvePS") = DdlPSAjuste.SelectedValue @@ -6420,11 +6590,17 @@ Partial Class PV End If Row("CveUM") = CveUM Row("CveVentaDetalle") = -1 + Row("CveBCIAjuste") = DdlBCIAjuste.SelectedValue.ToEntero() + Row("Etiqueta") = TxtEtiqueta.Text.TrimStart.TrimEnd + Row("CveClienteDistribuidor") = DdlDistribuidor.SelectedValue.ToEntero() + Row("CveModeloAuto") = DdlModeloAuto.SelectedValue.ToEntero() + Row("Año") = TxtAnioVehiculo.Text.TrimStart.TrimEnd TmpDTAjustes.Rows.Add(Row) ElseIf ModalidadAjuste = "U" Then TmpDTAjustes.Rows(IndexAjuste)("CveFolioGarantia") = DdlFolioGarantia.SelectedValue.ToEntero TmpDTAjustes.Rows(IndexAjuste)("CveTipoUso") = DdlTipoUso.SelectedValue.ToEntero TmpDTAjustes.Rows(IndexAjuste)("CveTipoDefecto") = DdlTipoDefecto.SelectedValue.ToEntero + TmpDTAjustes.Rows(IndexAjuste)("CodigoTD") = TxtCodigoTD.Text TmpDTAjustes.Rows(IndexAjuste)("CodigoEnsamble") = TxtCodEnsamble.Text TmpDTAjustes.Rows(IndexAjuste)("CodigoLinea") = TxtCodLinea.Text TmpDTAjustes.Rows(IndexAjuste)("CodigoInspeccion") = TxtCodInspeccion.Text @@ -6432,7 +6608,8 @@ Partial Class PV TmpDTAjustes.Rows(IndexAjuste)("FechaAjuste") = TxtFechaAjuste.Text.ToDate TmpDTAjustes.Rows(IndexAjuste)("Meses") = TxtMesesUso.Text.ToDouble TmpDTAjustes.Rows(IndexAjuste)("PorcentajeAjuste") = TxtPorcentajeAjuste.Text.ToDecimal - TmpDTAjustes.Rows(IndexAjuste)("NumPoliza") = TxtPoliza.Text.ToDouble + TmpDTAjustes.Rows(IndexAjuste)("TipoComprobante") = DdlTipoComprobanteAjuste.SelectedValue.ToEntero() + TmpDTAjustes.Rows(IndexAjuste)("Comprobante") = TxtComprobante.Text.ToDouble TmpDTAjustes.Rows(IndexAjuste)("Importe") = TxtImporteAjuste.Text.ToDouble TmpDTAjustes.Rows(IndexAjuste)("ConsecutivoVenta") = ConsecutivoVenta TmpDTAjustes.Rows(IndexAjuste)("CvePS") = DdlPSAjuste.SelectedValue @@ -6440,6 +6617,11 @@ Partial Class PV TmpDTAjustes.Rows(IndexAjuste)("CveVenta") = DdlFacturas.SelectedValue TmpDTAjustes.Rows(IndexAjuste)("PUFactura") = TxtPrecio.Text.ToDouble TmpDTAjustes.Rows(IndexAjuste)("Cantidad") = 1 + TmpDTAjustes.Rows(IndexAjuste)("CveBCIAjuste") = DdlBCIAjuste.SelectedValue.ToEntero() + TmpDTAjustes.Rows(IndexAjuste)("Etiqueta") = TxtEtiqueta.Text.TrimStart.TrimEnd + TmpDTAjustes.Rows(IndexAjuste)("CveClienteDistribuidor") = DdlDistribuidor.SelectedValue.ToEntero() + TmpDTAjustes.Rows(IndexAjuste)("CveModeloAuto") = DdlModeloAuto.SelectedValue.ToEntero() + TmpDTAjustes.Rows(IndexAjuste)("Año") = TxtAnioVehiculo.Text.TrimStart.TrimEnd Dim CveUM As Integer = -1 If DdlPSAjuste.SelectedValue.ToEntero > 0 Then Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).Rows(0) @@ -7028,11 +7210,19 @@ Partial Class PV If (DdlDistribuidor.SelectedValue.ToEntero > 0) Then Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero)) - Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString - Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString - params.Add(New ReportParameter("NombreDistribuidor", DdlDistribuidor.SelectedText)) - params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado))) - params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString)) + Dim CiudadEstado As String = "" + Dim Telefono As String = "" + Dim Nombre As String = "" + + If DatosClienteSeleccionado IsNot Nothing Then + CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado")) + Telefono = DatosClienteSeleccionado("Telefono").ToString + Nombre = DatosClienteSeleccionado("Nombre").ToString + End If + + params.Add(New ReportParameter("NombreDistribuidor", Nombre)) + params.Add(New ReportParameter("CiudadEstado", CiudadEstado)) + params.Add(New ReportParameter("TelCliente", Telefono)) End If params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -7052,14 +7242,26 @@ Partial Class PV params.Add(New ReportParameter("CodInspeccion", TxtCodInspeccion.Text.Trim)) params.Add(New ReportParameter("Tipo", DdlBCIAjuste.SelectedItem.Text)) params.Add(New ReportParameter("Marca", MarcaPS)) + params.Add(New ReportParameter("Etiqueta", TxtEtiqueta.Text)) 'Informacion Vehiculo params.Add(New ReportParameter("MarcaAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Marca", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), ""))) params.Add(New ReportParameter("TipoAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), ""))) 'Informacion Consumidor - params.Add(New ReportParameter("NombreCliente", LtlCliente.Text)) - params.Add(New ReportParameter("Direccion", LblDireccion.Text)) + 'Informacion Distribuidor + If (CveCliente > 0) Then + + Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero)) + Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString + Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString + + params.Add(New ReportParameter("NombreCliente", LtlCliente.Text)) + params.Add(New ReportParameter("Direccion", LblDireccion.Text)) + params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad.Trim, Estado))) + params.Add(New ReportParameter("TelConsumidor", DatosClienteSeleccionado.Item("Telefono").ToString)) + + End If If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", logouri)) @@ -7067,6 +7269,10 @@ Partial Class PV params.Add(New ReportParameter("LogoPath", "")) End If + params.Add(New ReportParameter("Anio", TxtAnioVehiculo.Text)) + params.Add(New ReportParameter("Comprobante", TxtComprobante.Text)) + + ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") End Sub diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx index 699b91e4a..10ce64ea8 100644 --- a/Ventas/RepVentas.aspx +++ b/Ventas/RepVentas.aspx @@ -1,122 +1,126 @@ -<%@ Page Title="Reporte de Ventas" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepVentas.aspx.vb" Inherits="Ventas_RepVentas" %> - - - - - - - - - - - -
  • - PDF -
    • - -
  • - Excel -
    • - - - -
  • - Personalizar -
    • -     -     -
  • - Generar Reporte HP -
    • -
  • - Ver Dlls en pesos -
    • - - -
  • - Ver Grafica -
    • -     -     -     - - Reporte de Ventas - - - - - - - -
    -
    -
    - - -
    -
    -
    - -
    - - - - - - - - - - +<%@ Page Title="Reporte de Ventas" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepVentas.aspx.vb" Inherits="Ventas_RepVentas" %> + + + + + + + + + + + +
  • + PDF +
    • + +
  • + Excel +
    • + + + +
  • + Personalizar +
    • +     +     + + +
  • + Generar Reporte HP +
    • +     +     +
  • + Ver Dlls en pesos +
    • + + +
  • + Ver Grafica +
    • +     +     +     + + Reporte de Ventas + + + + + + + +
    +
    +
    + + +
    +
    +
    + +
    + + + + + + + + + + <%-- @@ -126,45 +130,47 @@ - --%> -
    -
    + --%> +
    +
    Fecha Inicio: -
    -
    -
    - - - - -
    - - - - - - -
    -
    + +
    +
    +
    + + + + +
    + + + + + + +
    +
    Fecha Fin: -
    -
    -
    - - - - -
    - - - - - - -
    - -
    - + +
    +
    +
    + + + + +
    + + + + + + +
    + +
    + <%-- @@ -183,365 +189,444 @@ - --%> - -
    -
    -
    -
    - +
    + -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
    + + +
    +
    +
    +
    + + + + + + + + + + + + + + + + + - + + diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index affcda2f5..40f0622e7 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -659,27 +659,6 @@ Partial Class Ventas_RepVentas Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click GenerarPDF() - End Sub - - Private Sub LnkRepHP_Click(sender As Object, e As EventArgs) Handles LnkRepHP.Click - - Dim Rep As New ClsVentas - Dim Str As New StringBuilder - Str.AppendLine("Header Section,,,,,,,,,,,End Customer Identification ,,,,,,,,,,,,, Ship To Identification,,,,,,,,,,,,, Sold To Identification,,,,,,,,,,,,, Bill To Identification,,,,,,,,,,,,, Salesperson Detail,,,,,, Line Item Detail,,,,,,,,,,,,,,,,,,,,,,,,,,,, New FIELDS,,,,,,,,,,,,,,,,,,,,,,,,,, ") - Str.AppendLine("Partner Purchase Price Currency Code, Exchange Rate, Reporter_id, Reported Partner Type, Reporter Company Name , Sell From Address line 1, Sell From Address line 2, Sell From City, Reported Partner State/Province, Sell from postal code, Sell from Country code,End User Customer Name,End User Company Tax ID,End User Address Line 1,End User Address Line 2,End User City,End User State/Province Code,End User Postal Code,End User Country Code,End User ID,End Customer Department,End Customer Contact Name,End Customer Contact Phone,End Customer County, Ship To Customer Name, Ship To Company Tax ID, Ship To Address Line 1, Ship To Address Line 2, Ship To City, Ship To State/Province Code, Ship To Postal Code, Ship To Country Code, Ship To Customer ID, Ship To Department, Ship To Contact Name, Ship To Contact Phone, Ship To County, Sold To Customer Name, Sold To Company Tax ID, Sold To Address Line 1, Sold To Address Line 2, Sold To City, Sold To State/Province Code, Sold To Postal Code, Sold To Country Code, Sold To Customer ID, Sold To Department, Sold To Contact Name, Sold To Contact Phone, Sold To County, Bill To Customer Name, Bill To Company Tax ID, Bill To Address Line 1 , Bill To Address Line 2, Bill To City, Bill To State/Province Code, Bill To Postal Code, Bill To Country Code, Bill To Customer ID, Bill To Agreement Number, Bill To Contact Name, Bill To Contact Phone, Bill To County, HP Representative Name, HP Sales Rep Email, Salesperson2 Name, Salesperson2 Unique Employee ID, Salesperson's Manager's Name,Salesperson's Manager Unique Employee ID,Quantity Qualifier,Product Quantity Shipped/Sold,Line Item ID,Partner Reported Product ID,Product Description,Date Type Qualifier,Channel Partner to Customer Transaction Date,Reseller’’s Product Number,Partner Purchase Price,Extended Price,Partner Sell Price,Extended Resale Price,Transaction Type,Rebate Tracking #,Partner Requested Rebate Amount,Extended Rebate Amount,Debit Number,Channel Partner to Customer Invoice ID,Reference Number,Customer to Channel Partner Purchase Order ID,Deal ID #1,Deal ID #2,Deal ID #3,Deal ID #4,Deal ID #5,Deal ID #6,Marketing Subprogram Code,Product Serial ID assigned by HP,Purchasing Source wholesaler indicator,Drop Ship Flag,Distributor's Invoice Number,Partner Internal transaction ID,Partner Comment,Deal Bundle ID #1,Deal Bundle ID #2,Deal Bundle ID #3,Deal Bundle ID #4,Deal Bundle ID #5,Deal Bundle ID #6,NMSO NAME,Sales Type,Purchase Agreement,Product Origin,Partner Reported CBN#,Partner Reference,Supplies Tracking ID (QR Code),Sell From Location ID (assigned by HP or Partner-assigned),Sell from name,Comment Deal ID #1,Comment Deal ID #2,Comment Deal ID #3,Comment Deal ID #4,Comment Deal ID #5,Comment Deal ID #6,Partner Sell Price Currency Code") - If Rep.GetReporteHP(72, Now.AddMonths(-1).FirstDayOfMonth, Now.AddMonths(-1).LastDayOfMonth) Then - For Each dr As DataRow In Rep.DtResultados.Rows - Str.AppendLine($"MXN,,AM30089,,""COMPUPROVEEDORES, S.A.DE C.V."",,,,,,,,,,,,,,,,,,,,{dr("Nombre")},{dr("RFC")},{dr("Direccion")},,{dr("Ciudad")},{dr("Estado")},{dr("CP")},MX,{dr("RFC")},,,,,{dr("Nombre")},{dr("RFC")},{dr("Direccion")},,{dr("Ciudad")},{dr("Estado")},{dr("CP")},MX,{dr("RFC")},,,,,,,,,,,,,,,,,,,,,,,,,{dr("Cantidad")},,{dr("Codigo")},,,{dr("Fecha")},,,,{dr("PU")},,,,,,,{dr("SerieFolio")},,,,,,,,,,{dr("Serie")},,,,,,,,,,,,,,,{dr("Proveedor")},,,,,,,,,,,,MXN") - Next - End If - - Rep.Dispose() - 'GenerarPDF una salida - Response.Clear() - Response.ContentType = "text/csv" - Response.AppendHeader("Content-Disposition", "attachment; filename=ReporteHP.csv") - Response.Write(Str.ToString) - Context.Response.End() End Sub #End Region @@ -860,5 +839,58 @@ Partial Class Ventas_RepVentas #End Region + Private Sub LnkRepHP_Click(sender As Object, e As EventArgs) Handles LnkRepHP.Click + CalcularIntervaloRepHP() + RegistraScript("$('#DivRepHP').modal('show');") + End Sub + Protected Sub RblIntervaloHP_SelectedIndexChanged(sender As Object, e As EventArgs) + CalcularIntervaloRepHP() + End Sub + + Private Sub CalcularIntervaloRepHP() + Dim PrevMondayDate = DateTime.Today.AddDays(-Weekday(Today.AddDays(-1), Microsoft.VisualBasic.FirstDayOfWeek.Monday)) + Dim Sunday As DateTime = PrevMondayDate.AddDays(6) + + txtFechaIHP.Text = PrevMondayDate.ToString("dd/MM/yyyy") + txtFechaFHP.Text = Sunday.ToString("dd/MM/yyyy") + 'Select Case RblIntervaloHP.SelectedValue + ' Case "1" ' SEMANAL + ' Dim PrevMondayDate = DateTime.Today.AddDays(-Weekday(Today.AddDays(-1), Microsoft.VisualBasic.FirstDayOfWeek.Monday)) + ' Dim Sunday As DateTime = PrevMondayDate.AddDays(6) + + ' txtFechaIHP.Text = PrevMondayDate.ToString("dd/MM/yyyy") + ' txtFechaFHP.Text = Sunday.ToString("dd/MM/yyyy") + ' Case "2" ' MENSUAL + ' Dim FechaRef As DateTime = Now + ' Dim LastDayOfMonth = DateTime.DaysInMonth(FechaRef.Year, FechaRef.Month) + + ' txtFechaIHP.Text = $"01/{FechaRef.Month}/{FechaRef.Year}" + ' txtFechaFHP.Text = $"{LastDayOfMonth}/{FechaRef.Month}/{FechaRef.Year}" + 'End Select + UpHP.Update() + End Sub + + Protected Sub BtnGenerarRepHP_Click(sender As Object, e As EventArgs) + Dim FechaI As DateTime = txtFechaIHP.Text.ToDate() + Dim FechaF As DateTime = txtFechaFHP.Text.ToDate() + + Dim Rep As New ClsVentas + Dim Str As New StringBuilder + Str.AppendLine("Header Section,,,,,,,,,,,End Customer Identification ,,,,,,,,,,,,, Ship To Identification,,,,,,,,,,,,, Sold To Identification,,,,,,,,,,,,, Bill To Identification,,,,,,,,,,,,, Salesperson Detail,,,,,, Line Item Detail,,,,,,,,,,,,,,,,,,,,,,,,,,,, New FIELDS,,,,,,,,,,,,,,,,,,,,,,,,,, ") + Str.AppendLine("Partner Purchase Price Currency Code, Exchange Rate, Reporter_id, Reported Partner Type, Reporter Company Name , Sell From Address line 1, Sell From Address line 2, Sell From City, Reported Partner State/Province, Sell from postal code, Sell from Country code,End User Customer Name,End User Company Tax ID,End User Address Line 1,End User Address Line 2,End User City,End User State/Province Code,End User Postal Code,End User Country Code,End User ID,End Customer Department,End Customer Contact Name,End Customer Contact Phone,End Customer County, Ship To Customer Name, Ship To Company Tax ID, Ship To Address Line 1, Ship To Address Line 2, Ship To City, Ship To State/Province Code, Ship To Postal Code, Ship To Country Code, Ship To Customer ID, Ship To Department, Ship To Contact Name, Ship To Contact Phone, Ship To County, Sold To Customer Name, Sold To Company Tax ID, Sold To Address Line 1, Sold To Address Line 2, Sold To City, Sold To State/Province Code, Sold To Postal Code, Sold To Country Code, Sold To Customer ID, Sold To Department, Sold To Contact Name, Sold To Contact Phone, Sold To County, Bill To Customer Name, Bill To Company Tax ID, Bill To Address Line 1 , Bill To Address Line 2, Bill To City, Bill To State/Province Code, Bill To Postal Code, Bill To Country Code, Bill To Customer ID, Bill To Agreement Number, Bill To Contact Name, Bill To Contact Phone, Bill To County, HP Representative Name, HP Sales Rep Email, Salesperson2 Name, Salesperson2 Unique Employee ID, Salesperson's Manager's Name,Salesperson's Manager Unique Employee ID,Quantity Qualifier,Product Quantity Shipped/Sold,Line Item ID,Partner Reported Product ID,Product Description,Date Type Qualifier,Channel Partner to Customer Transaction Date,Reseller’’s Product Number,Partner Purchase Price,Extended Price,Partner Sell Price,Extended Resale Price,Transaction Type,Rebate Tracking #,Partner Requested Rebate Amount,Extended Rebate Amount,Debit Number,Channel Partner to Customer Invoice ID,Reference Number,Customer to Channel Partner Purchase Order ID,Deal ID #1,Deal ID #2,Deal ID #3,Deal ID #4,Deal ID #5,Deal ID #6,Marketing Subprogram Code,Product Serial ID assigned by HP,Purchasing Source wholesaler indicator,Drop Ship Flag,Distributor's Invoice Number,Partner Internal transaction ID,Partner Comment,Deal Bundle ID #1,Deal Bundle ID #2,Deal Bundle ID #3,Deal Bundle ID #4,Deal Bundle ID #5,Deal Bundle ID #6,NMSO NAME,Sales Type,Purchase Agreement,Product Origin,Partner Reported CBN#,Partner Reference,Supplies Tracking ID (QR Code),Sell From Location ID (assigned by HP or Partner-assigned),Sell from name,Comment Deal ID #1,Comment Deal ID #2,Comment Deal ID #3,Comment Deal ID #4,Comment Deal ID #5,Comment Deal ID #6,Partner Sell Price Currency Code") + If Rep.GetReporteHP(UsuarioActual.CveEmpresa, FechaI, FechaF) Then + For Each dr As DataRow In Rep.DtResultados.Rows + Str.AppendLine($"MXN,,AM30089,,""COMPUPROVEEDORES, S.A.DE C.V."",,,,,,,,,,,,,,,,,,,,{dr("Nombre")},{dr("RFC")},{dr("Direccion")},,{dr("Ciudad")},{dr("Estado")},{dr("CP")},MX,{dr("RFC")},,,,,{dr("Nombre")},{dr("RFC")},{dr("Direccion")},,{dr("Ciudad")},{dr("Estado")},{dr("CP")},MX,{dr("RFC")},,,,,,,,,,,,,,,,,,,,,,,,,{dr("Cantidad")},,{dr("Codigo")},,,{dr("Fecha")},,,,{dr("PU")},,,,,,,{dr("SerieFolio")},,,,,,,,,,{dr("Serie")},,,,,,,,,,,,,,,{dr("Proveedor")},,,,,,,,,,,,MXN") + Next + End If + + Rep.Dispose() + 'GenerarPDF una salida + Response.Clear() + Response.ContentType = "text/csv" + Response.AppendHeader("Content-Disposition", $"attachment; filename=ReporteHP_{FechaI.ToString("dd_MM_yyyy")} a {FechaF.ToString("dd_MM_yyyy")}.csv") + Response.Write(Str.ToString) + Context.Response.End() + End Sub End Class diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index fb94fa794..94e2c239f 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1588,14 +1588,16 @@ Partial Class Ventas ViewState("EstatusCliente") = value End Set End Property - Private Property CveMetodoPagoCliente As Integer - Get - Return ViewState("CveMetodoPagoCliente").ToString().ToEntero() - End Get - Set(value As Integer) - ViewState("CveMetodoPagoCliente") = value - End Set - End Property + + 'Private Property CveMetodoPagoCliente As Integer + ' Get + ' Return ViewState("CveMetodoPagoCliente").ToString().ToEntero() + ' End Get + ' Set(value As Integer) + ' ViewState("CveMetodoPagoCliente") = value + ' End Set + 'End Property + Private Property Modalidad As String Get Return ViewState("Modalidad").ToString() @@ -2047,7 +2049,7 @@ Partial Class Ventas ImprimeNombreSucursal = False RegistraScript("SetDisabledTxtTotal(true);") TrVistaPrevia.Visible = False - CveMetodoPagoCliente = 1 + 'CveMetodoPagoCliente = 1 CveAlmacenExistenciasContrato = -1 UpFacturar.Update() 'CargaTiposDocumentos() @@ -5454,7 +5456,7 @@ Partial Class Ventas If CveCliente = 239903 AndAlso UsuarioActual.CveEmpresa = 119 Then DdlMetodoPago33.Enabled = False - ObjCliente.CveMetodoPago = 1 ' PUE, y que no se pueda modificar + 'ObjCliente.CveMetodoPago = 1 ' PUE, y que no se pueda modificar Else DdlMetodoPago33.Enabled = True End If @@ -5462,7 +5464,7 @@ Partial Class Ventas Dim CveCotizacion As Integer = IfNull(ViewState("CveCotizacion"), 0).ToString().ToEntero() If (CveVenta <= 0 AndAlso CveCotizacion <= 0) Or EsCreaApartirDe Or NuevaFactura = 1 Then - CveMetodoPagoCliente = ObjCliente.CveMetodoPago + 'CveMetodoPagoCliente = ObjCliente.CveMetodoPago DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33) @@ -6214,7 +6216,7 @@ Partial Class Ventas End If If CveVenta <= 0 Then - CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString().ToEntero() + 'CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString().ToEntero() DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString()) DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty) @@ -6246,7 +6248,7 @@ Partial Class Ventas Dim CveCotizacion As Integer = IfNull(ViewState("CveCotizacion"), 0).ToString().ToEntero() If CveVenta <= 0 AndAlso CveCotizacion <= 0 Then - CveMetodoPagoCliente = ObjCliente.CveMetodoPago + 'CveMetodoPagoCliente = ObjCliente.CveMetodoPago DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33) DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty) @@ -6291,8 +6293,22 @@ Partial Class Ventas If ObjVentasAplciar.DtResultados.Rows.Count > 0 Then If tCveSucursalCliente > 0 Then - Retorno = ObjVentasAplciar.DtResultados(0)("LimiteRestanteSucursal").ToString().ToDecimal - PorcentajeCredito = ObjVentasAplciar.DtResultados(0)("PorcentajeSaldoSucursal").ToString().ToDecimal + + Dim LimiteRestanteSucursal As Decimal = ObjVentasAplciar.DtResultados(0)("LimiteRestanteSucursal").ToString().ToDecimal + Dim PorcentajeSaldoSucursal As Decimal = ObjVentasAplciar.DtResultados(0)("PorcentajeSaldoSucursal").ToString().ToDecimal + + Dim LimiteRestanteCliente As Decimal = ObjVentasAplciar.DtResultados(0)("LimiteRestanteCliente").ToString().ToDecimal + Dim PorcentajeSaldoCliente As Decimal = ObjVentasAplciar.DtResultados(0)("PorcentajeSaldoCliente").ToString().ToDecimal + + 'SI EL LIMITE DE LA SUCURSAL ES MAYOR AL DEL CLIENTE DEBE LIMITAR AL DEL CLIENTE + If LimiteRestanteSucursal > LimiteRestanteCliente Then + Retorno = LimiteRestanteCliente + PorcentajeCredito = PorcentajeSaldoCliente + ElseIf LimiteRestanteSucursal < LimiteRestanteCliente Then + Retorno = LimiteRestanteSucursal + PorcentajeCredito = PorcentajeSaldoSucursal + End If + Else Retorno = ObjVentasAplciar.DtResultados(0)("LimiteRestanteCliente").ToString().ToDecimal PorcentajeCredito = ObjVentasAplciar.DtResultados(0)("PorcentajeSaldoCliente").ToString().ToDecimal @@ -14402,7 +14418,7 @@ Partial Class Ventas ' Alert("El importe registrado como descuento no coincide con el importe seleccionado de anticipo.", TipoMensaje.MsgAdvertencia) ' Exit Sub 'End If - Dim TotalCalculableImpuestos As Decimal = 0 + Dim TotalCalculableImpuestos As Decimal = 0, TotalCalculableImpuestosIVA As Decimal = 0 Dim TotalDescuentosRound As Decimal = 0 Dim Cantidad, PU, Descuento, DescuentoRound As Decimal @@ -14416,14 +14432,19 @@ Partial Class Ventas TotalDescuentosRound += DescuentoRound TotalCalculableImpuestos = (Cantidad * (PU)) - Descuento + TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + dr("PorcentajeIEPS").ToString().ToDecimal) + dr("Descuento") = DescuentoRound - dr("TotalImporte") = Math.Round(Cantidad * PU, NumeroDecimales) - dr("ImporteIVA") = Math.Round(dr("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestos, NumeroDecimales) - dr("ImporteIEPS") = Math.Round(dr("PorcentajeIEPS").ToString().ToDecimal * TotalCalculableImpuestos, NumeroDecimales) - dr("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales) - dr("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales) + + dr("Total") = (Cantidad * PU) + dr("TotalImporte") = (Cantidad * PU).RoundSQL + dr("ImporteIVA") = (dr("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales) + dr("ImporteIEPS") = (dr("PorcentajeIEPS").ToString().ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) + dr("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) + dr("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) dr("PorcentajeRetIVA") = ClienteRetIVA dr("PorcentajeRetISR") = ClienteRetISR + Next 'REVISA SI EXISTEN DIFERENCIAS ENTRE EL DESCUENTO Y LO AMORTIZADO PARA REALIZAR UN AJUSTE EN EL ULTIMO CONCEPTO AGREGADO @@ -15685,11 +15706,10 @@ Partial Class Ventas End If - If DdlTipoComprobante.SelectedValue.Contiene("Rem") Then - ' IPP 15 Julio 2017 - ERA FALSE - ImgAntiPend.Visible = False - ElseIf Opcion <> "Op" Then + If DdlTipoComprobante.SelectedValue.Contiene("Ing") Then ImgAntiPend.Visible = True + Else + ImgAntiPend.Visible = False End If @@ -15709,6 +15729,10 @@ Partial Class Ventas TrVistaPrevia.Visible = EstatusCliente End If + If DdlTipoComprobante.SelectedValue = "Ing" Then + ImgAntiPend.Visible = True + End If + MostrarOpcioensPaqueteria() TrAtencionA.Visible = True @@ -15724,9 +15748,7 @@ Partial Class Ventas End Sub Protected Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged CargaClienteSucursal(DdlSucursalCliente.SelectedValue.ToEntero()) - 'If Me.CveVenta > 0 Then - ' CargaRestriccionesCreditoCliente(Alertas:=True) - 'End If + CargaRestriccionesCreditoCliente(Alertas:=True, CveVenta:=Me.CveVenta) End Sub Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs) Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow) @@ -27838,6 +27860,8 @@ Partial Class Ventas ' BtnCrearApartirDe.Visible = False 'End If + HdnCveVenta.Value = "" + BtnCrearApartirDe.Visible = False '[IPP-2Novimebre2018] REEMPLAZA LO COMENTADO ARRIBA EsCreaApartirDe = True ModalidadEdicion = True @@ -27885,6 +27909,7 @@ Partial Class Ventas 'Cuando es cotización, Genera nueva cotizacion If DdlTipoComprobante.SelectedValue = "Cot" Then BtnEmitirImprimir.Text = "Cotizar" + ImgAntiPend.Visible = False 'TdReferencia.Style.Add("display", "none") End If @@ -28015,6 +28040,8 @@ Partial Class Ventas GvFacturasRelacionadas.Columns(2).Visible = True + CalculaTotalesVenta() + UpnTools.Update() UpCliente.Update() UpParametros.Update() diff --git a/asmx/WsTSoft.asmx b/asmx/WsTSoft.asmx index 3288b8237..ba1f49cd0 100644 --- a/asmx/WsTSoft.asmx +++ b/asmx/WsTSoft.asmx @@ -21,22 +21,35 @@ Public Class WsTSoft Public Function AddRemision(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicial As String, GeoCarga As String, GeoEntrega As String, Fecha As String) As String Dim retorno As String = "" + Dim Continuar As Boolean = False + Dim objTsoft As New ClsTSoft - objTsoft.IniciaTransacSQL() - Dim Continuar As Boolean = objTsoft.AddRemisiones(FolioRemision, NoEconomico, CveEstatus, GeoInicial, GeoCarga, GeoEntrega, Fecha) - Dim objRem As New addRemisionObj - If Continuar Then - objTsoft.Commit() - objRem.CveRemision = objTsoft.DtResultados.Rows(0)("CveRemision").ToString().ToEntero() - objRem.CurrentError = "" - Else - objTsoft.RollBack() - objRem.CveRemision = 0 - objRem.CurrentError = objTsoft.MyCurrentError - End If + objTsoft.IniciaTransacSQL() + Try + Continuar = objTsoft.AddRemisiones(FolioRemision, NoEconomico, CveEstatus, GeoInicial, GeoCarga, GeoEntrega, Fecha) + + Dim objRem As New addRemisionObj + If Continuar Then + objRem.CveRemision = objTsoft.DtResultados.Rows(0)("CveRemision").ToString().ToEntero() + objRem.CurrentError = "" + Else + objRem.CveRemision = 0 + objRem.CurrentError = objTsoft.MyCurrentError + End If + + retorno = JsonConvert.SerializeObject(objRem) + objRem = Nothing + Catch ex As Exception + Continuar = False + Finally + If Continuar Then + objTsoft.Commit() + Else + objTsoft.RollBack() + End If + End Try objTsoft.Dispose() - retorno = JsonConvert.SerializeObject(objRem) - objRem = Nothing + Return retorno End Function @@ -69,22 +82,29 @@ Public Class WsTSoft DtPosicion = ObjGPS.DtResultados.Copy() Continuar = True End If - End Using - - Dim ObjPos As New LatLng - - If Continuar AndAlso DtPosicion IsNot Nothing Then - 'CONSULTA DIRECCIONES - Try + End Using + + Dim ObjPos As New LatLng + + Try + + If Continuar AndAlso DtPosicion IsNot Nothing Then + 'CONSULTA DIRECCIONES + If DtPosicion IsNot Nothing AndAlso DtPosicion.Rows.Count > 0 Then + Try - Dim Direcciones As JArray = ConsultarDirecciones(DtPosicion, "Lat", "Lng") + Dim Direcciones As JArray = ConsultarDirecciones(DtPosicion, "Lat", "Lng") - If Direcciones IsNot Nothing Then - For Each Dir As JObject In Direcciones - DtPosicion.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString() - Next - End If + If Direcciones IsNot Nothing Then + For Each Dir As JObject In Direcciones + DtPosicion.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString() + Next + End If + Catch ex As Exception + ObjPos.CurrentError = "No se pudo obtener la posición." + OnError("Ocurrió un error al asignar las direcciones", ex) + End Try Dim RowPosicion As DataRow = DtPosicion.Rows("0") @@ -96,20 +116,20 @@ Public Class WsTSoft ObjPos.CurrentError = "No se encontraron resultados." End If - Catch ex As Exception + Else ObjPos.CurrentError = "No se pudo obtener la posición." - OnError("Ocurrió un error al asignar las direcciones", ex) - End Try - Else - ObjPos.CurrentError = "No se pudo obtener la posición." - End If + End If - If DtPosicion IsNot Nothing Then - DtPosicion.Dispose() - DtPosicion = Nothing - End If + If DtPosicion IsNot Nothing Then + DtPosicion.Dispose() + DtPosicion = Nothing + End If + + retorno = JsonConvert.SerializeObject(ObjPos) + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos", ex) + End Try - retorno = JsonConvert.SerializeObject(ObjPos) ObjPos = Nothing Return retorno End Function @@ -135,36 +155,43 @@ Public Class WsTSoft Public Function GetRemisionHistorial(FolioRemision As String, NoEconomico As String) As String Dim retorno As String = "" - Dim objTsoft As New ClsTSoft - Dim Continuar As Boolean = objTsoft.GETRemisionesHistorial(FolioRemision, NoEconomico) - Dim objRem As New GetRemisionHistorialesObj - If Continuar Then - Try + Dim objTsoft As New ClsTSoft + Try + Dim Continuar As Boolean = objTsoft.GETRemisionesHistorial(FolioRemision, NoEconomico) + Dim objRem As New GetRemisionHistorialesObj + If Continuar Then Dim Dt = objTsoft.DtResultados.Copy() - Dt.Columns.Add("Direccion", GetType(String)) + Try + Dt.Columns.Add("Direccion", GetType(String)) - 'CONSULTA DIRECCIONES - Dim Direcciones As JArray = ConsultarDirecciones(Dt, "Lat", "Lon") - If Direcciones IsNot Nothing Then - For Each Dir As JObject In Direcciones - Dt.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString() - Next - End If + 'CONSULTA DIRECCIONES + Dim Direcciones As JArray = ConsultarDirecciones(Dt, "Lat", "Lon") + If Direcciones IsNot Nothing Then + For Each Dir As JObject In Direcciones + Dt.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString() + Next + End If + + objRem.CurrentError = "" + Catch ex As Exception + objRem.CurrentError = "Ocurrió un error al asignar las direcciones" + OnError("Ocurrió un error al asignar las direcciones", ex) + End Try objRem.Historial = Dt.DataTableToObject(Of GetRemisionHistorialsObj) - objRem.CurrentError = "" - Catch ex As Exception - objRem.CurrentError = "Ocurrió un error al asignar las direcciones" - OnError("Ocurrió un error al asignar las direcciones", ex) - End Try - - Else - objRem.Historial = New List(Of GetRemisionHistorialsObj) - objRem.CurrentError = objTsoft.MyCurrentError - End If + Dt.Dispose() + Dt = Nothing + Else + objRem.Historial = New List(Of GetRemisionHistorialsObj) + objRem.CurrentError = objTsoft.MyCurrentError + End If + retorno = JsonConvert.SerializeObject(objRem) + objRem = Nothing + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos", ex) + End Try objTsoft.Dispose() - retorno = JsonConvert.SerializeObject(objRem) - retorno = Nothing + Return retorno End Function @@ -172,27 +199,32 @@ Public Class WsTSoft Dim retorno As String = "[]" Dim objTsoft As New ClsTSoft - If objTsoft.GetInfoEventosPenske(FechaInicio.ToDateTime(), FechaFin.ToDateTime()) Then - If objTsoft.DtResultados.Rows.Count > 0 Then - Try - 'CONSULTA DIRECCIONES - Dim Direcciones As JArray = ConsultarDirecciones(objTsoft.DtResultados) - If Direcciones IsNot Nothing Then - For Each Dir As JObject In Direcciones - objTsoft.DtResultados.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString() - Next - End If - Catch ex As Exception - OnError("Ocurrió un error al asignar las direcciones", ex) - End Try + Try + If objTsoft.GetInfoEventosPenske(FechaInicio.ToDateTime(), FechaFin.ToDateTime()) Then + If objTsoft.DtResultados.Rows.Count > 0 Then + Try + 'CONSULTA DIRECCIONES + Dim Direcciones As JArray = ConsultarDirecciones(objTsoft.DtResultados) + If Direcciones IsNot Nothing Then + For Each Dir As JObject In Direcciones + objTsoft.DtResultados.Rows(Dir("Indice").ToEntero())("Direccion") = Dir("Direccion").ToString() + Next + End If + Catch ex As Exception + OnError("Ocurrió un error al asignar las direcciones", ex) + End Try - retorno = objTsoft.DtResultados.DataTableToJSONIPP() + retorno = objTsoft.DtResultados.DataTableToJSONIPP() + Else + retorno = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.Mensaje = "No se encontraron resultados"}) + End If Else - retorno = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.Mensaje = "No se encontraron resultados"}) + retorno = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.Mensaje = "Ocurrío un error al consultar los datos"}) End If - Else - retorno = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.Mensaje = "Ocurrío un error al consultar los datos"}) - End If + Catch ex As Exception + retorno = "[]" + OnError("Ocurrió un error al obtener los datos", ex) + End Try objTsoft.Dispose() Return retorno @@ -202,17 +234,22 @@ Public Class WsTSoft Dim retorno As String = "" Dim Continuar As Boolean = False - Dim ObjTSoft As New ClsTSoft - Continuar = ObjTSoft.TieneRemisionesActivas(NoEconomico) - - Dim objRem As New MTieneRemisiones With - { - .TieneRemisiones = Continuar, - .CurrentError = ObjTSoft.MyCurrentError - } - ObjTSoft.Dispose() - retorno = JsonConvert.SerializeObject(objRem) - objRem = Nothing + Dim ObjTSoft As New ClsTSoft + Try + If ObjTSoft.TieneRemisionesActivas(NoEconomico) Then + Dim objRem As New MTieneRemisiones With + { + .TieneRemisiones = Continuar, + .CurrentError = ObjTSoft.MyCurrentError + } + retorno = JsonConvert.SerializeObject(objRem) + objRem = Nothing + End If + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos", ex) + End Try + ObjTSoft.Dispose() + Return retorno End Function