-- option strict on
This commit is contained in:
@@ -245,7 +245,7 @@ Partial Class Bancos_PolizaCheque
|
||||
Private Sub CargaFolio()
|
||||
If HdnTipoTransaccion.Value = "" Then CargaHdnTipoTransaccion()
|
||||
If DdlTipoTransaccion.SelectedValue.ToEntero > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then
|
||||
If UsuarioActual.CveEmpresa = 119 AndAlso IfNull(Request("Tipo"), "") = "Ing" Then
|
||||
If UsuarioActual.CveEmpresa = 119 AndAlso IfNull(Request("Tipo"), "").ToString = "Ing" Then
|
||||
Dim ObjFolios As New ClsGralFolios
|
||||
If ObjFolios.GetFolios("RMF", UsuarioActual.CveEmpresa) Then
|
||||
Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo'"))
|
||||
@@ -437,9 +437,9 @@ Partial Class Bancos_PolizaCheque
|
||||
IdCuenta = If(drr IsNot Nothing, drr("Id").ToString.ToEntero, -1)
|
||||
CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "")
|
||||
NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "")
|
||||
Concepto = drt("NombreCompleto")
|
||||
Concepto = drt("NombreCompleto").ToString
|
||||
dr("Cargo") = drt("Total").ToString.ToDecimal.FormatoNumero(2)
|
||||
TotalProceso += drt("Total").ToString.ToDecimal.FormatoNumero(2)
|
||||
TotalProceso += drt("Total").ToString.ToDecimal
|
||||
Else TipoMovto = 1
|
||||
CveConcepto = 30
|
||||
Concepto = "Pago Nómina"
|
||||
@@ -506,8 +506,8 @@ Partial Class Bancos_PolizaCheque
|
||||
|
||||
'Encabezado
|
||||
Dim Identificador As String = "1"
|
||||
Dim NumRegistros As String = GeneraCampoInverso(DtMovimientos.FiltraParametros("CvePersonal > 0").Rows.Count, 7, "0")
|
||||
Dim ImporteRegistros As String = GeneraCampoInverso(DecimalesSinPunto(TxtImporte.Text), 15, "0")
|
||||
Dim NumRegistros As String = GeneraCampoInverso(DtMovimientos.FiltraParametros("CvePersonal > 0").Rows.Count.ToString, 7, "0"c)
|
||||
Dim ImporteRegistros As String = GeneraCampoInverso(DecimalesSinPunto(TxtImporte.Text), 15, "0"c)
|
||||
Dim RegistrosInc As String = "0000000"
|
||||
Dim ImporteRegistrosInc As String = "000000000000000"
|
||||
Dim ContratoPagel As String = "000000000000"
|
||||
@@ -523,7 +523,7 @@ Partial Class Bancos_PolizaCheque
|
||||
|
||||
'Detalle
|
||||
For Each dr As DataRow In DtMovimientos.FiltraParametros("CvePersonal > 0").Rows
|
||||
TextoCompleto += GeneraLineaLayout(dr("CvePersonal"), dr("Cargo"), dr("Concepto"), ObjPersonal) + vbNewLine
|
||||
TextoCompleto += GeneraLineaLayout(dr("CvePersonal").ToString.ToEntero, dr("Cargo").ToString, dr("Concepto").ToString, ObjPersonal) + vbNewLine
|
||||
Next
|
||||
|
||||
'CreaArchivo()
|
||||
@@ -543,7 +543,7 @@ Partial Class Bancos_PolizaCheque
|
||||
Dim BancoDestino As String = GeneraCampo(ObjPersonal.DtResultados(0)("CveSATBanco").ToString, 3)
|
||||
Dim PlazaDestino As String = "000"
|
||||
Dim NumeroCuenta As String = GeneraCampo(ObjPersonal.DtResultados(0)("CuentaBancaria").ToString, 16)
|
||||
Dim ImporteAbono As String = GeneraCampoInverso(DecimalesSinPunto(Importe), 15, "0")
|
||||
Dim ImporteAbono As String = GeneraCampoInverso(DecimalesSinPunto(Importe), 15, "0"c)
|
||||
Dim EstadoPago As String = "0000000"
|
||||
Dim DescripcionPago As String = GeneraCampo(Concepto, 80)
|
||||
Dim TitularCuenta As String = GeneraCampo(ObjPersonal.DtResultados(0)("Nombre").ToString, 40)
|
||||
@@ -777,7 +777,7 @@ Partial Class Bancos_PolizaCheque
|
||||
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
||||
End If
|
||||
|
||||
Dim TC As Decimal = If(CveMoneda > 1, GlobalTipoCambio(TxtFechaDocumento.Text.ToDate), 1)
|
||||
Dim TC As Decimal = If(CveMoneda > 1, GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal, 1D)
|
||||
Dim CveTipoPoliza As Integer = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla).FiltroPrimeroValor("TipoPoliza", String.Format("CvePlantillaPoliza={0}", DdlPlantilla.SelectedValue)).ToEntero
|
||||
CvePrePoliza = ObjMov.AddPrePolizas("PolizaCheque/Guardar", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=CveTipoPoliza)
|
||||
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PaguesA, ImporteDocumento, CveMoneda, If(CveMoneda > 1, TC, 0.0), TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
@@ -787,16 +787,16 @@ Partial Class Bancos_PolizaCheque
|
||||
If CvePrePoliza > 0 Then
|
||||
Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
|
||||
|
||||
Dim Importe As Double = 0
|
||||
Dim Importe As Decimal = 0
|
||||
Dim TipoMovto As Boolean = False
|
||||
'inserto las compras que voy a pagar
|
||||
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
|
||||
|
||||
@@ -818,10 +818,7 @@ Partial Class Bancos_PolizaCheque
|
||||
ElseIf CveMoneda > 1 Then
|
||||
Importe = Importe * TC
|
||||
End If
|
||||
|
||||
'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedorSeleccionado, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=CvePersonalSeleccionado, ImporteMX:=Importe, TipoCambio:=TC, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then
|
||||
' MsgError = "no se pudo insertar el detalle de la póliza2"
|
||||
'End If
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, gvr.DataKey("CveConcepto").ToEntero, Referencia, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedorSeleccionado, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=CvePersonalSeleccionado, TipoCambio:=TC, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then
|
||||
MsgError = "no se pudo insertar el detalle de la póliza2"
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user