From ee0e77c986fee90974dce306af39a3db8eca53f6 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 2 Jun 2022 10:57:41 -0700 Subject: [PATCH] Formatos 4.0 , cat unidades placas, Inventario Fisico Serie 6 digitos minimo --- App_Code/ClsInventarios.vb | 18 +++- Empresas/119/Formatos/Cotizacion.rdlc | 13 ++- Empresas/119/Formatos/Factura.rdlc | 100 +++++++++++---------- Empresas/119/Formatos/Remision.rdlc | 13 ++- Empresas/140/Formatos/Cotizacion.rdlc | 5 +- Empresas/140/Formatos/Factura.rdlc | 4 +- Empresas/140/Formatos/Remision.rdlc | 4 +- Inventarios/CatUnidades.aspx.vb | 6 +- Inventarios/InventarioFisicoDetalle.aspx | 25 +++++- Ventas/Ventas.aspx.vb | 110 +++++++++++++++++++++-- 10 files changed, 230 insertions(+), 68 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 8402fca44..e3f5320b7 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5600,7 +5600,13 @@ Public Class ClsInventarios SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al momento de insertar el nuevo camion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + If ex.Message.Contains("UN_Inv_Camiones_CveEmpresa_Placa") Then + Alert("La Placa ya se encuentra registrada." & Almacen & ".", TipoMensaje.MsgAdvertencia) + Else + OnError("Ocurrió un error al momento de insertar el nuevo camion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + End Try Return Retorno End Function @@ -5654,7 +5660,15 @@ Public Class ClsInventarios SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al momento de actualizar el camion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + + If ex.Message.Contains("UN_Inv_Camiones_CveEmpresa_Placa") Then + Alert("La Placa ya se encuentra registrada." & Almacen & ".", TipoMensaje.MsgAdvertencia) + Else + OnError("Ocurrió un error al momento de actualizar el camion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + + End Try Return Retorno End Function diff --git a/Empresas/119/Formatos/Cotizacion.rdlc b/Empresas/119/Formatos/Cotizacion.rdlc index d5c0ac872..fa3ba2a96 100644 --- a/Empresas/119/Formatos/Cotizacion.rdlc +++ b/Empresas/119/Formatos/Cotizacion.rdlc @@ -1212,7 +1212,6 @@ 2pt - true @@ -2853,6 +2852,18 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Empresas/119/Formatos/Factura.rdlc b/Empresas/119/Formatos/Factura.rdlc index cab74d0ae..7a5502e98 100644 --- a/Empresas/119/Formatos/Factura.rdlc +++ b/Empresas/119/Formatos/Factura.rdlc @@ -552,7 +552,7 @@ Start true - 7.78895in + 7.66395in 0.18226in 4.422in 7.87128in @@ -882,7 +882,7 @@ - Regimen fiscal: + Reg.fiscal: @@ -1150,7 +1150,7 @@ true - 3.57076in + 3.44576in 0.02339in 1.21305in 8.22763in @@ -1243,12 +1243,33 @@ + + + + + + + - - Regimen General de Ley Personas Morales - - - - - - - true @@ -2324,7 +2328,7 @@ - =iif(cdbl(Fields!ImporteIVA.Value) > 0, Fields!ImporteIVA.Value & "(" & cdbl(Fields!PorcentajeIVA.Value) * 100 & "%)","") + =iif(cdbl(Fields!ImporteIVA.Value) > 0, Format(Fields!ImporteIVA.Value,"###,###,###.00") & "(" & cdbl(Fields!PorcentajeIVA.Value) * 100 & "%)","") - 31.01581cm + 30.69831cm diff --git a/Empresas/119/Formatos/Remision.rdlc b/Empresas/119/Formatos/Remision.rdlc index 9837dce62..fbe07cd55 100644 --- a/Empresas/119/Formatos/Remision.rdlc +++ b/Empresas/119/Formatos/Remision.rdlc @@ -791,7 +791,6 @@ 2pt - true @@ -2334,6 +2333,18 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Empresas/140/Formatos/Cotizacion.rdlc b/Empresas/140/Formatos/Cotizacion.rdlc index e6842a3a0..a1e70d57d 100644 --- a/Empresas/140/Formatos/Cotizacion.rdlc +++ b/Empresas/140/Formatos/Cotizacion.rdlc @@ -297,7 +297,7 @@ =Parameters!Serie.Value @@ -313,7 +313,7 @@ =Parameters!Folio.Value @@ -1214,7 +1214,6 @@ 2pt - true diff --git a/Empresas/140/Formatos/Factura.rdlc b/Empresas/140/Formatos/Factura.rdlc index 4f4fd52e8..38de1d8fd 100644 --- a/Empresas/140/Formatos/Factura.rdlc +++ b/Empresas/140/Formatos/Factura.rdlc @@ -646,7 +646,7 @@ =Parameters!Serie.Value @@ -670,7 +670,7 @@ =Parameters!Folio.Value diff --git a/Empresas/140/Formatos/Remision.rdlc b/Empresas/140/Formatos/Remision.rdlc index 3001212dd..052dfa688 100644 --- a/Empresas/140/Formatos/Remision.rdlc +++ b/Empresas/140/Formatos/Remision.rdlc @@ -446,7 +446,7 @@ =Parameters!Serie.Value @@ -462,7 +462,7 @@ =Parameters!Folio.Value diff --git a/Inventarios/CatUnidades.aspx.vb b/Inventarios/CatUnidades.aspx.vb index 38720e266..245342d76 100644 --- a/Inventarios/CatUnidades.aspx.vb +++ b/Inventarios/CatUnidades.aspx.vb @@ -231,11 +231,13 @@ Partial Class Inventarios_CatUnidades If Not ErrorPrceso Then GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing CargaDatos() + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarUnidad")) + UpDatos.Update() End If - UpDatos.Update() - RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarUnidad")) + + End Sub diff --git a/Inventarios/InventarioFisicoDetalle.aspx b/Inventarios/InventarioFisicoDetalle.aspx index b44053b71..ffd60da82 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx +++ b/Inventarios/InventarioFisicoDetalle.aspx @@ -339,8 +339,18 @@
- + + + + + + + + + +
@@ -361,9 +371,11 @@
+ + - done_all Guardar + @@ -417,6 +429,15 @@ $('#GvIFD').parent().parent().children().first().css("position", "static"); } + function TamanioSerie(source, arguments) { + + if (arguments.Value.trim().length >= 6) { + arguments.IsValid = true; + } else { + arguments.IsValid = false; + } + + } diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 2ccbbfb38..56a9096ca 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2160,6 +2160,37 @@ Partial Class Ventas ViewState("DtMercancias") = value End Set End Property + + + Private Property ClienteCodigoRegimenFiscal As String + Get + + If ViewState("ClienteCodigoRegimenFiscal") Is Nothing Then + ViewState("ClienteCodigoRegimenFiscal") = "" + End If + Return ViewState("ClienteCodigoRegimenFiscal").ToString + + End Get + Set(value As String) + ViewState("ClienteCodigoRegimenFiscal") = value + End Set + End Property + + + Private Property ClienteRegimenFiscal As String + Get + + If ViewState("ClienteRegimenFiscal") Is Nothing Then + ViewState("ClienteRegimenFiscal") = "" + End If + Return ViewState("ClienteRegimenFiscal").ToString + + End Get + Set(value As String) + ViewState("ClienteRegimenFiscal") = value + End Set + End Property + #End Region '#Region "AuxiliarConta" @@ -5990,6 +6021,9 @@ Partial Class Ventas TieneDiasVencidos = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("TieneDiasVencidos").ToString()) DiasVencidosCliente = ObjCliente.DtResultados.Rows(0)("DiasVencidosCliente").ToString().ToEntero() + ClienteCodigoRegimenFiscal = ObjCliente.DtResultados.Rows(0)("CodigoRegimenFiscal").ToString() + ClienteRegimenFiscal = ObjCliente.DtResultados.Rows(0)("RegimenFiscal").ToString() + If EstatusCliente = False And Not DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") And (CveVenta <= 0 Or EsCreaApartirDe) Then Alert("El Cliente seleccionado no esta activo", TipoMensaje.MsgAdvertencia) BtnEmitirImprimir.Visible = EstatusCliente @@ -9649,7 +9683,24 @@ Partial Class Ventas ObjFacturaDevolucion.Fecha = Now - ObjFacturaDevolucion.Version = "3.3" + + + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then + ObjFacturaDevolucion.Version = "4.0" + + If ObjFacturaDevolucion.Cliente Is Nothing Then + ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel + End If + + ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal + ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal + Else + ObjFacturaDevolucion.Version = "3.3" + End If + + + + ObjFacturaDevolucion.CveMetodoPago33 = 1 ObjFacturaDevolucion.MetodoPago33 = "Pago en una sola exhibición" ObjFacturaDevolucion.ClaveMetodoPagoSAT = "PUE" @@ -9931,7 +9982,20 @@ Partial Class Ventas End If ObjFacturaBonificacion.Fecha = Now - ObjFacturaBonificacion.Version = "3.3" + + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then + ObjFacturaBonificacion.Version = "4.0" + + If ObjFacturaBonificacion.Cliente Is Nothing Then + ObjFacturaBonificacion.Cliente = New Modelos.ClienteModel + End If + + ObjFacturaBonificacion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal + ObjFacturaBonificacion.Cliente.RegimenFiscal = ClienteRegimenFiscal + Else + ObjFacturaBonificacion.Version = "3.3" + End If + ObjFacturaBonificacion.CveMetodoPago33 = 1 ObjFacturaBonificacion.MetodoPago33 = "Pago en una sola exhibición" ObjFacturaBonificacion.ClaveMetodoPagoSAT = "PUE" @@ -10331,7 +10395,18 @@ Partial Class Ventas ObjFactura = New Modelos.Factura End If - ObjFactura.Version = "3.3" + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then + ObjFactura.Version = "4.0" + If ObjFactura.Cliente Is Nothing Then + ObjFactura.Cliente = New Modelos.ClienteModel + End If + + ObjFactura.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal + ObjFactura.Cliente.RegimenFiscal = ClienteRegimenFiscal + Else + ObjFactura.Version = "3.3" + End If + ObjFactura.CveUsuario = UsuarioActual.CveUsuario ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa ObjFactura.TipoCambio = If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.Trim.ToDecimal) @@ -11106,7 +11181,19 @@ Partial Class Ventas ObjFacturaDevolucion.SerieFolioPadre = HdnFolioFiscalNC.Value.ToString() - ObjFacturaDevolucion.Version = "3.3" + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then + ObjFacturaDevolucion.Version = "4.0" + + If ObjFacturaDevolucion.Cliente Is Nothing Then + ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel + End If + + ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal + ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal + Else + ObjFacturaDevolucion.Version = "3.3" + End If + ObjFacturaDevolucion.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero() ObjFacturaDevolucion.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero() > 0, DdlMetodoPago33.SelectedItem.Text, "") ObjFacturaDevolucion.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}") @@ -33365,7 +33452,20 @@ Partial Class Ventas ObjFacturaProntoPago.TipoDocto = "Egs" ObjFacturaProntoPago.Fecha = Now - ObjFacturaProntoPago.Version = "3.3" + + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then + ObjFacturaProntoPago.Version = "4.0" + + If ObjFacturaProntoPago.Cliente Is Nothing Then + ObjFacturaProntoPago.Cliente = New Modelos.ClienteModel + End If + + ObjFacturaProntoPago.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal + ObjFacturaProntoPago.Cliente.RegimenFiscal = ClienteRegimenFiscal + Else + ObjFacturaProntoPago.Version = "3.3" + End If + ObjFacturaProntoPago.CveMetodoPago33 = 1 ObjFacturaProntoPago.MetodoPago33 = "Pago en una sola exhibición" ObjFacturaProntoPago.ClaveMetodoPagoSAT = "PUE"