-- limpieza de código de mandar idcta de contpaq
This commit is contained in:
@@ -74,24 +74,6 @@ Partial Class Bancos_IE
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property IDCtaContable As Integer
|
||||
Get
|
||||
Return ViewState("IDCtaContable").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IDCtaContable") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property IDCtaBeneficiario As Integer
|
||||
Get
|
||||
Return ViewState("IDCtaBeneficiario").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IDCtaBeneficiario") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property EmpresaPrueba As Boolean
|
||||
Get
|
||||
Return CBool(ViewState("EmpresaPrueba"))
|
||||
@@ -110,8 +92,6 @@ Partial Class Bancos_IE
|
||||
EmpresaPrueba = True
|
||||
End If
|
||||
|
||||
IDCtaBeneficiario = 0
|
||||
IDCtaContable = 0
|
||||
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
|
||||
TxtImporte.Attributes.Add("onblur", "upIE(this);")
|
||||
Calendario.StartDate = Now.AddMonths(-1)
|
||||
@@ -309,7 +289,6 @@ Partial Class Bancos_IE
|
||||
End If
|
||||
|
||||
IDPoliza = ObjIE.IDPoliza
|
||||
IDCtaContable = ObjIE.IdCtaContable
|
||||
|
||||
If ObjIE.IDPoliza > 0 Then
|
||||
|
||||
@@ -435,25 +414,6 @@ Partial Class Bancos_IE
|
||||
HdnProvPorRetIVA.Value = ObjProveedor.RetIVA.ToString
|
||||
HdnProvPorRetISR.Value = ObjProveedor.RetISR.ToString
|
||||
|
||||
Select Case RBL.SelectedValue
|
||||
Case "P" : IDCtaBeneficiario = ObjProveedor.IdCtaContAnticipos
|
||||
Case "DD" : IDCtaBeneficiario = ObjProveedor.IdCtaContDeudor
|
||||
Case "AC" : IDCtaBeneficiario = ObjProveedor.IdCtaContAcreedor
|
||||
Case "DP" : IDCtaBeneficiario = ObjProveedor.IdCtaContDocsXPagar
|
||||
Case Else
|
||||
IDCtaBeneficiario = ObjProveedor.IdCtaContProveedores
|
||||
End Select
|
||||
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
If IDCtaBeneficiario = 0 Then
|
||||
Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
||||
BtnGuardar.Enabled = False
|
||||
Else
|
||||
BtnGuardar.Enabled = True
|
||||
End If
|
||||
UpGuardar.Update()
|
||||
End If
|
||||
|
||||
CargaCuentasDepositos()
|
||||
|
||||
Else
|
||||
@@ -487,17 +447,6 @@ Partial Class Bancos_IE
|
||||
HdnProvPorIVA.Value = "0" 'ObjProveedor.IVA.ToString
|
||||
HdnProvPorRetIVA.Value = "0" 'ObjProveedor.RetIVA.ToString
|
||||
HdnProvPorRetISR.Value = "0" 'ObjProveedor.RetISR.ToString
|
||||
IDCtaBeneficiario = ObjCliente.IdCtaContAnticipos
|
||||
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
If IDCtaBeneficiario = 0 Then
|
||||
Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
||||
BtnGuardar.Enabled = False
|
||||
Else
|
||||
BtnGuardar.Enabled = True
|
||||
End If
|
||||
UpGuardar.Update()
|
||||
End If
|
||||
|
||||
Else
|
||||
Alert("El Cliente solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
|
||||
@@ -531,17 +480,6 @@ Partial Class Bancos_IE
|
||||
HdnProvPorIVA.Value = "0" 'ObjProveedor.IVA.ToString
|
||||
HdnProvPorRetIVA.Value = "0" 'ObjProveedor.RetIVA.ToString
|
||||
HdnProvPorRetISR.Value = "0" 'ObjProveedor.RetISR.ToString
|
||||
IDCtaBeneficiario = ObjPersonal.IdCtaContPersonal
|
||||
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
If IDCtaBeneficiario = 0 Then
|
||||
Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
||||
BtnGuardar.Enabled = False
|
||||
Else
|
||||
BtnGuardar.Enabled = True
|
||||
End If
|
||||
UpGuardar.Update()
|
||||
End If
|
||||
|
||||
CargaCuentasDepositos()
|
||||
Else
|
||||
@@ -620,7 +558,6 @@ Partial Class Bancos_IE
|
||||
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
|
||||
If dr IsNot Nothing Then
|
||||
DdlMoneda.SelectedValue = dr("CveMoneda").ToString
|
||||
IDCtaContable = dr("IdCtaContable").ToString.ToEntero
|
||||
End If
|
||||
|
||||
If trIEDevolucion.Visible Then
|
||||
@@ -997,7 +934,6 @@ Partial Class Bancos_IE
|
||||
Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
|
||||
Dim importeMovimiento As Decimal
|
||||
Dim FechaMovimiento As Date = TxtFechaDocumento.Text.ToDate
|
||||
Dim IdCtaContablePP As Integer
|
||||
Dim importeMX As Decimal
|
||||
|
||||
Select Case ConceptoContable
|
||||
@@ -1005,17 +941,13 @@ Partial Class Bancos_IE
|
||||
Case 3
|
||||
importeMovimiento = TxtImporte.Text.ToDecimal
|
||||
importeMX = importeMovimiento * tipoCambio
|
||||
IdCtaContablePP = IDCtaBeneficiario
|
||||
|
||||
Case 30
|
||||
importeMovimiento = TxtImporte.Text.ToDecimal
|
||||
importeMX = importeMovimiento * tipoCambio
|
||||
IdCtaContablePP = IDCtaContable
|
||||
|
||||
End Select
|
||||
|
||||
If importeMovimiento <> 0 Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDouble, "", ConceptoContable, TxtObservaciones.Text, FechaMovimiento, IdCtaContablePP, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCliente:=CveCliente, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMX) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDouble, "", ConceptoContable, TxtObservaciones.Text, FechaMovimiento, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCliente:=CveCliente, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMX) Then
|
||||
MsgError = "no se pudo insertar el detalle de la póliza"
|
||||
End If
|
||||
End If
|
||||
@@ -1063,9 +995,9 @@ Partial Class Bancos_IE
|
||||
|
||||
Total = TxtImporte.Text.ToDouble
|
||||
|
||||
If Not Conta.AddMovimiento(123456, IDPoliza, IDCtaContable, True, Total, Referencia, ConceptoRenglon, 0, Fecha, "") Then MsgError = "No se insertó el movimiento"
|
||||
If Not Conta.AddMovimiento(123456, IDPoliza, 0, True, Total, Referencia, ConceptoRenglon, 0, Fecha, "") Then MsgError = "No se insertó el movimiento"
|
||||
|
||||
If Not Conta.AddMovimiento(123456, IDPoliza, IDCtaBeneficiario, False, Total, Referencia, ConceptoRenglon, 0, Fecha, "") Then MsgError = "No se insertó el movimiento"
|
||||
If Not Conta.AddMovimiento(123456, IDPoliza, 0, False, Total, Referencia, ConceptoRenglon, 0, Fecha, "") Then MsgError = "No se insertó el movimiento"
|
||||
|
||||
Else
|
||||
MsgError = "No se insertó el encabezado"
|
||||
@@ -1477,21 +1409,12 @@ Partial Class Bancos_IE
|
||||
' 'If drr("CveProveedor").ToString.ToEntero > 0 Then
|
||||
' ' Dim ObjProveedor As New ClsCompProveedores()
|
||||
|
||||
' ' If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, drr("CveProveedor").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
|
||||
' ' If ObjProveedor.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
' ' CtaProveedor = ObjProveedor.IdCtaContProveedores
|
||||
' ' Else
|
||||
' ' Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
|
||||
' ' End If
|
||||
' ' End If
|
||||
' ' ObjProveedor.Dispose()
|
||||
|
||||
' 'End If
|
||||
|
||||
' 'AFECTAR MATRIZ EGRESOS
|
||||
|
||||
' If Conta.AddMovimiento(123456, IDPoliza, dr("IdCtaContProveedores").ToString.ToEntero, False, Total, TxtFolio.Text, ConceptoRenglon, 0, TxtFechaDocumento.Text.ToDate, "") Then
|
||||
' If Conta.AddMovimiento(123456, IDPoliza, 0, False, Total, TxtFolio.Text, ConceptoRenglon, 0, TxtFechaDocumento.Text.ToDate, "") Then
|
||||
|
||||
' Else
|
||||
' TieneError = True
|
||||
@@ -1508,7 +1431,7 @@ Partial Class Bancos_IE
|
||||
' ConceptoRenglon = String.Format("GP {0} {1}", TxtPagueseA.Text.Trim, TxtObservaciones.Text)
|
||||
' Total = TxtImporte.Text.ToDouble
|
||||
' 'actualizo el idcuenta del presupuesto
|
||||
' If Not Conta.AddMovimiento(123456, IDPoliza, IDCtaContable, True, Total, TxtFolio.Text, ConceptoRenglon, 0, TxtFechaDocumento.Text.ToDate, "") Then
|
||||
' If Not Conta.AddMovimiento(123456, IDPoliza, 0, True, Total, TxtFolio.Text, ConceptoRenglon, 0, TxtFechaDocumento.Text.ToDate, "") Then
|
||||
' TieneError = True
|
||||
|
||||
' End If
|
||||
|
||||
Reference in New Issue
Block a user