AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

option explicit

Browse Source
This commit is contained in:
rrene
2023-09-07 13:59:08 -07:00
parent e4e5f3d2fa
commit c47b75b750
6 changed files with 84 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
Contabilidad/RegPoliza.aspx.vb
View File

@@ -1064,7 +1064,7 @@ Partial Class RegPoliza
Dim TipoMovto As Boolean = Not Row("Cargo").ToString.ToDouble <> 0
If Row("Id").ToString.ToEntero <> -1 Then
Dim Id = Row("Id").ToString
Dim Id As String = Row("Id").ToString
'Agrega a la Bitacora
If Row("Estado").ToString.Trim = "U" Then
@@ -1186,24 +1186,24 @@ Partial Class RegPoliza
'If tCveSub <= 0 AndAlso drt("IdSegNeg").ToString.ToEntero = 0 Then 'toma el primero
' tCveSub = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
'End If ' Now, drt("IdCuenta").ToString.ToEntero, 0,
'If ObjConta.AddPrePolizasDetalle(tCvePrePoliza, drt("TipoMovto").ToString = "True",
' drt("Importe").ToString.ToDecimal,
' drt("Importe").ToString.ToDecimal, 299,
' drt("Concepto").ToString,
' drt("Concepto").ToString,
' CveSubProyecto:=tCveSub,
' CveCuenta:=tCveCuenta) Then
' 'registro
' If Not ObjContaq.UpdateMovimientoPrePolizaDetalle(drt("IdPoliza").ToString.ToEntero,
' drt("Id").ToString.ToEntero,
' ObjConta.CvePrePolizaDetalle) Then
' ErrorRegistro = True
' Exit For
' End If
'Else
' ErrorRegistro = True
' Exit For
'End If
If ObjConta.AddPrePolizasDetalle(tCvePrePoliza, drt("TipoMovto").ToString = "True",
drt("Importe").ToString.ToDecimal,
drt("Importe").ToString.ToDecimal, 299,
drt("Concepto").ToString,
drt("Concepto").ToString,
CveSubProyecto:=tCveSub,
CveCuenta:=tCveCuenta) Then
'registro
If Not ObjContaq.UpdateMovimientoPrePolizaDetalle(drt("IdPoliza").ToString.ToEntero,
drt("Id").ToString.ToEntero,
ObjConta.CvePrePolizaDetalle) Then
ErrorRegistro = True
Exit For
End If
Else
ErrorRegistro = True
Exit For
End If
Next
If Not ErrorRegistro AndAlso tCvePrePolizaOriginal <= 0 AndAlso Not ObjConta.UpdatePrePoliza(dr("FechaPol").ToString.ToDate, dr("Folio").ToString.ToEntero, -1, tIdPoliza, tCvePrePoliza, UsuarioActual.CveEmpresa, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
@@ -1276,7 +1276,7 @@ Partial Class RegPoliza
UpDevoluciones.Update()
End Sub
Protected Sub GvDevoluciones_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDevoluciones.RowDeleting
Dim ErrorEliminar = False
Dim ErrorEliminar As Boolean = False
If IDPoliza > 0 Then
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
@@ -1303,7 +1303,7 @@ Partial Class RegPoliza
CargaGridDevoluciones("", 0)
End Sub
Protected Sub GvDevoluciones_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvDevoluciones.RowUpdating
Dim ErrorDevolucion = False
Dim ErrorDevolucion As Boolean = False
If IDPoliza > 0 Then
Dim gvr As GridViewRow = GvDevoluciones.Rows(e.RowIndex)
@@ -1327,7 +1327,7 @@ Partial Class RegPoliza
CargaDevoluciones()
End If
Else
Dim row() = DtDevoluciones.Select(String.Format("Id = {0}", e.Keys("Id")))
Dim row As DataRow() = DtDevoluciones.Select(String.Format("Id = {0}", e.Keys("Id")))
' row(0)("IdCuenta") = GvDevoluciones.Rows(e.RowIndex).FCDropDownList("DdlProveedor").SelectedValue
row(0)("IdProveedor") = GvDevoluciones.Rows(e.RowIndex).FCDropDownList("DdlProveedor").SelectedValue
@@ -1354,7 +1354,7 @@ Partial Class RegPoliza
#Region "D E V O L U C I O N E S - I V A"
Protected Sub LbAgregarDevolucion_Click(sender As Object, e As EventArgs)
Dim ErrorDevolucion = False
Dim ErrorDevolucion As Boolean = False
If IDPoliza > 0 Then
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
@@ -1373,7 +1373,7 @@ Partial Class RegPoliza
CargaDevoluciones()
End If
Else
Dim row = DtDevoluciones.NewRow
Dim row As DataRow = DtDevoluciones.NewRow
row("ID") = (DtDevoluciones.Rows.Count + 1).ToString
'row("IdCuenta") = DdlProveedor.SelectedValue
@@ -1399,7 +1399,7 @@ Partial Class RegPoliza
End Sub
Protected Sub LbAgregarCausacion_Click(sender As Object, e As EventArgs)
Dim ErrorDevolucion = False
Dim ErrorDevolucion As Boolean = False
If IDPoliza > 0 Then
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)

2
Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb
View File

@@ -90,7 +90,7 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
BtnConsultar.Enabled = True
Dim ErrorParametros = True
Dim ErrorParametros As Boolean = True
CargaTipoCuentas()
CargaMoneda()