573 lines
28 KiB
VB.net
573 lines
28 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports System.IO
|
|
Imports System.Net.Http
|
|
Imports Extensiones
|
|
Partial Class Bancos_DepositosCaja
|
|
Inherits ClsPaginas
|
|
|
|
Private Property FacturasCheckadas As Integer
|
|
Get
|
|
Return ViewState("FacturasCheckadas").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("FacturasCheckadas") = value
|
|
End Set
|
|
End Property
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
FacturasCheckadas = 0
|
|
TxtFecha.Text = NowADS().ToShortDateString
|
|
txtFechaI.Text = NowADS().AddDays(-1).ToShortDateString
|
|
txtFechaF.Text = NowADS().ToShortDateString
|
|
TxtComision.Attributes.Add("onKeyUp", "txtSuma(this);")
|
|
TxtDescuento.Attributes.Add("onKeyUp", "txtSumaDescuento(this);")
|
|
TxtIVA.Attributes.Add("onKeyUp", "txtSumaIVA(this);")
|
|
TxtComisionIntermediario.Attributes.Add("onKeyUp", "txtSumaTntermediario(this);")
|
|
|
|
|
|
CargaCuentas()
|
|
ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
|
|
ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);")
|
|
ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);")
|
|
BtnConsultar.Attributes.Add("onclick", "Consultar(this);")
|
|
BtnDepositar.Attributes.Add("onclick", "Depositar(this);")
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaCuentas()
|
|
DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"})
|
|
DdlCuentaDeposito.DataBind()
|
|
|
|
DdlCajaChica.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
|
|
DdlCajaChica.DataBind()
|
|
'código temporal, para claudia y toñita, monge, anadelia, alba,patricia
|
|
If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then
|
|
DdlCajaChica.Items.Add(New ListItem("Todas", "-1"))
|
|
DdlCuentaDeposito.Items.Add(New ListItem("Cuadre Solidaridad", "7850"))
|
|
DdlCuentaDeposito.Items.Add(New ListItem("Cuadre Obregón", "7853"))
|
|
DdlCuentaDeposito.Items.Add(New ListItem("Cuadre Matriz", "7861"))
|
|
divFolio.Visible = True
|
|
End If
|
|
|
|
DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
|
|
DdlSubProyectos.DataBind()
|
|
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
DdlSubProyectoDeposito.DataSource = DdlSubProyectos.DataSource
|
|
DdlSubProyectoDeposito.DataBind()
|
|
DdlSubProyectoDeposito.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
|
|
DdlSubProyectoDescuento.DataSource = DdlSubProyectos.DataSource
|
|
DdlSubProyectoDescuento.DataBind()
|
|
DdlSubProyectoDescuento.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
|
|
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2)
|
|
DdlClasificacion.DataBind()
|
|
DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
|
|
DdlClasificacionDescuento.DataSource = DdlClasificacion.DataSource
|
|
DdlClasificacionDescuento.DataBind()
|
|
DdlClasificacionDescuento.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
|
|
DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
|
|
DdlPersonal.DataBind()
|
|
|
|
Dim ClavesProvs As String = UsuarioActual.Empresa.Funcionalidad(206)
|
|
If ClavesProvs = "" Then ClavesProvs = "0" ' para que no marque error
|
|
|
|
'intermediario
|
|
DdlProveedorIntermediario.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedor in ({0})", ClavesProvs))
|
|
DdlProveedorIntermediario.DataBind()
|
|
|
|
DdlClasificacionIntermediario.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2)
|
|
DdlClasificacionIntermediario.DataBind()
|
|
|
|
DdlSubProyectoIntermediario.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
|
|
DdlSubProyectoIntermediario.DataBind()
|
|
|
|
'CargaUsuarios
|
|
DdlUsuario.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
|
DdlUsuario.DataBind()
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
|
CargaDatos()
|
|
End Sub
|
|
|
|
Private Sub CargaDatos()
|
|
Dim ObjBancos As New ClsBancos
|
|
Dim FechaI, FechaF As String
|
|
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
|
|
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
|
|
Dim MSI As Integer = -1
|
|
If DdlTipoPago.SelectedValue = "12" Then
|
|
MSI = DDlMesesSinIntereses.SelectedValue.ToEntero
|
|
End If
|
|
|
|
ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, MSI:=MSI, CveUsuario:=DdlUsuario.SelectedValue.ToEntero)
|
|
|
|
GvFacturas.DataSource = ObjBancos.DtResultados
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
|
If ObjBancos.DtResultados IsNot Nothing AndAlso ObjBancos.DtResultados.Rows.Count > 0 Then
|
|
lblValorTotal.Text = ObjBancos.DtResultados.SUM("Importe").ToString("###,###,###.00")
|
|
RegistraScript($" ValorTotalSeleccionado = {ObjBancos.DtResultados.SUM("Importe")};")
|
|
End If
|
|
End If
|
|
ObjBancos.Dispose()
|
|
|
|
GvFacturas.DataBind()
|
|
ChkFaltante.Checked = False
|
|
ChkDescuento.Checked = False
|
|
ChkIntermediario.Checked = False
|
|
TxtComision.Text = ""
|
|
TxtDescuento.Text = ""
|
|
TxtIVA.Text = ""
|
|
TxtComisionIntermediario.Text = ""
|
|
'lblValorTotal.Text = "0.0"
|
|
lblValorTotalSeleccionado.Text = "0.0"
|
|
divLabelTotal.Visible = True
|
|
DdlSubProyectoDeposito.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
|
|
DdlSubProyectoDescuento.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
|
|
DdlSubProyectoIntermediario.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
|
|
UpGvFacturas.Update()
|
|
UpParametros.Update()
|
|
UpComisiones.Update()
|
|
|
|
End Sub
|
|
|
|
Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click
|
|
|
|
Dim TotalImporte As Decimal = 0
|
|
Dim TotalImportePrePoliza As Decimal
|
|
Dim Comision As Decimal = TxtComision.Text.ToDecimal
|
|
Dim Descuento As Decimal = TxtDescuento.Text.ToDecimal
|
|
Dim IVA As Decimal = TxtIVA.Text.ToDecimal
|
|
Dim ImporteInter As Decimal = TxtComisionIntermediario.Text.ToDecimal
|
|
|
|
Dim MsgError As String = "Ocurrió un error al realizar los depositos"
|
|
|
|
For Each Gvr As GridViewRow In GvFacturas.Rows
|
|
If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal
|
|
Next
|
|
|
|
If TotalImporte = 0 Then
|
|
Alert("Seleccion una factura para realizar el depósito", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
|
|
TotalImportePrePoliza = TotalImporte
|
|
If Comision <> 0 Then
|
|
TotalImporte = TotalImporte + Comision
|
|
'Comision = -(Comision) ' se inverte el valor, va cargada
|
|
'Descuento = -(Descuento) ' se inverte el valor, va cargada
|
|
If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
|
|
Alert("Debes Seleccionar un Subproyecto y una Clasificación", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
|
|
If Descuento <> 0 Then
|
|
TotalImporte = TotalImporte - Descuento
|
|
'Descuento = -(Descuento) ' se inverte el valor, va cargada
|
|
If DdlSubProyectoDescuento.SelectedValue.ToEntero = -1 Or DdlClasificacionDescuento.SelectedValue.ToEntero = -1 Then
|
|
Alert("Debes Seleccionar un Subproyecto y una Clasificación de descuento", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
|
|
If TxtComisionIntermediario.Text.ToDecimal <> 0 Then
|
|
TotalImporte = TotalImporte - TxtComisionIntermediario.Text.ToDecimal - IVA
|
|
End If
|
|
|
|
Dim OcurrioError As Boolean = False
|
|
Dim NuevaCvePrePoliza As Integer
|
|
|
|
Dim pdf64 As String = ""
|
|
Dim documentos As String = "Los Depósitos se realizaron exitosamente<br/><br/>"
|
|
|
|
Dim CveIEOrigen As Integer = -1 'CajaChica
|
|
Dim CveIEDestino As Integer = -1 'Banco
|
|
|
|
Dim ObjConta As New ClsContabilidad()
|
|
Dim ObjBancos As New ClsBancos(ObjConta.IniciaTransacSQL())
|
|
|
|
Try
|
|
Dim FolioIE As Long = -1
|
|
Dim CveMoneda As Integer = 1
|
|
Dim TipoCambio As Decimal = 1
|
|
Dim Fecha As Date = TxtFecha.Text.ToDate
|
|
Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
|
|
Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
|
|
Dim CveSubProyecto As Integer = DdlSubProyectos.SelectedValue.ToEntero
|
|
Dim CveClasificacion As Integer = -1
|
|
|
|
Dim CveSubProyectoComision As Integer
|
|
Dim CveClasificacionComision As Integer
|
|
|
|
Dim CveSubProyectoDescuento As Integer
|
|
Dim CveClasificacionDescuento As Integer
|
|
|
|
|
|
Dim imprimirFolios As String = ""
|
|
Dim CveSubProyectoIntermediario As Integer
|
|
Dim CveClasificacionIntermediario As Integer
|
|
Dim CveProveedorIntermediario As Integer = -1
|
|
|
|
If drOrigen IsNot Nothing Then
|
|
CveMoneda = drOrigen("CveMoneda").ToString.ToEntero
|
|
End If
|
|
|
|
If drDestino IsNot Nothing Then
|
|
CveMoneda = drDestino("CveMoneda").ToString.ToEntero
|
|
End If
|
|
|
|
NuevaCvePrePoliza = ObjConta.AddPrePolizas("DepCaja", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=1)
|
|
|
|
Dim IntermediarioFactura As Boolean = False
|
|
If UsuarioActual.CveEmpresa = 145 Then IntermediarioFactura = True
|
|
If ChkIntermediario.Checked Then
|
|
|
|
CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero
|
|
CveClasificacionIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero
|
|
CveProveedorIntermediario = DdlProveedorIntermediario.SelectedValue.ToEntero
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then ' empresa llantera
|
|
If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
|
|
OcurrioError = True
|
|
End If
|
|
If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
|
|
OcurrioError = True
|
|
End If
|
|
End If
|
|
|
|
If Not IntermediarioFactura Then ' si factura no se manda al gasto sino se disminuye solo lo depositado
|
|
If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, ImporteInter, ImporteInter, 51, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario) Then
|
|
OcurrioError = True
|
|
End If
|
|
End If
|
|
|
|
If IVA <> 0 Then
|
|
If Not OcurrioError AndAlso Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, IVA, 14, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, PorcentajeImpuesto:=0.16D) Then
|
|
OcurrioError = True
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
Dim CveTransaccionBanco As Integer = 13
|
|
|
|
If TotalImporte < 0 Then 'que es una devolución, entonces como es negativo, se cambia el concetpo de bancos, por condición de trigger
|
|
CveTransaccionBanco = 6
|
|
End If
|
|
|
|
'código temporal, para claudia y toñita, monge, anadelia, alba,patricia
|
|
If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then
|
|
FolioIE = TxtFolio.Text.ToEntero
|
|
End If
|
|
|
|
If FolioIE <= 0 Then
|
|
'Entrada a bancos
|
|
FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco)
|
|
End If
|
|
|
|
If CveSubProyecto <= 0 Then 'sino se seleccionó del combo, busca en el listado el primero
|
|
|
|
For Each Gvr As GridViewRow In GvFacturas.Rows
|
|
If Gvr.FCCheckBox("ChkFactura").Checked Then
|
|
CveSubProyecto = Gvr.DataKey("CveSubProyecto").ToEntero
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If FolioIE <= 0 Then
|
|
OcurrioError = True
|
|
End If
|
|
CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario)
|
|
|
|
documentos += String.Format("<a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>Depósito: {1}</a>     <br/> ", CveIEOrigen, FolioIE)
|
|
|
|
If Not OcurrioError AndAlso ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, TotalImporte * TipoCambio, 30, "Depósito Bancario", "Depósito Bancario", CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen) Then
|
|
|
|
If ChkFaltante.Checked Then
|
|
CveSubProyectoComision = DdlSubProyectoDeposito.SelectedValue.ToEntero
|
|
CveClasificacionComision = DdlClasificacion.SelectedValue.ToEntero
|
|
If Comision <> 0 Then
|
|
If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, Comision * TipoCambio, 78, DdlClasificacion.SelectedItem.Text, DdlClasificacion.SelectedItem.Text, CveClasificacion:=CveClasificacionComision, CveSubProyecto:=CveSubProyectoComision) Then
|
|
OcurrioError = True
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If Not OcurrioError AndAlso ChkDescuento.Checked Then
|
|
CveSubProyectoDescuento = DdlSubProyectoDescuento.SelectedValue.ToEntero
|
|
CveClasificacionDescuento = DdlClasificacionDescuento.SelectedValue.ToEntero
|
|
|
|
If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, Descuento * TipoCambio, 51, DdlClasificacionDescuento.SelectedItem.Text, DdlClasificacionDescuento.SelectedItem.Text & " " & DdlPersonal.SelectedItem.Text, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyectoDescuento, CvePersonal:=DdlPersonal.SelectedValue.ToEntero) Then
|
|
OcurrioError = True
|
|
End If
|
|
End If
|
|
Else
|
|
OcurrioError = True
|
|
End If
|
|
If Not OcurrioError Then
|
|
Dim i As Integer = 0
|
|
For Each Gvr As GridViewRow In GvFacturas.Rows
|
|
|
|
If Gvr.FCCheckBox("ChkFactura").Checked Then
|
|
'Datos de las Nuevas PrePolizas
|
|
'Entrada a Bancos
|
|
|
|
Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal
|
|
Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString
|
|
|
|
'si es el primero, se descuenta la "comisión"
|
|
If i = 0 AndAlso IntermediarioFactura Then
|
|
Importe = Importe - ImporteInter
|
|
i += 1
|
|
End If
|
|
|
|
'Datos de las Prepolizas A Cancelar
|
|
Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero
|
|
Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero
|
|
Dim CveCuentaBancaria As Integer = Gvr.DataKey("CveCuenta").ToEntero
|
|
Dim tCveSubProyecto As Integer = Gvr.DataKey("CveSubProyecto").ToEntero
|
|
|
|
FolioIE = ObjBancos.GetNextFolio(CveCuentaBancaria, 2)
|
|
If Not FolioIE > 0 Then
|
|
OcurrioError = True
|
|
Exit For
|
|
End If
|
|
CveIEDestino = ObjBancos.AddBancos_IE(CveCuentaBancaria, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
|
|
|
If Not OcurrioError AndAlso Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, Importe * TipoCambio, 30, SerieFolio, String.Format("Depósito Bancario: {0}", SerieFolio), CveClasificacion:=CveClasificacion, CveSubProyecto:=tCveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino) Then
|
|
OcurrioError = True
|
|
Exit For
|
|
End If
|
|
|
|
'Asignamos la cuenta Deposito
|
|
If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEOrigen, CveIE) Then
|
|
OcurrioError = True
|
|
Exit For
|
|
End If
|
|
End If
|
|
Next
|
|
Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEOrigen}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
|
|
|
|
documentos += String.Format("<br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir {1}</a> <br/><br/> ", StrEncript, "Depósito Bancario")
|
|
|
|
End If
|
|
|
|
If Not OcurrioError AndAlso ObjConta.ValidacionesPrePoliza(NuevaCvePrePoliza, UsuarioActual, Opcion:=1) Then
|
|
If ObjConta.ValorPolizaDescuadre > 0 Then
|
|
GuardaLogAD($"Bancos/DepositoCaja | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{NuevaCvePrePoliza}", "LogPrePolizas")
|
|
OcurrioError = True
|
|
End If
|
|
End If
|
|
|
|
If Not OcurrioError Then
|
|
documentos += String.Format("<a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"">Prepóliza</a> <br/><br/> ", NuevaCvePrePoliza)
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
OcurrioError = True
|
|
OnError("Ocurrió un error al procesar los datos", ex)
|
|
End Try
|
|
|
|
If OcurrioError Then
|
|
ObjConta.RollBack()
|
|
Alert(MsgError, TipoMensaje.MsgError)
|
|
Else
|
|
ObjConta.Commit()
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
|
|
Try
|
|
pdf64 = ImpresionDirectaPDF(CveIEOrigen, NuevaCvePrePoliza)
|
|
Catch ex As Exception
|
|
pdf64 = ""
|
|
GuardaLog(ex.ToString())
|
|
End Try
|
|
|
|
If Not String.IsNullOrEmpty(pdf64) Then
|
|
RegistraScript($"impresionBase64('{pdf64}');", "Imprimir")
|
|
Else
|
|
Alert("No se pudo imprimir el pdf", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End If
|
|
|
|
Alert(documentos.ToString)
|
|
CargaDatos()
|
|
|
|
End If
|
|
|
|
TxtComision.Text = ""
|
|
TxtDescuento.Text = ""
|
|
TxtIVA.Text = ""
|
|
TxtComisionIntermediario.Text = ""
|
|
lblValorTotal.Text = "0.0"
|
|
lblValorTotalSeleccionado.Text = "0.0"
|
|
CargaDatos()
|
|
ObjConta.Dispose()
|
|
End Sub
|
|
|
|
Private Sub ObtenerTotalImporta()
|
|
|
|
Dim Total As Double = 0
|
|
For Each Gvr As GridViewRow In GvFacturas.Rows
|
|
If Gvr.FCCheckBox("ChkFactura").Checked Then
|
|
Total += Gvr.DataKey("Importe").ToDouble
|
|
End If
|
|
Next
|
|
lblValorTotal.Text = Total.ToString("N")
|
|
UpGvFacturas.Update()
|
|
UpParametros.Update()
|
|
|
|
End Sub
|
|
|
|
Public Sub ChkFactura_Click(sender As Object, e As EventArgs)
|
|
'ObtenerTotalImporta()
|
|
End Sub
|
|
|
|
Protected Sub GvFacturas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvFacturas.RowDataBound
|
|
'If e.Row.RowType = DataControlRowType.DataRow Then
|
|
|
|
' If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoPago.SelectedValue.Contiene("11", "12", "-2") Then
|
|
' e.Row.FCCheckBox("ChkFactura").Checked = True
|
|
' e.Row.FCCheckBox("ChkFactura").Enabled = False
|
|
|
|
' End If
|
|
|
|
' e.Row.FCCheckBox("ChkFactura").Attributes.Add("onclick", String.Format("FnSuma(this,{0});", e.Row.DBCampo("Importe")))
|
|
' e.Row.FCCheckBox("ChkFactura").InputAttributes.Add("Value", e.Row.DBCampo("Importe"))
|
|
|
|
'End If
|
|
|
|
'If e.Row.RowType = DataControlRowType.Header Then
|
|
|
|
' If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
|
' RegistraScript("$('#C_GvFacturas_ChkSelector').attr('checked', true); $('#C_GvFacturas_ChkSelector').prop('disabled', 'disabled');")
|
|
' 'RegistraScript("$('#C_GvFacturas_ChkSelector').prop('disabled', 'disabled');")
|
|
' End If
|
|
|
|
'End If
|
|
|
|
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
|
e.Row.FCCheckBox("ChkFactura").Checked = True
|
|
If DdlTipoPago.SelectedValue.Contiene("11", "12", "-2") Then
|
|
e.Row.FCCheckBox("ChkFactura").Enabled = False
|
|
End If
|
|
|
|
End If
|
|
|
|
e.Row.FCCheckBox("ChkFactura").Attributes.Add("onclick", String.Format("FnSuma(this,{0});", e.Row.DBCampo("Importe")))
|
|
e.Row.FCCheckBox("ChkFactura").InputAttributes.Add("Value", e.Row.DBCampo("Importe"))
|
|
|
|
End If
|
|
|
|
If e.Row.RowType = DataControlRowType.Header Then
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoPago.SelectedValue.Contiene("11", "12", "-2") Then
|
|
RegistraScript("$('#C_GvFacturas_ChkSelector').attr('checked', true); $('#C_GvFacturas_ChkSelector').prop('disabled', 'disabled');")
|
|
'RegistraScript("$('#C_GvFacturas_ChkSelector').prop('disabled', 'disabled');")
|
|
End If
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Protected Sub DdlTipoPago_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
If DdlTipoPago.SelectedValue = "12" Then
|
|
DDlMesesSinIntereses.Visible = True
|
|
Else
|
|
DDlMesesSinIntereses.Visible = False
|
|
End If
|
|
DDlMesesSinIntereses.SelectedValue = "-1"
|
|
End Sub
|
|
|
|
Private Function ImpresionDirectaPDF(CveIEOrigen As Integer, CvePrePoliza As Integer) As String
|
|
|
|
Dim PDFPago As Byte() = Nothing
|
|
Dim PDFPrePoliza As Byte() = Nothing
|
|
|
|
Dim ParametrosPago As String = Encripta($"OP=DC&CveIE={CveIEOrigen}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}&TipoPago={DdlTipoPago.SelectedItem.Text}")
|
|
Dim ParametrosPrePoliza As String = Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")
|
|
|
|
Try
|
|
PDFPago = DescargarPDF(ParametrosPago, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)
|
|
If PDFPago IsNot Nothing Then
|
|
PDFPrePoliza = DescargarPDF(ParametrosPrePoliza, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
GuardaLog(ex.ToString())
|
|
|
|
PDFPago = Nothing
|
|
PDFPrePoliza = Nothing
|
|
End Try
|
|
|
|
If PDFPago IsNot Nothing AndAlso PDFPrePoliza IsNot Nothing Then
|
|
Dim pdf64 As String = ""
|
|
'UNIFICAR LOS 2 PDF
|
|
Using ms As New MemoryStream
|
|
Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfWriter(ms))
|
|
pdfdoc.InitializeOutlines()
|
|
|
|
Dim docPago As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(New MemoryStream(PDFPago)))
|
|
docPago.CopyPagesTo(1, docPago.GetNumberOfPages(), pdfdoc)
|
|
docPago.Close()
|
|
|
|
Dim docPrePoliza As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(New MemoryStream(PDFPrePoliza)))
|
|
docPrePoliza.CopyPagesTo(1, docPrePoliza.GetNumberOfPages(), pdfdoc)
|
|
docPrePoliza.Close()
|
|
|
|
pdfdoc.Close()
|
|
End Using
|
|
pdf64 = Convert.ToBase64String(ms.ToArray())
|
|
End Using
|
|
|
|
Return pdf64
|
|
Else
|
|
Return ""
|
|
End If
|
|
|
|
End Function
|
|
Private Function DescargarPDF(Parametros As String, CveEmpresa As Integer, CveUsuarioCreo As Integer, Optional GetBytes As Boolean = True, Optional strURLHOST As String = "") As Byte()
|
|
|
|
If String.IsNullOrEmpty(strURLHOST) Then
|
|
strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
|
|
End If
|
|
|
|
Dim Url As New Uri(String.Format("{0}/Compras/PopUpVerFactura.aspx?P={1}", strURLHOST, Parametros))
|
|
Dim File As Byte() = Nothing
|
|
Try
|
|
Using httpClient As New HttpClient()
|
|
httpClient.Timeout = New TimeSpan(0, 0, 40)
|
|
Using request As New HttpRequestMessage(HttpMethod.Get, Url)
|
|
request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CveUsuario={2}", CveEmpresa, DateTime.UtcNow.Ticks, CveUsuarioCreo)))
|
|
Dim response = httpClient.SendAsync(request).Result
|
|
If GetBytes AndAlso response.StatusCode = Net.HttpStatusCode.OK Then
|
|
File = response.Content.ReadAsByteArrayAsync().Result
|
|
End If
|
|
End Using
|
|
End Using
|
|
Catch ex As Exception
|
|
File = Nothing
|
|
OnError("Ocurrió un error al descargar la factura", ex)
|
|
End Try
|
|
|
|
Return File
|
|
End Function
|
|
|
|
End Class |