-- option strict on
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
|
||||
Option Strict Off
|
||||
|
||||
Imports System.Data
|
||||
Imports System.IO
|
||||
@@ -215,9 +215,9 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
If Not Page.IsPostBack Then
|
||||
Tick = DateTime.Now.Ticks.ToString()
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 OrElse UsuarioActual.CveEmpresa = 119 Then
|
||||
Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
|
||||
End If
|
||||
'If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 OrElse UsuarioActual.CveEmpresa = 119 Then
|
||||
' Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
|
||||
'End If
|
||||
|
||||
CveMoneda = 1
|
||||
ViewState("CvePrePoliza") = 0
|
||||
@@ -462,9 +462,9 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
|
||||
If dr IsNot Nothing Then
|
||||
DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza")
|
||||
TxtFechaDocumento.Text = dr("Fecha")
|
||||
TxtConcepto.Text = dr("Concepto")
|
||||
DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza").ToString
|
||||
TxtFechaDocumento.Text = dr("Fecha").ToString.ToDate.ToShortDateString
|
||||
TxtConcepto.Text = dr("Concepto").ToString
|
||||
DivDatosPoliza.Visible = True
|
||||
TipoPoliza = DdlTipoPoliza.SelectedItem.Text
|
||||
Folio = dr("FolioPoliza").ToString()
|
||||
@@ -765,7 +765,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
DdlVentas.ClearSelection()
|
||||
If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
|
||||
If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
|
||||
DdlVentas.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0")
|
||||
DdlVentas.DataBind()
|
||||
DdlVentas.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
@@ -781,7 +781,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
DdlVentas.ClearSelection()
|
||||
If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
|
||||
If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
|
||||
DdlVentas.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0")
|
||||
DdlVentas.DataBind()
|
||||
DdlVentas.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
@@ -876,11 +876,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
dr("FolioPoliza") = drt("FolioPoliza")
|
||||
|
||||
DtMovimientos.Rows.Add(dr)
|
||||
|
||||
|
||||
Next
|
||||
|
||||
|
||||
GvMov.DataSource = DtMovimientos
|
||||
GvMov.DataBind()
|
||||
UPMovs.Update()
|
||||
@@ -900,8 +896,8 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
e.Row.FCTextBox("TxtCargo").Visible = True
|
||||
End If
|
||||
|
||||
e.Row.FCTextBox("TxtAbono").Text = If(e.Row.DBCampo("Abono") = 0, "", e.Row.DBCampo("Abono"))
|
||||
e.Row.FCTextBox("TxtCargo").Text = If(e.Row.DBCampo("Cargo") = 0, "", e.Row.DBCampo("Cargo"))
|
||||
e.Row.FCTextBox("TxtAbono").Text = If(e.Row.DBCampo("Abono") = "0", "", e.Row.DBCampo("Abono"))
|
||||
e.Row.FCTextBox("TxtCargo").Text = If(e.Row.DBCampo("Cargo") = "0", "", e.Row.DBCampo("Cargo"))
|
||||
e.Row.FCTextBox("TxtConcepto").Text = e.Row.DBCampo("Descripcion")
|
||||
|
||||
If CvePeriodo > 0 Then
|
||||
@@ -1030,7 +1026,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
For Each gvr As GridViewRow In GvMov.Rows
|
||||
|
||||
If gvr.DataKey("IDCuenta").ToEntero() > 0 Then
|
||||
IdCtaContable = gvr.DataKey("IDCuenta")
|
||||
IdCtaContable = gvr.DataKey("IDCuenta").ToEntero
|
||||
End If
|
||||
CveProveedor = gvr.DataKey("CveProveedor").ToEntero()
|
||||
CveCompra = gvr.DataKey("CveCompra").ToEntero()
|
||||
@@ -1056,7 +1052,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
'Registra movimieno bancario
|
||||
If CveConcepto = 30 Then
|
||||
|
||||
CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString,
|
||||
CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text.ToDate, gvr.DataKey("ContadoNumeroFolio").ToString,
|
||||
gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",
|
||||
False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
@@ -1216,12 +1212,13 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
End If
|
||||
Else
|
||||
contador = contador + 1
|
||||
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0,
|
||||
row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal()), row.DataKey("Referencia").ToString(),
|
||||
row.DataKey("CveConceptoContable").ToEntero(), row.FCTextBox("TxtConcepto").Text, Now,
|
||||
row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero(), 0, CveSubProyecto:=row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero(),
|
||||
CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(), row.DataKey("CveTipoGasto").ToEntero()),
|
||||
CveProveedor:=DdlProveedores.SelectedValue.ToEntero()) Then
|
||||
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, False, True),
|
||||
If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal()),
|
||||
If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal()),
|
||||
row.DataKey("CveConceptoContable").ToEntero(), row.DataKey("Referencia").ToString(),
|
||||
row.FCTextBox("TxtConcepto").Text, CveSubProyecto:=row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero(),
|
||||
CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(), row.DataKey("CveTipoGasto").ToEntero()),
|
||||
CveProveedor:=DdlProveedores.SelectedValue.ToEntero()) Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
End If
|
||||
@@ -1245,7 +1242,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
CargaPrePoliza()
|
||||
|
||||
If Not OcurrioError Then
|
||||
If IdPoliza > 0 AndAlso contador Then
|
||||
If IdPoliza > 0 AndAlso contador > 0 Then
|
||||
BtnContabilizar_Click(Nothing, Nothing)
|
||||
End If
|
||||
|
||||
@@ -1663,22 +1660,22 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
If DrM IsNot Nothing Then
|
||||
HdnCve.Value = idMov.ToString()
|
||||
|
||||
DdlCtaContable.SelectedValue = DrM("IdCuenta")
|
||||
TxtReferencia.Text = DrM("Referencia")
|
||||
TxtObservaciones.Text = DrM("Concepto")
|
||||
DdlCtaContable.SelectedValue = DrM("IdCuenta").ToString
|
||||
TxtReferencia.Text = DrM("Referencia").ToString
|
||||
TxtObservaciones.Text = DrM("Concepto").ToString
|
||||
' (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto")
|
||||
DrM("EsComodin") = 0
|
||||
DdlConceptosContables.SelectedValue = DrM("CveConcepto").ToString()
|
||||
TxtCargo.Text = DrM("Cargo").ToString()
|
||||
TxtAbono.Text = DrM("Abono").ToString()
|
||||
TxtDescripcion.Text = DrM("Descripcion")
|
||||
DdlSubProyecto.SelectedValue = DrM("CveSubProyecto")
|
||||
DdlProveedores.SelectedValue = DrM("CveProveedor")
|
||||
DdlCompras.SelectedValue = DrM("CveCompra")
|
||||
DdlPersonal.SelectedValue = DrM("CvePersonal")
|
||||
TxtDescripcion.Text = DrM("Descripcion").ToString
|
||||
DdlSubProyecto.SelectedValue = DrM("CveSubProyecto").ToString
|
||||
DdlProveedores.SelectedValue = DrM("CveProveedor").ToString
|
||||
DdlCompras.SelectedValue = DrM("CveCompra").ToString
|
||||
DdlPersonal.SelectedValue = DrM("CvePersonal").ToString
|
||||
' DrM("CveClasificacion") = -1
|
||||
DdlClientes.SelectedValue = DrM("CveCliente")
|
||||
DdlVentas.SelectedValue = DrM("CveVenta")
|
||||
DdlClientes.SelectedValue = DrM("CveCliente").ToString
|
||||
DdlVentas.SelectedValue = DrM("CveVenta").ToString
|
||||
LbCancelarEdicion.Visible = True
|
||||
LbAgregar.Text = "Actualizar"
|
||||
GvMov.Rows(e.NewEditIndex).FCTextBox("TxtCargo").CssClass = ""
|
||||
@@ -2109,7 +2106,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero()
|
||||
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden")
|
||||
|
||||
Dim DtExcel As DataTable = (From row As DataRow In Dt.Rows
|
||||
Dim DtExcel As DataTable = (From row In Dt.AsEnumerable
|
||||
Select New With
|
||||
{
|
||||
.ConceptoAdministrativo = row.Item("ConceptoContable"),
|
||||
|
||||
Reference in New Issue
Block a user