From 32a0bcd5f8d058e43dae33e9951ef20bfc9353e2 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 31 Jan 2022 16:02:41 -0700 Subject: [PATCH] RegPrePolizasS Crar apartir de --- App_Code/ClsContabilidad.vb | 11 +- Contabilidad/RegPrePolizaS.aspx | 485 +++++++++++------ Contabilidad/RegPrePolizaS.aspx.vb | 825 +++++++++++++++++++++++++++-- Ventas/ProductosServicios.aspx | 103 ++-- Ventas/ProductosServicios.aspx.vb | 17 +- 5 files changed, 1183 insertions(+), 258 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 9f6902b8d..329fd4b7a 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -73,6 +73,8 @@ Public Class ClsContabilidad Public Property YaEstabaUnifida As Boolean = False Public Property EstaContabilizada As Boolean = False + Public Property FolioPoliza As Integer + #End Region Public Function IniciaTransacSQL() As SqlTransaction @@ -191,8 +193,9 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function AddPrePolizas(Modulo As String, CvePlantillaPoliza As Integer, Cargos As Double, Abonos As Double, CveMoneda As Integer, Fecha As Date, Concepto As String, CveUsuario As Integer, CveEmpresa As Integer, Optional FolioFijo As Integer = 0, Optional ReglaFolioPoliza As String = "", Optional CveTipoPoliza As Integer = -1) As Integer - + Public Function AddPrePolizas(Modulo As String, CvePlantillaPoliza As Integer, Cargos As Double, Abonos As Double, CveMoneda As Integer, Fecha As Date, Concepto As String, CveUsuario As Integer, CveEmpresa As Integer, Optional FolioFijo As Integer = 0, Optional ReglaFolioPoliza As String = "", Optional CveTipoPoliza As Integer = -1, + Optional AgregarFolio As Boolean = False) As Integer + FolioPoliza = -1 Dim Retorno As Integer = -1 DataAdapter("PA_Conta_PrePolizasAdd") @@ -210,12 +213,16 @@ Public Class ClsContabilidad .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@FolioFijo", SqlDbType.Int).Value = FolioFijo .Add("@CvePrePoliza", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@FolioPoliza", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@ReglaFolioPoliza", SqlDbType.VarChar).Value = ReglaFolioPoliza + .Add("@AgregarFolio", SqlDbType.Bit).Value = AgregarFolio End With Try SqlAdapter.Fill(Data) Retorno = SqlAdapter.SelectCommand.Parameters("@CvePrePoliza").Value.ToString.ToEntero + FolioPoliza = SqlAdapter.SelectCommand.Parameters("@FolioPoliza").Value.ToString.ToEntero + Catch ex As Exception If ex.Message.Contains("50015;") Then diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 39325be4d..48cc84eb9 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -82,8 +82,12 @@
  • + Agregar Concepto
    • +
  • + Crear a partir de +
    • @@ -135,12 +139,9 @@ +
    -
    -
    -
    -
    @@ -173,11 +174,7 @@
    -
    -
    -
    -
    -
    +
    @@ -243,15 +240,10 @@ - - -
    - - -
    -
    +
    +
    @@ -265,48 +257,63 @@
    -
    - - -
    +
    -
    - - - - - - -
    + +
    +
    - <%--
    --%> + + + + + + + + + + + -
    -
    - - - - - - - - - - - +
    - +
    - <%--
    --%> +
    + + + + + + +
    +
    +
    +
    + + +
    +
    -
    - -
    - + +
    +
    +
    + + +
    +
    +
    + + + + + +
    @@ -314,7 +321,7 @@
    -
    +
    @@ -328,22 +335,25 @@
    -
    + <%--
    -
    - -
    +
    --%> +
    +
    +
    - +
    - -
    +
    +
    +
    - +
    +
    - +
    @@ -553,18 +563,12 @@
    + DataKeyNames="CvePrePolizaDetalle, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC" Width="100%" > Movimiento -
    - <%-- - - - - - --%> +
    @@ -649,11 +653,13 @@ - + + - + @@ -722,6 +728,7 @@
    + Bancos @@ -800,114 +807,254 @@
    - + +
    +
    @@ -997,44 +998,74 @@

    -
    -
    -
    - - Carta Porte -
    -
    -
    + + + +
    +
    +
    + + Carta Porte +
    +
    +
    +
    +
    +
    +
    + + + +
    +
    + + + + + + + +
    + Limpiar datos
    + +
    + + + +
    +
    + + + +
    + +
    + +
    +
    +
    + +
    + +
    +
    +
    + +
    + +
    +
    +
    + +
    + +
    +
    -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    -
    + + +
    diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 386782326..40720c311 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -3117,7 +3117,7 @@ Partial Class ProductosyServicios Else 'No es matgerial peligroso - If DdlMaterialPeligroso.txtValue.Value.ToEntero > 0 Or DdlEmbalaje.txtValue.Value.ToEntero > 0 Or TxtPesoKg.Text.Trim.Length > 0 Then + If DdlMaterialPeligroso.txtValue.Value.ToEntero > 0 Or DdlEmbalaje.txtValue.Value.ToEntero > 0 Then RegistraScript("$('#DivModalMensaje').modal('show');") ValidaMaterialPeligrosoMensaje = False LblModalMensajeCuerpo.Text = "El producto servicio del SAT seleccionado no esta clasificado como material peligroso, favor de limpiar los datos de la sección carta porte en la pestaña Contabilidad - Inventarios, el incluir estos datos en un material no peligroso generara errores al timbrar traslados." @@ -3153,4 +3153,19 @@ Partial Class ProductosyServicios + Protected Sub LnkCPLimpiarConfiguracion_Click(sender As Object, e As EventArgs) + + DdlMaterialPeligroso.txtText.Value = "" + DdlMaterialPeligroso.txtValue.Value = "" + + + DdlEmbalaje.txtText.Value = "" + DdlEmbalaje.txtValue.Value = "" + + UpCartaPorte.Update() + + End Sub + + + End Class