diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 17a30f6bb..5b34123a5 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -319,7 +319,7 @@ Public Class ClsContratos Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = 1, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1, Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1, Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", - Optional FacturacionCicilica As Boolean = False, Optional FacturacionCiclicaAutomatico As Boolean = False, Optional DiaMesFacturacion As Integer = 1) As Integer + Optional FacturacionCicilica As Boolean = False, Optional FacturacionCiclicaAutomatico As Boolean = False, Optional DiaMesFacturacion As Integer = 1, Optional ObservacionesGenerales As String = "") As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Con_ContratosAdd") @@ -374,6 +374,7 @@ Public Class ClsContratos .Add("@FacturacionCicilica", SqlDbType.Bit).Value = FacturacionCicilica .Add("@FacturacionCiclicaAutomatico", SqlDbType.Bit).Value = FacturacionCiclicaAutomatico .Add("@DiaMesFacturacion", SqlDbType.TinyInt).Value = DiaMesFacturacion + .Add("@ObservacionesGenerales", SqlDbType.VarChar).Value = ObservacionesGenerales End With @@ -399,7 +400,7 @@ Public Class ClsContratos Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = 1.0, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1, Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1, Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional FacturacionCicilica As Boolean = False, Optional FacturacionCiclicaAutomatico As Boolean = False, - Optional DiaMesFacturacion As Integer = 1, Optional CvePeriodo As Integer = -1) As Boolean + Optional DiaMesFacturacion As Integer = 1, Optional CvePeriodo As Integer = -1, Optional ObservacionesGenerales As String = "") As Boolean Dim Retorno = False DataAdapter("PA_Con_ContratosUpdate") @@ -453,7 +454,9 @@ Public Class ClsContratos .Add("@FacturacionCicilica", SqlDbType.Bit).Value = FacturacionCicilica .Add("@FacturacionCiclicaAutomatico", SqlDbType.Bit).Value = FacturacionCiclicaAutomatico .Add("@DiaMesFacturacion", SqlDbType.TinyInt).Value = DiaMesFacturacion - .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo + .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo + .Add("@ObservacionesGenerales", SqlDbType.VarChar).Value = ObservacionesGenerales + End With Try diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs index 1f602c371..9bcabe81d 100644 --- a/Bancos/Devoluciones.aspx.cs +++ b/Bancos/Devoluciones.aspx.cs @@ -579,9 +579,9 @@ public partial class Bancos_Devoluciones : ClsPaginas // OTROS INGRESOS if (gvr.FCTextBox("TxtComision").Text.ToDecimal() != 0) { - int tcvecon = 78; + int tcvecon = 255; if (gvr.FCTextBox("TxtComision").Text.ToDecimal() > 0) - tcvecon = 255; + tcvecon = 78; if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtComision").Text.ToDecimal(), Ref, tcvecon, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtComision").Text.ToDecimal(), CveIEDevolucion: CveIE)) { diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 146aac8d0..a7a317c87 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -25,11 +25,7 @@ Complemento Pago - - -
  • - Actualizar Tipo Cambio -
    • +
  • PrePoliza
    • @@ -268,7 +264,7 @@ Clientes Proveedor - Viaticos - Personal + Viáticos @@ -1473,44 +1469,7 @@ - - <%-- ACTUALIZAR TIPO CAMBIO PREPOLIZA --%> - + +
    +
    + +
    + +
    +
    + +
    +
    diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 50bb6f76a..c4049ee0c 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -1383,7 +1383,8 @@ Partial Class Contratos_Default CveAlmacenOrigen:=DdlAlmacenOrigen.SelectedValue.ToEntero, CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, PorcentajeComision:=TxtPorcentajeComision.Text.ToEntero, TipoGarantia:=DdlTipoGarantia.SelectedValue.ToEntero, Folio:=TxtFolio.Text.ToEntero, FechaVenc:=txtFechaVenc.Text.ToDate, EstatusFianza:=DdlEstatusFianza.SelectedValue.ToEntero, CveContratoPlantilla:=DdlPlantillaContrato.SelectedValue.ToEntero, CveCuentaEquipo:=DdlCuentaEquipo.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=DdlClienteDireccionEnvio.SelectedValue.ToEntero, AplicaImpuestosLocales:=ChkImpuestosLocales.Checked, - CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), FacturacionCicilica:=ChkAplicaFacCiclica.Checked, FacturacionCiclicaAutomatico:=ChkFacAutomatica.Checked, DiaMesFacturacion:=If(DdlDiaFact.SelectedValue.ToEntero() < 0, 0, DdlDiaFact.SelectedValue.ToEntero()), CvePeriodo:=DdlPeriodo.SelectedValue.ToEntero()) Then + CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), FacturacionCicilica:=ChkAplicaFacCiclica.Checked, FacturacionCiclicaAutomatico:=ChkFacAutomatica.Checked, DiaMesFacturacion:=If(DdlDiaFact.SelectedValue.ToEntero() < 0, 0, DdlDiaFact.SelectedValue.ToEntero()), + CvePeriodo:=DdlPeriodo.SelectedValue.ToEntero(), ObservacionesGenerales:=TxtObsGeneral.Text.Trim) Then TieneError = Not GuardaFianzas(ObjContratos) @@ -4028,7 +4029,8 @@ Partial Class Contratos_Default TxtUbicacion.Text, TxtResponsable.Text, DdlSubProyectoContrato.SelectedValue.ToEntero, TxtPorIVA.Text.ToDouble, TxtPorAnticipo.Text.ToDouble, TxtPorAmortizacionAnticipo.Text.ToDouble, TxtPorGarantia.Text.ToDouble, "." & Session("FileExtension").ToString, "", CveContrato, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, Minimo, Maximo, Total, DdlMoneda.SelectedValue.ToEntero, ModalidadDetalle, If(UsuarioActual.Empresa.CvePlataforma = 3, 1, CveEstatusInicial), TipoContrato, TxtTipoCambio.Text.ToDouble, CveSucursalCliente:=DdlSucursalCliente.SelectedValue.ToEntero, CveAlmacenOrigen:=DdlAlmacenOrigen.SelectedValue.ToEntero, CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, PorcentajeComision:=TxtPorcentajeComision.Text.ToEntero, - TipoGarantia:=DdlTipoGarantia.SelectedValue.ToEntero, Folio:=TxtFolio.Text.ToEntero, FechaVenc:=txtFechaVenc.Text.ToDate, EstatusFianza:=DdlEstatusFianza.SelectedValue.ToEntero, CvePeriodo:=DdlPeriodo.SelectedValue.ToEntero, CveCuentaEquipo:=DdlCuentaEquipo.SelectedValue.ToEntero, CveContratoPlantilla:=DdlPlantillaContrato.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero) + TipoGarantia:=DdlTipoGarantia.SelectedValue.ToEntero, Folio:=TxtFolio.Text.ToEntero, FechaVenc:=txtFechaVenc.Text.ToDate, EstatusFianza:=DdlEstatusFianza.SelectedValue.ToEntero, CvePeriodo:=DdlPeriodo.SelectedValue.ToEntero, CveCuentaEquipo:=DdlCuentaEquipo.SelectedValue.ToEntero, CveContratoPlantilla:=DdlPlantillaContrato.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, + ObservacionesGenerales:=TxtObsGeneral.Text.Trim) If CveContratoHijo > 0 Then @@ -4578,6 +4580,61 @@ Partial Class Contratos_Default Plantilla = Plantilla.ToString().Replace("{FINMESANTERIOR}", mesAnterior) End If + Alert(Plantilla) + End Sub + Protected Sub BtnVerPlantilla2_Click(sender As Object, e As EventArgs) + Dim Plantilla As String = TxtObsGeneral.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/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb index 01c6fc60e..4057e0c9d 100644 --- a/Contratos/FacturacionMasiva.aspx.vb +++ b/Contratos/FacturacionMasiva.aspx.vb @@ -142,6 +142,14 @@ Partial Class Contratos_FacturacionMasiva Row("Observaciones") = Row("Observaciones").ToString().Replace("{MES}", nombreMes) End If + If Row("Observaciones").ToString().Contains("{MESANTERIOR}") Then + Dim fecha As DateTime = DateTime.Now.AddMonths(-1) + Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat + Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper() + + Row("Observaciones") = Row("Observaciones").ToString().Replace("{MESANTERIOR}", nombreMes) + End If + If Row("Observaciones").ToString().Contains("{AÑO}") Then Row("Observaciones") = Row("Observaciones").ToString().Replace("{AÑO}", DateTime.Now.Year.ToString()) End If diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 17cc978e4..a6f23b581 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -2980,6 +2980,9 @@ Partial Class Inventarios_RecepcionUsados Dim CveTamanio As Integer = -1 Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("") + DdlBCIAjuste.SelectedValue = Nothing + DdlBCIAjuste.Items.Clear() + If drPS IsNot Nothing Then Dim CvePrecioListaPS As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=DdlClientes.SelectedValue.ToEntero).FiltroPrimeroValor("CvePrecioLista").ToEntero() If CvePrecioListaPS > 0 Then @@ -2994,6 +2997,17 @@ Partial Class Inventarios_RecepcionUsados CveClasificacion = drPS("CveClasificacion").ToString.ToEntero CveTamanio = drPS("CveTamaño").ToString.ToEntero + If DTBCIUsados IsNot Nothing AndAlso CveTamanio > 0 Then + DdlBCIAjuste.DataSource = DTBCIUsados.FiltraParametros($"CveTamaño={CveTamanio}") + DdlBCIAjuste.DataBind() + DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1")) + If CveTamanio = 16 Then 'motobaterias + DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0")) + End If + Else + DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0")) + End If + Dim Arr = PS.Split("-"c) If Arr.Count > 1 Then If (DdlBCIAjuste.Items.FindByText(Arr(1).ToString) IsNot Nothing) Then @@ -3001,7 +3015,6 @@ Partial Class Inventarios_RecepcionUsados End If End If - End If HdnPSAjusteMarca.Value = CveMarca.ToString() @@ -3054,19 +3067,6 @@ Partial Class Inventarios_RecepcionUsados 'CvePrecioLista = CvePrecioListaPS End If - DdlBCIAjuste.Items.Clear() - If DTBCIUsados IsNot Nothing AndAlso CveTamanio > 0 Then - DdlBCIAjuste.DataSource = DTBCIUsados.FiltraParametros($"CveTamaño={CveTamanio}") - DdlBCIAjuste.DataBind() - DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1")) - If CveTamanio = 16 Then 'motobaterias - DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0")) - End If - 'UPPDatosUsado.Update() ''refresca el RFV - Else - DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0")) - End If - DdlTipoUso.Items.Clear() DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca) DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1")) diff --git a/Inventarios/RepNotasSinAlmacen.aspx b/Inventarios/RepNotasSinAlmacen.aspx index 8d2148f99..eeb3a3dbc 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx +++ b/Inventarios/RepNotasSinAlmacen.aspx @@ -132,6 +132,8 @@ + +
    <%--
    Sucursal:
    diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb index 5fccd46e7..4838bd1b0 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx.vb +++ b/Inventarios/RepNotasSinAlmacen.aspx.vb @@ -146,7 +146,7 @@ Partial Class RepNotasSinAlmacen CveClienteProveedor = DdlProveedor.SelectedValue.ToEntero End If - If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then + If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then GvCompras.DataSource = Reporte.DtResultados DtNotasSinAlmacenCompras = Reporte.DtResultados Else diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 24d824ff0..36662c5fb 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -6886,7 +6886,7 @@
    + DataKeyNames="CveVenta,CveMetodoPago33,CveFormaPago33,CveMoneda" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" GridLines="None"> diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 702b2b7b4..4d5f7150c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3986,9 +3986,12 @@ Partial Class Ventas UpPS.Update() Exit Sub Else + + Dim ObsPlantilla As String = PlantillaContrato(Row.DataKey("Observaciones")) + SeleccionadoContrato += Row.FCTextBox("TxtCant").Text.ToEntero() * Row.FCLiteral("LtlPU").Text.ToDouble AgregarProductoServicio(Row.FCTextBox("TxtCant").Text.ToEntero(), Row.DataKey("CveUM").ToEntero(), Row.FCLiteral("LtlUM").Text, Row.DataKey("CveClasificacion").ToEntero(), - Row.DataKey("Clasificacion"), Row.DataKey("CvePS").ToEntero(), Row.FCLiteral("LtlPS").Text, If(CveCicloComercial > 0, Row.DataKey("Observaciones"), $"/ {Row.FCLiteral("LtCveInterna").Text}"), Row.FCLiteral("LtlPU").Text.ToDecimal, 0, + Row.DataKey("Clasificacion"), Row.DataKey("CvePS").ToEntero(), Row.FCLiteral("LtlPS").Text, If(CveCicloComercial > 0, ObsPlantilla, $"/ {Row.FCLiteral("LtCveInterna").Text}"), Row.FCLiteral("LtlPU").Text.ToDecimal, 0, DrContrato("CveProyecto").ToString().ToEntero(), DrContrato("ProyectoContrato").ToString(), DrContrato("CveSubProyecto").ToString().ToEntero(), DrContrato("SubProyectoContrato").ToString(), CveContratoDetalle:=Row.DataKey("CveContratoDetalle").ToEntero()) 'AddPS(Row.FCTextBox("TxtCant").Text.ToEntero(), Row.DataKey("CveUM").ToEntero(), Row.FCLiteral("LtlUM").Text, Row.DataKey("CveClasificacion").ToEntero(), Row.DataKey("Clasificacion"), ' Row.DataKey("CvePS").ToEntero(), Row.FCLiteral("LtlPS").Text, If(CveCicloComercial > 0, Row.DataKey("Observaciones"), $"/ {Row.FCLiteral("LtCveInterna").Text}"), Row.FCLiteral("LtlPU").Text.ToDouble, If(Row.DataKey("IVA").ToDouble = -1, ViewState("IVA").ToString().ToDouble, Row.DataKey("IVA").ToDouble), 0, 0, 1, 0, True, "", @@ -5067,6 +5070,7 @@ Partial Class Ventas VentaActual = New Venta VentaActual.CveVenta = CveVenta + VentaActual.Fecha = DbRowVenta("Fecha").ToString.ToDate VentaActual.CveCliente = DbRowVenta("CveCliente").ToString.ToEntero VentaActual.CveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero VentaActual.SerieFolio = DbRowVenta("SerieFolio").ToString @@ -7825,6 +7829,21 @@ Partial Class Ventas GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = False GvPS.Rows(e.NewEditIndex).FCTextBox("TxtDescuento").Enabled = False End If + + If CveCicloComercial > 0 Then + For Each gvr As GridViewRow In GvContratoDetalles.Rows + If gvr.RowType = DataControlRowType.DataRow Then + If gvr.DataKey("Cantidad").ToString().ToDecimal() = GvPS.Rows(e.NewEditIndex).DataKey("Cantidad").ToString().ToDecimal() AndAlso gvr.DataKey("CvePS").ToString().ToEntero() = GvPS.Rows(e.NewEditIndex).DataKey("CvePS").ToString().ToEntero() Then + If gvr.DataKey("LimitarCantidad").ToString() = "False" Then + GvPS.Rows(e.NewEditIndex).FCTextBox("TxtCantidad").Enabled = True + Exit For + End If + End If + End If + Next + + End If + End Sub Protected Sub GvPS_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvPS.RowCancelingEdit GvPS.EditIndex = -1 @@ -8461,17 +8480,8 @@ Partial Class Ventas Alert("El cliente no tiene asignado un régimen fiscal.", TipoMensaje.MsgAdvertencia) Exit Sub End If - - Dim EsPersonaMoral As Boolean = (TipoPersona = True) - If EsPersonaMoral AndAlso String.IsNullOrEmpty(RegimenSociedad) Then - Alert("El cliente no tiene asignado un regimen de sociedad.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - End If - - If (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then Alert("La sucursal no tiene asignada un RFC.", TipoMensaje.MsgAdvertencia) Exit Sub @@ -12538,7 +12548,7 @@ Partial Class Ventas CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM, DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False), Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, - FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia) Then + FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
    Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Else If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then @@ -24088,7 +24098,15 @@ Partial Class Ventas DdlContratosModal.DataSource = ObjContratos.DtResultados DdlContratosModal.SelectedValue = ObjContratos.DtResultados(0)("CveContrato").ToString() DdlContratosModal_SelectedIndexChanged(Nothing, Nothing) - GvContratoDetalles.HeaderRow.Cells(1).Style.Add("display", "none") + + If GvContratoDetalles.HeaderRow IsNot Nothing Then + If GvContratoDetalles.HeaderRow.Cells.Count > 0 Then + GvContratoDetalles.HeaderRow.Cells(1).Style.Add("display", "none") + End If + End If + + TxtObsFact.Text = PlantillaContrato(ObjContratos.DtResultados(0)("ObservacionesGenerales").ToString()) + BtnCargarContratoDetalles_Click(Nothing, Nothing) LbAgregar.Visible = True UpPS.Update() @@ -24103,6 +24121,62 @@ Partial Class Ventas End If ObjContratos.Dispose() End Sub + + Private Function PlantillaContrato(texto As String) As String + Dim Plantilla As String = texto + + 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 + + Return Plantilla + End Function #End Region #Region "DESCARGAR E IMPRIMIR LISTADO" @@ -27621,6 +27695,23 @@ Partial Class Ventas End If End If + Dim Monedas As New List(Of Integer) + For Each gvr As GridViewRow In GvCxC.Rows + If gvr.FCCheckBox("ChkCxC").Checked Then + Monedas.Add(gvr.DataKey("CveMoneda").ToString().ToEntero()) + End If + Next + + Monedas = Monedas.Distinct().ToList() + + If Monedas.Count > 0 Then + If Monedas.Count > 1 Then + Alert($"Debe seleccionar facturas de la misma moneda", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + DdlMoneda.SelectedValueExist(Monedas(0).ToString()) + End If + RegistraScript("$('#ModalAplicarNC').modal('hide');", "EscondeModalNC") CveVentaUsadoDevolucionEfectivo = -1