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

-- se depuró/limpió la variables idctaXXX

Browse Source
This commit is contained in:
rrene
2023-08-17 18:56:22 -07:00
parent 70fce81f48
commit 2765dab757
74 changed files with 1350 additions and 5328 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Contabilidad/OCDetalleAlmacen.aspx.vb
View File

@@ -30,11 +30,8 @@ Partial Class Contabilidad_OCDetalleAlmacen
Private Sub CargaDatos()
Dim ObjConta As New ClsContabilidad
If ObjConta.GetOCDetalleAlmacen(100000D, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -57,10 +54,8 @@ Partial Class Contabilidad_OCDetalleAlmacen
End Sub
Protected Sub BtnProcesarRegistros_Click(sender As Object, e As EventArgs)
Dim ObjConta As New ClsContabilidad
ObjConta.IniciaTransacSQL()
@@ -84,31 +79,20 @@ Partial Class Contabilidad_OCDetalleAlmacen
Dim CveCompra As Integer = GvDrow.DataKey("CveCompra").ToString.ToEntero
Dim Folio As String = GvDrow.DataKey("Folio").ToString
Dim CveCuenta176 As Integer = 0
Dim IdCtaCuenta176 As Integer = 1245
Dim IdCtaCuenta228 As Integer = 1247
Dim IdCtaCuenta229 As Integer = 1249
Dim CveCuenta177 As Integer = 55294
Dim IdCtaCuenta177 As Integer = 1148
Dim Chk As CheckBox = GvDrow.FCCheckBox("Chk")
If Chk IsNot Nothing AndAlso Chk.Checked Then
CvePrePoliza = ObjConta.AddPrePolizas(modulo, 74, Diferencia, Diferencia, CveMoneda, Fecha, Referencia, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
GvDrow.Cells(1).Text = CvePrePoliza.ToString
mensaje = mensaje & $"CvePrePoliza {CvePrePoliza } OC: {Folio} Importe :{Diferencia} <br>"
If CvePrePoliza > 0 Then
If Cargo > Abono Then
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Diferencia, 176, Referencia, Referencia, ImporteME:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Diferencia, 176, Referencia, Referencia, ImporteME:=Diferencia, CveCompra:=CveCompra, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, -Diferencia, 177, Referencia, Referencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, -Diferencia, 177, Referencia, Referencia, CveCompra:=CveCompra, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
ContadorProcesados = ContadorProcesados + 1
Else
ErrorProcesamiento = True