AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2022-01-03 04:34:19 -07:00
parent 15ca5c823d b5434d57a0
commit 6c986345da
13 changed files with 186 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsBancos.vb
View File

@@ -1445,7 +1445,7 @@ Public Class ClsBancos
.Add("@FechaDocumento", SqlDbType.Date).Value = FechaDocumento .Add("@FechaDocumento", SqlDbType.Date).Value = FechaDocumento
.Add("@Folio", SqlDbType.VarChar).Value = Folio .Add("@Folio", SqlDbType.VarChar).Value = Folio
.Add("@PagueseA", SqlDbType.VarChar).Value = PagueseA .Add("@PagueseA", SqlDbType.VarChar).Value = PagueseA
.Add("@Importe", SqlDbType.Money).Value = Importe .Add("@Importe", SqlDbType.Money).Value = Importe.RoundSQL
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
.Add("@TipoCambio", SqlDbType.Float).Value = TipoCambio .Add("@TipoCambio", SqlDbType.Float).Value = TipoCambio
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones

4
App_Code/Modelos.vb
View File

@@ -5797,7 +5797,7 @@ Namespace Modelos
Exit For Exit For
End If End If
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, CveAF:=DrRem("CveActivoFijo").ToString.ToEntero, Serie:=DrRem("Serie").ToString, Lote:=DrRem("Lote").ToString, CveVentaDetalle:=CveVentaDetalleRem, CveMovimientoDetalleEntrada:=DrRem("CveMovimientoDetalle").ToString().ToEntero(), CveSeccionAlmacen:=-3) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, CveAF:=DrRem("CveActivoFijo").ToString.ToEntero, Serie:=DrRem("Serie").ToString, Lote:=DrRem("Lote").ToString, FechaCaducidad:=DrRem("FechaCaducidad").ToString.ToDate, CveVentaDetalle:=CveVentaDetalleRem, CveMovimientoDetalleEntrada:=DrRem("CveMovimientoDetalle").ToString().ToEntero(), CveSeccionAlmacen:=-3) Then
ErrorCancelar = True ErrorCancelar = True
Exit For Exit For
End If End If
@@ -5820,7 +5820,7 @@ Namespace Modelos
If Not ErrorCancelar Then If Not ErrorCancelar Then
If DtEntradaDetalle IsNot Nothing Then If DtEntradaDetalle IsNot Nothing Then
For Each Dr As DataRow In DtEntradaDetalle.Rows For Each Dr As DataRow In DtEntradaDetalle.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, CveSeccionAlmacen:=-3) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveSeccionAlmacen:=-3) Then
ErrorCancelar = True ErrorCancelar = True
Exit For Exit For
End If End If

64
Ashx/SIGWeb.ashx
View File

@@ -124,6 +124,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Getetiquetas(context) Getetiquetas(context)
Case "cancelarRemision" Case "cancelarRemision"
cancelarRemision(context) cancelarRemision(context)
Case "RemoveMovimiento"
RemoveMovimiento(context)
End Select End Select
Catch ex As Exception Catch ex As Exception
ex.GuardaLog(ex.Message) ex.GuardaLog(ex.Message)
@@ -1644,4 +1646,66 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Return retorno Return retorno
End Function End Function
#End Region #End Region
Private Function RemoveMovimiento(ByVal context As HttpContext) As String
Dim retorno As String = ""
Dim Borrar As Boolean = False
Dim Inv As New ClsInventarios
Dim Conta As New ClsContabilidad(Inv.IniciaTransacSQL())
Dim ObjGral As New ClsGenerales(Inv.IniciaTransacSQL())
Dim CveMovimiento As Integer = IfNull(context.Request("CveMovimiento"), "-1").ToString().ToEntero()
Dim CveEmpresa As Integer = IfNull(context.Request("CveEmpresa"), "-1").ToString().ToEntero()
Dim TieneError = False
CveMovimiento.ToString.GuardaLog
'Dim ObjConta As ClsContPAQi = Nothing
'If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
' ObjConta = New ClsContPAQi(UsuarioActual.Empresa)
' ObjConta.IniciaTransacSQL()
'End If
'If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, String.Format("{0}, Informacion = {1}", TxtDescripcion.Text, DescripcionDetalladaEliminar), "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
' TieneError = True
'End If
If Not Inv.MovimientoRemove(CveMovimiento, CveEmpresa) Then
TieneError = True
End If
'If Not TieneError Then
' If Not Conta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
' TieneError = True
' End If
'End If
If Not TieneError Then
'If ObjConta IsNot Nothing Then ObjConta.Commit()
Inv.Commit()
Else
Inv.RollBack()
Alert("Ocurrió un error al eliminar el movimiento. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If
CveMovimiento = 0
Inv.Dispose()
ObjGral.Dispose()
Conta.Dispose()
If Not String.IsNullOrEmpty(retorno) Then
context.Response.Write(retorno)
Else
context.Response.Write("[]")
End If
Return retorno
End Function
End Class End Class

BIN
Bin/GoCfdi.dll
View File

Binary file not shown.

68
CRM/EmpresaCRM.aspx.cs
View File

@@ -14,6 +14,8 @@ using ADSNetLibrary.SIGAPI.Models.Ventas.Response;
using Extensiones; using Extensiones;
using MoreLinq; using MoreLinq;
using ADSNetLibrary.SIGAPI.Services; using ADSNetLibrary.SIGAPI.Services;
using ADSNetLibrary.SIGAPI.Services.Encuestas;
using ADSNetLibrary.SIGAPI.Models.Encuestas.Request;
public partial class CRM_EmpresaCRM : ClsPaginas public partial class CRM_EmpresaCRM : ClsPaginas
{ {
@@ -451,15 +453,17 @@ public partial class CRM_EmpresaCRM : ClsPaginas
protected int GuardaDatosTecnicos(ClsEncuestas ObjDatosTecnicos, int CveEncuestaAplicada = -1) protected int GuardaDatosTecnicos(ClsEncuestas ObjDatosTecnicos, int CveEncuestaAplicada = -1)
{ {
var encuestaService = new EncuestaService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
int _CveEncuestaAplicada = CveEncuestaAplicada; int _CveEncuestaAplicada = CveEncuestaAplicada;
//NUEVA CAPTURA DE DATOS TECNICOS //NUEVA CAPTURA DE DATOS TECNICOS
if (!EsEditar) if (!EsEditar)
{ {
if (ObjDatosTecnicos.AddEncuestaAplicada(CveEncuestaCRM, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) var responseModelAddEncuestaAplicada = encuestaService.AddEncuestaAplicada(new RequestEncuestaAplicadaAdd() { CveEncuesta = CveEncuestaCRM, CveCliente = -1, CvePersonal = -1, CveUsuario = UsuarioActual.CveUsuario, CveEmpresa = UsuarioActual.CveEmpresa });
if (responseModelAddEncuestaAplicada.Result > 0)
{ {
DataTable dt; DataTable dt;
_CveEncuestaAplicada = ObjDatosTecnicos.DtResultados.Rows[0][0].ToEntero(); _CveEncuestaAplicada = responseModelAddEncuestaAplicada.Result.ToEntero();
foreach (GridViewRow drow in GvDatosTecnicos.Rows) foreach (GridViewRow drow in GvDatosTecnicos.Rows)
{ {
@@ -520,7 +524,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
} }
//CREAMOS REGISTRO DE LOS DATOS TECNICOS //CREAMOS REGISTRO DE LOS DATOS TECNICOS
if (!(ObjDatosTecnicos.AddEncuestaAplicadaDetalle(_CveEncuestaAplicada, CvePregunta, CveRespuesta, Respuesta))) var responnseModelAddEncuestaAplicadaDetalle = encuestaService.AddEncuestaAplicadaDetalle(new RequestEncuestaAplicadaDetalleAdd() { CveEncuestaAplicada = _CveEncuestaAplicada, CvePregunta = CvePregunta, CveRespuesta = CveRespuesta, Valor = Respuesta });
if (!responnseModelAddEncuestaAplicadaDetalle.IsSuccess)
{ {
//SI HAY ERROR REGRESA 0 //SI HAY ERROR REGRESA 0
_CveEncuestaAplicada = 0; _CveEncuestaAplicada = 0;
@@ -600,13 +605,15 @@ public partial class CRM_EmpresaCRM : ClsPaginas
} }
} }
var responnseModelUpdateDatosTecnicosCRM = encuestaService.UpdateDatosTecnicosCRM(new RequestDatosTecnicosCRMUpdate() { CveEncuestaAplicadaDetalle = CveEncuestaAplicadaDetalle, CveEncuestaAplicada = CveEncuestaAplicada, CvePregunta = CvePregunta, CveRespuesta = CveRespuesta, Respuesta = Respuesta });
var responnseModelAddEncuestaAplicadaDetalle = encuestaService.AddEncuestaAplicadaDetalle(new RequestEncuestaAplicadaDetalleAdd() { CveEncuestaAplicada = _CveEncuestaAplicada, CvePregunta = CvePregunta, CveRespuesta = CveRespuesta, Valor = Respuesta });
//ACTUALIZAMOS LOS DATOS TECNICOS //ACTUALIZAMOS LOS DATOS TECNICOS
if (ExisteRegistro && !(ObjDatosTecnicos.UpdateDatosTecnicosCRM(CveEncuestaAplicadaDetalle, CveEncuestaAplicada, CvePregunta, CveRespuesta, Respuesta))) if (ExisteRegistro && !responnseModelUpdateDatosTecnicosCRM.IsSuccess)
{ {
//SI HAY ERROR REGRESA 0 //SI HAY ERROR REGRESA 0
_CveEncuestaAplicada = 0; _CveEncuestaAplicada = 0;
} }
else if (!ExisteRegistro && !(ObjDatosTecnicos.AddEncuestaAplicadaDetalle(_CveEncuestaAplicada, CvePregunta, CveRespuesta, Respuesta))) else if (!ExisteRegistro && !responnseModelAddEncuestaAplicadaDetalle.IsSuccess)
{ {
//SI HAY ERROR REGRESA 0 //SI HAY ERROR REGRESA 0
_CveEncuestaAplicada = 0; _CveEncuestaAplicada = 0;
@@ -827,6 +834,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
var objAcercamiento = cRMService.GetAceracamientoCRM(aceramientoGet); var objAcercamiento = cRMService.GetAceracamientoCRM(aceramientoGet);
ClsEncuestas objDatosTecnicos = new ClsEncuestas(ObjCRM.IniciaTransacSQL()); ClsEncuestas objDatosTecnicos = new ClsEncuestas(ObjCRM.IniciaTransacSQL());
var encuestaService = new EncuestaService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
if (objAcercamiento.Result.Count == 0) if (objAcercamiento.Result.Count == 0)
{ {
@@ -835,7 +844,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
if (cRMService.EmpresasCRMDelete(EmpresasCRM)) if (cRMService.EmpresasCRMDelete(EmpresasCRM))
{ {
HuboError = false; HuboError = false;
if (CveEncuestaAplicada > 0 && !objDatosTecnicos.RemoveEncuestaAplicada(CveEncuestaAplicada, UsuarioActual.CveEmpresa)) var responseModelRemoveEncuestaAplicada = encuestaService.RemoveEncuestaAplicada(new RequestEncuestaAplicadaRemove() { CveEmpresa = UsuarioActual.CveEmpresa, CveEncuestaAplicada = CveEncuestaAplicada });
if (CveEncuestaAplicada > 0 && !responseModelRemoveEncuestaAplicada.IsSuccess)
{ {
HuboError = true; HuboError = true;
} }
@@ -883,8 +893,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
} }
else else
{ {
BtnAgregarContacto.Visible = true; BtnAgregarContacto.Visible = false;
DivBuscadorContactos.Visible = true; DivBuscadorContactos.Visible = false;
} }
} }
@@ -1564,7 +1574,6 @@ public partial class CRM_EmpresaCRM : ClsPaginas
ClsCRM ObjCRM = new ClsCRM(); ClsCRM ObjCRM = new ClsCRM();
ClsOIEventos ObjBitacora = new ClsOIEventos(ObjCRM.IniciaTransacSQL()); ClsOIEventos ObjBitacora = new ClsOIEventos(ObjCRM.IniciaTransacSQL());
ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString); ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
AcercaminetoModel AcercamientoModel = new AcercaminetoModel();
@@ -1601,24 +1610,29 @@ public partial class CRM_EmpresaCRM : ClsPaginas
if (tempDT.Rows.Count > 0) if (tempDT.Rows.Count > 0)
{ {
AcercamientoModel.CveEmpresaCRM = CveEmpresaCRM; var AcercamientoModel = new AcercaminetoModel()
AcercamientoModel.CveContactoPrincipal = CveContactoPrincipal; {
AcercamientoModel.CveTipoProceso = CveTipoProceso; CveEmpresaCRM = CveEmpresaCRM,
AcercamientoModel.CveEtapaProcesoActual = CveEtapaProcesoActual; CveContactoPrincipal = CveContactoPrincipal,
AcercamientoModel.CveVendedor = CveVendedor; CveTipoProceso = CveTipoProceso,
AcercamientoModel.CveMedioCaptacion = CveMedioCaptacion; CveEtapaProcesoActual = CveEtapaProcesoActual,
AcercamientoModel.CveRechazoMotivo = CveRechazoMotivo; CveVendedor = CveVendedor,
AcercamientoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento; CveMedioCaptacion = CveMedioCaptacion,
AcercamientoModel.FechaApertura = FechaApertura; CveRechazoMotivo = CveRechazoMotivo,
AcercamientoModel.FechaCierre = (DateTime)System.Data.SqlTypes.SqlDateTime.Null; CveProbabilidadAcercamiento = CveProbabilidadAcercamiento,
AcercamientoModel.NombreAcercamiento = NombreAcercamiento; FechaApertura = FechaApertura,
AcercamientoModel.Descripcion = Descripcion; FechaCierre = (DateTime)System.Data.SqlTypes.SqlDateTime.Null,
AcercamientoModel.Importe = Importe; NombreAcercamiento = NombreAcercamiento,
AcercamientoModel.Comision = Comision; Descripcion = Descripcion,
AcercamientoModel.Prioridad = Prioridad; Importe = Importe,
AcercamientoModel.CveEmpresa = UsuarioActual.CveEmpresa; Comision = Comision,
AcercamientoModel.CveUsuarioIng = CveUsuarioIng; Prioridad = Prioridad,
AcercamientoModel.CvePS = DdlPS.SelectedValue.ToEntero(); CveEmpresa = UsuarioActual.CveEmpresa,
CveUsuarioIng = CveUsuarioIng,
CvePS = DdlPS.SelectedValue.ToEntero()
};
CveAcercamiento = cRMService.AcercamientoAdd(AcercamientoModel).ToEntero(); CveAcercamiento = cRMService.AcercamientoAdd(AcercamientoModel).ToEntero();
} }

8
Compras/Compras.aspx
View File

@@ -4844,13 +4844,17 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Center" Width="10%" /> <ItemStyle HorizontalAlign="Center" Width="10%" />
</asp:TemplateField> </asp:TemplateField>
<asp:HyperLinkField HeaderText="SerieFolio" DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?={0}" /> <asp:HyperLinkField HeaderText="SerieFolio" DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" />
<asp:BoundField HeaderText="Original" DataField="CantidadC" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" /> <asp:BoundField HeaderText="Original" DataField="CantidadC" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
<asp:BoundField HeaderText="Surtido" DataField="CantidadS" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" /> <asp:BoundField HeaderText="Surtido" DataField="CantidadS" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
<asp:BoundField HeaderText="Pendiente" DataField="CantidadF" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" /> <asp:BoundField HeaderText="Pendiente" DataField="CantidadF" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" />
<asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="7.5%" /> <asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="7.5%" />
<asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%" /> <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%" />
<asp:BoundField HeaderText="P.U." DataField="PU" DataFormatString="{0:#,##0.####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" /> <asp:TemplateField HeaderText="P.U." ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%">
<ItemTemplate>
<asp:Textbox ID="TxtPU" Width="60px" Text='<%# Eval("PU", "{0:N2}") %>' CssClass="textaslabel" runat="server"></asp:Textbox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%"> <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbTotal" Text='<%# (CDbl(Eval("PU").ToString) * CDbl(Eval("CantidadF").ToString)).ToString("N2") %>' runat="server"></asp:Label> <asp:Label ID="LbTotal" Text='<%# (CDbl(Eval("PU").ToString) * CDbl(Eval("CantidadF").ToString)).ToString("N2") %>' runat="server"></asp:Label>

4
Compras/Compras.aspx.vb
View File

@@ -6434,7 +6434,7 @@ Partial Class Compras_Compras
' End If ' End If
Case 6 'Compra Case 6 'Compra
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 153, 154, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 145, 141, 152, 153, 154, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
@@ -6826,7 +6826,7 @@ Partial Class Compras_Compras
Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal
'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) 'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal)
'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) 'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal)
importeMNTemp = (Gvr.DataKey("PU").ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * Gvr.DataKey("TipoCambio").ToDecimal).RoundSQL importeMNTemp = (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * Gvr.DataKey("TipoCambio").ToDecimal).RoundSQL
ImporteTransito += importeMNTemp ImporteTransito += importeMNTemp
'se registra por cada compra relacionada 'se registra por cada compra relacionada
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMNTemp, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=Gvr.DataKey("TipoCambio").ToDecimal, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMNTemp, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=Gvr.DataKey("TipoCambio").ToDecimal, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then

2
General/SaldosIniciales.aspx.vb
View File

@@ -1837,7 +1837,7 @@ Partial Class General_SaldosIniciales
Next Next
Catch ex As Exception Catch ex As Exception
If mensajeError = "" Then If mensajeError = "" Then
mensajeError = "Error técnico, informar a soporte" mensajeError = "Error técnico, informar a soporte" & ex.Message
End If End If
ObjMovimientos.RollBack() ObjMovimientos.RollBack()
End Try End Try

2
Inventarios/CatUnidades.aspx
View File

@@ -177,7 +177,6 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNombreAseguradoraCarga" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox> <asp:TextBox ID="TxtNombreAseguradoraCarga" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
<label for="<%= TxtNombreAseguradoraCarga.ClientID.ToString()%>">Aseguradora Carga:</label> <label for="<%= TxtNombreAseguradoraCarga.ClientID.ToString()%>">Aseguradora Carga:</label>
<asp:RequiredFieldValidator runat="server" ID="RequiredFieldValidator3" ControlToValidate="TxtNombreAseguradoraCarga" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Aseguradora Carga''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
<i></i> <i></i>
</div> </div>
</div> </div>
@@ -185,7 +184,6 @@
<div class="form-group form-md-line-input input-iconright" > <div class="form-group form-md-line-input input-iconright" >
<asp:TextBox ID="TxtNumPolizaSeguroCarga" CssClass="form-control" runat="server" MaxLength="25"></asp:TextBox> <asp:TextBox ID="TxtNumPolizaSeguroCarga" CssClass="form-control" runat="server" MaxLength="25"></asp:TextBox>
<label for="<%= TxtNumPolizaSeguroCarga.ClientID.ToString()%>">Número Póliza Seguro:</label> <label for="<%= TxtNumPolizaSeguroCarga.ClientID.ToString()%>">Número Póliza Seguro:</label>
<asp:RequiredFieldValidator runat="server" ID="RequiredFieldValidator4" ControlToValidate="TxtNumPolizaSeguroCarga" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Póliza Seguro Carga''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
<i></i> <i></i>
</div> </div>
</div> </div>

2
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -933,7 +933,7 @@ Partial Class Inventarios_EntregaAlmacen
'código temporal 'código temporal
Dim AplicaSerie As Boolean = CBool(e.Row.DBCampo("AplicaSerie")) Dim AplicaSerie As Boolean = CBool(e.Row.DBCampo("AplicaSerie"))
If UsuarioActual.CveEmpresa = 140 AndAlso Not CveSubProyecto.Contiene(11793, 11993, 11794, 11795) Then If UsuarioActual.CveEmpresa = 140 AndAlso Not CveSubProyecto.Contiene(11791, 11793, 11993, 11994, 11794, 11797, 11795, 12010, 12011) Then
AplicaSerie = False AplicaSerie = False
End If End If

24
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -704,7 +704,7 @@ Partial Class Inventarios_RecepcionAlmacen
Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
If ddlProveedor.SelectedValue.ToEntero > 0 Then If ddlProveedor.SelectedValue.ToEntero > 0 Then
If ObjInventarios.ComprasPendientesAlmacenGet(ddlProveedor.SelectedValue.ToEntero, MinFecha.ToShortDateString.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjInventarios.ComprasPendientesAlmacenGet(ddlProveedor.SelectedValue.ToEntero, MinFecha.ToShortDateString.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Dim FiltroTemporal = If(UsuarioActual.CveEmpresa = 119, "AND TipoDocto IN ('Fac','NC','DEV')", "AND TipoDocto IN ('Fac')") Dim FiltroTemporal = " AND TipoDocto IN ('Fac','NC','DEV')"
DdlFolio.DataSource = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}") DdlFolio.DataSource = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}")
Else Else
Alert("Ocurrió un error al obtener las Compras pendientes de recibir del proveedor. Por favor vuelva a intentar", TipoMensaje.MsgError) Alert("Ocurrió un error al obtener las Compras pendientes de recibir del proveedor. Por favor vuelva a intentar", TipoMensaje.MsgError)
@@ -981,7 +981,7 @@ Partial Class Inventarios_RecepcionAlmacen
ElseIf CveTipoCompra = 10 Then ElseIf CveTipoCompra = 10 Then
CargaAlmacenes(-1, CveTipoCompra:=CveTipoCompra) CargaAlmacenes(-1, CveTipoCompra:=CveTipoCompra)
ElseIf TipoMovimiento = 3 Then 'devolucion al proveedor ElseIf TipoMovimiento = 3 Then 'devolucion al proveedor
CargaAlmacenes(-1, "21,2,27", CveTipoCompra) CargaAlmacenes(-1, "1,21,2,27", CveTipoCompra)
Else Else
CargaAlmacenes(-1) CargaAlmacenes(-1)
End If End If
@@ -2775,15 +2775,15 @@ Partial Class Inventarios_RecepcionAlmacen
.Data = group .Data = group
}) })
'comentado para subir versión, dividirOC
For Each oc In resultsOC 'For Each oc In resultsOC
If oc.Cantidad < oc.CantidadOC Then ' If oc.Cantidad < oc.CantidadOC Then
MensajeOC.AppendFormat("- {0}</br>", oc.PS) ' MensajeOC.AppendFormat("- {0}</br>", oc.PS)
If Not ObjOC.UpdateOrdenCompraDetalleDivideCantidad(CveOCSurtir, oc.CveOCDetalle, oc.Cantidad, UsuarioActual.CveUsuario) Then ' If Not ObjOC.UpdateOrdenCompraDetalleDivideCantidad(CveOCSurtir, oc.CveOCDetalle, oc.Cantidad, UsuarioActual.CveUsuario) Then
ErrorMovInv = True ' ErrorMovInv = True
End If ' End If
End If ' End If
Next 'Next
End If End If
Else Else
@@ -3145,7 +3145,7 @@ Partial Class Inventarios_RecepcionAlmacen
Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero() Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G5") CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(TipoMovimiento > 1, 37, 36), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G5")
FolioVirtual = ObjInventario.Folio FolioVirtual = ObjInventario.Folio
For Each RowUsado As DataRow In DtPSVirtual.Rows For Each RowUsado As DataRow In DtPSVirtual.Rows

9
Inventarios/TraspasoAlmacen.aspx
View File

@@ -640,11 +640,16 @@
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." /> <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,###.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" /> <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="15%" /> <%--<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="15%" />--%>
<asp:TemplateField HeaderText="Serie" ItemStyle-Width="15%" Visible="false" >
<ItemTemplate>
<asp:TextBox ID="TxtSerie" Width="90px" runat="server" Text='<%# Eval("Serie") %>' ></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Lote" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" Visible="false" > <asp:TemplateField HeaderText="Lote" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" Visible="false" >
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtLote" Width="60px" runat="server" Text='<%# Eval("Lote") %>' Visible="false"></asp:TextBox> <asp:TextBox ID="TxtLote" Width="60px" runat="server" Text='<%# Eval("Lote") %>' Visible="false"></asp:TextBox>

58
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -575,7 +575,18 @@ Partial Class Inventarios_TraspasoAlmacen
tCaducidad = MinFecha tCaducidad = MinFecha
End If End If
Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, If(TxtnSerie.Visible, TxtnSerie.Text, "-1"), tLote, tCaducidad) Dim tSerie As String = If(TxtnSerie.Visible, TxtnSerie.Text, "-1")
If UsuarioActual.CveEmpresa = 140 Then
Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
If Not CveSubProyecto.Contiene(11791, 11793, 11993, 11994, 11794, 11797, 11795, 12010, 12011) Then
tSerie = "-1"
End If
End If
Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, tSerie, tLote, tCaducidad)
If Valido Then If Valido Then
AgregarPS(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, TxtnObservaciones.Text, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(TxtnSerie.Visible, TxtnSerie.Text, ""), Lote:=If(tLote = "-1", "", tLote), FechaCaducidad:=tCaducidad, CveSeccionAlmacenDestino:=DdlSeccionAlmacenDestino.SelectedValue.ToEntero, Limpia:=FuncionalidadSinSerie) AgregarPS(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, TxtnObservaciones.Text, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(TxtnSerie.Visible, TxtnSerie.Text, ""), Lote:=If(tLote = "-1", "", tLote), FechaCaducidad:=tCaducidad, CveSeccionAlmacenDestino:=DdlSeccionAlmacenDestino.SelectedValue.ToEntero, Limpia:=FuncionalidadSinSerie)
@@ -859,6 +870,16 @@ Partial Class Inventarios_TraspasoAlmacen
Dim tLote As String = If(Lote <> "-1", String.Format("AND Lote = '{0}' ", Lote), "") Dim tLote As String = If(Lote <> "-1", String.Format("AND Lote = '{0}' ", Lote), "")
Dim tFechaCaducidad As String = If(FechaCaducidad > MinFecha, String.Format("AND FechaCaducidad = '{0}' ", FechaCaducidad), "") Dim tFechaCaducidad As String = If(FechaCaducidad > MinFecha, String.Format("AND FechaCaducidad = '{0}' ", FechaCaducidad), "")
If UsuarioActual.CveEmpresa = 140 Then
Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
If Not CveSubProyecto.Contiene(11791, 11793, 11993, 11994, 11794, 11797, 11795, 12010, 12011) Then
Serie = "-1"
End If
End If
Dim ExistenciaEspecificada As Decimal = 0 Dim ExistenciaEspecificada As Decimal = 0
CantidadenGrid = DtMovimientos.SUMD("Cantidad", String.Format("CvePS = {0} AND CveUM = {1} {2} {3} {4} ", dr("CvePS"), dr("CveUM"), If(Not dr("Serie").ToString.Contiene("-1", ""), $" AND Serie = '{dr("Serie")}'", ""), tLote, tFechaCaducidad)) CantidadenGrid = DtMovimientos.SUMD("Cantidad", String.Format("CvePS = {0} AND CveUM = {1} {2} {3} {4} ", dr("CvePS"), dr("CveUM"), If(Not dr("Serie").ToString.Contiene("-1", ""), $" AND Serie = '{dr("Serie")}'", ""), tLote, tFechaCaducidad))
If ObjInventario.GetExistenciasProducto(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then If ObjInventario.GetExistenciasProducto(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then
@@ -1383,15 +1404,15 @@ Partial Class Inventarios_TraspasoAlmacen
Dim AplicaSerie As Boolean = CBool(drP("AplicaSerie")) Dim AplicaSerie As Boolean = CBool(drP("AplicaSerie"))
'codigo temporal ''codigo temporal
If UsuarioActual.CveEmpresa = 140 Then 'If UsuarioActual.CveEmpresa = 140 Then
Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero ' Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
If Not CveSubProyecto.Contiene(11793, 11993, 11794, 11795) Then ' If Not CveSubProyecto.Contiene(11793, 11993, 11794, 11795, 12010, 12011) Then
AplicaSerie = False ' AplicaSerie = False
End If ' End If
End If 'End If
ThSerie.Visible = AplicaSerie ThSerie.Visible = AplicaSerie
TdSerie.Visible = AplicaSerie TdSerie.Visible = AplicaSerie
@@ -1697,7 +1718,10 @@ Partial Class Inventarios_TraspasoAlmacen
GvDatosRecepcion.DataSource = Dtt GvDatosRecepcion.DataSource = Dtt
GvDatosRecepcion.DataBind() GvDatosRecepcion.DataBind()
GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("Serie") <> ""
'GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("Serie") <> ""
GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("AplicaSerie") = "True"
GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("AplicaLote").ToEntero > 0 'Dtt.MAX("Lote") <> "" GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("AplicaLote").ToEntero > 0 'Dtt.MAX("Lote") <> ""
GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("AplicaCaducidad").ToEntero > 0 'Dtt.MAX("FechaCaducidad").ToDate > MinFecha GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("AplicaCaducidad").ToEntero > 0 'Dtt.MAX("FechaCaducidad").ToDate > MinFecha
GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("CveSeccionAlmacen").ToEntero > 0 GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("CveSeccionAlmacen").ToEntero > 0
@@ -1742,6 +1766,7 @@ Partial Class Inventarios_TraspasoAlmacen
e.Row.FCCheckBox("Chk").Visible = False e.Row.FCCheckBox("Chk").Visible = False
e.Row.FCTextBox("TxtCantidad").Visible = False e.Row.FCTextBox("TxtCantidad").Visible = False
e.Row.FCTextBox("TxtSerie").Visible = False
e.Row.Cells(2).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida")) e.Row.Cells(2).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
e.Row.Cells(3).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString) e.Row.Cells(3).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString)
@@ -1928,15 +1953,18 @@ Partial Class Inventarios_TraspasoAlmacen
TextoError = "Ocurrió un error al cancelar el traspaso" TextoError = "Ocurrió un error al cancelar el traspaso"
End If End If
If CveMovimientoSalidaTransitorio > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
CveMovimientoAlmacen:=CveMovimientoSalidaTransitorio, ImporteMX:=ImporteDecimal, Contabilizable:=False) Then CveMovimientoAlmacen:=CveMovimientoSalidaTransitorio, ImporteMX:=ImporteDecimal, Contabilizable:=False) Then
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un erro al cancelar el traspaso" TextoError = "Ocurrió un error al cancelar el traspaso"
End If End If
End If End If
End If End If
End If
Catch ex As Exception Catch ex As Exception
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un erro al cancelar el traspaso" TextoError = "Ocurrió un erro al cancelar el traspaso"
@@ -1956,7 +1984,7 @@ Partial Class Inventarios_TraspasoAlmacen
If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/>Folio Virtual: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/>Folio Virtual: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)
Alert(Mensaje.ToString, TipoMensaje.MsgInformacion) Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)
CargaRecepcion()
DivCodigoSeriePSRecepcion.Visible = False DivCodigoSeriePSRecepcion.Visible = False
GvDatosRecepcion.DataBind() GvDatosRecepcion.DataBind()
@@ -1971,7 +1999,7 @@ Partial Class Inventarios_TraspasoAlmacen
ObjConta.Dispose() ObjConta.Dispose()
ObjInventario.Dispose() ObjInventario.Dispose()
CargaRecepcion()
End Sub End Sub
Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs) Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
@@ -2075,6 +2103,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim PrecioEntrada As Decimal = If(TipoAlmacenDestino = 26, 0, gvr.DataKey("PU").ToString.ToDecimal) Dim PrecioEntrada As Decimal = If(TipoAlmacenDestino = 26, 0, gvr.DataKey("PU").ToString.ToDecimal)
''RMF codigo temporal. por implementación ''RMF codigo temporal. por implementación
Dim tLote As String = gvr.DataKey("Lote").ToString Dim tLote As String = gvr.DataKey("Lote").ToString
Dim tSerie As String = gvr.FCTextBox("TxtSerie").Text 'gvr.DataKey("Serie").ToString
Dim tFechaCaducidad As Date = gvr.DataKey("FechaCaducidad").ToDate Dim tFechaCaducidad As Date = gvr.DataKey("FechaCaducidad").ToDate
If CveSubProyectoRecibe.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then If CveSubProyectoRecibe.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
@@ -2082,7 +2111,7 @@ Partial Class Inventarios_TraspasoAlmacen
tFechaCaducidad = gvr.FCTextBox("TxtCaducidad").Text.ToDate tFechaCaducidad = gvr.FCTextBox("TxtCaducidad").Text.ToDate
End If End If
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=tLote, FechaCaducidad:=tFechaCaducidad, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=tSerie, Lote:=tLote, FechaCaducidad:=tFechaCaducidad, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un error al guardar los movimientos de salida" TextoError = "Ocurrió un error al guardar los movimientos de salida"
Exit For Exit For
@@ -2251,13 +2280,14 @@ Partial Class Inventarios_TraspasoAlmacen
GvDatosRecepcion.DataBind() GvDatosRecepcion.DataBind()
UpDatosRecepcion.Update() UpDatosRecepcion.Update()
UPDatosAlmacen.Update() UPDatosAlmacen.Update()
CargaRecepcion()
Else Else
ObjInventario.RollBack() ObjInventario.RollBack()
Alert(TextoError, TipoMensaje.MsgError) Alert(TextoError, TipoMensaje.MsgError)
End If End If
ObjInventario.Dispose() ObjInventario.Dispose()
ObjConta.Dispose() ObjConta.Dispose()
CargaRecepcion()
Else Else
Alert("No hay movimientos para el traspaso", TipoMensaje.MsgAdvertencia) Alert("No hay movimientos para el traspaso", TipoMensaje.MsgAdvertencia)
If ChkTransitorio.Checked Then DivResponsable.Visible = True : DivTransitorio2.Visible = True If ChkTransitorio.Checked Then DivResponsable.Visible = True : DivTransitorio2.Visible = True