diff --git a/.gitignore b/.gitignore index fc8032bc3..a3e8e0702 100644 --- a/.gitignore +++ b/.gitignore @@ -259,6 +259,7 @@ paket-files/ # JetBrains Rider .idea/ *.sln.iml +*.sln # CodeRush .cr/ 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/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 81d5750b4..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 @@ -933,6 +938,22 @@ Public Class ClsContabilidad Return Retorno End Function + Public Function UpdatePrePolizasDetalleBloquear(CvePrePoliza As Integer, Bloquear As Boolean) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Conta_PrePolizasDetalleBloquearUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + .Add("@Bloquear", SqlDbType.Bit).Value = Bloquear + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al bloquear o desbloquear las prepolizas detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function ContabilizarPrePoliza(CvePrePoliza As Integer, CveUsuario As Integer, Empresa As Empresa, Optional Fecha As Date = MinFecha, Optional Concepto As String = "", @@ -981,6 +1002,8 @@ Public Class ClsContabilidad End If + + Dim tIdPoliza As Integer Dim CveTipoPoliza, FolioFijo As Integer Dim Cargos As Decimal @@ -1260,6 +1283,12 @@ Public Class ClsContabilidad End If End If + If Not OcurrioError Then + If Not UpdatePrePolizasDetalleBloquear(CvePrePoliza, True) Then + OcurrioError = True + End If + End If + 'If Empresa.Funcionalidad(522).ToString = "1" And Empresa.UsaContabilidad Then ' Dim CodigoPersona As String = "" @@ -5638,12 +5667,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/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index 5f4fb1591..d016019c6 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -763,7 +763,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState End Sub Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer) As Byte() - Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", ClsPaginas.UrlSitio, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta)))) + Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", ClsPaginas.UrlSitio, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))) Dim File As Byte() = Nothing Try Using httpClient = New HttpClient() diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 9579c2804..ebb998e18 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 + + <%-- data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si" Style="color: #686868;"> +
    • @@ -862,6 +861,7 @@ + @@ -962,7 +962,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 78282a279..73a07f5c1 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -408,12 +408,52 @@ 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 + + Private Property CuentaOld As String + Get + Return CType(ViewState("CuentaOld"), String) + End Get + Set(value As String) + ViewState("CuentaOld") = value + End Set + End Property + Private Property FechaOld As String + Get + Return CType(ViewState("FechaOld"), String) + End Get + Set(value As String) + ViewState("FechaOld") = value + End Set + End Property + + Private Property FolioOld As String + Get + Return CType(ViewState("FolioOld"), String) + End Get + Set(value As String) + ViewState("FolioOld") = value + End Set + End Property + + + #Region "CANCELACIÓN COMPLEMENTO MODAL V2" - + Property CveComplementoPagoCancelar As Integer Get If ViewState("CveComplementoPagoCancelar") Is Nothing Then @@ -630,7 +670,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 +714,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 +748,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 +800,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 @@ -843,6 +895,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 @@ -942,6 +996,7 @@ Partial Class Bancos_IE LnkComplementoPago.Visible = True + If ObjIE.CveEstatusIE = 1 AndAlso ObjIE.CveIECancelado > 0 Then 'cuando es cheque devuelto TabCancelacion.Visible = True @@ -1040,10 +1095,27 @@ 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)) And UsuarioActual.TienePermisoProceso(99) And ObjIE.CveEstatusIE <> 2 Then + BtnEditar.Visible = True + End If + + UpGuardar.Update() + + End If + + ' DATOS PARA LA BITACORA + CuentaOld = LblCuenta.Text + FechaOld = TxtFechaDocumento.Text + FolioOld = TxtFolio.Text + End If 'If CveIE > 0 Then @@ -2352,7 +2424,6 @@ Partial Class Bancos_IE Dim tCveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero Dim tImporteMonedaExtranjera As Decimal = 0 If tCveMoneda <> 1 Then tImporteMonedaExtranjera = TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal - If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = TxtFolio.Text.ToEntero 'cheque Dim PagueseA = "" If HdnCveCliente.Value.ToEntero > 0 Then @@ -2372,18 +2443,26 @@ Partial Class Bancos_IE End If If MsgError = "" Then - CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)) - - 'valida prepoliza - If CvePrePoliza > 0 Then - Dim Conc As String = If(TxtObservaciones.Text = "", TxtFolio.Text, TxtObservaciones.Text) - Dim Ref As String = If(TxtObservaciones.Text = "", TxtFolio.Text, TxtObservaciones.Text) - CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, + + CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1)) - If CveIE > 0 Then + If CveIE > 0 Then + + If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = ObjIE.Folio.ToEntero 'cheque + CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)) + + 'valida prepoliza + If CvePrePoliza > 0 Then + + If Not ObjIE.UpdateIEPrePoliza(MinFecha, "", -1, CvePrePoliza, CveIE, -1) Then + MsgError = "Ocurrio un error al agregar la prepoliza al IE." + End If + + Dim Conc As String = If(TxtObservaciones.Text = "", ObjIE.Folio, TxtObservaciones.Text) + Dim Ref As String = If(TxtObservaciones.Text = "", ObjIE.Folio, TxtObservaciones.Text) If Comprobante <> "" Then ComprobanteIE = $"{CveIE}.{Comprobante}" @@ -2462,7 +2541,7 @@ Partial Class Bancos_IE TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False) importeMovimiento = 0 Multiplicador = (Row("Multiplicador").ToString.ToEntero) - Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", TxtFolio.Text) + Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio) Select Case ConceptoContable @@ -2562,7 +2641,7 @@ Partial Class Bancos_IE Dim ImporteAplicar = 0.0D Dim ImporteAplicarMN = 0.0D Dim ImporteAplicarME = 0.0D - Dim ReferenciaAplicar = TxtFolio.Text + Dim ReferenciaAplicar = ObjIE.Folio Dim ConceptoAplicar = $"Devolución al cliente {PagueseA} {TxtImporte.Text} NC:{SerieFolioDevDin}" ImporteAplicar = TxtImporte.Text.ToDecimal @@ -2643,7 +2722,7 @@ Partial Class Bancos_IE Dim ImporteAplicar = 0.0D Dim ImporteAplicarMN = 0.0D Dim ImporteAplicarME = 0.0D - Dim ReferenciaAplicar = TxtFolio.Text + Dim ReferenciaAplicar = ObjIE.Folio Dim ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}" @@ -2883,7 +2962,7 @@ Partial Class Bancos_IE TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False) importeMovimiento = 0 Multiplicador = (Row("Multiplicador").ToString.ToEntero) - Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", TxtFolio.Text) + Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio) Select Case ConceptoContable @@ -3038,11 +3117,11 @@ Partial Class Bancos_IE If DdlTipoTransaccion.SelectedValue = "1" Then TipoChq = "CHQ" ConceptoRenglon = String.Format("Anticipo {0}", PagueseA) - IDPoliza = Conta.AddPoliza(2, ConceptoRenglon, Total, Total, UsuarioActual.CveUsuario, Fecha, TxtFolio.Text, TipoChq) + IDPoliza = Conta.AddPoliza(2, ConceptoRenglon, Total, Total, UsuarioActual.CveUsuario, Fecha, ObjIE.Folio, TipoChq) If IDPoliza > 0 Then FolioPoliza = Conta.Folio - Referencia = TxtFolio.Text + Referencia = ObjIE.Folio ConceptoRenglon = String.Format("Anticipo {0} {1}", PagueseA, TxtObservaciones.Text) Total = TxtImporte.Text.ToDouble @@ -3075,11 +3154,13 @@ Partial Class Bancos_IE End If Else - MsgError = "No se insertó el encabezado" + MsgError = "No se pudo insertar la póliza" End If + Else - MsgError = "No se pudo insertar la póliza" + MsgError = "No se insertó el encabezado" End If + End If Else @@ -3436,207 +3517,241 @@ 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) - End If - - IE.Dispose() + IE.IniciaTransacSQL() + Dim ObjGral As New ClsGenerales + ObjGral.IniciaTransacSQL() + Dim FechaAplicado As DateTime? = Nothing + Dim OcurrioError As Boolean = False + + 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 + 'Agrega a la Bitacora + If CuentaOld <> DdlCuenta.SelectedItem.Text Then + If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveIE, DdlCuenta.SelectedItem.Text, CuentaOld, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "Cuenta", "Banco", TxtFolio.Text + " / " + Cuenta) Then + OcurrioError = True + End If + End If + If FechaOld <> TxtFechaDocumento.Text.Trim Then + If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveIE, TxtFechaDocumento.Text.Trim, FechaOld, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "Fecha", "Banco", TxtFolio.Text + " / " + Cuenta) Then + OcurrioError = True + End If + End If + If FolioOld <> TxtFolio.Text.Trim Then + If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveIE, TxtFolio.Text.Trim, FolioOld, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "Número", "Banco", TxtFolio.Text + " / " + Cuenta) Then + OcurrioError = True + End If + End If + Else + OcurrioError = True + End If + + If OcurrioError Then + IE.RollBack() + ObjGral.RollBack() + Else + IE.Commit() + ObjGral.Commit() + Alert("La Actualización del documento se realizó correctamente", TipoMensaje.MsgInformacion, $"document.location.href=""IE.aspx?CveIE={CveIE}""") + End If + IE.Dispose() + ObjGral.Dispose() End Sub Protected Sub ImgUpdateCuentaDeposito_Click(sender As Object, e As ImageClickEventArgs) @@ -4514,7 +4629,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 @@ -4525,6 +4642,12 @@ Partial Class Bancos_IE CargaCuentasDepositos() End If + + + If CveCliente > 0 Then + CargaCuentasDepositoClientes() + End If + End Sub 'Recaga CuentasBancarias de Proveedor @@ -4705,29 +4828,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.Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And UsuarioActual.CveRol = 1 Then - DVGenerarComplementoModal.Visible = True - Else - DVGenerarComplementoModal.Visible = False + 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 And CveEstatusIE <> 2 Then + DVGenerarComplementoModal.Visible = True End If - Else - DVGenerarComplementoModal.Visible = False + Else GvComplementoPagos.DataSource = Nothing End If @@ -4747,8 +4872,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 @@ -4776,8 +4901,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) @@ -4799,14 +4924,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 @@ -4817,207 +4953,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 @@ -5572,6 +5512,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) @@ -5618,46 +5562,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 diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 86c684edd..85648f022 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -2,7 +2,7 @@ - + @@ -88,14 +88,14 @@
  • Fletes
    • -
  • - - - Complementos Pago - - +
  • + + + Complementos Pago + + + -
  • Actualizar Tipo Cambio @@ -292,7 +292,7 @@
    ¿Es No Deducible?
    - +
    @@ -611,7 +611,8 @@ % IVA  Total 
    - ¿No Deducible? 
    + ¿No Deducible?  +
    • Comandos @@ -704,11 +705,11 @@ <%-- 9 --%> - + <%-- 10 --%> - + - + @@ -1436,11 +1437,11 @@
    + @@ -1792,18 +1794,21 @@ - -
    -
    - -
    -
    -
    -
    -
    - -
    -
    + + +
    +
    + +
    +
    +
    +
    +
    + +
    +
    +     +     @@ -3211,10 +3216,11 @@ - + ScrollAD " + data-height="320" Style="text-align: left;" GridLines="None" DataKeyNames="CvePS"> @@ -4330,7 +4336,7 @@ - +
    @@ -4340,7 +4346,7 @@ -
    +
    @@ -4541,10 +4547,10 @@ - - - + + + @@ -4773,9 +4779,9 @@
    -
    +

    Los cambios se realizaran al dar click en vincular

    -
    +
    @@ -5368,7 +5374,7 @@ if (Sumatoria > saldoAmortizacion) { Sumatoria -= ToDouble(txt.value) * ToDouble(jQuery($(txt[0]).parent().parent().children()[7]).text()); txt.value = ''; - alert("El Importe no debe de exceder a el saldo.[" + Sumatoria + " " + saldoAmortizacion+"]" ); + alert("El Importe no debe de exceder a el saldo.[" + Sumatoria + " " + saldoAmortizacion + "]"); } $('#C_LbNCInvImporte').text(FormatoNumero(Sumatoria, 2)); } @@ -5623,6 +5629,9 @@ if ($get("C_Tab_TabOC_LbIEPSOC1")) { $get("C_Tab_TabOC_LbIEPSOC1").innerText = FormatoNumero(SumaIEPS, 2); } + + $get("HdnIEPSModificadoOC").value = FormatoNumero(SumaIEPS, 2); + if ($get("C_Tab_TabOC_LbIEPSIVAOC1")) { $get("C_Tab_TabOC_LbIEPSIVAOC1").innerText = FormatoNumero(SumaIEPSIVA, 2); } diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 6a563aae9..e90f41f74 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -5192,7 +5192,6 @@ Partial Class Compras_Compras Dim tipoCambioPago As Decimal Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:

    " Dim idCuentaContabilizacion As Long = 1 - Dim BanderaContilizar = True Dim CveCuentaContabilizacion As Long = 1 Dim FechaMovimiento As Date = TxtFecha.Text.ToDate Dim DT As DataTable = Nothing @@ -6072,7 +6071,6 @@ Partial Class Compras_Compras If OCVinculada Or CveConceptoContableAlmacen.Contiene(237, 240) Then ConceptoContabilizacion = CveConceptoContableAlmacen End If - BanderaContilizar = If(ConceptoContabilizacion = 205, False, True) Dim UsaComplementariaFleteImportaciones As Boolean = False Select Case ConceptoContabilizacion @@ -6990,6 +6988,12 @@ Partial Class Compras_Compras End If End If + 'Simplificacion de PrePolizas + If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then + If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then + ErrorPrepolizaDescuadre = True + End If + End If If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then If ObjConta.ValorPolizaDescuadre > 0 Then @@ -7000,19 +7004,17 @@ Partial Class Compras_Compras 'Conta ContPAQ If ObjContaAC IsNot Nothing AndAlso Not ErrorPrepoliza AndAlso Not ErrorPrepolizaDescuadre AndAlso UsuarioActual.Empresa.UsaContabilidad Then - If BanderaContilizar Then - If idCuentaContabilizacion > 0 Then - If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then - ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion) - IdPoliza = ObjConta.ContaIdPoliza - Else - ErrorPrepoliza = True - Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia) - End If + If idCuentaContabilizacion > 0 Then + If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then + ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion) + IdPoliza = ObjConta.ContaIdPoliza Else - Alert(String.Format("No se puede contabilizar la Prepoliza debido a que las siguientes cuentas son inválidas:
    {0}", CuentasContablesInvalidas), TipoMensaje.MsgAdvertencia) ErrorPrepoliza = True + Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia) End If + Else + Alert(String.Format("No se puede contabilizar la Prepoliza debido a que las siguientes cuentas son inválidas:
    {0}", CuentasContablesInvalidas), TipoMensaje.MsgAdvertencia) + ErrorPrepoliza = True End If End If End If @@ -7614,12 +7616,7 @@ Partial Class Compras_Compras MsgAccionAceptar = "location.href =""Compras.aspx""" End If - 'Simplificacion de PrePolizas - If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then - If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then - Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) - End If - End If + 'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA If UsuarioActual.CveEmpresa.Contiene(1, 119) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then @@ -14242,8 +14239,10 @@ Partial Class Compras_Compras GvOC1.Columns(0).Visible = False End If + Dim Cont As Integer = 0 For Each gvr As GridViewRow In GvOC1.Rows - RegistraScript($"CalculaTotalOCEdit('{gvr.DataKey("PS").Replace("'", "")}', {gvr.DataKey("CantidadDisponible").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", "Gv") + RegistraScript($"CalculaTotalOCEdit('{gvr.DataKey("PS").Replace("'", "")}', {gvr.DataKey("CantidadDisponible").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", $"Gv{Cont}") + Cont += 1 Next UpGvOC1.Update() @@ -14469,6 +14468,10 @@ Partial Class Compras_Compras End If End If + If (HdnIEPSModificadoOC.Value.ToDecimal <> LbIEPSOC2.Text.ToDecimal) Then + Alert($"Hay una diferencia de IEPS entre la factura y la OC. Dif: {HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal}", TipoMensaje.MsgAdvertencia) + Exit Sub + End If 'PSCodigo DE XML IP Dim DtTemporalXML = TmpDT.Copy @@ -16750,6 +16753,8 @@ Partial Class Compras_Compras Row("CveClasificacionOG") = DdlACGeneral5.SelectedValue.ToEntero End If + + TmpDT.Rows.Add(Row) TmpDT.Rows.IndexOf(Row) @@ -16851,6 +16856,10 @@ Partial Class Compras_Compras DrPS("CveTipoGasto") = DdlTipoGasto.SelectedValue.ToEntero DrPS("TipoGasto") = If(DdlTipoGasto.SelectedValue.ToEntero > 0, DdlTipoGasto.SelectedItem.Text, "") + If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then + DrPS("AplicaCostoIndirecto") = "0" + End If + 'IMPUESTOS: SI ES COMPRA, FACUTRA O CON OC, NO MODIFICA IMPUESTOS!! 'Dim IVA = (TxtIVAModal.Text.ToDouble / 100) Dim IVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 4626b4598..2aea5300e 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1632,72 +1632,175 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida por Armado - {0}", Folio.ToString), RDSName:="DsInventarios") Case 6, 23 ' ENTRADA RESGUARDO - Dim params As New List(Of ReportParameter) - If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Personal)) - params.Add(New ReportParameter("Responsable", Personal)) - params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - params.Add(New ReportParameter("LogoPath", logouri)) - If DtMovimientos.COUNT("SerieLote") > 0 Then - params.Add(New ReportParameter("MostrarSerieLote", "1")) + If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then + Dim params As New List(Of ReportParameter) + If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Personal)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + params.Add(New ReportParameter("LogoPath", logouri)) + If DtMovimientos.COUNT("SerieLote") > 0 Then + params.Add(New ReportParameter("MostrarSerieLote", "1")) + Else + params.Add(New ReportParameter("MostrarSerieLote", "0")) + End If Else - params.Add(New ReportParameter("MostrarSerieLote", "0")) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) + params.Add(New ReportParameter("NombreRecibio", Personal)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + params.Add(New ReportParameter("NombreProveedor", Proveedor)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) End If + + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Else + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + Dim TipoResponsable As String = "" + Dim Responsable As String = "" + + Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" + + If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" + End If + + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) params.Add(New ReportParameter("Fecha", Fecha)) + 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) - params.Add(New ReportParameter("NombreRecibio", Personal)) - params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) params.Add(New ReportParameter("AlmacenOrigen", Almacen)) params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - params.Add(New ReportParameter("NombreProveedor", Proveedor)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - End If - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") + Dim Mov As New ClsInventarios + If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then + If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then + TipoResponsable = "Personal" + Responsable = Recibio + 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString + ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then + TipoResponsable = "Cliente" + Responsable = Mov.DtResultados(0)("Nombre").ToString + ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then + TipoResponsable = "Proveedor" + Responsable = Mov.DtResultados(0)("RazonSocial").ToString + End If + End If + Mov.Dispose() + + params.Add(New ReportParameter("Responsable", Responsable)) + params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") + End If Case 7 ' SALIDA RESGUARDO - Dim params As New List(Of ReportParameter) - If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) - params.Add(New ReportParameter("Responsable", Personal)) - params.Add(New ReportParameter("NombreRecibio", Personal)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - params.Add(New ReportParameter("LogoPath", logouri)) - If DtMovimientos.COUNT("SerieLote") > 0 Then - params.Add(New ReportParameter("MostrarSerieLote", "1")) + If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then + Dim params As New List(Of ReportParameter) + If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("NombreRecibio", Personal)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + params.Add(New ReportParameter("LogoPath", logouri)) + If DtMovimientos.COUNT("SerieLote") > 0 Then + params.Add(New ReportParameter("MostrarSerieLote", "1")) + Else + params.Add(New ReportParameter("MostrarSerieLote", "0")) + End If Else - params.Add(New ReportParameter("MostrarSerieLote", "0")) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) + params.Add(New ReportParameter("NombreRecibio", Personal)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + params.Add(New ReportParameter("NombreProveedor", Proveedor)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + End If + + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Else + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + Dim TipoResponsable As String = "" + Dim Responsable As String = "" + + Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" + + If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" + End If + + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) params.Add(New ReportParameter("Fecha", Fecha)) + 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) - params.Add(New ReportParameter("NombreRecibio", Personal)) - params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) params.Add(New ReportParameter("AlmacenOrigen", Almacen)) params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - params.Add(New ReportParameter("NombreProveedor", Proveedor)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + Dim Mov As New ClsInventarios + If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then + If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then + TipoResponsable = "Personal" + Responsable = Recibio + 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString + ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then + TipoResponsable = "Cliente" + Responsable = Mov.DtResultados(0)("Nombre").ToString + ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then + TipoResponsable = "Proveedor" + Responsable = Mov.DtResultados(0)("RazonSocial").ToString + End If + End If + Mov.Dispose() + + params.Add(New ReportParameter("Responsable", Responsable)) + params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") End If - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Case 8, 26 ' T R A S L A D O - S A L I D A Dim params As New List(Of ReportParameter) @@ -2275,93 +2378,95 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") Case 24 'SALIDA POR RESGUARDO + If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) + Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalidaUniforme.rdlc" - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalidaUniforme.rdlc" + If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc" + End If - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc" - End If + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", "Salida por resguardo")) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Descuentos", "")) + params.Add(New ReportParameter("IVA", "")) + params.Add(New ReportParameter("Total", "")) + 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("NombreRecibio", Recibio)) + params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego)) + params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio)) + + + params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios") Else - params.Add(New ReportParameter("LogoPath", "")) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + Dim TipoResponsable As String = "" + Dim Responsable As String = "" + + Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" + + If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" + End If + + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", Fecha)) + 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + + Dim Mov As New ClsInventarios + If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then + If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then + TipoResponsable = "Personal" + Responsable = Recibio + 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString + ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then + TipoResponsable = "Cliente" + Responsable = Mov.DtResultados(0)("Nombre").ToString + ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then + TipoResponsable = "Proveedor" + Responsable = Mov.DtResultados(0)("RazonSocial").ToString + End If + End If + Mov.Dispose() + + params.Add(New ReportParameter("Responsable", Responsable)) + params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") End If - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", "Salida por resguardo")) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Descuentos", "")) - params.Add(New ReportParameter("IVA", "")) - params.Add(New ReportParameter("Total", "")) - 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - params.Add(New ReportParameter("NombreRecibio", Recibio)) - params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego)) - params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio)) - - - params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - - - ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios") - - 'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - 'Dim params As New List(Of ReportParameter) - 'Dim TipoResponsable As String = "" - 'Dim Responsable As String = "" - - 'Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" - - 'If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - ' Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" - 'End If - - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - 'If Imagen.Exists Then - ' params.Add(New ReportParameter("LogoPath", logouri)) - 'Else - ' params.Add(New ReportParameter("LogoPath", "")) - 'End If - - 'params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - 'params.Add(New ReportParameter("Folio", Folio)) - 'params.Add(New ReportParameter("Fecha", Fecha)) - ''params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) - 'params.Add(New ReportParameter("Observaciones", Observaciones)) - 'params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - 'params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) - 'params.Add(New ReportParameter("AlmacenOrigen", Almacen)) - 'params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - - 'Dim Mov As New ClsInventarios - 'If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then - ' If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then - ' TipoResponsable = "Personal" - ' Responsable = Recibio - ' 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString - ' ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then - ' TipoResponsable = "Cliente" - ' Responsable = Mov.DtResultados(0)("Nombre").ToString - ' ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then - ' TipoResponsable = "Proveedor" - ' Responsable = Mov.DtResultados(0)("RazonSocial").ToString - ' End If - 'End If - 'Mov.Dispose() - - 'params.Add(New ReportParameter("Responsable", Responsable)) - 'params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) - - 'ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim params As New List(Of ReportParameter) diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 09e16f322..fba7d9a3f 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -624,6 +624,11 @@ Partial Class Compras_ReembolsosComprobaciones If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 211, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos" End If + If CveCajaChica > 0 Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 211, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor, Contabilizable:=False) Then + MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos" + End If + End If End If If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = (ImporteMovto / gvr.DataKey("Original").ToDecimal).RoundSQL(6) Else PorcentajePago = 1 diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb index efc17754c..f0681b57d 100644 --- a/Compras/RepRembolsoComprobaciones.aspx.vb +++ b/Compras/RepRembolsoComprobaciones.aspx.vb @@ -160,10 +160,17 @@ Partial Class Compras_RepRembolsoComprobaciones Private Sub LbkUnificar_Click(sender As Object, e As EventArgs) Handles LbkUnificar.Click Dim ObjComp As New ClsCompras() Dim ObjMov As New ClsContabilidad(ObjComp.IniciaTransacSQL) + Dim ObjAC As ClsContPAQi = Nothing + If UsuarioActual.Empresa.UsaAC Then + ObjAC = New ClsContPAQi(UsuarioActual.Empresa) + ObjAC.IniciaTransacSQL() + End If Dim TieneError = False Dim CvePrePoliza As Integer = 0 + Dim IdPoliza As Integer = 0 + Dim Msg As New StringBuilder - CvePrePoliza = ObjMov.AddPrePolizas("Compras/Registrar", 1, DtDatos(0)("Original").ToString.ToDecimal, DtDatos(0)("Original").ToString.ToDecimal, CveMoneda, txtfechaUnificacion.text.trim.todate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3) + CvePrePoliza = ObjMov.AddPrePolizas("Compras/Registrar", 1, DtDatos(0)("Original").ToString.ToDecimal, DtDatos(0)("Original").ToString.ToDecimal, CveMoneda, TxtFechaUnificacion.Text.Trim.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3) If CvePrePoliza > 0 AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then If Not ObjComp.UnificarComprasPersonal(CvePrePoliza, DdlPersonal.SelectedValue.ToEntero, -1, TxtNumeroReembolso.Text, UsuarioActual.CveEmpresa) Then @@ -187,17 +194,44 @@ Partial Class Compras_RepRembolsoComprobaciones End If End If + If Not TieneError Then + Msg.AppendFormat("Se unificaron todas las compras con éxito") + End If + + If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then + If ObjAC Is Nothing Then + TieneError = True + End If + + If Not TieneError Then + If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then + TieneError = True + Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia) + Else + IdPoliza = ObjMov.ContaIdPoliza + End If + End If + + If IdPoliza > 0 AndAlso Not TieneError Then + Msg.AppendFormat("

    Ver Póliza", IdPoliza) + End If + + End If + If Not TieneError Then ObjComp.Commit() - Alert("Se unificaron todas las compras con éxito", TipoMensaje.MsgInformacion) + If ObjAC IsNot Nothing Then ObjAC.Commit() + Alert(Msg.ToString, TipoMensaje.MsgInformacion) Else ObjComp.RollBack() + If ObjAC IsNot Nothing Then ObjAC.RollBack() Alert("Ocurrió un error al unificar las compras", TipoMensaje.MsgAdvertencia) End If ObjComp.Dispose() ObjMov.Dispose() + If ObjAC IsNot Nothing Then ObjAC.Dispose() End Sub #Region " CARGA DATOS " diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb index 3c602a3b3..565044422 100644 --- a/Contabilidad/RegPoliza.aspx.vb +++ b/Contabilidad/RegPoliza.aspx.vb @@ -1712,6 +1712,13 @@ Partial Class RegPoliza ErrorTrans = True End If + If Not ErrorTrans Then + If Not ObjMov.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then + ErrorTrans = True + End If + End If + + If Not ErrorTrans Then ObjConta.Commit() ObjMov.Commit() diff --git a/Empresas/1/Formatos/Cotizacion.rdlc b/Empresas/1/Formatos/Cotizacion.rdlc index 9a1a0fd22..07b679160 100644 --- a/Empresas/1/Formatos/Cotizacion.rdlc +++ b/Empresas/1/Formatos/Cotizacion.rdlc @@ -1,8120 +1,8126 @@ - - - - - - - - - - - 0.88283in - - - 0.53922in - - - 3.70966in - - - 0.83848in - - - 1.03236in - - - 1.03703in - - - - - 0.1652in - - - - - true - true - - - - - NO.P - - - - - - - Textbox22 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CANT. - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - DESCRIPCIÓN - - - - - - - Textbox17 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - T.E. - - - - - - - Textbox21 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - P.U. - - - - - - - Textbox23 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - SUBTOTAL - - - - - - - Textbox1 - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.17561in - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PS.Value & " " & Fields!Obs.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!TiempoEntrega.Value - - - - - - - TiempoEntrega1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - PU - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Cantidad.Value*Fields!PU.Value - - - - - - - TiempoEntrega - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 0.02778in - 0.00139in - 0.34081in - 8.03958in - - - - - - true - - - - - SUBTOTAL: - - - - - - - Textbox19 - 0.56593in - 5.89776in - 0.21875in - 1.04574in - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =IIF(Parameters!SubTotal.Value= 0 ,"-",Parameters!SubTotal.Value) - - - - - - - Textbox42 - 0.54093in - 6.9435in - 0.21875in - 1.0787in - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!Total.Value - - - - - - - Textbox42 - 0.99232in - 6.9435in - 0.21875in - 1.0787in - 3 - - - 2pt - 2pt - 2pt - 2pt - es-MX - - - - true - - - - - TOTAL: - - - - - - - Textbox19 - 1.01732in - 5.89776in - 0.21875in - 1.04574in - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - IVA: - - - - - - - Textbox19 - 0.79857in - 5.89776in - 0.21875in - 1.04574in - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =iif(Parameters!IVA.Value = 0,"-",Parameters!IVA.Value) - - - - - - - Textbox42 - 0.77357in - 6.9435in - 0.21875in - 1.0787in - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - Embedded - CINTILLOLOGOTIPOS - FitProportional - 1.50802cm - 0.06704cm - 1.69361cm - 14.91328cm - 9 - - - - - - true - true - - - - - ="Son: " & UCase(Parameters!ImporteLetra.Value) - - - - - - - ImporteLetra - 1.31604in - 2.66493in - 0.18861in - 5.37603in - 10 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 0.127cm - 0.07058cm - 3.9023cm - 20.42407cm - - - - - - 4.33815cm - - - - - - true - true - - - - - - - - - - - - - Cotización - - - - - - - - No. - - - - - - - - =Parameters!Serie.Value - - - - - - - - - =Parameters!Folio.Value - - - - - - - Textbox4 - 0.04298in - 3.51392in - 0.29178in - 4.55343in - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - - - - - =Parameters!SucursalCliente.Value - - - - - - - - - Atención: - - - - =Parameters!ClienteContacto.Value - - - - - - - - - Tel: - - - - =Parameters!ClienteTelefono.Value - - - - - - - - - E-Mail: - - - - =Parameters!ClienteContactoMail.Value - - - - - - - - - Fecha: - - - - =Parameters!FechaSolicitud.Value - - - - - - - Textbox18 - 0.86792cm - 11.06848cm - 3.27899cm - 9.4226cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - 0.66868cm - 11.36047cm - 0cm - 1.7247cm - 3 - - 1.5pt - - - - - true - true - - - - - Compuproveedores, S.A DE C.V. - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - www - - - - . - - - - compuproveedores - - - - . - - - - com - - - - - - - Textbox2 - 1.1557cm - 4.03176cm - 0.74402cm - 6.70687cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Tel. - - - - =IIF(Parameters!Sucursal.Value="MATRIZ","(662) 214 2200", -IIF(Parameters!Sucursal.Value="Tijuana","(664) 645 1814", -IIF(Parameters!Sucursal.Value="Culiacán","(667) 715 8533", -IIF(Parameters!Sucursal.Value="Aguascalientes","(449) 913 4418","")))) - - - - - - - Textbox3 - 0.66868cm - 4.03176cm - 0.45527cm - 6.70687cm - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 7.63292cm - true - true - - - - - true - true - - - - - Usuario: - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 17.72297cm - 0.41981cm - 2.5cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 6.92679cm - 0.07937cm - 0.56854cm - 20.42759cm - - - - - - - - true - true - - - - - =Parameters!VendedorNombre.Value - - - - - - - - - - =Parameters!VendedorTelefono.Value - - - - - - - =Parameters!VendedorCelular.Value - - - - - - - =Parameters!VendedorMail.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - BannerChilo - Fit - 3.92835cm - 0.13228cm - 2.57528cm - 20.21765cm - 1 - - - - - - true - true - - - - - Precios unitarios, no incluyen IVA - - - - - - - - - No devolución, no cancelación una vez hecho el pedido - - - - - - - - - Todo pedido requiere Orden de Compra - - - - - - - - - Precios sujetos a cambio sin previo aviso - - - - - - - - - Cotización sujeta a disponibilidad - - - - - - - - - Vigencia de cotización: - - - - =Parameters!Vigencia.Value - - - - - - - - - Condiciones de pago: - - - - =Parameters!CondicionPago.Value - - - - - - - - - Forma de entrega: - - - - =Parameters!FormaEntrega.Value - - - - - - - Textbox20 - 0.62794cm - 12.53405cm - 3.36038cm - 7.87937cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Precios cotizados en Moneda Nacional - - - - - - - Textbox6 - 0.3175cm - 13.22197cm - 0.31044cm - 7.19145cm - 3 - - =IIF(Parameters!CveMoneda.Value = "1",TRUE,FALSE) - - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!FirmaVendedor.Value - FitProportional - 0.37747cm - 0.50093cm - 1.35889cm - 5.74406cm - 4 - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - 0.10718cm - 6.39645cm - 19.863cm - 5 - - = iif(Globals!PageNumber=Globals!TotalPages, true,false) - - - - - - - true - 0.09525cm - 0.07411cm - 6.57948cm - 20.46108cm - 1 - - = iif(Globals!PageNumber=Globals!TotalPages, false,true) - - - - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 0cm - 0cm - 1.27cm - + + + + + + Textbox22 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CANT. + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESCRIPCIÓN + + + + + + + Textbox17 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + T.E. + + + + + + + Textbox21 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P.U. + + + + + + + Textbox23 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SUBTOTAL + + + + + + + Textbox1 + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.17561in + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value & " " & Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!TiempoEntrega.Value + + + + + + + TiempoEntrega1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value*Fields!PU.Value + + + + + + + TiempoEntrega + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 0.02778in + 0.00139in + 0.34081in + 8.03958in + + + + + + true + + + + + SUBTOTAL: + + + + + + + Textbox19 + 0.56593in + 5.89776in + 0.21875in + 1.04574in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =IIF(Parameters!SubTotal.Value= 0 ,"-",Parameters!SubTotal.Value) + + + + + + + Textbox42 + 0.54093in + 6.9435in + 0.21875in + 1.0787in + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Total.Value + + + + + + + Textbox42 + 0.99232in + 6.9435in + 0.21875in + 1.0787in + 3 + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + true + + + + + TOTAL: + + + + + + + Textbox19 + 1.01732in + 5.89776in + 0.21875in + 1.04574in + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + IVA: + + + + + + + Textbox19 + 0.79857in + 5.89776in + 0.21875in + 1.04574in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =iif(Parameters!IVA.Value = 0,"-",Parameters!IVA.Value) + + + + + + + Textbox42 + 0.77357in + 6.9435in + 0.21875in + 1.0787in + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + Embedded + CINTILLOLOGOTIPOS + FitProportional + 1.50802cm + 0.06704cm + 1.69361cm + 14.91328cm + 9 + + + + + + true + true + + + + + ="Son: " & UCase(Parameters!ImporteLetra.Value) + + + + + + + ImporteLetra + 1.31604in + 2.66493in + 0.18861in + 5.37603in + 10 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 0.127cm + 0.07058cm + 3.9023cm + 20.42407cm + + + + + + 4.33815cm + + + + + + true + true + + + + + + + + + + + + + Cotización + + + + + + + + No. + + + + + + + + =Parameters!Serie.Value + + + + - + + + + =Parameters!Folio.Value + + + + + + + Textbox4 + 0.04298in + 3.51392in + 0.29178in + 4.55343in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteNombre.Value + + + + + + + + + + + + + =Parameters!SucursalCliente.Value + + + + + + + + + Atención: + + + + =Parameters!ClienteContacto.Value + + + + + + + + + Tel: + + + + =Parameters!ClienteTelefono.Value + + + + + + + + + E-Mail: + + + + =Parameters!ClienteContactoMail.Value + + + + + + + + + Fecha: + + + + =Parameters!FechaSolicitud.Value + + + + + + + Textbox18 + 0.86792cm + 11.06848cm + 3.27899cm + 9.4226cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.66868cm + 11.36047cm + 0cm + 1.7247cm + 3 + + 1.5pt + + + + + true + true + + + + + Compuproveedores, S.A DE C.V. + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + www + + + + . + + + + compuproveedores + + + + . + + + + com + + + + + + + Textbox2 + 1.1557cm + 4.03176cm + 0.74402cm + 6.70687cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tel. + + + + =IIF(Parameters!Sucursal.Value="MATRIZ","(662) 214 2200", +IIF(Parameters!Sucursal.Value="Tijuana","(664) 645 1814", +IIF(Parameters!Sucursal.Value="Culiacán","(667) 715 8533", +IIF(Parameters!Sucursal.Value="Aguascalientes","(449) 913 4418","")))) + + + + + + + Textbox3 + 0.66868cm + 4.03176cm + 0.45527cm + 6.70687cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 7.63292cm + true + true + + + + + true + true + + + + + Usuario: + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 17.72297cm + 0.41981cm + 2.5cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 6.92679cm + 0.07937cm + 0.56854cm + 20.42759cm + + + + + + + + true + true + + + + + =Parameters!VendedorNombre.Value + + + + + + + + + + =Parameters!VendedorTelefono.Value + + + + + + + =Parameters!VendedorCelular.Value + + + + + + + =Parameters!VendedorMail.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + BannerChilo + Fit + 3.92835cm + 0.13228cm + 2.57528cm + 20.21765cm + 1 + + + + + + true + true + + + + + Precios unitarios, no incluyen IVA + + + + + + + + + No devolución, no cancelación una vez hecho el pedido + + + + + + + + + Todo pedido requiere Orden de Compra + + + + + + + + + Precios sujetos a cambio sin previo aviso + + + + + + + + + Cotización sujeta a disponibilidad + + + + + + + + + Vigencia de cotización: + + + + =Parameters!Vigencia.Value + + + + + + + + + Condiciones de pago: + + + + =Parameters!CondicionPago.Value + + + + + + + + + Forma de entrega: + + + + =Parameters!FormaEntrega.Value + + + + + + + Textbox20 + 0.62794cm + 12.53405cm + 3.36038cm + 7.87937cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Precios cotizados en Moneda Nacional + + + + + + + Textbox6 + 0.3175cm + 13.22197cm + 0.31044cm + 7.19145cm + 3 + + =IIF(Parameters!CveMoneda.Value = "1",TRUE,FALSE) + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!FirmaVendedor.Value + FitProportional + 0.37747cm + 0.50093cm + 1.35889cm + 5.74406cm + 4 + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + 0.10718cm + 6.39645cm + 19.863cm + 5 + + = iif(Globals!PageNumber=Globals!TotalPages, true,false) + + + + + + + true + 0.09525cm + 0.07411cm + 6.57948cm + 20.46108cm + 1 + + = iif(Globals!PageNumber=Globals!TotalPages, false,true) + + + + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0cm + 0cm + 1.27cm + - - - Catálogo de Shipments - - - - -
  • - - - Crear Shipment - - -
    • -     - - - - - -
    -
    -
    - Shipments -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    -
    -     -     - - - - -     - +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Shipments.aspx.cs" EnableEventValidation="false" Inherits="GPS_Shipments" %> + + + + + + + + Catálogo de Shipments + + + + +
  • + + + Crear Shipment + + +
    • +     + + + + + +
    +
    +
    + Shipments +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    +     +     + + + + +     + - - - + +     + diff --git a/GPS/Shipments.aspx.cs b/GPS/Shipments.aspx.cs index 2e6a3ada3..dc27aa9ba 100644 --- a/GPS/Shipments.aspx.cs +++ b/GPS/Shipments.aspx.cs @@ -154,34 +154,41 @@ public partial class GPS_Shipments : ClsPaginas } protected void LnkAddStop_Click(object sender, EventArgs e) { - if (DtStops != null) - { - var Row = DtStops.NewRow(); - Row["StopSequence"] = DtStops.Rows.Count + 1; - Row["Name"] = TxtLocName.Text.Trim(); - Row["LocationID"] = TxtLocID.Text.Trim(); - Row["StopType"] = DdlStopType.SelectedValue; - Row["StopRole"] = DdlStopRole.SelectedValue; - Row["EarlyArrivalTime"] = TxtFechaStopI.Text.ToDateTime(); - Row["LateArrivalTime"] = TxtFechaStopF.Text.ToDateTime(); - - Row["Address"] = TxtAddress.Text.Trim(); - Row["City"] = TxtCity.Text.Trim(); - Row["State"] = TxtState.Text.Trim(); - Row["PostalCode"] = TxtPostalCode.Text.Trim(); - Row["Country"] = TxtContry.Text.Trim(); - - var latlon = TxtLatLong.Text.Trim().Split(','); - - Row["Lat"] = latlon[0]; - Row["Lon"] = latlon[1]; - - DtStops.Rows.Add(Row); + try + { + if (DtStops != null) + { + var Row = DtStops.NewRow(); + Row["StopSequence"] = DtStops.Rows.Count + 1; + Row["Name"] = TxtLocName.Text.Trim(); + Row["LocationID"] = TxtLocID.Text.Trim(); + Row["StopType"] = DdlStopType.SelectedValue; + Row["StopRole"] = DdlStopRole.SelectedValue; + Row["EarlyArrivalTime"] = TxtFechaStopI.Text.ToDateTime(); + Row["LateArrivalTime"] = TxtFechaStopF.Text.ToDateTime(); + + Row["Address"] = TxtAddress.Text.Trim(); + Row["City"] = TxtCity.Text.Trim(); + Row["State"] = TxtState.Text.Trim(); + Row["PostalCode"] = TxtPostalCode.Text.Trim(); + Row["Country"] = TxtContry.Text.Trim(); + + var latlon = TxtLatLong.Text.Trim().Split(','); + + Row["Lat"] = latlon[0]; + Row["Lon"] = latlon[1]; + + DtStops.Rows.Add(Row); + } + GvStops.DataSource = DtStops; + GvStops.DataBind(); + + UpShipment.Update(); + } + catch (Exception ex) + { + this.OnError("Ocurrió un error al registrar la parada (stop)", ex); } - GvStops.DataSource = DtStops; - GvStops.DataBind(); - - UpShipment.Update(); this.RegistraScript("$('#DivStop').modal('hide');"); } diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index cb02b6f95..3fbfc4bca 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -121,6 +121,20 @@ 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 = "Vendedor" Then + Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + If Not dt.Columns(15).ColumnName = "Clasificación" Then + Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + If Not dt.Columns(16).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 @@ -489,16 +503,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 = 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 = 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 @@ -506,6 +521,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", @@ -587,16 +603,20 @@ Partial Class General_SaldosIniciales 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 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, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, + 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 @@ -711,8 +731,14 @@ Partial Class General_SaldosIniciales Dim Telefono As String = Row("Teléfono").ToString Dim Contacto As String = Row("Contacto").ToString Dim CelularContacto As String = Row("Celular Contacto").ToString + Dim Vendedor As String = Row("Vendedor").ToString + Dim Clasificacion As String = Row("Clasificación").ToString Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString.ToEntero + Dim CveVendedor As Integer = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString.ToEntero + Dim CveClasificación As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero + Dim EsDistribuidor As Boolean = If(Row("Es distribuidor").ToString = "si", True, False) + If CveCliente > 0 Then ExisteCliente = True Contador = Contador + 1 @@ -723,8 +749,8 @@ Partial Class General_SaldosIniciales ' Exit For '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 + If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, "", "", Colonia, "", "", Estado, Pais, RFC, CodigoPostal, "", "", Contacto, "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, -1, -1, + "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", "", Codigo, 0, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación) Then ErrorClientes = True RFC.GuardaLog Exit For @@ -763,11 +789,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 @@ -783,7 +809,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 diff --git a/OC/OC.aspx b/OC/OC.aspx index ccc521dda..30e93fdef 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -589,6 +589,8 @@
    +<%-- + --%>
    Vendedor: @@ -816,6 +818,8 @@ + +
    @@ -824,6 +828,8 @@ + + diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 90fb21398..f2bb091f8 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -2219,6 +2219,12 @@ Partial Class OC End Function Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click + 'Entrega Directa requiere Cliente y Vendedor + If ChkEntregaDirecta.Checked And Ddlcliente.SelectedValue.ToEntero <= 0 Then + Alert("Al ser una Entrega Directa es necesario seleccionar un cliente, por favor seleccione uno.") + Exit Sub + End If + 'VALIDACIONES PARA GUARDAR If ValidaGuardar() Then Exit Sub diff --git a/PortalGPS/InicioGPS.aspx.vb b/PortalGPS/InicioGPS.aspx.vb index 96fa525fa..17d5eccd0 100644 --- a/PortalGPS/InicioGPS.aspx.vb +++ b/PortalGPS/InicioGPS.aspx.vb @@ -34,8 +34,8 @@ Partial Class GPS_PruebaMaster If UsuarioActual.Contraseña = (ContraseñaPredeterminadaEncriptada) OrElse UsuarioActual.ActCambiarContraseña Then Response.Redirect("/Sistemas/CatContrasenia.aspx") Else + CargaZonasHorarias() CargaDispositivos() - CargaZonasHorarias() End If End If End Sub diff --git a/Ventas/ActualizarPrecios.aspx b/Ventas/ActualizarPrecios.aspx index e9c55c3cd..4b2761db4 100644 --- a/Ventas/ActualizarPrecios.aspx +++ b/Ventas/ActualizarPrecios.aspx @@ -160,7 +160,7 @@ - + @@ -173,7 +173,7 @@ - + @@ -186,7 +186,8 @@ - + + @@ -199,7 +200,7 @@