From 66a3d8b3b91dbf37951c884e542fb4bab097971a Mon Sep 17 00:00:00 2001 From: Desarrollo2019 Date: Tue, 20 Aug 2019 17:58:06 -0700 Subject: [PATCH 1/8] Validacion en Ventas impuestos de hijos y padres --- App_Code/ClsContabilidad.vb | 3 ++- Ventas/Ventas.aspx.vb | 27 ++++++++++++++++++++++++++- 2 files changed, 28 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index ba54c7715..31a25e690 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5662,12 +5662,13 @@ Public Class ClsContabilidad #End Region #Region "VALIDACION POLIZA DESCUADRADA" - Public Function ValidacionPrePolizaCuadre(CvePrePoliza As Integer, Opcion As Integer) As Boolean + Public Function ValidacionPrePolizaCuadre(CvePrePoliza As Integer, Opcion As Integer, Optional CveVenta As Integer = -1) As Boolean Dim Retorno = False DataAdapter("PA_Conta_PrePoliza_Validacion") With SqlAdapter.SelectCommand.Parameters .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@Valor", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index f3a8526a7..3f0ab4f82 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -10215,7 +10215,11 @@ Partial Class Ventas If ObjConta.ValidacionPrePolizaCuadre(ObjFactura.CvePrePoliza, 2) Then If ObjConta.ValorPolizaDescuadre > 0 Then - 'ErrorPrepoliza = True + If ObjConta.ValorPolizaDescuadre = 2 Then + ErrorPrepoliza = True + Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError) + End If + 'ErrorPrepoliza = True GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas") 'SIRVE PARA VER LA PREPOLIZA QUE SE VALIDA @@ -15669,6 +15673,15 @@ Partial Class Ventas End If End If + If ObjConta.ValidacionPrePolizaCuadre(-1, 2, CveVenta) Then + If ObjConta.ValorPolizaDescuadre > 0 Then + If ObjConta.ValorPolizaDescuadre = 2 Then + OcurrioError = True + ErrorList.Add(ObjConta.MensajePolizaDescuadre) + End If + End If + End If + If Not OcurrioError Then If RegeneracionPolizas(ObjVentas, ObjAC) Then OcurrioError = True @@ -21650,6 +21663,7 @@ Partial Class Ventas Dim ObjVentas As New ClsVentas Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL()) + Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL()) Dim OcurrioError = False Dim MensajeError = "" @@ -21703,6 +21717,15 @@ Partial Class Ventas End If End If + If ObjConta.ValidacionPrePolizaCuadre(-1, 2, CveVenta) Then + If ObjConta.ValorPolizaDescuadre > 0 Then + If ObjConta.ValorPolizaDescuadre = 2 Then + OcurrioError = True + MensajeError = ObjConta.MensajePolizaDescuadre + End If + End If + End If + If OcurrioError Then ObjVentas.RollBack() Alert($"{MensajeError}. Por favor vuelva a intentar.", TipoMensaje.MsgError) @@ -21721,6 +21744,8 @@ Partial Class Ventas End If ObjVentas.Dispose() + ObjConta.Dispose() + ObjCGame.Dispose() End Sub #End Region From 322e7abb3dd334716bb5f23235752a6dea4b59db Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 20 Aug 2019 18:54:52 -0700 Subject: [PATCH 2/8] ClsBancos Editar IE --- App_Code/ClsBancos.vb | 12 +- Bancos/IE.aspx | 29 +- Bancos/IE.aspx.vb | 835 ++++++++++++++++++++---------------------- 3 files changed, 414 insertions(+), 462 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 69909efbc..5f783d5de 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1315,7 +1315,8 @@ Public Class ClsBancos Return Retorno End Function - Public Function UpdateBancos_IE(FechaDocumento As DateTime, FechaAplicado As DateTime?, CveIE As Integer, Optional Folio As String = "-1") As Boolean + Public Function UpdateBancos_IE(FechaDocumento As DateTime, FechaAplicado As DateTime?, CveIE As Integer, Optional Folio As String = "-1", Optional CveCuentaDeposito As Integer = -1, Optional CveCuenta As Integer = -1, + Optional Observaciones As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_IEUpdate") @@ -1328,8 +1329,17 @@ Public Class ClsBancos Else .Add("@FechaAplicado", SqlDbType.DateTime).Value = FechaAplicado End If + .Add("@CveIE", SqlDbType.Int).Value = CveIE .Add("@Folio", SqlDbType.VarChar).Value = Folio + + .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + + + + End With Try diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 9579c2804..8220a8417 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -11,17 +11,14 @@   +
  • Listado Facturas Pagadas
    • -
  • Imprimir
    • - - -
  • @@ -30,7 +27,6 @@ -
  • Actualizar Tipo Cambio
    • @@ -54,7 +50,10 @@ Refacturar Complemento
  • - Cancelar Complemento + Cancelar Complemento + + <%--data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si" Style="color: #686868;"> +
    • @@ -862,6 +861,7 @@ + @@ -1228,6 +1228,7 @@
    +
    @@ -1333,29 +1334,31 @@
    -

    CancelarComplemetno

    +

    Cancelar Movimiento y Complemetno

    +
    -

    ¿Cual de las siguientes acciones es la que desea realizar?

    + <%--

    ¿Cual de las siguientes acciones es la que desea realizar?

    Cancelar Complemento Cancelar Pago y Complemento - + --%>
    -
    +
    Fecha Cancelación:
    + @@ -1373,12 +1376,8 @@
    -
    - - +
    - -
    diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index b7bc8a148..fffc527d3 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -630,7 +630,7 @@ Partial Class Bancos_IE End If '08/05/2018 - Se deshabilita opcion Eliminar IE si tiene un complemento de pago relacionado - If CveIE = -1 Or (CveIE > 0 AndAlso VerificaComplementos()) Then + If CveIE = -1 Or (CveIE > 0 AndAlso VerificaComplementos(False)) Then LnkEliminar.Visible = False If CveIE > 0 Then LnkCancelar.Visible = False @@ -674,6 +674,17 @@ Partial Class Bancos_IE LnkAjustarMovimiento.Visible = True End If + If Not VerificaComplementos(True) Then + + LnkCancelarComplemento.Visible = False + LnkCancelarComplementoImporte.Visible = False + + + UppEliminarIE.Update() + + + End If + End If End Sub @@ -697,7 +708,7 @@ Partial Class Bancos_IE CveIEDeposito2 = ObjIE.DtResultados(0)("CveIEDeposito2").ToString.ToEntero If UsuarioActual.TienePermisoProceso(99) Then - BtnActualizar.Visible = True + 'BtnActualizar.Visible = True TxtFechaDocumento.Enabled = True Calendario.Enabled = True End If @@ -749,6 +760,7 @@ Partial Class Bancos_IE 'ChkAplicaImpuestos.Checked = ObjIE.AplicaImpuestos 'ChkImpreso.Checked = ObjIE.FueImpreso ChkConciliado.Checked = ObjIE.FueConciliado + DdlEstatusIE.SelectedValue = ObjIE.CveEstatusIE.ToString DdlEstatusIE.Visible = False LblEstatusIE.Visible = True @@ -1040,10 +1052,25 @@ Partial Class Bancos_IE If UsuarioActual.TienePermisoProceso(80) Then GvRH.Columns(5).Visible = True End If - Else + Else Alert("El Documento solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) - BtnGuardar.Enabled = False + BtnGuardar.Enabled = False End If + + + If Not ChkConciliado.Checked Then + + + If Not VerificaComplementos(True) Then + BtnEditar.Visible = True + End If + + UpGuardar.Update() + + + End If + + End If 'If CveIE > 0 Then @@ -3445,207 +3472,215 @@ Partial Class Bancos_IE objIE.Dispose() Return strBody.ToString - End Function - - - - + End Function + + + + #End Region - - ''[IPP] IFs REEMPLAZADOS - MIRAS DE ELIMINAR 2018/08/15 - 'If Not Opcion.Contiene("DEV", "INGPC", "DevDinV") AndAlso MsgError = "" Then - - 'Dim TipoMovimiento As Boolean = True - - 'If Opcion.Contiene("ANTC") Then - ' TipoMovimiento = False - ' End If - - ''MOVIMIENTOS EGRESOS - 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDouble, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then - 'Dim IVA As Double = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble - 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDouble - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then - 'If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then - ' MsgError = "Detalle" - ' End If - ''intereses pagados - 'If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, Ref, 46, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=CIF, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then - ' MsgError = "Detalle" - ' End If - 'Else - ' MsgError = "no se pudo insertar el detalle de la póliza2" - ' End If - 'Else - ' MsgError = "no se pudo insertar el detalle de la póliza" - ' End If - - - 'If Opcion.Contiene("EGSSINFACT") AndAlso CveSolicitudViatico > 0 AndAlso MsgError = "" Then - 'If Not ObjIE.UpdateSolicitudesViaticosIE(CveSolicitudViatico, CveIE) Then - ' MsgError = "Ocurrió un Error al vincular el egreso con la solicitud de viatico." - ' End If - 'End If - - ''MOVIMIENTOS INGRESOS - DEVOLUCIONES - 'ElseIf Opcion.Contiene("DEV") AndAlso MsgError = "" Then - 'Dim CveIEOtro As Integer = If(CveProveedor > 0 Or CvePersonal > 0, DdlIEDevolucion.SelectedValue.ToEntero, CveIE) - - 'If CveCliente > 0 AndAlso Not DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDouble = 0 Then - ''RMF- CASO DONDE HAY UNA DEVOLUCION Y TENGO QUE AFECTAR LAS FACTURAS QUE SE HABIAN MARCADO COMO PAGADAS TENGO QUE REGRESARLAS A PENDIENTES - 'Dim Mov As New ClsMovimientos - 'If Mov.GetMovimientosIE(2, DdlIEDevolucion.SelectedValue.ToEntero, -1, Now, Now, 1, 0, UsuarioActual.CveEmpresa) Then - 'Dim DtIE As DataTable = Mov.DtResultados - 'For Each dr As DataRow In DtIE.Rows - - 'If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, If(dr("TipoMovto").ToString.ToEntero = 1, False, True), If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDouble, dr("Importe").ToString.ToDouble), "", dr("CveConceptoContable").ToString.ToEntero, "", Now, IDCtaBeneficiario, -1, CveIE, CveCliente:=dr("CveCliente").ToString.ToEntero, CveVenta:=dr("CveVenta").ToString.ToEntero, ImporteMX:=If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDouble, -dr("Importe").ToString.ToDouble), ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then - ' MsgError = "no se pudo insertar el detalle de la póliza 2" - ' End If - 'Next - ' ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) - - ' End If - ' Mov.Dispose() - - ' 'Devolucion de INGxC Formato Charlie - ' ElseIf CveCliente > 0 AndAlso DivIvaIxC.Visible Then - - 'Dim Mov As New ClsMovimientos - ' 'INGxC - ' ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDouble - TxtIvaIxC.Text.ToDouble), Ref, 66, Conc, Now, IDCtaContable, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-(TxtImporte.Text.ToDouble - TxtIvaIxC.Text.ToDouble), ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) - - ' If TxtIvaIxC.Text.ToDouble > 0 Then - ' 'Iva - ' ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDouble, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) - ' End If - - ' 'Bancos - ' ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -TxtImporte.Text.ToDouble, Ref, 30, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) - ' Mov.Dispose() - - ' Else - 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) Then - 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE:=If(CveIEOtro < 0, CveIE, CveIEOtro), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then - ' MsgError = "no se pudo insertar el detalle de la póliza 2" - ' End If - 'Else - ' MsgError = "no se pudo insertar el detalle de la póliza" - ' End If - - 'End If - - ''Nuevo INGxC Formato Charlie - 'ElseIf Opcion.Contiene("INGPC") AndAlso MsgError = "" Then - - 'Dim ConceptoContable As Integer - 'Dim TipoMovimiento As Boolean - 'Dim importeMovimiento As Decimal - 'Dim FechaMovimiento As Date = Now - 'Dim Concepto As String = "" - 'Dim Referencia As String = TxtPagueseA.Text - - 'Dim importeMX As Decimal - 'Dim Multiplicador As Integer - - 'If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then - 'For Each Row As DataRow In ObjMov.DtResultados.Rows - - ' ConceptoContable = Row("CveConcepto").ToString.ToEntero - ' TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False) - ' importeMovimiento = 0 - ' Multiplicador = (Row("Multiplicador").ToString.ToEntero) - ' Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, TxtPagueseA.Text, "", TxtFolio.Text) - - ' Select Case ConceptoContable - - 'Case 10 - 'If RBL.SelectedValue = "P" AndAlso CveProveedor > 0 Then - ' importeMovimiento = TxtImporte.Text.ToDecimal - ' importeMX = importeMovimiento - ' End If - - 'Case 28 - 'If RBL.SelectedValue = "FE" AndAlso CvePersonal > 0 Then - ' importeMovimiento = TxtImporte.Text.ToDecimal - ' importeMX = importeMovimiento - ' End If - - 'Case 37 - 'If RBL.SelectedValue = "DD" AndAlso CveProveedor > 0 Then - ' importeMovimiento = TxtImporte.Text.ToDecimal - ' importeMX = importeMovimiento - ' End If - - 'Case 41 - 'If RBL.SelectedValue = "AC" AndAlso CveProveedor > 0 Then - ' importeMovimiento = TxtImporte.Text.ToDecimal - ' importeMX = importeMovimiento - ' End If - - 'Case 50 - 'If RBL.SelectedValue = "DP" AndAlso CveProveedor > 0 Then - ' importeMovimiento = TxtImporte.Text.ToDecimal - ' importeMX = importeMovimiento - ' End If - - 'Case 66 - 'If RBL.SelectedValue = "C" AndAlso CveCliente > 0 Then - ' importeMovimiento = TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal - ' importeMX = importeMovimiento - - ' 'Agregamos el IVA - ' If DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDecimal <> 0 Then - 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, 61, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then - ' MsgError = "Ocurrió un Error al registrar el asiento del ingreso." - ' End If - 'End If - 'If tCveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then - ''Agregamos complementaria - 'Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal - - 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 226, Concepto, FechaMovimiento, IDCtaBeneficiarioComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=0) Then - ' MsgError = "Ocurrió un Error al registrar el asiento del ingreso." - ' End If - - 'End If - - 'End If - - 'Case 30 - ' importeMovimiento = TxtImporte.Text.ToDecimal - ' importeMX = importeMovimiento - - ' If tCveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then - ''Agregamos complementaria - 'Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal - - 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then - ' MsgError = "Ocurrió un Error al registrar el asiento del ingreso." - ' End If - - 'End If - - 'End Select - - 'If importeMovimiento <> 0 Then - 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCuenta:=If(ConceptoContable = 30, CveCuentaConta, CveCuentaBeneficiario)) Then - ' MsgError = "Ocurrió un Error al registrar el asiento del ingreso." - ' End If - 'End If - - 'Next - - 'End If - 'End If - - Protected Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click + + ''[IPP] IFs REEMPLAZADOS - MIRAS DE ELIMINAR 2018/08/15 + 'If Not Opcion.Contiene("DEV", "INGPC", "DevDinV") AndAlso MsgError = "" Then + + 'Dim TipoMovimiento As Boolean = True + + 'If Opcion.Contiene("ANTC") Then + ' TipoMovimiento = False + ' End If + + ''MOVIMIENTOS EGRESOS + 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDouble, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then + 'Dim IVA As Double = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble + 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDouble - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then + 'If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then + ' MsgError = "Detalle" + ' End If + ''intereses pagados + 'If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, Ref, 46, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=CIF, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then + ' MsgError = "Detalle" + ' End If + 'Else + ' MsgError = "no se pudo insertar el detalle de la póliza2" + ' End If + 'Else + ' MsgError = "no se pudo insertar el detalle de la póliza" + ' End If + + + 'If Opcion.Contiene("EGSSINFACT") AndAlso CveSolicitudViatico > 0 AndAlso MsgError = "" Then + 'If Not ObjIE.UpdateSolicitudesViaticosIE(CveSolicitudViatico, CveIE) Then + ' MsgError = "Ocurrió un Error al vincular el egreso con la solicitud de viatico." + ' End If + 'End If + + ''MOVIMIENTOS INGRESOS - DEVOLUCIONES + 'ElseIf Opcion.Contiene("DEV") AndAlso MsgError = "" Then + 'Dim CveIEOtro As Integer = If(CveProveedor > 0 Or CvePersonal > 0, DdlIEDevolucion.SelectedValue.ToEntero, CveIE) + + 'If CveCliente > 0 AndAlso Not DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDouble = 0 Then + ''RMF- CASO DONDE HAY UNA DEVOLUCION Y TENGO QUE AFECTAR LAS FACTURAS QUE SE HABIAN MARCADO COMO PAGADAS TENGO QUE REGRESARLAS A PENDIENTES + 'Dim Mov As New ClsMovimientos + 'If Mov.GetMovimientosIE(2, DdlIEDevolucion.SelectedValue.ToEntero, -1, Now, Now, 1, 0, UsuarioActual.CveEmpresa) Then + 'Dim DtIE As DataTable = Mov.DtResultados + 'For Each dr As DataRow In DtIE.Rows + + 'If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, If(dr("TipoMovto").ToString.ToEntero = 1, False, True), If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDouble, dr("Importe").ToString.ToDouble), "", dr("CveConceptoContable").ToString.ToEntero, "", Now, IDCtaBeneficiario, -1, CveIE, CveCliente:=dr("CveCliente").ToString.ToEntero, CveVenta:=dr("CveVenta").ToString.ToEntero, ImporteMX:=If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDouble, -dr("Importe").ToString.ToDouble), ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then + ' MsgError = "no se pudo insertar el detalle de la póliza 2" + ' End If + 'Next + ' ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) + + ' End If + ' Mov.Dispose() + + ' 'Devolucion de INGxC Formato Charlie + ' ElseIf CveCliente > 0 AndAlso DivIvaIxC.Visible Then + + 'Dim Mov As New ClsMovimientos + ' 'INGxC + ' ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDouble - TxtIvaIxC.Text.ToDouble), Ref, 66, Conc, Now, IDCtaContable, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-(TxtImporte.Text.ToDouble - TxtIvaIxC.Text.ToDouble), ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) + + ' If TxtIvaIxC.Text.ToDouble > 0 Then + ' 'Iva + ' ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDouble, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) + ' End If + + ' 'Bancos + ' ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -TxtImporte.Text.ToDouble, Ref, 30, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) + ' Mov.Dispose() + + ' Else + 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) Then + 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE:=If(CveIEOtro < 0, CveIE, CveIEOtro), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then + ' MsgError = "no se pudo insertar el detalle de la póliza 2" + ' End If + 'Else + ' MsgError = "no se pudo insertar el detalle de la póliza" + ' End If + + 'End If + + ''Nuevo INGxC Formato Charlie + 'ElseIf Opcion.Contiene("INGPC") AndAlso MsgError = "" Then + + 'Dim ConceptoContable As Integer + 'Dim TipoMovimiento As Boolean + 'Dim importeMovimiento As Decimal + 'Dim FechaMovimiento As Date = Now + 'Dim Concepto As String = "" + 'Dim Referencia As String = TxtPagueseA.Text + + 'Dim importeMX As Decimal + 'Dim Multiplicador As Integer + + 'If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then + 'For Each Row As DataRow In ObjMov.DtResultados.Rows + + ' ConceptoContable = Row("CveConcepto").ToString.ToEntero + ' TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False) + ' importeMovimiento = 0 + ' Multiplicador = (Row("Multiplicador").ToString.ToEntero) + ' Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, TxtPagueseA.Text, "", TxtFolio.Text) + + ' Select Case ConceptoContable + + 'Case 10 + 'If RBL.SelectedValue = "P" AndAlso CveProveedor > 0 Then + ' importeMovimiento = TxtImporte.Text.ToDecimal + ' importeMX = importeMovimiento + ' End If + + 'Case 28 + 'If RBL.SelectedValue = "FE" AndAlso CvePersonal > 0 Then + ' importeMovimiento = TxtImporte.Text.ToDecimal + ' importeMX = importeMovimiento + ' End If + + 'Case 37 + 'If RBL.SelectedValue = "DD" AndAlso CveProveedor > 0 Then + ' importeMovimiento = TxtImporte.Text.ToDecimal + ' importeMX = importeMovimiento + ' End If + + 'Case 41 + 'If RBL.SelectedValue = "AC" AndAlso CveProveedor > 0 Then + ' importeMovimiento = TxtImporte.Text.ToDecimal + ' importeMX = importeMovimiento + ' End If + + 'Case 50 + 'If RBL.SelectedValue = "DP" AndAlso CveProveedor > 0 Then + ' importeMovimiento = TxtImporte.Text.ToDecimal + ' importeMX = importeMovimiento + ' End If + + 'Case 66 + 'If RBL.SelectedValue = "C" AndAlso CveCliente > 0 Then + ' importeMovimiento = TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal + ' importeMX = importeMovimiento + + ' 'Agregamos el IVA + ' If DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDecimal <> 0 Then + 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, 61, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then + ' MsgError = "Ocurrió un Error al registrar el asiento del ingreso." + ' End If + 'End If + 'If tCveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then + ''Agregamos complementaria + 'Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal + + 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 226, Concepto, FechaMovimiento, IDCtaBeneficiarioComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=0) Then + ' MsgError = "Ocurrió un Error al registrar el asiento del ingreso." + ' End If + + 'End If + + 'End If + + 'Case 30 + ' importeMovimiento = TxtImporte.Text.ToDecimal + ' importeMX = importeMovimiento + + ' If tCveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then + ''Agregamos complementaria + 'Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal + + 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then + ' MsgError = "Ocurrió un Error al registrar el asiento del ingreso." + ' End If + + 'End If + + 'End Select + + 'If importeMovimiento <> 0 Then + 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCuenta:=If(ConceptoContable = 30, CveCuentaConta, CveCuentaBeneficiario)) Then + ' MsgError = "Ocurrió un Error al registrar el asiento del ingreso." + ' End If + 'End If + + 'Next + + 'End If + 'End If + + Protected Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click + Dim IE As New ClsBancos - Dim FechaAplicado As DateTime? = Nothing - - If IE.UpdateBancos_IE(TxtFechaDocumento.Text.ToDate, FechaAplicado, CveIE, TxtFolio.Text) Then - Alert("La Actualización del documento se realizó correctamente", TipoMensaje.MsgInformacion) + Dim FechaAplicado As DateTime? = Nothing + + + Dim CveCuentaDepositoUpdate As Integer = If(DdlCuentaDeposito.SelectedValue.ToEntero.ToEntero = 0, -1, DdlCuentaDeposito.SelectedValue.ToEntero.ToEntero) + + If IE.UpdateBancos_IE(TxtFechaDocumento.Text.ToDate, FechaAplicado, CveIE, TxtFolio.Text, CveCuentaDeposito:=CveCuentaDepositoUpdate, CveCuenta:=DdlCuenta.SelectedValue.ToEntero, + Observaciones:=TxtObservaciones.Text) Then + Alert("La Actualización del documento se realizó correctamente", TipoMensaje.MsgInformacion, $"document.location.href=""IE.aspx?CveIE={CveIE}""") End If - IE.Dispose() + IE.Dispose() + + + End Sub Protected Sub ImgUpdateCuentaDeposito_Click(sender As Object, e As ImageClickEventArgs) @@ -4523,7 +4558,9 @@ Partial Class Bancos_IE UpCuentaDeposito.Update() UpDatos.Update() End Sub - Private Sub RecargaCuentasDepositos() + Private Sub RecargaCuentasDepositos() + + If CveProveedor > 0 Then Dim dr As DataRow = GlobalDTTipoTransacciones.FiltroPrimero(String.Format("CveTipoTransaccion = {0}", DdlTipoTransaccion.SelectedValue)) 'Egs o Ing @@ -4534,6 +4571,12 @@ Partial Class Bancos_IE CargaCuentasDepositos() End If + + + If CveCliente > 0 Then + CargaCuentasDepositoClientes() + End If + End Sub 'Recaga CuentasBancarias de Proveedor @@ -4729,10 +4772,12 @@ Partial Class Bancos_IE If ObjBancos.GetVincularPago(CveProveedor, CveCompra, 2, MinFecha, MaxFecha, UsuarioActual.CveEmpresa, CveIE) Then - GvComplementoPagos.DataSource = ObjBancos.DtResultados - If ObjBancos.DtResultados.Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And UsuarioActual.CveRol = 1 Then + GvComplementoPagos.DataSource = ObjBancos.DtResultados + + If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And UsuarioActual.CveRol = 1 Then DVGenerarComplementoModal.Visible = True - Else + Else + DVGenerarComplementoModal.Visible = False End If Else @@ -4808,14 +4853,25 @@ Partial Class Bancos_IE - Private Function VerificaComplementos() As Boolean + Private Function VerificaComplementos(Validos As Boolean) As Boolean Dim ObjBancos As New ClsBancos Dim Retorno As Boolean = False - If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) And ObjBancos.DtResultados.Rows.Count > 0 Then + Dim Filtro As String = "" + + + If Validos Then + Filtro = " Estatus IN(1,3) " + Else + Filtro = "" + End If + + If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) And ObjBancos.DtResultados.FiltraParametros(Filtro).Rows.Count > 0 Then Retorno = True Else Retorno = False End If + + ObjBancos.Dispose() Return Retorno End Function @@ -4826,207 +4882,11 @@ Partial Class Bancos_IE Exit Sub End If Confirmacion("¿Seguro que desea Cancelar el documento por Sustitución?", "", String.Format("document.location.href=""/Ventas/ClientesAbonar.aspx?CveIESustitucion={0}&CveCliente={1}&CveMoneda={2}""", CveIE, CveCliente, CveMoneda), "") - End Sub - - Protected Sub LnkCancelarComplementoImporte_Click(sender As Object, e As EventArgs) - - If ChkConciliado.Checked Then - Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError) - Exit Sub - End If - - Dim FechaCorteIE As Date = Now - Dim CveMoneda, CveMonedaFiltro, IDPoliza, IdPolizaNueva, FolioPolizaNueva As Integer - Dim FolioIECancelado = "" - Dim ErrorCancelar As Boolean - Dim ObjBancos As New ClsBancos - Dim MensajeError As String = "" - - ObjBancos.IniciaTransacSQL() - Dim ObjAC As ClsContPAQi = Nothing - If UsuarioActual.Empresa.UsaAC Then - ObjAC = New ClsContPAQi(UsuarioActual.Empresa) - ObjAC.IniciaTransacSQL() - End If - - If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then - ComplementoSerieFolio = ObjBancos.DtResultados.FiltroPrimeroValor("FolioFiscal") - End If - - ' Dim FechaCancelacion As DateTime = now ' = ("2019/05/31 23:50").ToDateTime - - If ObjBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, EsCancelacion:=True, CFDIRelacionado:=ComplementoSerieFolio) Then - If ObjBancos.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then - If ObjBancos.DtResultados.Rows.Count > 0 Then - 'FechaCorteIE = ObjBancos.FechaDocumento - CveMoneda = ObjBancos.CveMoneda - CveMonedaFiltro = CveMoneda - IDPoliza = ObjBancos.IDPoliza - FolioIECancelado = ObjBancos.Folio - End If - End If - Else - ErrorCancelar = True - MensajeError = "GENERAR TIMBRE PAGO" - End If - - 'CANCELA IE CONTABILIZADO - If Not ErrorCancelar Then - - If (IDPoliza > 0 AndAlso UsuarioActual.Empresa.UsaAC) Then - - If ObjAC Is Nothing Then - ErrorCancelar = True - End If - - If Not ErrorCancelar Then - Dim dt As DataTable - If ObjAC.GetPoliza(IDPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then - dt = ObjAC.DtResultados - - ' MES ANTERIOR, MOVIMIENTOS CONTRARIOS (NEGATIVOS) - If dt.Rows(0)("FechaPol").ToString.ToDate.Month < TxtFechaDocumento.Text.ToDate.Month Or dt.Rows(0)("FechaPol").ToString.ToDate.Year < TxtFechaDocumento.Text.ToDate.Year Then - IdPolizaNueva = ObjAC.AddPoliza(1, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), 0, 0, UsuarioActual.CveUsuario, TxtFechaDocumento.Text.ToDate) - - If IdPolizaNueva > 0 Then - FolioPolizaNueva = ObjAC.Folio - - 'CREA POLIZA NEGATIVA - For Each dr As DataRow In dt.Rows - If Not ObjAC.AddMovimiento(IdPolizaNueva, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "True", dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), dr("IdSegNeg").ToString.ToEntero, TxtFechaDocumento.Text.ToDate, "") Then - MensajeError = "Error CREA POLIZA NEGATIVA " - ErrorCancelar = True : Exit For - End If - Next - - 'AJUSTA POLIZA - If Not ErrorCancelar Then - If Not ObjAC.AjustaPoliza(IdPolizaNueva) Then - MensajeError = "Error AJUSTA POLIZA " - ErrorCancelar = True - End If - End If - - 'CANCELA IE - If Not ErrorCancelar Then - If Not ObjBancos.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, TxtFechaDocumento.Text.ToDate) Then - MensajeError = "CANCELA IE " - ErrorCancelar = True - End If - End If - - Else - MensajeError = "Error IdPoliza 0 " - ErrorCancelar = True - End If - - Else - - 'LIMPIA POLIZA PONIENDO IMPORTE EN CEROS - For Each dr As DataRow In dt.Rows - If Not ObjAC.UpdateMovimiento(dr("Id").ToString.ToEntero, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "1", 0, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegNeg").ToString.ToEntero, dr("Fecha").ToString.ToDate) Then - MensajeError = "Error LIMPIA POLIZA PONIENDO IMPORTE EN CEROS " - ErrorCancelar = True : Exit For - End If - Next - - 'AJUSTA POLIZA - If Not ErrorCancelar Then - If Not ObjAC.AjustaPoliza(IDPoliza) Then - MensajeError = "Error AJUSTA POLIZA " - ErrorCancelar = True - End If - End If - - 'CANCELA IE - If Not ErrorCancelar Then - If Not ObjBancos.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, TxtFechaDocumento.Text.ToDate) Then - MensajeError = "Error CANCELA IE " - ErrorCancelar = True - End If - End If - - End If - - End If - End If - Else - - If FechaCorteIE.LastDayOfMonth > TxtFechaDocumento.Text.ToDate.LastDayOfMonth Then - 'CANCELA IE MES ANTERIOR - If Not ObjBancos.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FechaCorteIE) Then - ErrorCancelar = True - MensajeError = "Cancelar IE MES ANTERIOR " - End If - Else - 'CANCELA IE MES ACTUAL - If Not ObjBancos.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, TxtFechaDocumento.Text.ToDate) Then - ErrorCancelar = True - MensajeError = "Cancelar IE MES ACTUAL " - End If - End If - - End If - - If Not ErrorCancelar Then - If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then - - Dim CveComplementoPago As Integer = -1 - - If ObjBancos.DtResultados.Rows.Count > 0 Then - 'OBTENEMOS EL UUID DEL COMPLEMENTO A CANCELAR POR SUSTITUCION - CFDIRelacionadoSustitucion = ObjBancos.DtResultados.Rows(0)("FolioFiscal").ToString - CveComplementoPago = ObjBancos.DtResultados(0)("CveComplementoPago").ToString().ToEntero - End If - - 'ACTUALIZA FOLIOS CANCELADOS - If ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"}).Rows.Count > 0 Then - If Not ObjBancos.GetFoliosCancelados(UsuarioActual.CveEmpresa) Then - ErrorCancelar = True - MensajeError = "ACTUALIZA FOLIOS CANCELADOS" - Else - Dim FolioCancelado = $"{FolioIECancelado}_C_{ObjBancos.DtResultados(0)("Cantidad").ToString().ToEntero + 1}" - - If Not ObjBancos.UpdateFolioCancelado(CveIE.ToEntero, Folio:=FolioCancelado) Then - ErrorCancelar = True - MensajeError = "UPDATE FOLIOS CANCELADOS" - End If - End If - End If - - 'ACTUALIZA ESTATUS DE COMPLEMENTO DE PAGO A CANCELADO = 2 - If Not ErrorCancelar And CveComplementoPago > 0 Then - If Not ObjBancos.UpdateComplementoPagoCancelado(CveComplementoPago, 2, UsuarioActual.Empresa.CvePAC, UsuarioActual.CveEmpresa, DateTime.Now) Then - ErrorCancelar = True - MensajeError = "ACTUALIZA ESTATUS DE COMPLEMENTO DE PAGO A CANCELADO = 2" - End If - End If - End If - End If - End If - - - If Not ErrorCancelar Then - If ObjAC IsNot Nothing Then ObjAC.Commit() - ObjBancos.Commit() - - Dim Msg As New StringBuilder - Msg.Append("El movimiento bancario quedó cancelado exitosamente.") - - If IdPolizaNueva > 0 Then Msg.AppendFormat("

    Ver Póliza de cancelación", IdPolizaNueva) - Alert(Msg.ToString, TipoMensaje.MsgInformacion) - Else - If ObjAC IsNot Nothing Then ObjAC.RollBack() - ObjBancos.RollBack() - Alert("El movimiento bancario no se pudo cancelar. Por favor vuelva a intentar.", TipoMensaje.MsgError) - GuardaLog(MensajeError) - End If - - If ObjAC IsNot Nothing Then ObjAC.Dispose() - ObjBancos.Dispose() - End Sub + End Sub + + #End Region - + #Region " ACTUALIZAR TIPO CAMBIO PREPOLIZA " Private Sub InicializaActualizarTC() If CveIE > 0 And DdlMoneda.SelectedValue.ToEntero = 2 And CvePrePoliza > 0 Then @@ -5581,6 +5441,10 @@ Partial Class Bancos_IE Protected Sub LnkCancelarComplemetno_Click(sender As Object, e As EventArgs) + If ChkConciliado.Checked Then + Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow) @@ -5627,46 +5491,125 @@ Partial Class Bancos_IE End Sub - Protected Sub BtnModalCancelarComplemento_Click(sender As Object, e As EventArgs) + Protected Sub BtnModalCancelarComplemento_Click(sender As Object, e As EventArgs) + + + If ChkConciliado.Checked Then + Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + TxtFechaCancelacion.Text = TxtFechaCancelarComplemento.Text + CancelarIE(True) + + End Sub + + Protected Sub LnkCancelarComplementoImporte_Click(sender As Object, e As EventArgs) + + If ChkConciliado.Checked Then + Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + + Dim ObjBancos As New ClsBancos + Dim Respuesta As Boolean = False + Dim DTComplementos As New DataTable - If RdlCancelarComplemento.SelectedValue.ToEntero = 1 Then - - Dim ObjCancelacion As New Timbrado - Dim ObjBanco As New ClsBancos - - If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then - - If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then - CargaComplementosPago() - - RegistraScript("$('#ModalCancelarComplemetno').modal('hide');") - Alert("El complemento se cancelo correctamente.") - End If - - Else - Alert("Se presento un error al cancelar el complemento.") - End If - - ObjBanco.Dispose() - - Else - - TxtFechaCancelacion.Text = TxtFechaCancelarComplemento.Text - CancelarIE(True) + If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then + DTComplementos = ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ") End If - End Sub - - Protected Sub RdlCancelarComplemento_SelectedIndexChanged(sender As Object, e As EventArgs) - - - If RdlCancelarComplemento.SelectedValue.ToEntero = 1 Then - DivFechaCancelación.Visible = False - Else - DivFechaCancelación.Visible = True - End If - - UpModalCancelarComplemetno.Update() - - End Sub + ObjBancos.Dispose() + + If DTComplementos.Rows.Count = 1 Then + + CveComplementoPagoCancelar = DTComplementos.Rows(0)("CveComplementoPago").ToString.ToEntero + FolioFiscalCancelar = DTComplementos.Rows(0)("FolioFiscal").ToString + RFCReceptorCancelar = DTComplementos.Rows(0)("RFCReceptor").ToString + CvePACCancelacion = DTComplementos.Rows(0)("CvePAC").ToString.ToEntero + + RegistraScript("$('#ModalCancelarComplemetno').modal('show');") + DivFechaCancelación.Visible = True + UpModalCancelarComplemetno.Update() + + Else + If DTComplementos.Rows.Count = 0 Then + Alert("No hay complementos vigentes") + Else + Alert($"Existe mas de un complemento vigente, complementos vigentes: { DTComplementos.Rows.Count }") + End If + End If + + + End Sub + + + Protected Sub BtnEditar_Click(sender As Object, e As EventArgs) + + + BtnActualizar.Visible = True + BtnEditar.Visible = False + UpGuardar.Update() + + ControlesEdicion(True) + + End Sub + + Private Sub ControlesEdicion(mostrar As Boolean) + + + If mostrar Then + + DdlTipoTransaccion.Enabled = True + LblCuenta.Visible = False + DdlCuenta.Enabled = True + DdlCuenta.Visible = True + TxtFolio.Enabled = True + TxtObservaciones.Enabled = True + UpDatos.Update() + + CargaCuentasDepositoClientes() + + + + + + + + End If + + End Sub + + Private Sub CargaCuentasDepositoClientes() + + If DdlTipoTransaccion.SelectedValue = "9" And CveCliente > 0 Then + + trCuentaDeposito.Visible = True + DdlCuentaDeposito.Enabled = True + + + Dim Dep As New ClsGenerales + If Dep.GetCuentasDepositos(CveCliente:=CveCliente) Then + + DdlCuentaDeposito.DataSource = Dep.DtResultados + If Dep.DtResultados.Rows.Count > 0 Then + + trCuentaDeposito.Visible = True + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + + End If + + End If + + Dep.Dispose() + DdlCuentaDeposito.DataBind() + UpCuentaDeposito.Update() + + + + End If + + End Sub + End Class \ No newline at end of file From 41e39d1c775ca63cb65cf657ef3bfd2c4ef1becc Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 21 Aug 2019 10:05:58 -0500 Subject: [PATCH 3/8] Productos y servicios formato de excel reparado en saldos iniciales --- .../Grales/SaldosIniciales/FormatoPS.xlsx | Bin 8624 -> 8674 bytes General/SaldosIniciales.aspx.vb | 104 +++++++++--------- 2 files changed, 55 insertions(+), 49 deletions(-) diff --git a/Empresas/Grales/SaldosIniciales/FormatoPS.xlsx b/Empresas/Grales/SaldosIniciales/FormatoPS.xlsx index d25e3f550584be1119557dd3522d85284602d087..9daf55123015ecd6c1c73050921f3b78bdfb7c07 100644 GIT binary patch delta 3307 zcmZ9PXH*l4vV{YoSAozHFhsf_0RcgXNbl0C^bXRbgA${Fgd#1GcIlxhg7hY$(m|S_ zbc7IkFCrasJ@>tJ&boJg&04d6&bMbzl?p+n>XHiet2(GcmJ|SpCIbK%0RTX#7d*t* z-_z08*HbLi+pFBf#&=pAgv_fW+MjYCC_QIpDpR(MmwI42QxE@W&8334NSPWU{nyca z2=-M%1w5xA{lr#YLE$*tQyjLhI31CZ)b+bBATudmIFXy<&q|iS<_+C9_cEq!@Y?;b5b{;qJ|2b+ z!+b^eX;{&bG>2;o>nl5mneclgrDHQ$(xDAZJ4D%dOZqX*)~B0K2i`El?kLlsyp)6u zMQyh0s;g2gj$q*2WQlN+3bNYn%!*xJ6V$hqa6?}Zh2f7>M3&FXCH1--$aiM4sQ6hnoN>0pk~jy zBbIzF0k>s*ipg2Lp9$Rl7`O*_rWhAu$p>>Uid`9JPStrV2)211>vRk7qumMujNL%+ z&VAAMGwW_C=Qj%dGISreX0@b+UDC8m7#q-s!^a^zG=)FZ2(=Ll9=}fc~_LZyCQ192eeuCfr+7f zRTtg2ifLK#IyiD^U!gR>lw&NVT{0CkQ&K^0OAw^uXrH>xc&>3yLj3;9VOX%kaWeBa zYrnnm=MM5x#Y26rWHlP^7AniR`C1LU7A?B1blFy2&!f6r6BX|7%yhBh@rV1nuDAl-6OLJ=qWVTbf+77m%FNHQpuw~L!)F9|Xx(aoe(n5@e!8Sj z{f35Q$MMRb!TM>gYg**2GuX=4{s*YdzrGVnK4;=Ksqh2p%+B)88km! zEDjFtYRQ^0wv5C1eX9!~U*FtqvhH16KKQ_7v_KDhbM79e;|m=$L1g1~^%)lGOpN-c zvz0~_$E9!e8JEY~GvNjan(awO)KW^ovmzSnZ`X#>G?E^yzS!v8y6~p@i-Y#67$bn2SJctVrf1V;hbmf zvtKfLCXL%CI9$a9wa`78vr;b7b5i%&zK$t-Qj9`zXxU6lMSD?J(J z*!dB8368d@%gSZ{;TE%VG99)pI3hvr!%K}~+Owb<9x{r47S1j`ZW77Xlbyxw5>3-D zX4~`v`k{dFLp7!fMp~v2cTzD2D4NcD(u}2;$|C;YK1&SWHbdVmRn|r zt4Z5kub4MOQ}(Rct8n`E>&s`CEz5>klvyOQ5p*wYMh2Sw+cH==g?xZE$}fmT(?UCY zk5It_X%wMGci(2yw?A$NrIS~1vaN72Y?7< zu~@W~PXue!32JCNR{4k^8GPkd#Y)J7L4LR7@7ZVuR0*OMaTkgP;M! z&GYw;F~}2g!~KT$YvL}DaQ>BABhcD| zHx=`y1dsFel}Mr6FDl!}lTu|J*pAP(A@zDN#~bm@_Oy8-)q-)f!nIRQv|-&fZpGAZ z$q6W_ZD)6|=bl7{N__5;x8k>TPCuXbzga5IH>0}zHg0b`URJ1v zj#j=|bJ^$A!rCR%JGp3ri*#;dar*7;bh{HJ=BoXK^^=O&Bhi6fyCE)X1I)R)H&v-d zNj0)^RRu^nker%bS_JW3>y*k~RBuK$fa|EOp{ z*j^qe_0Bu@$9vzo_uY#}R3IuYZ(yh$GLl4z0RSIT0Dukv0C=Otyxcrc zHg0YxQEwOYJEI}j&*GpK)-@GSi=waEORf%&_!&_=k6@5=T(lU<*`@N${bZao7x0|gci7wh}xZvAP8Ii7m=p7avd zFsDS_~>KttXQhT2`Yu+W~`5_6RYd5u8}Ss7__amj0OJ0wV}7`IfPlbOtu zRbE?JVU%h-NRSKC)CVvSkcKiaJyzc`L#=??qJLD$ekq~0^nr}lgxoMdy^9d*HlO(0>S=y@Ie zV(*$qX;>5$7=w-<(Ul?9iO26YJruH{sYvQ=d+ca&Nw}kPTWSL*}z; zBS+kaING!P#1W<9`R+h)#Z;Jn)jA`HL8?$pH)9(jmz=2qhlP$NH569}CYrvw3vE!a~D1D7ykE zcI1$-Yv4i~Gw(tn!41EWm0K$DLFvZdjeMM&QnMHkk)?C7yllmT47gm>vgT*#NRT|W z08yV&4vY23Q0fc!cihinEj1Ud5TBCtJ>4JmuY9|3=EZfQ$czYMY^itZJ}U*T))*NK z&1DjqK{wM=zQTqci&Ft$x+qx8iDn}sKSBcjnejW_-2nQ~OHzuhmIEWqF}DPXR!ESN z2p75R{Vq)GIqoYgk&i-_n#TTN7e38t8mwi%+6TK|-TVH)aaPGs$1!Uu;H9EY zmrqh<{*MG^$}pu+A+|g1c%b;XSOK8weH;>vZ?0e_u2xH z;m~cIL+ftY=doj&dZOqt*>9$z(a$`y_-0Q0oa{nIXFq+~=gey@6 zpY_%VZO^LjM_!+%@;j9)K)Htx!mL`*`#<>hHc~_^nu#vjfk@C2Q1yx?SZQ8*%e{I9 zl}9P(xg+ghF5gpl3Css~L~h$aznZxwOXH+>Sls;?sgG+m$U4zySC+5p%a`&hFtN`j z4x=uP#!4*|%NK4b6y&(*buLkQYlk>Ezz`~!2oBWSTo(1=!xUl|JgMX@~~Wi?a!L*i;ZVE+28- z_*6HQA6cM%^4+AXmDtU#&@l|tW-h8cY@CYR((US*gv8y)k0$mE>h=!xI6oNfls5~2 z%vZQIST0}yzCs+MGQp;gp4uoLcnO$>k!7T`fqioBd{vGX_=02z4UnMZ#VBI_>q#!uUlUFF_Gy{{_GY$vvm~|h>2=5_74p+7GywY)6-KNCEw6dnY~~I z{1ONyvM?5gzP6iHAl88uiW&H2F0KEXi+YAv*R%NEr&wZORGC8*$78ko`g~4`KhLRa z+4LWf?)2~ux-AOF>6UzU;2WTiVQw;;kdF`yOx)B?I+wXTd*UTk*sWk}uf4%AeMFtI z=(^Z$npNXd1$@EVuQw+nl39{s?dU@kH4A^JhgWHojrv0=-5=w4n?$$-n?#KjOb?5S zOq8Y8@}vnL@$9fJIa5_#=U^a7{9|j0C9jGr1OMqG%>Fg)6wRl%ccYB%e;JX1@kNP2 z2nDjj$?^nGCHt0@GCC4pzJ@X5RZ)0Th11{ihdgE>{WXv6hz0gg0%Qj=tg-R#_KQc)g;8}4jPX-9si6pm!&4bJ4koxjnggPw$T)iat!E)7d6x^;LYk(yE@ zMwWNgsu^7HX)Z5x$};(ttrUOb1XjzN#Mt+D(oH)}F{3aO8Qp(nMC>Qt*Pxu<4%z+k z!4_9mVzZUl*CC%a{9WRikH}DsUB^u2vi!q3aTHdfZeRkMri&jqQc-||r#-E<6yA3% z?Lg5?Mc)=B`($tD>yo;JrPbLi*6fc{ox4%!E7G+ct|^eGy6mTO$&Cpq;TOJ$;JZNd z1bPBOZQM~E4JLIxHn5vif6nOKwCIV><7? z-%iN8alQL>7( zbz%Nal1R@-&I!MVu^n|TSlLaPAeA1slD^e|sfO`|QqmmB)F29~d9bNyLs`zqK5jCr z{QF3GXMr4Ze>39jz09e3jii=>cRJ^l4yk>6CxDC{2$Oy1zR_Y&h(2aWhUI>e$dza{ zFJ#XTN!V&-l+W0`6&|GEe4*PCIUuYvkd8yANGkBX2H5TT|CAVX`}ccEUr`*Qt5Z4o zi7=zrs;2JUB{`uD+KJ8Fp$mf>OW?pBGZg?0KL^uuFbq^>Gb& zAnwNzBhuds-LfWb$BKZhR^O$hmNgdL(mboUe151Jr416=ldyv6zWSEsbE#Qwh?Yp` z5}x7tYOoVI7iuuOQyHlApDDvRDXq3$+cIQ{?nq8{K_zt4RmJKWcNGULvzcc+jMgbM3X)N0yu zx2k!>jP>#SVfn}M_bUyn_CH;XsajyCUIH?uqF|SwSR`bY;&;Z!3P7bfeIva0MPsgzOD`#u|J>?&i`&Y0KoP?0E`uj yV&%Z<-UM;}7T@*pr~e;lh#l*9lNbDpJ_*+&v0f)9(Ek92*v6Z@WE_xR&3^z@7x_E@ diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index cb02b6f95..c206e68f1 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -489,16 +489,17 @@ Partial Class General_SaldosIniciales Dim Codigo As String = Row("Codigo").ToString Dim Descripcion As String = Row("Descripcion").ToString Dim TipoPS As String = Row("Tipo").ToString.Trim.ToUpper - Dim CodigoBarras As String = Row("Codigo Barras").ToString + Dim CodigoBarras As String = Row("Código Barras").ToString Dim UnidadMedida As String = Row("Unidad Medida").ToString.Trim Dim Clasificacion As String = Row("Clasificacion").ToString.Trim Dim Marca As String = Row("Marca").ToString.Trim - Dim RinTamaño As String = Row("Tamaño de Rin").ToString.Trim - Dim Medida As String = Row("Medida").ToString.Trim - Dim SATClavePS As String = Row("Codigo SAT").ToString.Trim - Dim SATClaveUnidadMedida As String = Row("Clave Unidad").ToString.Trim - Dim Linea As String = Row("Linea").ToString.Trim - Dim Modelo As String = Row("Modelo").ToString.Trim + 'Dim RinTamaño As String = Row("Tamaño de Rin").ToString.Trim + 'Dim Medida As String = Row("Medida").ToString.Trim + Dim SATClavePS As String = Row("Código SAT").ToString.Trim + 'Dim SATClaveUnidadMedida As String = Row("Clave Unidad").ToString.Trim + 'Dim Linea As String = Row("Linea").ToString.Trim + 'Dim Modelo As String = Row("Modelo").ToString.Trim + Dim Tamaño As String = Row("Tamaño").ToString.Trim Dim CvePS As Integer = DTPS.FiltroPrimeroValor("CvePS", $"Codigo = '{Codigo}'").ToString.ToEntero @@ -506,6 +507,7 @@ Partial Class General_SaldosIniciales Dim CveClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}'").ToString.ToEntero Dim CveSATPS As Integer = GlobalDTPSATPS.FiltroPrimeroValor("CveSATPS", $"SATClavePS = '{SATClavePS}'").ToString.ToEntero + Dim CveTamaño As Integer = GlobalDTAcumTamaños.FiltroPrimeroValor("CveTamaño", $"Tamaño = '{Tamaño}'").ToString.ToEntero If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then If ObjClas.AddClasificaciones(Clasificacion, "", -1, "-1", -1, "-1", -1, "-1", @@ -537,56 +539,58 @@ Partial Class General_SaldosIniciales End If Dim CveMedida As Integer = -1 - If Medida <> "" AndAlso DtMedidas IsNot Nothing Then - CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero - If Not CveMedida > 0 Then - If ObjGral.AddMedidas(CveClasificacion, "", Medida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then - DtMedidas = ObjGral.DtResultados.Copy - CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero - End If - End If - End If - End If + 'If Medida <> "" AndAlso DtMedidas IsNot Nothing Then + ' CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero + ' If Not CveMedida > 0 Then + ' If ObjGral.AddMedidas(CveClasificacion, "", Medida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then + ' DtMedidas = ObjGral.DtResultados.Copy + ' CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero + ' End If + ' End If + ' End If + 'End If - Dim CveRinTamaño As Integer = -1 - If RinTamaño <> "" AndAlso DtRinTamaño IsNot Nothing Then - CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero - If Not CveRinTamaño > 0 Then - If ObjGral.AddRimTamanios(CveClasificacion, "", RinTamaño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then - DtRinTamaño = ObjGral.DtResultados.Copy - CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero - End If - End If - End If - End If + 'Dim CveRinTamaño As Integer = -1 + 'If RinTamaño <> "" AndAlso DtRinTamaño IsNot Nothing Then + ' CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero + ' If Not CveRinTamaño > 0 Then + ' If ObjGral.AddRimTamanios(CveClasificacion, "", RinTamaño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then + ' DtRinTamaño = ObjGral.DtResultados.Copy + ' CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero + ' End If + ' End If + ' End If + 'End If - Dim CveModelo As Integer = -1 - If Modelo <> "" AndAlso DtModelos IsNot Nothing Then - CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero - If Not CveModelo > 0 Then - If ObjGral.AddModelos(CveMarca, "", Modelo, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then - DtModelos = ObjGral.DtResultados.Copy - CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero - End If - End If - End If - End If + 'Dim CveModelo As Integer = -1 + 'If Modelo <> "" AndAlso DtModelos IsNot Nothing Then + ' CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero + ' If Not CveModelo > 0 Then + ' If ObjGral.AddModelos(CveMarca, "", Modelo, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then + ' DtModelos = ObjGral.DtResultados.Copy + ' CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero + ' End If + ' End If + ' End If + 'End If If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then Alert("No se encontró la Clasificación: " + Clasificacion, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveUnidadMedida > 0 AndAlso UnidadMedida <> "" Then Alert("No se encontró la Unidad de Medida: " + UnidadMedida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveSATPS > 0 AndAlso SATClavePS <> "" Then Alert("No se encontró la Clve SAT PS: " + SATClavePS, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveMarca > 0 AndAlso Marca <> "" Then Alert("No se encontró la Marca: " + Marca, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - If Not CveMedida > 0 AndAlso Medida <> "" Then Alert("No se encontró la Media: " + Medida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - If Not CveRinTamaño > 0 AndAlso RinTamaño <> "" Then Alert("No se encontró el Tamaño: " + RinTamaño, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + 'If Not CveMedida > 0 AndAlso Medida <> "" Then Alert("No se encontró la Media: " + Medida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + 'If Not CveRinTamaño > 0 AndAlso RinTamaño <> "" Then Alert("No se encontró el Tamaño: " + RinTamaño, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + 'If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If CvePS > 0 Then + 'If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, + ' CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, + ' CveModelo:=CveModelo) Then If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, - CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, - CveModelo:=CveModelo) Then + CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) Then ErrorPS = True Codigo.GuardaLog Exit For @@ -594,9 +598,11 @@ Partial Class General_SaldosIniciales Contador += 1 End If Else + 'If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, + ' CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, + ' CveModelo:=CveModelo) <= 0 Then If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, - CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, - CveModelo:=CveModelo) <= 0 Then + CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) <= 0 Then ErrorPS = True Codigo.GuardaLog Exit For From 93656323f0e58e16c4f8dab7bfcd28ce5103918f Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 21 Aug 2019 11:00:49 -0500 Subject: [PATCH 4/8] =?UTF-8?q?haciendo=20dinamico=20la=20solicitud=20de?= =?UTF-8?q?=20los=20campos=20rin=20tama=C3=B1o=20marca=20y=20medida?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- General/SaldosIniciales.aspx.vb | 110 ++++++++++++++++---------------- 1 file changed, 55 insertions(+), 55 deletions(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index c206e68f1..d5bdb3a1b 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -493,12 +493,12 @@ Partial Class General_SaldosIniciales Dim UnidadMedida As String = Row("Unidad Medida").ToString.Trim Dim Clasificacion As String = Row("Clasificacion").ToString.Trim Dim Marca As String = Row("Marca").ToString.Trim - 'Dim RinTamaño As String = Row("Tamaño de Rin").ToString.Trim - 'Dim Medida As String = Row("Medida").ToString.Trim + Dim RinTamaño As String = If(Row.Table.Columns.Contains("Tamaño de Rin"), Row("Tamaño de Rin").ToString.Trim, "") + Dim Medida As String = If(Row.Table.Columns.Contains("Medida"), Row("Medida").ToString.Trim, "") Dim SATClavePS As String = Row("Código SAT").ToString.Trim - 'Dim SATClaveUnidadMedida As String = Row("Clave Unidad").ToString.Trim - 'Dim Linea As String = Row("Linea").ToString.Trim - 'Dim Modelo As String = Row("Modelo").ToString.Trim + Dim SATClaveUnidadMedida As String = If(Row.Table.Columns.Contains("Clave Unidad"), Row("Clave Unidad").ToString.Trim, "") + Dim Linea As String = If(Row.Table.Columns.Contains("Linea"), Row("Linea").ToString.Trim, "") + Dim Modelo As String = If(Row.Table.Columns.Contains("Modelo"), Row("Modelo").ToString.Trim, "") Dim Tamaño As String = Row("Tamaño").ToString.Trim Dim CvePS As Integer = DTPS.FiltroPrimeroValor("CvePS", $"Codigo = '{Codigo}'").ToString.ToEntero @@ -539,70 +539,70 @@ Partial Class General_SaldosIniciales End If Dim CveMedida As Integer = -1 - 'If Medida <> "" AndAlso DtMedidas IsNot Nothing Then - ' CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero - ' If Not CveMedida > 0 Then - ' If ObjGral.AddMedidas(CveClasificacion, "", Medida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - ' If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then - ' DtMedidas = ObjGral.DtResultados.Copy - ' CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero - ' End If - ' End If - ' End If - 'End If + If Medida <> "" AndAlso DtMedidas IsNot Nothing Then + CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero + If Not CveMedida > 0 Then + If ObjGral.AddMedidas(CveClasificacion, "", Medida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then + DtMedidas = ObjGral.DtResultados.Copy + CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero + End If + End If + End If + End If - 'Dim CveRinTamaño As Integer = -1 - 'If RinTamaño <> "" AndAlso DtRinTamaño IsNot Nothing Then - ' CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero - ' If Not CveRinTamaño > 0 Then - ' If ObjGral.AddRimTamanios(CveClasificacion, "", RinTamaño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - ' If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then - ' DtRinTamaño = ObjGral.DtResultados.Copy - ' CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero - ' End If - ' End If - ' End If - 'End If + Dim CveRinTamaño As Integer = -1 + If RinTamaño <> "" AndAlso DtRinTamaño IsNot Nothing Then + CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero + If Not CveRinTamaño > 0 Then + If ObjGral.AddRimTamanios(CveClasificacion, "", RinTamaño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then + DtRinTamaño = ObjGral.DtResultados.Copy + CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero + End If + End If + End If + End If - 'Dim CveModelo As Integer = -1 - 'If Modelo <> "" AndAlso DtModelos IsNot Nothing Then - ' CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero - ' If Not CveModelo > 0 Then - ' If ObjGral.AddModelos(CveMarca, "", Modelo, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - ' If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then - ' DtModelos = ObjGral.DtResultados.Copy - ' CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero - ' End If - ' End If - ' End If - 'End If + Dim CveModelo As Integer = -1 + If Modelo <> "" AndAlso DtModelos IsNot Nothing Then + CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero + If Not CveModelo > 0 Then + If ObjGral.AddModelos(CveMarca, "", Modelo, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then + DtModelos = ObjGral.DtResultados.Copy + CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero + End If + End If + End If + End If If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then Alert("No se encontró la Clasificación: " + Clasificacion, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveUnidadMedida > 0 AndAlso UnidadMedida <> "" Then Alert("No se encontró la Unidad de Medida: " + UnidadMedida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveSATPS > 0 AndAlso SATClavePS <> "" Then Alert("No se encontró la Clve SAT PS: " + SATClavePS, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveMarca > 0 AndAlso Marca <> "" Then Alert("No se encontró la Marca: " + Marca, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - 'If Not CveMedida > 0 AndAlso Medida <> "" Then Alert("No se encontró la Media: " + Medida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - 'If Not CveRinTamaño > 0 AndAlso RinTamaño <> "" Then Alert("No se encontró el Tamaño: " + RinTamaño, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - 'If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + If Not CveMedida > 0 AndAlso Medida <> "" Then Alert("No se encontró la Media: " + Medida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + If Not CveRinTamaño > 0 AndAlso RinTamaño <> "" Then Alert("No se encontró el Tamaño: " + RinTamaño, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If CvePS > 0 Then - 'If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, - ' CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, - ' CveModelo:=CveModelo) Then If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, - CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) Then + CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, + CveModelo:=CveModelo) Then + 'If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, + ' CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) Then ErrorPS = True - Codigo.GuardaLog - Exit For - Else - Contador += 1 + Codigo.GuardaLog + Exit For + Else + Contador += 1 End If Else - 'If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, - ' CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, - ' CveModelo:=CveModelo) <= 0 Then If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, - CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) <= 0 Then + CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, + CveModelo:=CveModelo) <= 0 Then + 'If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, + ' CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) <= 0 Then ErrorPS = True Codigo.GuardaLog Exit For From ea523387a9d56f8b628761998f05e54d66b88344 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 21 Aug 2019 10:25:52 -0700 Subject: [PATCH 5/8] correcion IE cancelado --- Bancos/IE.aspx.vb | 66 +++++++++++++++++++++++++++++------------------ 1 file changed, 41 insertions(+), 25 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index fffc527d3..986e9c64a 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -408,12 +408,27 @@ Partial Class Bancos_IE Set(value As Integer) ViewState("IdCtaAnticipoExtranjera") = value End Set - End Property - - - + End Property + + Private Property CveEstatusIE As Integer + Get + If ViewState("CveEstatusIE") Is Nothing Then + Return -1 + Else + Return ViewState("CveEstatusIE").ToString.ToEntero + End If + End Get + Set(value As Integer) + ViewState("CveEstatusIE") = value + End Set + + End Property + + + + #Region "CANCELACIÓN COMPLEMENTO MODAL V2" - + Property CveComplementoPagoCancelar As Integer Get If ViewState("CveComplementoPagoCancelar") Is Nothing Then @@ -855,6 +870,8 @@ Partial Class Bancos_IE LblRegistroFecha.Text = ObjIE.FechaIng.ToShortDateString LblRegistroUsuario.Text = ObjIE.Usuario + CveEstatusIE = ObjIE.CveEstatusIE + Select Case ObjIE.CveEstatusIE Case 1 If Not ObjIE.FueConciliado Then @@ -954,6 +971,7 @@ Partial Class Bancos_IE LnkComplementoPago.Visible = True + If ObjIE.CveEstatusIE = 1 AndAlso ObjIE.CveIECancelado > 0 Then 'cuando es cheque devuelto TabCancelacion.Visible = True @@ -1060,14 +1078,12 @@ Partial Class Bancos_IE If Not ChkConciliado.Checked Then - - If Not VerificaComplementos(True) Then + If (Not VerificaComplementos(True)) And UsuarioActual.TienePermisoProceso(99) And ObjIE.CveEstatusIE <> 2 Then BtnEditar.Visible = True End If UpGuardar.Update() - End If @@ -4757,31 +4773,31 @@ Partial Class Bancos_IE End If ObjOI.Dispose() Return "" - End Function + End Function #End Region - + #Region " COMPLEMENTOS PAGO " - Private Sub CargaComplementosPago() - + Private Sub CargaComplementosPago() + + + + Dim ObjBancos As New ClsBancos If UsuarioActual.CveRol = 1 Then GvComplementoPagos.Columns(7).Visible = True - End If - + End If + + DVGenerarComplementoModal.Visible = False If ObjBancos.GetVincularPago(CveProveedor, CveCompra, 2, MinFecha, MaxFecha, UsuarioActual.CveEmpresa, CveIE) Then GvComplementoPagos.DataSource = ObjBancos.DtResultados - If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And UsuarioActual.CveRol = 1 Then - DVGenerarComplementoModal.Visible = True - Else - - DVGenerarComplementoModal.Visible = False + If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And UsuarioActual.CveRol = 1 And CveEstatusIE <> 2 Then + DVGenerarComplementoModal.Visible = True End If - Else - DVGenerarComplementoModal.Visible = False + Else GvComplementoPagos.DataSource = Nothing End If @@ -4801,8 +4817,8 @@ Partial Class Bancos_IE Protected Sub GvComplementoPagos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvComplementoPagos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - e.Row.Cells(3).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) - e.Row.Cells(4).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) + e.Row.Cells(3).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) + e.Row.Cells(4).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) If e.Row.DataKey("Estatus").Contiene("1", "3") Then e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = True @@ -4830,8 +4846,8 @@ Partial Class Bancos_IE If ObjBanco.GeneraTimbrePago(CveIE, -1, UsuarioActual, -1, FolioFiscalPadre, EsRegeneracion:=True) Then ObjBanco.Commit() Str.AppendFormat("Folio: {0}  ", ObjBanco.ComplementoSerieFolio) - Str.AppendFormat("XML        ", Encripta(String.Format("OP=Pag&EXT=xml&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%")))) - Str.AppendFormat("PDF   ", Encripta(String.Format("OP=Pag&EXT=pdf&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%")))) + Str.AppendFormat("XML    ", Encripta(String.Format("OP=Pag&EXT=xml&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%")))) + Str.AppendFormat("PDF   ", Encripta(String.Format("OP=Pag&EXT=pdf&CveIE={0}&SerieFolio={1}", gvr.DataKey("CveIE").ToEntero, ObjBanco.ComplementoSerieFolio.Replace("&", "%26%")))) 'Str.Append($"{gvr.DataKey("Folio")}   {gvr.DataKey("NombreCliente")}
    ") PDFReciboDePagos(-1, gvr.DataKey("CveIE").ToEntero, ObjBanco.CveComplementoPago, False) Alert(Str.ToString, TipoMensaje.MsgInformacion) From 9b27efb8ec0fc1927b3f886255c3514dcc884ff9 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 21 Aug 2019 11:21:05 -0700 Subject: [PATCH 6/8] Correcion mensaje de acciones Cancelar complemento --- Bancos/IE.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 8220a8417..e1d841d00 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -50,9 +50,9 @@ Refacturar Complemento
  • - Cancelar Complemento + Cancelar Complemento - <%--data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si" Style="color: #686868;"> + <%-- data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si" Style="color: #686868;">
    • From 925ac84761af2172733b90687614bb18abbd7df8 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 21 Aug 2019 11:29:48 -0500 Subject: [PATCH 7/8] Nueva columna agregada a FormatoClientes.xlsx --- .../SaldosIniciales/FormatoClientes.xlsx | Bin 8929 -> 8857 bytes General/SaldosIniciales.aspx.vb | 15 +++++++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/Empresas/Grales/SaldosIniciales/FormatoClientes.xlsx b/Empresas/Grales/SaldosIniciales/FormatoClientes.xlsx index 251dc040f912947c37c80f3a7c6c8b835f6449ea..dbc90a51dc5a84275e5ec367c296d0d3d1527a6f 100644 GIT binary patch delta 3068 zcmZ9Oc{CIZ7sdw@WmmRl#28t|k|k@DZ7gHWmR*<@6JszK6%CSY8Z<-5t|8eP+1Hwn z?AuTgvSb;_S|So(@B5zfcE0cabye*S=oUBA>LA<&v!ZL{v1eu`dn^@=c zt$<{|n7{lAC;6_z^{Q=+P+&TLT=jYLq!&D9B*m!t8U~P}$$wa>u|E zzU5<6jK4i>3&5MakjBhB^hNH1kvl-9nm(Voh)mWf(2E+bF*IHCRq79w6V3x)fmKGZc{c)+x823faB#a-wE*_jHrc!VB`3wz z4cL!HqHPPEnkG<4FNvyELscCpGK{qXSlyXfu_0lPAAY1$ronz+X2mS`VZFiEXI7!i z*Y}w0v56FT^f!WASnkbjW;?rYGg5vIR&wHjYGx!&3T@$;08a4KLWIP{dXP@u={1{T zG3KMPvkE)qN z`PHLX@bw-pDN_|&?+mXQyPofG_DP4K}lWtn(!z{sjCtE^aUGuXI z3KP7b5n{Y$(30H|qWw!g=;}39QKEs{#*%;IxPT}+VZNkRQj_N2EIQ<4Qs`Qb8IX?O z3{?~Ie)j{BV0nx+G|fce=lnTV(nseJ&b4HrEe8ixpTk+Uqv^d+INiwjl`$d=d)h;? zH9%Q-heUUn0!!X+&@f-x@(ydvP%Li89Mz}Me{TN(smgOu59!R4^WdPNdb@z}33vT& zA)@9>?xbd^87A^07XB0Bf=z3pOaOp9nZNz{jYTNi0Uxm@?;Y-C?j6}zM{KT~@ir)SxoTbP!W6QaQdfJ=U7>Ql z*37%dc?ej07)iM~uxOMRZIR^Q^(;o9ks+I97w4&1J(2gD&M%_cm0)F%wwY8=%ic74go%-lvN+^ zM^w)P&o^Cp>o2GL%x^3M=^OAJwHwIp=Zy3W)S1s7_Py@!_>)k#x2;pUq3 zec#*3Md;57Pi{_S3&5gxJkv(Fm>jkJKB=9GKgzHJ9#))k!}k`D{%7-V` zAQ!FhRu?+|FHQG*8I@Mm<9RWC3Az`~Cg@r|meW0*Bad+`^8!m^AbT$aegL9&OOC$ zT*O6vSgh=>;1VEhsTkz0K?#pzq|4ommKn*5Z-kv~=TvA~il~^}=kWAzyBjxL&*fe- ze*QADAeFB-wX`@%0%6P{kM^LSJVZ3gQ1Q`EowQz_T-ME)37VUJtaC2wt=l3t#BJX`FZUp+A0+ zK5eUcXoWT7w}e=Bk9_UQ)5Lo z!6aHP%lrG%t!Ds^L>8)gdfZMoR+@HPwDr@T51#M6&`|p$aM*ZN7uQoe4VgxIhK?L>Dl&Uud* zPvzLG!rv<1gh-c8=S5{Zckh4aT!4?oolg<+IwO;5_)#x(e{3Mf*rX(PEw(6kGeq)A zn9)X+Q(Gk~xr~+p*!?lJ2fe{)pOIATJCSYIg-s@< zBaXje%yUOg(c(9ZU8|vB2opY>WMh3_iT}ZjBZ$Dw+A>GY7&Z8>SCCb zhw{uXu$i8d;(j6)H%MpA~z-@^m$it5qdX_Hz<(<}*L8 zS1_E{WS7=UAFo5dEso&K%bTtLK97BMOC|&-$6eA5d^QEZ*1{fJn3t&Nz(N>h86m#- z&lSKxyu5nWciDE+S6_19vWW#in8hA&(}sF|_o?!ZC8pj%;LfvWzo{T#38?Hg98z(= z*~d^nC-%rXJ8sK8BZbs2lR27o%|M4G@zU-hPNwZ|AE_ptA+WIj`J>6w;^#&FeSUuX z3;%DP{|S2zatena`JuQh6NOwaE(QL7^#5sAm g@{0U>-{152{->!CM7{&P$fQGVfJ(5kK>n)z7rjxL6951J delta 3154 zcmZ9OcTf}97KekOLxgA|9TEhoLMT#15T!^_dM8Me1wnd|5)9SFP$UGDBB2Qggixi2 zrZfc!3kV_|=?c;%KzQuFnRVW~f1R1%ojEi2p6}i-Lu*c}@`MpBD|*Oibq)Yvq5}Zf z002PnBk9N9ejZNV-X2oHo{tD-eO_M?kQR=Wo9rzTHcmZB4$5&aVKf*)#%d%guS6vN znpUY0RE2SSGdwk4p+tH$A1LNk!1d|Iy-)jTLeCutWbuM6V@)PeqJN$O7pa-V*qv(C zWA^E_Me>kHhoIZht0cK6hBjXXm|?sR$Jvi{wo1hlkr@CidN+r;Nz1{<;z%v5Xu3 z`8M;xNR)}m)~VvK1@Av*HSojHOy)fxk#_|{)x_8`_!(W(0mjD)q`;@64O-Xl5E7snOO!CiX-xq(2?b znZD1HqS3*<>NPaV&##Do_3Da7+ePnH{Xv$YP(=uFRjbEgSf4pNbPnac-yB~ssU2dN6?+f zMNjrlD#SI#nHx3c#oJ{pyPXq3I&!l6S^z%xr7L;`1<5`i-m40DZs2wTXfvVJb z@ovbk>J`YI>I#1wqH}bLb+wjV@B%H^9>-6q%Q#>1$h#PW8fwG`j^|`j&&KTZ6bLZV z2h!rQfXqx-iVH1-1^@uzJXm1pTdYqvqc#!!QwC5lcIt;?l?XO}kLItbS``G2AZJ|? zetD1-GR5JKfmLffKcpTDp-m+Br%Tvahh)-G|6v^zLH{H#8{>&Q8O5e=05Ti;3Bu=NC$IbafJ7pBRT@9xtK)P-~OpmwY(- zQ$1yA+WlH`xIiTpXb$!?*D)`42|{v~F#8L(?b4mUTQOY@@UHY9j??ztw%qx##k|@aH9@0YAb}qP=a=-8UJu+k|MD3xwdz;OsS>tdAMc(D_#410Vp<%5-*A z|3%e5AmovY|39Ewd`es*;Gz#tyiXaY*BG?BO(7h9tC zv}h>RtUHpH4JT?76NPvd#^zz%`u-V=V)~V~@B*mnd%IGN>n6)(W8w^7;a}g{Bi%WQ zUu)X6keSwYgX8L-1SUBYT4;~%Gao-KC0gsYp^KWCE#YD!hO>vVhQ61y`*7nb;d#aK zBfIaBl%GMS5)VP*<`SMs6_Ian4kx;$GcI#4VDH`$e{>&58pK2kch3cxiWB9lldl_n zvK0c?&iHC5skklGjcOvEYz#b;`}K(Jh!*%GTPEN}sKOxrV&lNf`m4`XAyWL@e!x$ybOgB4OHi$2Fl94ub|?$bjH_I)EX+xLC5^5Z+*1tvM|_!l$d7J^EgL< zm;Q&tY!7hTsG-@KyO6Ch;}P+Lj69E}7C%H8@O|o-sgKSpit~~I%67e^Em1pHqL-=RSaFiUG95+RK*<2K zt`$jY0L&GqgxcJv9l3)q;_HkeMz@6A?PEFRAgQGA?OIE?;Ug$UWG|nS=#wt72ajK ze#)aR+_O626P&!q{#~8wRlOLju)2EG%}~2MY1t@=8WT<9!g4<8~^57D88w10RMNKurM>+BB3+ya--xIgI z-oA$@l4OifJnQ`Q9Dm*?gHFW=d#kLfL6sMN28Bj~qf*JF56fP^E_;6iPb4>O<-~NT z8dif8d4kdEbl(0jN^8;6)`-I8Nd#77 zOfSBruEo_HqElbkZe=RSad13_2o0l8NE8uK0T68%90(i-Q#AW`<^cSp*+Yjm_U`Cq z^iVrn71L>KEV+oF#kn5av3~JSc*P~>D`5ugO(YmMYdM367l3#$bT^6CPrPVa=lFq$ zMtxt;N6w1UtG2yz`F#PBU7sVRfK??a>G(uv)}yc%r9AP(U!8A$aEq$Y6}!pp^-R+n z&`n9G1wb3h8@`K2)j3&+!E6)LD$9S3qg{3%Ux6qs>%oAJRQFGP_%sSC&++s2S zT2ME?uhWee-rE89)exrnus8JAPr!Zf3jPrdQ%DgD9to+}R=t(CdL3H0hBePfd(gKL zhuprc%%$&H9}T=(7PQig7|WMeB?m;ulF2=5&Cp{F2cw`?7U3M`ymcPul0(`-nG?2u zuz&(e5^tY<;&wG;ZWs+ZCdF9)9RdD6Q~pk z3*%?Qt=ljW;HnfxT5v2PAmNG0^iHuBNz?pA%8`<=Ovb3Sfv(>0ae)A8Xy#8ImNg}+ z{k-I->dbyOyxj%Eh|+dTfqV)sj{{nx#}^M|{;lV@8JHaJzov9%?2t1B_`L#Ha6T-T zaItXqGhyJSX~KEKukif8G5p?s3s(t;@%;OgF#-Ubzr(YNj9Z6G@cw(JXYIiMle6&P TWCc}eVsJi!m+AFke`o&zv5wkr diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index d5bdb3a1b..9ff2eeba6 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -121,6 +121,12 @@ Partial Class General_SaldosIniciales Alert("El nombre de la treceava columna debe ser 'Plazo Cobranza'. Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If + If RblFormato.SelectedValue = "1" Then + If Not dt.Columns(14).ColumnName = "Es distribuidor" Then + Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + End If ElseIf RblFormato.SelectedValue = "3" Or RblFormato.SelectedValue = "4" Then If Not dt.Columns(0).ColumnName = "Sucursal" Then @@ -718,6 +724,7 @@ Partial Class General_SaldosIniciales Dim Contacto As String = Row("Contacto").ToString Dim CelularContacto As String = Row("Celular Contacto").ToString Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString.ToEntero + Dim EsDistribuidor As Boolean = If(Row("Es distribuidor").ToString = "si", True, False) If CveCliente > 0 Then ExisteCliente = True @@ -730,7 +737,7 @@ Partial Class General_SaldosIniciales 'End If Else If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, "", "", Colonia, "", "", Estado, Pais, RFC, CodigoPostal, "", "", Contacto, "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", -1, -1, -1, - "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", "", Codigo, 0, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1) Then + "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", "", Codigo, 0, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor) Then ErrorClientes = True RFC.GuardaLog Exit For @@ -769,11 +776,11 @@ Partial Class General_SaldosIniciales Dim Encontrados As Integer = 0 DtProveedores = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) Dim RFC As String = "" -Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("") + Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("") Dim CvePS As Integer = drr("CvePS").ToString.ToEntero Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString.ToEntero Dim CveClasificacion As Integer = drr("CveClasificacion").ToString.ToEntero - Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows @@ -789,7 +796,7 @@ Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("") Dim Saldo As Decimal = Row("Saldo").ToString.ToDecimal Dim TipoDocto As String = Row("Tipo Documento").ToString Dim CveProveedor As Integer = DtProveedores.FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString.ToEntero - GuardaLog(Sucursal + " - " + Row("Sucursal").ToString) + GuardaLog(Sucursal + " - " + Row("Sucursal").ToString) Dim RetIVA As Double = Row("Ret IVA").ToString.ToDouble Dim RetISR As Double = Row("Ret ISR").ToString.ToDouble Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal From edf312e6a5a1c3b7762863744e0f94223ab50ba3 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Wed, 21 Aug 2019 12:07:59 -0700 Subject: [PATCH 8/8] =?UTF-8?q?Cacha=20error=20de=20p=C3=B3liza=20en=20eje?= =?UTF-8?q?rcicio=20cerrado?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 9 ++++++-- SIGGIT.sln | 45 +++++++++++++++++++++++++++++++++++++ 2 files changed, 52 insertions(+), 2 deletions(-) create mode 100644 SIGGIT.sln diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 31a25e690..16d5a2652 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -154,7 +154,7 @@ Public Class ClsContabilidad Retorno = SqlAdapter.SelectCommand.Parameters("@CvePrePoliza").Value.ToString.ToEntero Catch ex As Exception - If ex.Message.Contains("50005;") Then + If ex.Message.Contains("50015;") Then OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) Else OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) @@ -500,7 +500,12 @@ Public Class ClsContabilidad SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al eliminar el movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + + If ex.Message.Contains("50015;") Then + OnError("No se puede eliminar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + Else + OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End If End Try Return Retorno diff --git a/SIGGIT.sln b/SIGGIT.sln new file mode 100644 index 000000000..7b578f8a4 --- /dev/null +++ b/SIGGIT.sln @@ -0,0 +1,45 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 14 +VisualStudioVersion = 14.0.25420.1 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "http://localhost", "http://localhost", "{82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}" + ProjectSection(WebsiteProperties) = preProject + SccProjectName = ""$/localhost", CAAAAAAA" + SccAuxPath = "" + SccLocalPath = "." + SccProvider = "MSSCCI:Microsoft Visual SourceSafe" + UseIISExpress = "false" + TargetFrameworkMoniker = ".NETFramework,Version%3Dv4.0" + Debug.AspNetCompiler.VirtualPath = "/localhost" + Debug.AspNetCompiler.PhysicalPath = "..\wwwSIG\" + Debug.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\" + Debug.AspNetCompiler.Updateable = "true" + Debug.AspNetCompiler.ForceOverwrite = "true" + Debug.AspNetCompiler.FixedNames = "false" + Debug.AspNetCompiler.Debug = "True" + Release.AspNetCompiler.VirtualPath = "/localhost" + Release.AspNetCompiler.PhysicalPath = "..\wwwSIG\" + Release.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\" + Release.AspNetCompiler.Updateable = "true" + Release.AspNetCompiler.ForceOverwrite = "true" + Release.AspNetCompiler.FixedNames = "false" + Release.AspNetCompiler.Debug = "False" + SlnRelativePath = "..\wwwSIG\" + EndProjectSection +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.Build.0 = Debug|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {332C883B-3BAC-495B-9E95-82357599CF89} + EndGlobalSection +EndGlobal