Empresas Zona Horaria
This commit is contained in:
rakcsle
@@ -1161,8 +1161,8 @@ Partial Class Compras_Compras
|
||||
ArrIE = New ArrayList()
|
||||
ArrIEFuncionariosEmpleados = New ArrayList()
|
||||
ClavesBorradas = New ArrayList()
|
||||
TxtFecha.Text = Now.ToShortDateString
|
||||
TxtFechaEjecucion.Text = Now.ToShortDateString
|
||||
TxtFecha.Text = NowADS().ToShortDateString
|
||||
TxtFechaEjecucion.Text = NowADS().ToShortDateString
|
||||
ViewState("CveFactura") = "0"
|
||||
ViewState("IdPoliza") = "0"
|
||||
ViewState("CveCompra") = -1
|
||||
@@ -1585,7 +1585,7 @@ Partial Class Compras_Compras
|
||||
Private Function CargaFactura(CveFactura As Integer) As String
|
||||
Dim ObjeFacturas As New ClsCompras
|
||||
Dim RFC As String = ""
|
||||
If ObjeFacturas.GetFacturas(CveFactura, "-1", Now.AddYears(-4), Now, "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then
|
||||
If ObjeFacturas.GetFacturas(CveFactura, "-1", NowADS().AddYears(-4), NowADS(), "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador
|
||||
ViewState("CveTipoProveedor") = dr("CveTipoProveedor").ToString.ToEntero
|
||||
@@ -1653,7 +1653,7 @@ Partial Class Compras_Compras
|
||||
XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", "").Replace("o;?", ""))
|
||||
Catch ex As Exception
|
||||
Try
|
||||
Dim oReader as New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
|
||||
Dim oReader As New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
|
||||
XMLDoc.Load(oReader)
|
||||
oReader.Dispose()
|
||||
Catch ex2 As Exception
|
||||
@@ -5198,7 +5198,7 @@ Partial Class Compras_Compras
|
||||
indice += 1
|
||||
|
||||
'agregamos la entrada
|
||||
If Not UsuarioActual.Empresa.UsaAC Then fecha = Now
|
||||
If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS()
|
||||
|
||||
folio = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa)
|
||||
cvemovimientoentrada = ObjInventario.AddMovimiento(tcvealmacen, 2, 1, fecha, folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Comp/G4")
|
||||
@@ -5285,7 +5285,7 @@ Partial Class Compras_Compras
|
||||
indice += 1
|
||||
|
||||
Dim fecha As Date = TxtFecha.Text.ToDate
|
||||
If Not UsuarioActual.Empresa.UsaAC Then fecha = Now
|
||||
If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS()
|
||||
|
||||
CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2")
|
||||
|
||||
@@ -6064,13 +6064,13 @@ Partial Class Compras_Compras
|
||||
If importeMN <> 0 Then
|
||||
|
||||
|
||||
If (TxtFecha.Text <> Now.ToString("dd/MM/yyyy")) And Not EntradaComoGastoConAlmacen Then
|
||||
If (TxtFecha.Text <> NowADS().ToString("dd/MM/yyyy")) And Not EntradaComoGastoConAlmacen Then
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
|
||||
Dim CvePrePoliza2Almacen As Integer = ObjConta.AddPrePolizas("Compras/Registrar/Almacen", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, Now, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
|
||||
Dim CvePrePoliza2Almacen As Integer = ObjConta.AddPrePolizas("Compras/Registrar/Almacen", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, NowADS(), ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
|
||||
|
||||
If CvePrePoliza2Almacen > 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, True, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
|
||||
@@ -7007,52 +7007,52 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
If HdnVCveOC.Value <> "-1" AndAlso HdnCveEstatusOC.Value <> "-1" Then
|
||||
Dim ArrayCveOC As String() = HdnVCveOC.Value.Split(New Char() {","c})
|
||||
Dim ArrayCveEstatusOC As String() = HdnCveEstatusOC.Value.Split(New Char() {","c})
|
||||
Dim ArrayCveOC As String() = HdnVCveOC.Value.Split(New Char() {","c})
|
||||
Dim ArrayCveEstatusOC As String() = HdnCveEstatusOC.Value.Split(New Char() {","c})
|
||||
|
||||
If ArrayCveEstatusOC.Count = ArrayCveOC.Count Then
|
||||
For i As Integer = 0 To ArrayCveEstatusOC.Count - 1
|
||||
If Not ObjOC.UpdateOrdenCompraCompletada(ArrayCveEstatusOC(i).ToEntero, ArrayCveOC(i).ToEntero, UsuarioActual.CveUsuario, "Se vinculó Compra", CveCompra) Then
|
||||
ErrorOC = True
|
||||
Exit For
|
||||
If ArrayCveEstatusOC.Count = ArrayCveOC.Count Then
|
||||
For i As Integer = 0 To ArrayCveEstatusOC.Count - 1
|
||||
If Not ObjOC.UpdateOrdenCompraCompletada(ArrayCveEstatusOC(i).ToEntero, ArrayCveOC(i).ToEntero, UsuarioActual.CveUsuario, "Se vinculó Compra", CveCompra) Then
|
||||
ErrorOC = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
ErrorOC = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If ChkNCInvNC.Checked Then
|
||||
For Each Gvr As GridViewRow In GVNCInv.Rows
|
||||
If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
|
||||
If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
|
||||
ErrorMovInv = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
|
||||
If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
|
||||
If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
|
||||
ErrorMovInv = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
ErrorOC = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If ChkNCInvNC.Checked Then
|
||||
For Each Gvr As GridViewRow In GVNCInv.Rows
|
||||
If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
|
||||
If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
|
||||
ErrorMovInv = True
|
||||
Exit For
|
||||
End If
|
||||
'GUARDA BITACORA TIPO CAMBIO OC
|
||||
If Not ErrorOC And TipoCambioOC > 0 Then
|
||||
If Not ObjEventos.AddEventoBitacora(String.Format("La vinculación con la orden de compra fue con un tipo de cambio de ${0}", TipoCambioOC.ToString), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
|
||||
ErrorOC = True
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
|
||||
If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
|
||||
If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
|
||||
ErrorMovInv = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
'GUARDA BITACORA TIPO CAMBIO OC
|
||||
If Not ErrorOC And TipoCambioOC > 0 Then
|
||||
If Not ObjEventos.AddEventoBitacora(String.Format("La vinculación con la orden de compra fue con un tipo de cambio de ${0}", TipoCambioOC.ToString), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
|
||||
ErrorOC = True
|
||||
End If
|
||||
End If
|
||||
|
||||
'AGREGAR OTROS GASTOS A ORDEN DE CORTE
|
||||
'If CveOrdenCorte > 0 And UsuarioActual.CveEmpresa = 126 Then
|
||||
' If ObjCGame.AddCorteGasto(CveOrdenCorte, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Now, 0, CveCompra) Then
|
||||
' If ObjCGame.AddCorteGasto(CveOrdenCorte, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, NowADS(), 0, CveCompra) Then
|
||||
' If Not ObjCGame.AddCorteGastoDetalle(ObjCGame.CveCorteGasto, 32, 1, TxtSubTotal.Text.ToDouble()) Then
|
||||
' ErrorOtrosGastos = True
|
||||
' End If
|
||||
@@ -7063,263 +7063,263 @@ Partial Class Compras_Compras
|
||||
|
||||
'CREDITO COMPRA
|
||||
Dim CvePrePolizaCredito As Integer = 0
|
||||
If RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue.ToEntero = 3 AndAlso DdlTipoCredito.SelectedValue.ToEntero = 1 AndAlso DdlCredito.SelectedValue.ToEntero > 0 Then
|
||||
If RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue.ToEntero = 3 AndAlso DdlTipoCredito.SelectedValue.ToEntero = 1 AndAlso DdlCredito.SelectedValue.ToEntero > 0 Then
|
||||
|
||||
If Not ObjIE.UpdateCreditosCompra(DdlCredito.SelectedValue.ToEntero, CveCompra, UsuarioActual.CveEmpresa) Then
|
||||
ErrorCreditosCompra = True
|
||||
End If
|
||||
|
||||
If Not ErrorCreditosCompra Then
|
||||
|
||||
Dim CveConceptoPago As Integer = 17
|
||||
If CveTipoConcepto = 2 Then CveConceptoPago = 308 'cuando es acreedor
|
||||
If CveMoneda > 1 Then
|
||||
Select Case CveConceptoPago
|
||||
Case 17
|
||||
CveConceptoPago = 312
|
||||
Case 308
|
||||
CveConceptoPago = 309
|
||||
Case Else
|
||||
End Select
|
||||
If Not ObjIE.UpdateCreditosCompra(DdlCredito.SelectedValue.ToEntero, CveCompra, UsuarioActual.CveEmpresa) Then
|
||||
ErrorCreditosCompra = True
|
||||
End If
|
||||
|
||||
If ObjIE.GetCreditos(DdlCredito.SelectedValue.ToEntero, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
CvePrePolizaCredito = ObjConta.AddPrePolizas("Compras/RegistrarCredito", -1, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 1, TxtFecha.Text.ToDate, "Vinculación crédito con factura", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, False, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, CveConceptoPago, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, True, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 50, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then
|
||||
If Not ErrorCreditosCompra Then
|
||||
|
||||
Dim CveConceptoPago As Integer = 17
|
||||
If CveTipoConcepto = 2 Then CveConceptoPago = 308 'cuando es acreedor
|
||||
If CveMoneda > 1 Then
|
||||
Select Case CveConceptoPago
|
||||
Case 17
|
||||
CveConceptoPago = 312
|
||||
Case 308
|
||||
CveConceptoPago = 309
|
||||
Case Else
|
||||
End Select
|
||||
End If
|
||||
|
||||
If ObjIE.GetCreditos(DdlCredito.SelectedValue.ToEntero, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
CvePrePolizaCredito = ObjConta.AddPrePolizas("Compras/RegistrarCredito", -1, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 1, TxtFecha.Text.ToDate, "Vinculación crédito con factura", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, False, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, CveConceptoPago, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, True, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 50, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then
|
||||
ErrorCreditosCompra = True
|
||||
End If
|
||||
Else
|
||||
ErrorCreditosCompra = True
|
||||
End If
|
||||
Else
|
||||
ErrorCreditosCompra = True
|
||||
End If
|
||||
|
||||
If Not ErrorCreditosCompra Then
|
||||
ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCredito)
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
'VALIDAR ERRORES
|
||||
If ErrorAC OrElse ErrorPrepoliza OrElse ErrorPrepolizaDescuadre OrElse ErrorDetalles OrElse ErrorMovDev OrElse ErrorMovtosCxP OrElse ErrorMovtosRetIVA OrElse ErrorMovtosRetISR OrElse ErrorMovtosEstimaciones OrElse ErrorMovtosIE OrElse ErrorMovtosIVA OrElse ErrorMovInv OrElse TieneError OrElse ErrorAF OrElse ErrorOC OrElse ErrorBitacora OrElse ErrorAddAcarreos OrElse ErrorCreditosCompra Then
|
||||
If ErrorDetalles Then
|
||||
Alert("Ocurrió un Error al agregar un Producto o Servicio a la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorMovtosCxP Then
|
||||
Alert("Ocurrió un Error al agregar las CxP.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorMovtosRetIVA Then
|
||||
Alert("Ocurrió un Error al agregar las Retenciones de IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorMovtosRetISR Then
|
||||
Alert("Ocurrió un Error al agregar las Retenciones de ISR.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorMovtosEstimaciones Then
|
||||
Alert("Ocurrió un Error al agregar las Estimaciones.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorMovtosIE Then
|
||||
Alert("Ocurrió un Error al agregar el movimiento bancario.<br />Revise sus datos y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorMovtosIVA Then
|
||||
Alert("Ocurrió un Error al agregar el IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorMovInv Then
|
||||
Alert("Ocurrió un Error al agregar el Producto o Servicio al Inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf TieneError Then
|
||||
Alert("El total de los IMPORTES del FINANCIAMIENTO debe ser mayor que 0 y menor o igual al total de la compra", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorAF Then
|
||||
Alert("Error al actualizar la vinculacion del Activo Fijo", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorAC Then
|
||||
Alert("Ocurrió un Error al insertar los movimientos contables.", TipoMensaje.MsgError)
|
||||
GuardaLog($" Error Compras DESCRIPCIÓN DETALLADA {ErrorACMEnsaje.ToString} {vbCrLf} Usuario={UsuarioActual.CveUsuario}, Empresa={UsuarioActual.CveEmpresa}, CveFactura={CveFactura}, CveProveedor={CveProveedor}")
|
||||
ElseIf ErrorPrepolizaDescuadre Then
|
||||
Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
|
||||
ElseIf ErrorPrepoliza Then
|
||||
Alert("Ocurrió un Error al verificar los movimientos contables", TipoMensaje.MsgError)
|
||||
ElseIf ErrorOC Then
|
||||
Alert("Ocurrió un Error al vincular la Orden(es) de Compra. Por favor vuelva intentar.", TipoMensaje.MsgError)
|
||||
ElseIf ErrorBitacora Then
|
||||
Alert("Ocurrió un Error al guardar la refacturación.", TipoMensaje.MsgError)
|
||||
ElseIf ErrorAddAcarreos Then
|
||||
Alert("Ocurrio un Error al momento de agregar los acarreos.", TipoMensaje.MsgError)
|
||||
ElseIf ErrorCreditosCompra Then
|
||||
Alert("Ocurrió un Error al vincular la compra con el crédito.", TipoMensaje.MsgError)
|
||||
ElseIf ErrorOtrosGastos Then
|
||||
Alert("Ocurrió un Error al vincular la compra con la orden de corte.", TipoMensaje.MsgError)
|
||||
ElseIf ErrorSATPS Then
|
||||
Alert("Ocurrió un Error al actualizar el producto/servicio SAT.", TipoMensaje.MsgError)
|
||||
ElseIf ErrorSaldosInvComp Then
|
||||
Alert("Ocurrió un Error al validar la mercancía recibida por adelantado.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ViewState("CveCompra") = -1
|
||||
ObjCompras.RollBack()
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
|
||||
CargaProveedor(CveProveedor, "-1")
|
||||
Else
|
||||
Dim MsgAccionAceptar As String = ""
|
||||
Dim Msg As New StringBuilder
|
||||
Msg.Append("La compra se registró correctamente")
|
||||
|
||||
If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
|
||||
If ObjConta.ValorPolizaDescuadre > 0 Then
|
||||
GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||
ErrorPrepolizaDescuadre = True
|
||||
End If
|
||||
End If
|
||||
|
||||
'ACTUALIZA CVEFACTURA
|
||||
If Request("CveFactura") IsNot Nothing Then
|
||||
|
||||
If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza)
|
||||
Else
|
||||
MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
|
||||
End If
|
||||
Else
|
||||
MsgAccionAceptar = "location.href =""Compras.aspx"""
|
||||
End If
|
||||
|
||||
'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174, 13, 83) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
|
||||
If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
|
||||
Dim CvePreComprobacion As Integer
|
||||
If ObjCompras.DtResultados.Rows.Count = 0 Then
|
||||
'sino existe, creamos la comprobacion
|
||||
Dim tConcepto As String = If(DdlPersonalReembolso.SelectedValue.ToEntero > 0, DdlPersonalReembolso.SelectedItem.Text, DdlCuentaCajaChicaReembolso.SelectedItem.Text)
|
||||
tConcepto = String.Format("{0}-{1}", tConcepto, TxtNumeroReembolso.Text.Trim)
|
||||
|
||||
CvePreComprobacion = ObjConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
If ObjCompras.AddComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then
|
||||
|
||||
If Not ErrorCreditosCompra Then
|
||||
ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCredito)
|
||||
End If
|
||||
Else
|
||||
'si ya existe, obtenemos la prepóliza
|
||||
CvePreComprobacion = ObjCompras.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
|
||||
|
||||
End If
|
||||
|
||||
ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
|
||||
End If
|
||||
End If
|
||||
|
||||
'AJUSTA POLIZA
|
||||
If IdPoliza > 0 Then
|
||||
PolizaFolio = ObjContaAC.Folio
|
||||
ObjContaAC.AjustaPoliza(IdPoliza)
|
||||
Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
|
||||
End If
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
|
||||
Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a> ", CvePrePoliza)
|
||||
Dim TempParametros As String = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza))
|
||||
Msg.Append($" <a class='Texto' target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={TempParametros}""> <i class='fa fa-file-pdf-o' aria-hidden='true'></i> Imprimir </a>")
|
||||
|
||||
End If
|
||||
|
||||
If CveMovimientoInventario > 0 Then
|
||||
Dim TempParametros As String = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario))
|
||||
Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"">Ver Movimiento de Almacen</a>", CveMovimientoInventario)
|
||||
Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Entrada Almacen</a>", TempParametros)
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then
|
||||
TieneError = True
|
||||
End If
|
||||
End If
|
||||
|
||||
If EntregaDirecta Then
|
||||
Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={CveCompra}&ED=1"">Recibir mercancía de entrega directa.</a>")
|
||||
End If
|
||||
|
||||
Dim AutoConta As Boolean = True
|
||||
If (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0 Or DdlTipoComprobante.SelectedValue = "Ant") Then
|
||||
AutoConta = False
|
||||
End If
|
||||
|
||||
If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4, AutoConta:=AutoConta) Then
|
||||
TieneError = True
|
||||
'If ObjConta.ValorPolizaDescuadre > 0 Then
|
||||
' GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||
' ErrorPrepolizaDescuadre = True
|
||||
'End If
|
||||
End If
|
||||
|
||||
If Not TieneError Then
|
||||
ObjCompras.Commit()
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
|
||||
|
||||
Dim CveEvaluacionProveedor As Integer = -1
|
||||
|
||||
If Me.RequiereEvaluacion Then
|
||||
Dim ObjPro As New ClsCompProveedores()
|
||||
CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, Now, "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa)
|
||||
ObjPro.Dispose()
|
||||
End If
|
||||
|
||||
'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC
|
||||
MandaCorreoOCVendedores(CveCompra)
|
||||
If Not ErrorMovInv Then
|
||||
For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen
|
||||
MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen)
|
||||
Next
|
||||
End If
|
||||
|
||||
'VALIDAR ERRORES
|
||||
If ErrorAC OrElse ErrorPrepoliza OrElse ErrorPrepolizaDescuadre OrElse ErrorDetalles OrElse ErrorMovDev OrElse ErrorMovtosCxP OrElse ErrorMovtosRetIVA OrElse ErrorMovtosRetISR OrElse ErrorMovtosEstimaciones OrElse ErrorMovtosIE OrElse ErrorMovtosIVA OrElse ErrorMovInv OrElse TieneError OrElse ErrorAF OrElse ErrorOC OrElse ErrorBitacora OrElse ErrorAddAcarreos OrElse ErrorCreditosCompra Then
|
||||
If ErrorDetalles Then
|
||||
Alert("Ocurrió un Error al agregar un Producto o Servicio a la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorMovtosCxP Then
|
||||
Alert("Ocurrió un Error al agregar las CxP.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorMovtosRetIVA Then
|
||||
Alert("Ocurrió un Error al agregar las Retenciones de IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorMovtosRetISR Then
|
||||
Alert("Ocurrió un Error al agregar las Retenciones de ISR.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorMovtosEstimaciones Then
|
||||
Alert("Ocurrió un Error al agregar las Estimaciones.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorMovtosIE Then
|
||||
Alert("Ocurrió un Error al agregar el movimiento bancario.<br />Revise sus datos y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorMovtosIVA Then
|
||||
Alert("Ocurrió un Error al agregar el IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorMovInv Then
|
||||
Alert("Ocurrió un Error al agregar el Producto o Servicio al Inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf TieneError Then
|
||||
Alert("El total de los IMPORTES del FINANCIAMIENTO debe ser mayor que 0 y menor o igual al total de la compra", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorAF Then
|
||||
Alert("Error al actualizar la vinculacion del Activo Fijo", TipoMensaje.MsgAdvertencia)
|
||||
ElseIf ErrorAC Then
|
||||
Alert("Ocurrió un Error al insertar los movimientos contables.", TipoMensaje.MsgError)
|
||||
GuardaLog($" Error Compras DESCRIPCIÓN DETALLADA {ErrorACMEnsaje.ToString} {vbCrLf} Usuario={UsuarioActual.CveUsuario}, Empresa={UsuarioActual.CveEmpresa}, CveFactura={CveFactura}, CveProveedor={CveProveedor}")
|
||||
ElseIf ErrorPrepolizaDescuadre Then
|
||||
Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
|
||||
ElseIf ErrorPrepoliza Then
|
||||
Alert("Ocurrió un Error al verificar los movimientos contables", TipoMensaje.MsgError)
|
||||
ElseIf ErrorOC Then
|
||||
Alert("Ocurrió un Error al vincular la Orden(es) de Compra. Por favor vuelva intentar.", TipoMensaje.MsgError)
|
||||
ElseIf ErrorBitacora Then
|
||||
Alert("Ocurrió un Error al guardar la refacturación.", TipoMensaje.MsgError)
|
||||
ElseIf ErrorAddAcarreos Then
|
||||
Alert("Ocurrio un Error al momento de agregar los acarreos.", TipoMensaje.MsgError)
|
||||
ElseIf ErrorCreditosCompra Then
|
||||
Alert("Ocurrió un Error al vincular la compra con el crédito.", TipoMensaje.MsgError)
|
||||
ElseIf ErrorOtrosGastos Then
|
||||
Alert("Ocurrió un Error al vincular la compra con la orden de corte.", TipoMensaje.MsgError)
|
||||
ElseIf ErrorSATPS Then
|
||||
Alert("Ocurrió un Error al actualizar el producto/servicio SAT.", TipoMensaje.MsgError)
|
||||
ElseIf ErrorSaldosInvComp Then
|
||||
Alert("Ocurrió un Error al validar la mercancía recibida por adelantado.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
If CveEvaluacionProveedor > 0 Then
|
||||
Msg.Append("<br/><br/>El proveedor tiene evaluaciones pendientes<br/>")
|
||||
Msg.Append("¿Desea realizar una evaluacion al proveedor?")
|
||||
Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Compras/EvaluacionProveedor.aspx?CveEvaluacionProveedor={CveEvaluacionProveedor}"">Evaluar Proveedor.</a>")
|
||||
End If
|
||||
|
||||
BtnGuardar.Enabled = False
|
||||
UpFacturar.Update()
|
||||
|
||||
Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
|
||||
Else
|
||||
ViewState("CveCompra") = -1
|
||||
ObjCompras.RollBack()
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
|
||||
Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
|
||||
CargaProveedor(CveProveedor, "-1")
|
||||
Else
|
||||
Dim MsgAccionAceptar As String = ""
|
||||
Dim Msg As New StringBuilder
|
||||
Msg.Append("La compra se registró correctamente")
|
||||
|
||||
If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
|
||||
If ObjConta.ValorPolizaDescuadre > 0 Then
|
||||
GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||
ErrorPrepolizaDescuadre = True
|
||||
End If
|
||||
End If
|
||||
|
||||
'ACTUALIZA CVEFACTURA
|
||||
If Request("CveFactura") IsNot Nothing Then
|
||||
|
||||
If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza)
|
||||
Else
|
||||
MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
|
||||
End If
|
||||
Else
|
||||
MsgAccionAceptar = "location.href =""Compras.aspx"""
|
||||
End If
|
||||
|
||||
'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174, 13, 83) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
|
||||
If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
|
||||
Dim CvePreComprobacion As Integer
|
||||
If ObjCompras.DtResultados.Rows.Count = 0 Then
|
||||
'sino existe, creamos la comprobacion
|
||||
Dim tConcepto As String = If(DdlPersonalReembolso.SelectedValue.ToEntero > 0, DdlPersonalReembolso.SelectedItem.Text, DdlCuentaCajaChicaReembolso.SelectedItem.Text)
|
||||
tConcepto = String.Format("{0}-{1}", tConcepto, TxtNumeroReembolso.Text.Trim)
|
||||
|
||||
CvePreComprobacion = ObjConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
If ObjCompras.AddComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then
|
||||
|
||||
End If
|
||||
Else
|
||||
'si ya existe, obtenemos la prepóliza
|
||||
CvePreComprobacion = ObjCompras.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
|
||||
End If
|
||||
|
||||
ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
|
||||
End If
|
||||
End If
|
||||
|
||||
'AJUSTA POLIZA
|
||||
If IdPoliza > 0 Then
|
||||
PolizaFolio = ObjContaAC.Folio
|
||||
ObjContaAC.AjustaPoliza(IdPoliza)
|
||||
Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
|
||||
End If
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
|
||||
Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a> ", CvePrePoliza)
|
||||
Dim TempParametros As String = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza))
|
||||
Msg.Append($" <a class='Texto' target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={TempParametros}""> <i class='fa fa-file-pdf-o' aria-hidden='true'></i> Imprimir </a>")
|
||||
|
||||
End If
|
||||
|
||||
If CveMovimientoInventario > 0 Then
|
||||
Dim TempParametros As String = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario))
|
||||
Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"">Ver Movimiento de Almacen</a>", CveMovimientoInventario)
|
||||
Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Entrada Almacen</a>", TempParametros)
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then
|
||||
TieneError = True
|
||||
End If
|
||||
End If
|
||||
|
||||
If EntregaDirecta Then
|
||||
Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={CveCompra}&ED=1"">Recibir mercancía de entrega directa.</a>")
|
||||
End If
|
||||
|
||||
Dim AutoConta As Boolean = True
|
||||
If (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0 Or DdlTipoComprobante.SelectedValue = "Ant") Then
|
||||
AutoConta = False
|
||||
End If
|
||||
|
||||
If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4, AutoConta:=AutoConta) Then
|
||||
TieneError = True
|
||||
'If ObjConta.ValorPolizaDescuadre > 0 Then
|
||||
' GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||
' ErrorPrepolizaDescuadre = True
|
||||
'End If
|
||||
End If
|
||||
|
||||
If Not TieneError Then
|
||||
ObjCompras.Commit()
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
|
||||
|
||||
Dim CveEvaluacionProveedor As Integer = -1
|
||||
|
||||
If Me.RequiereEvaluacion Then
|
||||
Dim ObjPro As New ClsCompProveedores()
|
||||
CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, NowADS(), "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa)
|
||||
ObjPro.Dispose()
|
||||
End If
|
||||
|
||||
'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC
|
||||
MandaCorreoOCVendedores(CveCompra)
|
||||
If Not ErrorMovInv Then
|
||||
For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen
|
||||
MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen)
|
||||
Next
|
||||
End If
|
||||
|
||||
If CveEvaluacionProveedor > 0 Then
|
||||
Msg.Append("<br/><br/>El proveedor tiene evaluaciones pendientes<br/>")
|
||||
Msg.Append("¿Desea realizar una evaluacion al proveedor?")
|
||||
Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Compras/EvaluacionProveedor.aspx?CveEvaluacionProveedor={CveEvaluacionProveedor}"">Evaluar Proveedor.</a>")
|
||||
End If
|
||||
|
||||
BtnGuardar.Enabled = False
|
||||
UpFacturar.Update()
|
||||
|
||||
Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
|
||||
Else
|
||||
ObjCompras.RollBack()
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
|
||||
Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
ObjCompras.RollBack()
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
|
||||
Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
Alert("Debe seleccionar un Funcionario/Empleado o Caja Chica para Reembolsos. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
ObjCompras.RollBack()
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
|
||||
Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
Alert("Debe seleccionar un Funcionario/Empleado o Caja Chica para Reembolsos. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
Alert("Ocurrió un error al agregar el movimiento bancario.<br />Revise sus datos de pago y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ObjCompras.RollBack()
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
|
||||
End If
|
||||
|
||||
Else
|
||||
Alert("Ocurrió un error al agregar el movimiento bancario.<br />Revise sus datos de pago y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
|
||||
ObjCompras.RollBack()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
ObjCompras.RollBack()
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
|
||||
Alert("Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgError)
|
||||
GuardaLog($"Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico : {ex}")
|
||||
ViewState("CveCompra") = -1
|
||||
End Try
|
||||
ObjAcar.Dispose()
|
||||
ObjCompras.Dispose()
|
||||
ObjConta.Dispose()
|
||||
ObjIE.Dispose()
|
||||
ObjInventario.Dispose()
|
||||
ObjAF.Dispose()
|
||||
ObjOC.Dispose()
|
||||
ObjProveedores.Dispose()
|
||||
ObjCGame.Dispose()
|
||||
ObjProductosServicios.Dispose()
|
||||
Catch ex As Exception
|
||||
ObjCompras.RollBack()
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
|
||||
Alert("Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgError)
|
||||
GuardaLog($"Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico : {ex}")
|
||||
ViewState("CveCompra") = -1
|
||||
End Try
|
||||
ObjAcar.Dispose()
|
||||
ObjCompras.Dispose()
|
||||
ObjConta.Dispose()
|
||||
ObjIE.Dispose()
|
||||
ObjInventario.Dispose()
|
||||
ObjAF.Dispose()
|
||||
ObjOC.Dispose()
|
||||
ObjProveedores.Dispose()
|
||||
ObjCGame.Dispose()
|
||||
ObjProductosServicios.Dispose()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -10040,7 +10040,7 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
Private Sub SetValues()
|
||||
'Dim um As New ClsUnidadesMedida
|
||||
TxtFecha.Text = Now.ToShortDateString()
|
||||
TxtFecha.Text = NowADS().ToShortDateString()
|
||||
LblUsuarioCaptura.Text = UsuarioActual.Usuario
|
||||
DdlProveedor.Attributes.Add("onclick", "CargaProveedores();")
|
||||
'DdlFuncionarioEmpleado.Attributes.Add("onclick", "CargaFuncionariosEmpleados();")
|
||||
@@ -12608,7 +12608,7 @@ Partial Class Compras_Compras
|
||||
|
||||
|
||||
If ObjInventario.GetExistenciasProducto(Dr.DataKey("CvePS").ToString.ToEntero, Dr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, CveAlmacen,
|
||||
FechaMovto:=TxtFecha.Text.ToDateTime.AddHours(Now.Hour).AddMinutes(Now.Minute).AddSeconds(Now.Second).ToString("yyyy/MM/dd HH:mm")) Then
|
||||
FechaMovto:=TxtFecha.Text.ToDateTime.AddHours(NowADS().Hour).AddMinutes(NowADS().Minute).AddSeconds(NowADS().Second).ToString("yyyy/MM/dd HH:mm")) Then
|
||||
|
||||
Dim Existencia As Decimal = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", CveAlmacen)).ToDecimal
|
||||
|
||||
@@ -12699,7 +12699,7 @@ Partial Class Compras_Compras
|
||||
' Dim ObjInventario As New ClsInventarios()
|
||||
' Dim cvecompra As Integer = 5221
|
||||
' Dim subtotal As Double = TextBox1.Text.ToDouble
|
||||
' guardardevolucion(ObjInventario, cvecompra, subtotal, Now.ToDate)
|
||||
' guardardevolucion(ObjInventario, cvecompra, subtotal, NowADS().ToDate)
|
||||
'End Sub
|
||||
Protected Sub BtnVinculaDevolucion_Click(sender As Object, e As EventArgs)
|
||||
Try
|
||||
@@ -15395,15 +15395,15 @@ Partial Class Compras_Compras
|
||||
#Region " CIERRE PERIODO "
|
||||
Private Function ValidaCierrePeriodo() As Boolean
|
||||
'solo se permiten, mes actual, mes anterior <= #dias
|
||||
Dim mesesTrans As Integer = DateDiff(DateInterval.Month, TxtFecha.Text.ToDate, Now).ToEntero
|
||||
Dim mesesTrans As Integer = DateDiff(DateInterval.Month, TxtFecha.Text.ToDate, NowADS()).ToEntero
|
||||
|
||||
If mesesTrans = 0 OrElse (mesesTrans = 1 AndAlso Day(Now) <= UsuarioActual.Empresa.Funcionalidad(123).ToEntero) Then
|
||||
If mesesTrans = 0 OrElse (mesesTrans = 1 AndAlso Day(NowADS()) <= UsuarioActual.Empresa.Funcionalidad(123).ToEntero) Then
|
||||
Return True
|
||||
End If
|
||||
Return False
|
||||
|
||||
'Dim mesesTrans As Integer = DateDiff(DateInterval.Month, TxtFecha.Text.ToDate, Now).ToEntero
|
||||
'If mesesTrans > 1 OrElse Day(Now) >= UsuarioActual.Empresa.Funcionalidad(123).ToEntero Then
|
||||
'Dim mesesTrans As Integer = DateDiff(DateInterval.Month, TxtFecha.Text.ToDate, NowADS()).ToEntero
|
||||
'If mesesTrans > 1 OrElse Day(NowADS()) >= UsuarioActual.Empresa.Funcionalidad(123).ToEntero Then
|
||||
' Return True
|
||||
'End If
|
||||
'Return False
|
||||
@@ -15495,7 +15495,7 @@ Partial Class Compras_Compras
|
||||
DtDatosDetalle.Rows.Add(Row)
|
||||
|
||||
TxtSerieLote.Text = ""
|
||||
TxtFechaCaducidad.Text = Now.ToShortDateString
|
||||
TxtFechaCaducidad.Text = NowADS().ToShortDateString
|
||||
|
||||
CargaSerie()
|
||||
End Sub
|
||||
@@ -16450,7 +16450,7 @@ Partial Class Compras_Compras
|
||||
Autorizado = ObjCon.DtResultados.FiltraParametros($"CveClasificacion = {DdlClasificacion.SelectedValue.ToEntero} AND CveTipoGasto = {DdlTipoGasto.SelectedValue.ToEntero} AND Importe > 0").Rows(0)("Importe").ToString.ToDouble
|
||||
End If
|
||||
End If
|
||||
If ObjCon.GetPresupuestosRep(CvePresupuesto, DdlTipoGasto.SelectedValue.ToEntero, 1, $"01/09/{DateTime.Now.Year - 1}".ToDate, Now, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero,
|
||||
If ObjCon.GetPresupuestosRep(CvePresupuesto, DdlTipoGasto.SelectedValue.ToEntero, 1, $"01/09/{NowADS().Year - 1}".ToDate, NowADS(), UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero,
|
||||
DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then
|
||||
If ObjCon.DtResultados.Rows.Count > 0 Then
|
||||
Ejercido = ObjCon.DtResultados.Rows(0)("Ejercido").ToString.ToDouble
|
||||
@@ -16600,7 +16600,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
Dim CveCompraDetalleDesvicnualarAF As Integer = TmpDT.FiltroPrimeroValor("CveCompraDetalle", $"Consec={Index}").ToEntero
|
||||
'If ObjAF.UpdateActivosFijosCompra(-1, CveCompraDetalleDesvicnualarAF, -1, 0, Now, Opcion:=2) Then
|
||||
'If ObjAF.UpdateActivosFijosCompra(-1, CveCompraDetalleDesvicnualarAF, -1, 0, NowADS(), Opcion:=2) Then
|
||||
|
||||
For Each dRow As DataRow In TmpDT.Rows
|
||||
|
||||
@@ -18057,7 +18057,7 @@ Partial Class Compras_Compras
|
||||
For Each Row2 As DataRow In DT.Rows
|
||||
|
||||
ImporteMovimiento = DtTemporal.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal
|
||||
ImporteAlmacen = DtTemporal.SUM("ImporteEnAlmacen", String.Format("ISNULL(TipoAF,0) <> 2 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal
|
||||
ImporteAlmacen = DtTemporal.SUM("ImporteEnAlmacen", String.Format("ISNULL(TipoAF,0) <> 2 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal
|
||||
|
||||
ImporteMovimiento = (ImporteMovimiento - ImporteAlmacen) * Multiplicador
|
||||
importeMN = ImporteMovimiento * TipoCambioActual
|
||||
@@ -18453,7 +18453,7 @@ Partial Class Compras_Compras
|
||||
|
||||
Private Sub CargaModalFletesImportaciones()
|
||||
|
||||
TxtFechaModalImportacionesFletes.Text = Now.ToShortDateString
|
||||
TxtFechaModalImportacionesFletes.Text = NowADS().ToShortDateString
|
||||
TxtDescripcionModalFletesImportacion.Text = ""
|
||||
TxtPedimento.Text = ""
|
||||
RblTipo.SelectedValue = "1"
|
||||
@@ -18532,7 +18532,7 @@ Partial Class Compras_Compras
|
||||
Case 240
|
||||
DdlImportaciones.SelectedValueExist(CveImportacion)
|
||||
End Select
|
||||
TxtFechaModalImportacionesFletes.Text = Now.ToShortDateString
|
||||
TxtFechaModalImportacionesFletes.Text = NowADS().ToShortDateString
|
||||
TxtDescripcionModalFletesImportacion.Text = ""
|
||||
TxtPedimento.Text = ""
|
||||
UpModalFletesImportaciones.Update()
|
||||
|
||||
Reference in New Issue
Block a user