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

Compras Impresion de pedf de poliza, clases de compras para subproyectos, RepEstadoResultados

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-02-20 20:20:08 -07:00
parent 7aafd74f73
commit 17f0185035
12 changed files with 1908 additions and 1475 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
Compras/Compras.aspx.vb
View File

@@ -11,6 +11,7 @@ Imports Newtonsoft.Json
Imports Extensiones
Imports System.Activities.Expressions
Imports iText.Barcodes.Dmcode
Imports Microsoft.Reporting.WebForms
Partial Class Compras_Compras
Inherits ClsPaginas
@@ -3199,10 +3200,10 @@ Partial Class Compras_Compras
'Tiene Importacion
If dr("EsImportacion").ToString = "True" Then
chkImportacion.Checked = True
Else
chkImportacion.Checked = False
End If
chkImportacion.Checked = True
Else
chkImportacion.Checked = False
End If
CargaComplementosPago()
CargaGvBitacora()
InventarioMov()
@@ -7410,7 +7411,7 @@ Partial Class Compras_Compras
Else
Dim usacomplementariaAnticipo As Boolean = False
usacomplementariaAnticipo = If(Ant.TCCompra > 1 And not UsuarioActual.CveEmpresa.Contiene(13,83), True, False)
usacomplementariaAnticipo = If(Ant.TCCompra > 1 And Not UsuarioActual.CveEmpresa.Contiene(13, 83), True, False)
Dim TipoCambioAnt As Decimal = Ant.TCCompra
Dim ImporteAnt As Decimal = importeMovimiento
@@ -8111,7 +8112,12 @@ Partial Class Compras_Compras
End If
If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>", CvePrePoliza)
Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>. ", CvePrePoliza)
Dim TempParametros = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza))
Msg.Append($" <a class='Texto' target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={TempParametros}""> Descargar PDF <i class='fa fa-file-pdf-o' aria-hidden='true'></i></a>")
End If
If CveMovimientoInventario > 0 Then
@@ -8120,8 +8126,10 @@ Partial Class Compras_Compras
Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Entrada Almacen</a>", TempParametros)
End If
If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then
TieneError = True
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then
TieneError = True
End If
End If
If EntregaDirecta Then
@@ -13498,10 +13506,10 @@ Partial Class Compras_Compras
For Each Dr As GridViewRow In GVDevolucion.Rows
'CveAlmacen = Dr.DataKey("CveAlmacen").ToString.ToEntero
cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDecimal
If cantidad > 0 Then
Cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDecimal
If Cantidad > 0 Then
realizadevolucion = True
subtotaldevolucion += Dr.DataKey("PU").ToString.ToDecimal * cantidad
subtotaldevolucion += Dr.DataKey("PU").ToString.ToDecimal * Cantidad
End If
Next
'si no esta vinculado a nc simplemente me lo brinco
@@ -20595,6 +20603,9 @@ Partial Class Compras_Compras
'End Function
End Class