@@ -1113,5 +1260,9 @@
}
+ function valorIE() {
+
+ }
+
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index dca104de5..eeb2747e9 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -204,6 +204,36 @@ Partial Class ContabilidadC_RegPrePolizaS
ViewState("TipoPoliza") = value
End Set
End Property
+
+ Public Property CvePlantillaPoliza As Integer
+ Get
+ If ViewState("CvePlantillaPoliza") Is Nothing Then
+ ViewState("CvePlantillaPoliza") = -1
+ End If
+ Return ViewState("CvePlantillaPoliza").ToString.ToEntero
+
+ End Get
+ Set(value As Integer)
+ ViewState("CvePlantillaPoliza") = value
+ End Set
+
+ End Property
+
+
+ Public Property CvePrePolizaOrigen As Integer
+ Get
+ If ViewState("CvePrePolizaOrigen") Is Nothing Then
+ ViewState("CvePrePolizaOrigen") = -1
+ End If
+ Return ViewState("CvePrePolizaOrigen").ToString.ToEntero
+
+ End Get
+ Set(value As Integer)
+ ViewState("CvePrePolizaOrigen") = value
+ End Set
+
+ End Property
+
#End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -239,9 +269,21 @@ Partial Class ContabilidadC_RegPrePolizaS
GvPrePoliza.Columns(5).Visible = False
DivTG.Visible = False
GvMov.Columns(5).Visible = False
- End If
-
+ End If
+ ValidaCrearAPartirDe()
Exit Sub
+ ElseIf Request("CvePrePolizaOrigen") IsNot Nothing AndAlso IsNumeric(Request("CvePrePolizaOrigen")) AndAlso Request("CvePrePolizaOrigen").ToEntero > 0 Then
+
+
+ CvePrePolizaOrigen = Request("CvePrePolizaOrigen").ToEntero
+ CreaDT()
+ CargaPrePolizaOrigen()
+
+ OcultarControlesCrearApartirDe()
+
+
+ Exit Sub
+
Else
CreaDT()
BtnEliminar.Visible = False
@@ -326,6 +368,7 @@ Partial Class ContabilidadC_RegPrePolizaS
.Add("IdCtaContable", Type.GetType("System.Int32"))
.Add("ConceptoContable", Type.GetType("System.String"))
.Add("CveCuenta", Type.GetType("System.Int32"))
+
.Add("ContadoTipoTransaccion", Type.GetType("System.Int32"))
.Add("ContadoCuenta", Type.GetType("System.Int32"))
.Add("ContadoNumeroFolio", Type.GetType("System.String"))
@@ -335,6 +378,8 @@ Partial Class ContabilidadC_RegPrePolizaS
.Add("PorcentajeImpuesto", Type.GetType("System.Double"))
.Add("Modificado", Type.GetType("System.Boolean"))
.Add("EsComplementaria", Type.GetType("System.Boolean"))
+ .Add("TC", Type.GetType("System.Decimal"))
+
End With
@@ -434,9 +479,9 @@ Partial Class ContabilidadC_RegPrePolizaS
TxtFolio.Text = dr("FolioPoliza").ToString
TxtUsuarioElaboro.Text = dr("Usuario").ToString
- TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
- TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")
-
+ TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
+ ' TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")
+ CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString
If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
'DivAgregarConceptos.Visible = True
@@ -448,7 +493,21 @@ Partial Class ContabilidadC_RegPrePolizaS
ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
- GvPrePoliza.DataSource = DtMovimientos
+ GvPrePoliza.DataSource = DtMovimientos
+
+
+ If Not DtMovimientos.Columns.Contains("ContadoCuenta") Then
+
+ DtMovimientos.Columns.Add("ContadoCuenta", GetType(Integer))
+ DtMovimientos.Columns.Add("ContadoTipoTransaccion", GetType(Integer))
+ DtMovimientos.Columns.Add("ContadoNumeroFolio", GetType(String))
+ DtMovimientos.Columns.Add("ContadoBeneficiario", GetType(String))
+ DtMovimientos.Columns.Add("ContadoObservaciones", GetType(String))
+ DtMovimientos.Columns.Add("ContadoImporte", GetType(Decimal))
+
+
+ End If
+
GvPrePoliza.DataBind()
If UsuarioActual.CveRol = 1 AndAlso DtMovimientos.COUNT("TC", "TC > 1") > 0 Then
@@ -884,6 +943,13 @@ Partial Class ContabilidadC_RegPrePolizaS
End Sub
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
+
+
+ If CvePrePolizaOrigen > 0 Then
+ CrarPrePolizaApartirDe()
+ Exit Sub
+ End If
+
Dim TotalCargos, TotalAbonos As Decimal
If CvePrePoliza > 0 Then
@@ -1156,9 +1222,12 @@ Partial Class ContabilidadC_RegPrePolizaS
CargaSubProyectoE()
CargaTipoGastoE()
- UpdatePanel1.Update()
+ UpModalConcepto.Update()
End Sub
- Protected Sub GvPrePoliza_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvPrePoliza.RowUpdating
+
+
+ Protected Sub GvPrePoliza_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvPrePoliza.RowUpdating
+
RegistraScript(String.Format("$('#{0}').modal();", "DivEditConcepto"))
LtlTitulo.Text = "Editar Concepto"
BtnAceptar.Text = "Aceptar"
@@ -1182,9 +1251,31 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim PorcentajeImpuesto As Double = GvPrePoliza.Rows(IndiceGrid).DataKey("PorcentajeImpuesto").ToEntero
CargaConceptosContablesE()
- DdlConceptosContablesE.SelectedValueExist(CveConceptoContable)
- DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)
+ CargaModalConceptoCuentas()
+ DdlConceptosContablesE.SelectedValueExist(CveConceptoContable)
+ DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)
+
+ TxtModalConceptoTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDouble.ToString("###,###,###.00")
+ DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion"))
+ DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta"))
+ TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio")
+ TxtModalConceptoDocumentoBeneficiario.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoBeneficiario")
+ TxtModalConceptoDocumentoObservaciones.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoObservaciones")
+ TxtModalConceptoDocumentoImporte.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoImporte").ToDecimal.ToString("###,###,###.00")
+
+ DdlPorcentajeIVAE.SelectedValueExist(PorcentajeImpuesto)
+
+ 'GvPrePoliza.Rows(IndiceGrid).DataKey("")
+
+ 'dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
+ 'dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
+ 'dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
+ 'dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
+ 'dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
+ 'dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal
+
+
DdlProveedoresE.SelectedValueExist(CveProveedor)
DdlProveedoresE_SelectedIndexChanged(DdlProveedoresE, e)
DdlComprasE.SelectedValueExist(CveCompra)
@@ -1215,9 +1306,18 @@ Partial Class ContabilidadC_RegPrePolizaS
If Abono <> 0 Then
TxtAbonoE.Text = Abono
- End If
-
- UpdatePanel1.Update()
+ End If
+
+ If Abono = 0 Then
+ CargaModalConceptoTipoTransaccion("Ing")
+ Else
+ CargaModalConceptoTipoTransaccion("Egs")
+ End If
+
+
+
+
+ UpModalConcepto.Update()
End Sub
Private Sub LimpiaCampos()
@@ -1251,41 +1351,192 @@ Partial Class ContabilidadC_RegPrePolizaS
DdlCuentaContableE.DataBind()
DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
End Sub
+
+
+
+
Private Sub DdlConceptosContablesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContablesE.SelectedIndexChanged
- Dim dr As DataRow = GlobalDTContaConceptosContables(DdlConceptosContablesE.SelectedValue.ToEntero).FiltroPrimero("")
- If dr IsNot Nothing Then
- DdlPorcentajeIVAE.Visible = dr("AplicaImpuesto") = "True"
+
+ 'Aquii hay que consultar el concepto y determinar que es lo que se vba aplicar
+
+ Dim CveConceptoContableInsertar As Integer = DdlConceptosContablesE.SelectedValue.ToEntero
+ Dim DT_Concepto As DataTable
+
+ If CveConceptoContableInsertar > 0 Then
+
+ DT_Concepto = GlobalDTContaConceptosContables(CveConceptoContableInsertar)
+
+ Dim AplicaActivoFijo As Boolean = False
+ Dim AplicaAlmacen As Boolean = False
+ Dim AplicaBancos As Boolean = False 'ok
+ Dim AplicaClasificacion As Boolean = False 'ok
+ Dim AplicaCliente As Boolean = False 'ok
+ Dim AplicaCompra As Boolean = False
+ Dim AplicaImpuesto As Boolean = False
+ Dim AplicaNomina As Boolean = False
+ Dim AplicaPersonal As Boolean = False
+ Dim AplicaProveedor As Boolean = False
+ Dim AplicaSubProyecto As Boolean = False
+ Dim AplicaTC As Boolean = False 'ok
+ Dim AplicaVenta As Boolean = False
+
+ AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString)
+ AplicaAlmacen = Boolean.Parse(DT_Concepto.Rows(0)("AplicaAlmacen").ToString)
+ AplicaBancos = Boolean.Parse(DT_Concepto.Rows(0)("AplicaBancos").ToString)
+ AplicaClasificacion = Boolean.Parse(DT_Concepto.Rows(0)("AplicaClasificacion").ToString)
+ AplicaCliente = Boolean.Parse(DT_Concepto.Rows(0)("AplicaCliente").ToString)
+ AplicaCompra = Boolean.Parse(DT_Concepto.Rows(0)("AplicaCompra").ToString)
+ AplicaImpuesto = Boolean.Parse(DT_Concepto.Rows(0)("AplicaImpuesto").ToString)
+ AplicaNomina = Boolean.Parse(DT_Concepto.Rows(0)("AplicaNomina").ToString)
+ AplicaPersonal = Boolean.Parse(DT_Concepto.Rows(0)("AplicaPersonal").ToString)
+ AplicaProveedor = Boolean.Parse(DT_Concepto.Rows(0)("AplicaProveedor").ToString)
+ AplicaSubProyecto = Boolean.Parse(DT_Concepto.Rows(0)("AplicaSubProyecto").ToString)
+ AplicaTC = Boolean.Parse(DT_Concepto.Rows(0)("AplicaTC").ToString)
+ AplicaVenta = Boolean.Parse(DT_Concepto.Rows(0)("AplicaVenta").ToString)
+
+
+
+ If AplicaImpuesto Then
+ DdlPorcentajeIVAE.Visible = True
+ Else
+ DdlPorcentajeIVAE.Visible = False
+ End If
+
+ If AplicaProveedor Then
+ CargaProveedoresE()
+ DvmodalconceptoProveddor.Visible = True
+ DvModalconceptoCompra.Visible = True
+
+ Else
+ DvmodalconceptoProveddor.Visible = False
+ DvModalconceptoCompra.Visible = False
+
+ End If
+
+ If AplicaPersonal Then
+ CargaPersonalE()
+ DvModalconceptoPersonal.Visible = True
+
+ 'DdlPersonalE.Visible = True
+ Else
+ DvModalconceptoPersonal.Visible = False
+
+ 'DdlPersonalE.Visible = False
+ End If
+
+
+ If AplicaClasificacion Then
+ CargaClasificacionesE()
+ DvModalconceptoClasificacion.Visible = True
+ 'DdlClasificacionesE.Visible = True
+ Else
+ DvModalconceptoClasificacion.Visible = False
+ 'DdlClasificacionesE.Visible = False
+ End If
+
+
+ If AplicaCliente Then
+ CargaClientesE()
+
+ DvModalconceptoCliente.Visible = True
+ DvModalconceptoVenta.Visible = True
+
+
+ 'DdlClientesE.Visible = True
+ 'DdlVentasE.Visible = True
+ Else
+
+ DvModalconceptoCliente.Visible = False
+ DvModalconceptoVenta.Visible = False
+
+ 'DdlClientesE.Visible = False
+ 'DdlVentasE.Visible = False
+ End If
+
+
+ If AplicaBancos Then
+ 'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
+ DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6")
+ DvMoldalConceptoSeccion2.Visible = True
+ RegistraScript("$('#DvMoldalConceptoAncho').attr('style','width:1000px');")
+ Else
+ ' DvMoldalConceptoAncho.Attributes.Add("style", "width:450px")
+ DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-12")
+ RegistraScript("$('#DvMoldalConceptoAncho').attr('style','width:450px');")
+ DvMoldalConceptoSeccion2.Visible = False
+ End If
+
+ If AplicaTC Then
+ DVmodalConceptoTipoCambio.Visible = True
+ Else
+ DVmodalConceptoTipoCambio.Visible = False
+ End If
+
+
End If
- If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
- CargaProveedoresE()
- DdlProveedoresE.Visible = True
- DdlComprasE.Visible = True
- Else
- DdlProveedoresE.Visible = False
- DdlComprasE.Visible = False
- End If
-
- If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(28, 29) Then
- CargaPersonalE()
- DdlPersonalE.Visible = True
- Else
- DdlPersonalE.Visible = False
- End If
-
- If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(51) Then
- CargaClasificacionesE()
- DdlClasificacionesE.Visible = True
- Else
- DdlClasificacionesE.Visible = False
- End If
- If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then
- CargaClientesE()
- DdlClientesE.Visible = True
- DdlVentasE.Visible = True
- Else
- DdlClientesE.Visible = False
- DdlVentasE.Visible = False
- End If
+
+
+
+
+ 'Dim dr As DataRow = GlobalDTContaConceptosContables(DdlConceptosContablesE.SelectedValue.ToEntero).FiltroPrimero("")
+
+ 'If dr IsNot Nothing Then
+ ' DdlPorcentajeIVAE.Visible = dr("AplicaImpuesto") = "True"
+
+ 'End If
+
+ 'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
+ ' CargaProveedoresE()
+ ' DdlProveedoresE.Visible = True
+ ' DdlComprasE.Visible = True
+ 'Else
+ ' DdlProveedoresE.Visible = False
+ ' DdlComprasE.Visible = False
+ 'End If
+
+ 'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(28, 29) Then
+ ' CargaPersonalE()
+ ' DdlPersonalE.Visible = True
+ 'Else
+ ' DdlPersonalE.Visible = False
+ 'End If
+
+ 'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(51) Then
+ ' CargaClasificacionesE()
+ ' DdlClasificacionesE.Visible = True
+ 'Else
+ ' DdlClasificacionesE.Visible = False
+ 'End If
+
+ 'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then
+ ' CargaClientesE()
+ ' DdlClientesE.Visible = True
+ ' DdlVentasE.Visible = True
+ 'Else
+ ' DdlClientesE.Visible = False
+ ' DdlVentasE.Visible = False
+ 'End If
+
+ 'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(30) Then
+
+ ' DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
+ ' DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6")
+ ' DvMoldalConceptoSeccion2.Visible = True
+ 'Else
+
+ ' DvMoldalConceptoAncho.Attributes.Add("style", "width:450px")
+ ' DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-12")
+ ' DvMoldalConceptoSeccion2.Visible = False
+ 'End If
+
+
+
+
+
+
+ UpModalConcepto.Update()
+
+
End Sub
Private Sub CargaProveedoresE()
DdlProveedoresE.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
@@ -1348,11 +1599,19 @@ Partial Class ContabilidadC_RegPrePolizaS
Private Sub DdlClientesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientesE.selectedindexchange
CargaVentasE(DdlClientesE.SelectedValue.ToEntero)
End Sub
- Protected Sub BtnAceptar_Click(sender As Object, e As EventArgs) Handles BtnAceptar.Click
+
+
+
+ Protected Sub BtnAceptar_Click(sender As Object, e As EventArgs) Handles BtnAceptar.Click
+
+ 'asdasdasd
If IndiceGrid = -1 Then
+
If DtMovimientos Is Nothing Then CreaDT()
+
If CvePrePoliza > 0 Then
+
Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
Dim dr As DataRow = DtMovimientos.NewRow
dr("IdCtaContable") = IdCtaContable
@@ -1380,18 +1639,21 @@ Partial Class ContabilidadC_RegPrePolizaS
If DdlPorcentajeIVAE.Visible Then
dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
- End If
-
-
+ End If
+
+
+
DtMovimientos.Rows.Add(dr)
DtMovimientos.AcceptChanges()
- If CvePrePoliza > 0 Then
+ If CvePrePoliza > 0 Or CvePrePolizaOrigen Then
GvPrePoliza.DataSource = DtMovimientos
GvPrePoliza.DataBind()
UpPrePoliza.Update()
End If
+
+
TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
UpTotalCargo.Update()
@@ -1468,6 +1730,18 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
dr("Modificado") = True
+ dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
+ dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
+ dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
+ dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
+ dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
+ dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal
+
+ dr("TC") = TxtModalConceptoTipoCambio.Text.ToDecimal
+
+ dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToString.ToDecimal
+
+
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero
'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero
@@ -1492,7 +1766,7 @@ Partial Class ContabilidadC_RegPrePolizaS
DtMovimientos.AcceptChanges()
GvPrePoliza.EditIndex = -1
- If CvePrePoliza > 0 Then
+ If CvePrePoliza > 0 Or CvePrePolizaOrigen > 0 Then
GvPrePoliza.DataSource = DtMovimientos
GvPrePoliza.DataBind()
UpPrePoliza.Update()
@@ -2384,5 +2658,452 @@ Partial Class ContabilidadC_RegPrePolizaS
#End Region
+#Region "Crear A Partier de"
+
+
+ Private Sub OcultarControlesCrearApartirDe()
+
+ BtnEliminar.Visible = False
+ BtnContabilizar.Visible = False
+ GvPrePoliza.Columns(5).Visible = False
+ DivTG.Visible = False
+ GvMov.Columns(5).Visible = False
+
+ TxtConcepto.Enabled = True
+ TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy")
+ TxtFechaelaboracion.Text = Now.ToString("dd/MM/yyyy")
+
+ TxtUsuarioElaboro.Text = UsuarioActual.Usuario
+
+
+ End Sub
+
+
+ Private Function ValidaCrearAPartirDe() As Boolean
+
+ Dim Respuesta As Boolean = False
+
+ If CvePlantillaPoliza > 0 Then
+
+ Dim TmpCvePlantillaPoliza As Integer = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePlantillaPoliza", $"CvePlantillaPoliza = {CvePlantillaPoliza}").ToEntero
+
+ If TmpCvePlantillaPoliza > 0 Then
+ Respuesta = True
+ LnkCrearAPartirDe.Visible = True
+ End If
+
+ End If
+
+ Return Respuesta
+
+ End Function
+
+
+ Private Sub CargaPrePolizaOrigen()
+ BtnEliminar.Visible = True
+ LblEncabezado.Text = "Crear a partir de"
+
+ Dim ObjContabilidad As New ClsContabilidad
+ If ObjContabilidad.GetPrePoliza(CvePrePolizaOrigen, UsuarioActual.CveEmpresa) Then
+ Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
+ If dr IsNot Nothing Then
+ DivAgregarConceptos.Visible = False
+ DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza")
+ TxtFechaDocumento.Text = dr("Fecha")
+ TxtConcepto.Text = dr("Concepto")
+ DivDatosPoliza.Visible = True
+ TipoPoliza = DdlTipoPoliza.SelectedItem.Text
+ Folio = dr("FolioPoliza").ToString
+
+ TxtFolio.Text = dr("FolioPoliza").ToString
+ TxtUsuarioElaboro.Text = dr("Usuario").ToString
+ TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
+ ' TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")
+ CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString
+
+ If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
+ 'DivAgregarConceptos.Visible = True
+ LnkAddConcepto.Visible = True
+ CargaConceptos()
+ CargaSubProyectos()
+ CargaCuentasContables()
+ End If
+
+ ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePolizaOrigen)
+ DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+
+
+ If Not DtMovimientos.Columns.Contains("ContadoCuenta") Then
+
+ DtMovimientos.Columns.Add("ContadoCuenta", GetType(Integer))
+ DtMovimientos.Columns.Add("ContadoTipoTransaccion", GetType(Integer))
+ DtMovimientos.Columns.Add("ContadoNumeroFolio", GetType(String))
+ DtMovimientos.Columns.Add("ContadoBeneficiario", GetType(String))
+ DtMovimientos.Columns.Add("ContadoObservaciones", GetType(String))
+ DtMovimientos.Columns.Add("ContadoImporte", GetType(Decimal))
+
+
+ End If
+
+ GvPrePoliza.DataSource = DtMovimientos
+ GvPrePoliza.DataBind()
+
+ If UsuarioActual.CveRol = 1 AndAlso DtMovimientos.COUNT("TC", "TC > 1") > 0 Then
+ GvPrePoliza.Columns(7).Visible = True
+ End If
+
+ If DtMovimientos.FiltraParametros("CveConceptoContable IN (2,17)").Rows.Count > 0 Then
+ LnkComplementoPago.Visible = True
+ End If
+
+
+ If UsuarioActual.CveEmpresa = 119 Then
+ BtnContabilizar.Visible = True
+ End If
+
+
+ If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+ If dr("FolioPoliza").ToString.ToEntero > 0 Then
+ divContabilizada.Visible = True
+ LblFolio.Text = dr("FolioPoliza").ToString
+ Folio = dr("FolioPoliza").ToString
+
+ End If
+ Else
+ If dr("IdPoliza").ToString.ToEntero > 0 Then
+ HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
+ divContabilizada.Visible = True
+ IdPoliza = dr("IdPoliza").ToString.ToEntero
+ ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then
+ 'sino está contabilizada, se activa el botón
+ BtnContabilizar.Visible = True
+ End If
+ End If
+
+
+ divDatosPrincipales.Visible = False
+ divObservaciones.Visible = False
+ UPMovs.Visible = False
+ UPMovs.Update()
+ UPPDocumento.Update()
+ UpPrePoliza.Update()
+
+ RegistraScript("comparar();")
+
+ If Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").ToEntero = 1 AndAlso UsuarioActual.CveUsuario <> 100 Then
+ 'For Each row As GridViewRow In GvPrePoliza.Rows
+ ' row.FCTextBox("TxtCargo").Enabled = False
+ ' row.FCTextBox("TxtAbono").Enabled = False
+ 'Next
+ End If
+ LnkExcel.Visible = False
+ LnkImprimirPDF.Visible = True
+ Else
+ Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
+ BtnEliminar.Visible = False
+ End If
+
+ End If
+
+ ObjContabilidad.Dispose()
+ UpPoliza.Update()
+ End Sub
+
+
+#End Region
+
+
+ Protected Sub LnkCrearAPartirDe_Click(sender As Object, e As EventArgs)
+ Response.Redirect($"./RegPrePolizaS.aspx?CvePrePolizaOrigen={CvePrePoliza}")
+ End Sub
+
+
+ Private Sub CrarPrePolizaApartirDe()
+ Dim CvePrePoliza As Integer
+ Dim FolioPoliza As Integer
+
+ Dim TotalCargos, TotalAbonos As Decimal
+
+ For Each Gvr As GridViewRow In GvPrePoliza.Rows
+ TotalCargos += Gvr.FCLiteral("TxtCargo").Text.ToDecimal
+ TotalAbonos += Gvr.FCLiteral("TxtAbono").Text.ToDecimal
+ Next
+
+
+ 'validaciones
+ If Not (TotalCargos = TotalAbonos AndAlso (GvPrePoliza.Rows.Count > 0)) Then
+ Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+ 'For Each Gvr As GridViewRow In GvPrePoliza.Rows
+ ' If Gvr.DataKey("CveConceptoContable") = "30" AndAlso (Gvr.FCTextBox("TxtCargo").Text.ToDecimal <> 0 OrElse Gvr.FCTextBox("TxtAbono").Text.ToDecimal <> 0) Then 'si es movimietno de bancos, y tiene cantidad, deben de especificarse los datos del IE
+ ' If Gvr.DataKey("ContadoCuenta").ToEntero = 0 OrElse Gvr.DataKey("ContadoTipoTransaccion").ToEntero = 0 Then
+ ' Alert("No se han especificado las condiciones de pago ", TipoMensaje.MsgAdvertencia)
+ ' Exit Sub
+ ' End If
+ ' End If
+
+ 'Next
+
+
+ 'terminan validaciones
+
+ If CvePrePoliza > 0 Then
+ ActualizarPrePoliza()
+ Else
+ Dim MensajeAlert = New StringBuilder
+ Dim ObjIE As New ClsBancos()
+ Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
+ ' Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL)
+ Dim Conta As ClsContPAQi = Nothing
+ Dim IDPoliza As Integer = 0
+ Dim MsgError As String = ""
+ Dim CveIE As Integer
+ Dim FolioIE As String = ""
+
+ Try
+
+ Dim ConceptoPoliza As String = TxtConcepto.Text
+
+ CvePrePoliza = ObjMov.AddPrePolizas("Contabilidad/RegPrePolizaCrear", CvePlantillaPoliza, TotalCargos, TotalAbonos, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPoliza.SelectedValue.ToEntero, AgregarFolio:=True)
+
+ If CvePrePoliza > 0 Then
+
+ FolioPoliza = ObjMov.FolioPoliza
+
+ Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:
"
+ Dim idCuentaContabilizacion As Long = 1
+ Dim Importe As Double = 0
+ Dim ImporteME As Decimal = 0
+ Dim TipoCambio As Decimal = 1
+ Dim TipoMovto As Boolean = False
+ Dim IdCtaContable As Integer = 0
+
+
+ 'inserto las compras que voy a pagarDdlSaldos
+ For Each gvr As GridViewRow In GvPrePoliza.Rows
+
+
+
+ ImporteME = 0
+ TipoCambio = 1
+
+ If Boolean.Parse(gvr.DataKey("TipoMovto")) Then
+
+ Importe = gvr.FCLiteral("TxtAbono").Text.ToDouble
+ TipoMovto = True
+
+ If gvr.DataKey("EsComplementaria") = "True" Then
+ ImporteME = gvr.FCLiteral("TxtAbono").Text.ToDecimal 'me
+ TipoCambio = gvr.FCTextBox("TxtModalConceptoDocumentoImporte").Text.ToDecimal
+ End If
+
+ Else
+ Importe = gvr.FCLiteral("TxtCargo").Text.ToDouble
+ TipoMovto = False
+
+ If gvr.DataKey("EsComplementaria") = "True" Then
+ ImporteME = gvr.FCTextBox("TxtCargo").Text.ToDecimal 'me
+ TipoCambio = gvr.FCTextBox("TxtModalConceptoDocumentoImporte").Text.ToDecimal
+ End If
+
+ End If
+
+
+ If gvr.DataKey("CveConceptoContable").ToEntero = 30 Then
+
+
+ CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio").ToString,
+ gvr.DataKey("ContadoBeneficiario").ToString, Importe, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",
+ False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ FolioIE = gvr.DataKey("ContadoNumeroFolio").ToString
+ If CveIE < 0 Then
+ MsgError = "No se pudo registrar movimiento bancario"
+ Exit For
+ End If
+
+ End If
+
+
+
+
+ If gvr.DataKey("CveConceptoContable").ToEntero <> 30 Then
+
+ If gvr.DataKey("CveConceptoContable").ToEntero = 41 Then
+ CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
+ Else
+ CveIE = -1
+ End If
+
+ End If
+
+
+ If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then
+ idCuentaContabilizacion = 0
+ End If
+ If Importe <> 0 Then
+ Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
+
+ 'If gvr.datakey("CveConcepto") = "299" Then
+ ' tCveCuenta = gvr.DataKey("CveCuenta").ToEntero
+ 'End If
+
+ If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.DataKey("Referencia"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("Concepto"),
+ TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveIE:=CveIE,
+ CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
+ CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
+ ImporteMX:=Importe, ImporteME:=ImporteME, TipoCambio:=TipoCambio, CveTipoGasto:=gvr.DataKey("CveTipoGasto").ToEntero,
+ CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta) Then
+
+
+ Else
+ MsgError = "No se pudo insertar el detalle de la póliza2"
+ Exit For
+ End If
+ End If
+ If CveIE > 0 AndAlso gvr.DataKey("CveConceptoContable").ToEntero = 30 Then
+ MensajeAlert.AppendFormat("
Folio Bancario:
{1}", CveIE, FolioIE)
+ End If
+ Next
+
+ If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then
+ If ObjMov.ValorPolizaDescuadre > 0 Then
+ GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+ MsgError = ObjMov.MensajePolizaDescuadre
+ End If
+ End If
+
+
+ ''El movimiento 2 es el de Pago
+ 'If ChkAutoConta.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
+ ' If idCuentaContabilizacion > 0 Then
+ ' If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+
+ ' 'MENSAJE PRINCIPAL
+ ' MensajeAlert.AppendFormat("
Folio de Salida:
{1}", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
+ ' 'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion)
+ ' Else
+ ' Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
+ ' End If
+ ' Else
+ ' Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas")
+ ' End If
+ 'Else
+ ' MensajeAlert.AppendFormat("
Folio:
{1}", CvePrePoliza, ObjMov.ContaFolio)
+ 'End If
+
+ Else
+ MsgError = "No se pudo insertar la póliza"
+ End If
+ Catch ex As Exception
+ MsgError = "Error"
+ End Try
+
+ If MsgError = "" Then
+
+ 'MENSAJE IE
+ 'If CveIE > 0 Then
+ ' Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
+ 'Else
+
+ Alert(If(MensajeAlert.ToString = "", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}
" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}""")
+
+ 'End If
+
+ ObjIE.Commit()
+ If Conta IsNot Nothing Then Conta.Commit()
+
+ UPPDocumento.Update()
+
+ TxtObservaciones.Text = ""
+ GvMov.DataBind()
+ TxtFecha.Text = ""
+ TxtObservaciones.Text = ""
+ Else
+ Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError)
+ ObjIE.RollBack()
+ If Conta IsNot Nothing Then Conta.RollBack()
+ End If
+
+ ObjIE.Dispose()
+ ObjMov.Dispose()
+ If Conta IsNot Nothing Then Conta.Dispose()
+ End If
+
+
+
+ End Sub
+
+ Protected Sub LnkGvPrePolizaEliminar_Click(sender As Object, e As EventArgs)
+
+ Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+ DtMovimientos.Rows(GvRow.RowIndex).Delete()
+ DtMovimientos.AcceptChanges()
+
+ GvPrePoliza.DataSource = DtMovimientos
+ GvPrePoliza.DataBind()
+
+ UpPrePoliza.Update()
+ End Sub
+
+
+ Private Sub CargaModalConceptoTipoTransaccion(Tipo As String)
+ DdlModalConceptoTipoTransaccion.Items.Clear()
+ DdlModalConceptoTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND Estatus = 1 ")
+ DdlModalConceptoTipoTransaccion.DataBind()
+ DdlModalConceptoTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
+ End Sub
+ Private Sub CargaModalConceptoCuentas()
+ DdlModalConceptoCuenta.Items.Clear()
+ DdlModalConceptoCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", DdlMoneda.SelectedValue))
+ DdlModalConceptoCuenta.DataBind()
+ DdlModalConceptoCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ End Sub
+
+
+
+ Private Function ValidaConceptoRow(DTRow As DataRow, GvRow As GridViewRow) As Boolean
+
+ Dim ResPuesta As Boolean = False
+ Dim CveConCeptoValidar As Integer = -1
+ ' Dim
+
+
+ If DTRow IsNot Nothing Then
+ CveConCeptoValidar = DTRow("CveConceptoContable")
+ End If
+
+
+ If GvRow IsNot Nothing Then
+ CveConCeptoValidar = DTRow("CveConceptoContable")
+ End If
+
+ If CveConCeptoValidar > 0 Then
+ ' Aqui validar Row
+ End If
+
+
+ 'AplicaActivoFijo,
+ 'AplicaAlmacen,
+ 'AplicaBancos,
+ 'AplicaClasificacion,
+ 'AplicaCliente,
+ 'AplicaCompra,
+ 'AplicaImpuesto,
+ 'AplicaNomina,
+ 'AplicaPersonal,
+ 'AplicaProveedor,
+ 'AplicaSubProyecto,
+ 'AplicaTC,
+ 'AplicaVenta
+
+ Return ResPuesta
+
+
+
+ End Function
+
End Class
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index 8c5172390..dc3c9ccb3 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -947,6 +947,7 @@