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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 00:03:44 -07:00
parent 407256f079
commit 7ee978059d
9 changed files with 57 additions and 184 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Bancos/OtrosIE.aspx.vb
View File

@@ -348,10 +348,10 @@ Partial Class Bancos_OtrosIE
For Each gvr As GridViewRow In GvMov.Rows
If gvr.DataKey("TipoMovto").ToDouble > 0 Then
Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
Importe = gvr.FCTextBox("TxtAbono").Text.ToDecimal
TipoMovto = True
Else
Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
Importe = gvr.FCTextBox("TxtCargo").Text.ToDecimal
TipoMovto = False
End If
If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then
@@ -362,7 +362,7 @@ Partial Class Bancos_OtrosIE
End If
If MsgError = "" Then
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCTextBox("TxtConcepto").Text, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, 0, -1, CveIE,
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text, TxtObservaciones.Text, CveIE:=CveIE,
CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then
Else
@@ -382,17 +382,15 @@ Partial Class Bancos_OtrosIE
CveConcepto = 12
ElseIf HdnCveBeneficiario.Value.ToEntero > 0 Then
CveConcepto = 13
End If
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", 30, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConcepto, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, 30, "", TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, CveConcepto, "", TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=HdnCveProveedor.Value.ToEntero, CvePersonal:=HdnCvePersonal.Value.ToEntero, CveCliente:=HdnCveCliente.Value.ToEntero, CveColectiva:=HdnCveBeneficiario.Value.ToEntero) Then
End If
Else
MsgError = "No se pudo insertar el detalle de la póliza2"
End If
End If
@@ -629,12 +627,12 @@ Partial Class Bancos_OtrosIE
Private Sub RecargaGlobalCuentasBancarias(CveProveedor As Integer, Optional ByVal CveCuenta As Integer = -1)
If CveProveedor > 0 Then
Dim ObjCuentasBancos As New ClsGenerales
'Dim ObjCuentasBancos As New ClsGenerales
If ObjCuentasBancos.GetCuentasDepositos() Then
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
End If
ObjCuentasBancos.Dispose()
'If ObjCuentasBancos.GetCuentasDepositos() Then
' GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor) = ObjCuentasBancos.DtResultados
'End If
'ObjCuentasBancos.Dispose()
End If
End Sub
End Class