Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
@@ -1445,7 +1445,7 @@ Public Class ClsBancos
|
||||
.Add("@FechaDocumento", SqlDbType.Date).Value = FechaDocumento
|
||||
.Add("@Folio", SqlDbType.VarChar).Value = Folio
|
||||
.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("@TipoCambio", SqlDbType.Float).Value = TipoCambio
|
||||
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
|
||||
|
||||
@@ -5797,7 +5797,7 @@ Namespace Modelos
|
||||
Exit For
|
||||
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
|
||||
Exit For
|
||||
End If
|
||||
@@ -5820,7 +5820,7 @@ Namespace Modelos
|
||||
If Not ErrorCancelar Then
|
||||
If DtEntradaDetalle IsNot Nothing Then
|
||||
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
|
||||
Exit For
|
||||
End If
|
||||
|
||||
@@ -118,12 +118,14 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
|
||||
context.Response.Write(sendMailLPM(context))
|
||||
Case "getSATColomias"
|
||||
getSatColonias(context)
|
||||
Case "GetFilesDirectory"
|
||||
Case "GetFilesDirectory"
|
||||
GetFilesDirectory(context)
|
||||
Case "Getetiquetas"
|
||||
Getetiquetas(context)
|
||||
Case "cancelarRemision"
|
||||
Case "cancelarRemision"
|
||||
cancelarRemision(context)
|
||||
Case "RemoveMovimiento"
|
||||
RemoveMovimiento(context)
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
ex.GuardaLog(ex.Message)
|
||||
@@ -1644,4 +1646,66 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
|
||||
Return retorno
|
||||
End Function
|
||||
#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
|
||||
BIN
Bin/GoCfdi.dll
BIN
Bin/GoCfdi.dll
Binary file not shown.
@@ -14,6 +14,8 @@ using ADSNetLibrary.SIGAPI.Models.Ventas.Response;
|
||||
using Extensiones;
|
||||
using MoreLinq;
|
||||
using ADSNetLibrary.SIGAPI.Services;
|
||||
using ADSNetLibrary.SIGAPI.Services.Encuestas;
|
||||
using ADSNetLibrary.SIGAPI.Models.Encuestas.Request;
|
||||
|
||||
public partial class CRM_EmpresaCRM : ClsPaginas
|
||||
{
|
||||
@@ -451,15 +453,17 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
||||
|
||||
protected int GuardaDatosTecnicos(ClsEncuestas ObjDatosTecnicos, int CveEncuestaAplicada = -1)
|
||||
{
|
||||
var encuestaService = new EncuestaService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
|
||||
int _CveEncuestaAplicada = CveEncuestaAplicada;
|
||||
|
||||
//NUEVA CAPTURA DE DATOS TECNICOS
|
||||
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;
|
||||
_CveEncuestaAplicada = ObjDatosTecnicos.DtResultados.Rows[0][0].ToEntero();
|
||||
_CveEncuestaAplicada = responseModelAddEncuestaAplicada.Result.ToEntero();
|
||||
|
||||
foreach (GridViewRow drow in GvDatosTecnicos.Rows)
|
||||
{
|
||||
@@ -520,7 +524,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
||||
}
|
||||
|
||||
//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
|
||||
_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
|
||||
if (ExisteRegistro && !(ObjDatosTecnicos.UpdateDatosTecnicosCRM(CveEncuestaAplicadaDetalle, CveEncuestaAplicada, CvePregunta, CveRespuesta, Respuesta)))
|
||||
if (ExisteRegistro && !responnseModelUpdateDatosTecnicosCRM.IsSuccess)
|
||||
{
|
||||
//SI HAY ERROR REGRESA 0
|
||||
_CveEncuestaAplicada = 0;
|
||||
}
|
||||
else if (!ExisteRegistro && !(ObjDatosTecnicos.AddEncuestaAplicadaDetalle(_CveEncuestaAplicada, CvePregunta, CveRespuesta, Respuesta)))
|
||||
else if (!ExisteRegistro && !responnseModelAddEncuestaAplicadaDetalle.IsSuccess)
|
||||
{
|
||||
//SI HAY ERROR REGRESA 0
|
||||
_CveEncuestaAplicada = 0;
|
||||
@@ -827,6 +834,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
||||
var objAcercamiento = cRMService.GetAceracamientoCRM(aceramientoGet);
|
||||
|
||||
ClsEncuestas objDatosTecnicos = new ClsEncuestas(ObjCRM.IniciaTransacSQL());
|
||||
var encuestaService = new EncuestaService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
|
||||
|
||||
if (objAcercamiento.Result.Count == 0)
|
||||
{
|
||||
|
||||
@@ -835,7 +844,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
||||
if (cRMService.EmpresasCRMDelete(EmpresasCRM))
|
||||
{
|
||||
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;
|
||||
}
|
||||
@@ -883,8 +893,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
||||
}
|
||||
else
|
||||
{
|
||||
BtnAgregarContacto.Visible = true;
|
||||
DivBuscadorContactos.Visible = true;
|
||||
BtnAgregarContacto.Visible = false;
|
||||
DivBuscadorContactos.Visible = false;
|
||||
}
|
||||
}
|
||||
|
||||
@@ -1564,7 +1574,6 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
||||
ClsCRM ObjCRM = new ClsCRM();
|
||||
ClsOIEventos ObjBitacora = new ClsOIEventos(ObjCRM.IniciaTransacSQL());
|
||||
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)
|
||||
{
|
||||
AcercamientoModel.CveEmpresaCRM = CveEmpresaCRM;
|
||||
AcercamientoModel.CveContactoPrincipal = CveContactoPrincipal;
|
||||
AcercamientoModel.CveTipoProceso = CveTipoProceso;
|
||||
AcercamientoModel.CveEtapaProcesoActual = CveEtapaProcesoActual;
|
||||
AcercamientoModel.CveVendedor = CveVendedor;
|
||||
AcercamientoModel.CveMedioCaptacion = CveMedioCaptacion;
|
||||
AcercamientoModel.CveRechazoMotivo = CveRechazoMotivo;
|
||||
AcercamientoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento;
|
||||
AcercamientoModel.FechaApertura = FechaApertura;
|
||||
AcercamientoModel.FechaCierre = (DateTime)System.Data.SqlTypes.SqlDateTime.Null;
|
||||
AcercamientoModel.NombreAcercamiento = NombreAcercamiento;
|
||||
AcercamientoModel.Descripcion = Descripcion;
|
||||
AcercamientoModel.Importe = Importe;
|
||||
AcercamientoModel.Comision = Comision;
|
||||
AcercamientoModel.Prioridad = Prioridad;
|
||||
AcercamientoModel.CveEmpresa = UsuarioActual.CveEmpresa;
|
||||
AcercamientoModel.CveUsuarioIng = CveUsuarioIng;
|
||||
AcercamientoModel.CvePS = DdlPS.SelectedValue.ToEntero();
|
||||
var AcercamientoModel = new AcercaminetoModel()
|
||||
{
|
||||
CveEmpresaCRM = CveEmpresaCRM,
|
||||
CveContactoPrincipal = CveContactoPrincipal,
|
||||
CveTipoProceso = CveTipoProceso,
|
||||
CveEtapaProcesoActual = CveEtapaProcesoActual,
|
||||
CveVendedor = CveVendedor,
|
||||
CveMedioCaptacion = CveMedioCaptacion,
|
||||
CveRechazoMotivo = CveRechazoMotivo,
|
||||
CveProbabilidadAcercamiento = CveProbabilidadAcercamiento,
|
||||
FechaApertura = FechaApertura,
|
||||
FechaCierre = (DateTime)System.Data.SqlTypes.SqlDateTime.Null,
|
||||
NombreAcercamiento = NombreAcercamiento,
|
||||
Descripcion = Descripcion,
|
||||
Importe = Importe,
|
||||
Comision = Comision,
|
||||
Prioridad = Prioridad,
|
||||
CveEmpresa = UsuarioActual.CveEmpresa,
|
||||
CveUsuarioIng = CveUsuarioIng,
|
||||
CvePS = DdlPS.SelectedValue.ToEntero()
|
||||
};
|
||||
|
||||
|
||||
|
||||
CveAcercamiento = cRMService.AcercamientoAdd(AcercamientoModel).ToEntero();
|
||||
}
|
||||
|
||||
@@ -4844,13 +4844,17 @@
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Center" Width="10%" />
|
||||
</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="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="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="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%">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LbTotal" Text='<%# (CDbl(Eval("PU").ToString) * CDbl(Eval("CantidadF").ToString)).ToString("N2") %>' runat="server"></asp:Label>
|
||||
|
||||
@@ -6434,7 +6434,7 @@ Partial Class Compras_Compras
|
||||
' End If
|
||||
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"
|
||||
|
||||
@@ -6826,7 +6826,7 @@ Partial Class Compras_Compras
|
||||
Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal
|
||||
'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").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
|
||||
'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
|
||||
|
||||
@@ -1837,7 +1837,7 @@ Partial Class General_SaldosIniciales
|
||||
Next
|
||||
Catch ex As Exception
|
||||
If mensajeError = "" Then
|
||||
mensajeError = "Error técnico, informar a soporte"
|
||||
mensajeError = "Error técnico, informar a soporte" & ex.Message
|
||||
End If
|
||||
ObjMovimientos.RollBack()
|
||||
End Try
|
||||
|
||||
@@ -177,7 +177,6 @@
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtNombreAseguradoraCarga" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
|
||||
<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>
|
||||
</div>
|
||||
</div>
|
||||
@@ -185,7 +184,6 @@
|
||||
<div class="form-group form-md-line-input input-iconright" >
|
||||
<asp:TextBox ID="TxtNumPolizaSeguroCarga" CssClass="form-control" runat="server" MaxLength="25"></asp:TextBox>
|
||||
<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>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -933,7 +933,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
|
||||
'código temporal
|
||||
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
|
||||
End If
|
||||
|
||||
|
||||
@@ -704,7 +704,7 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
Dim ObjInventarios As New ClsInventarios
|
||||
If ddlProveedor.SelectedValue.ToEntero > 0 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}")
|
||||
Else
|
||||
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
|
||||
CargaAlmacenes(-1, CveTipoCompra:=CveTipoCompra)
|
||||
ElseIf TipoMovimiento = 3 Then 'devolucion al proveedor
|
||||
CargaAlmacenes(-1, "21,2,27", CveTipoCompra)
|
||||
CargaAlmacenes(-1, "1,21,2,27", CveTipoCompra)
|
||||
Else
|
||||
CargaAlmacenes(-1)
|
||||
End If
|
||||
@@ -2775,15 +2775,15 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
.Data = group
|
||||
})
|
||||
|
||||
|
||||
For Each oc In resultsOC
|
||||
If oc.Cantidad < oc.CantidadOC Then
|
||||
MensajeOC.AppendFormat("- {0}</br>", oc.PS)
|
||||
If Not ObjOC.UpdateOrdenCompraDetalleDivideCantidad(CveOCSurtir, oc.CveOCDetalle, oc.Cantidad, UsuarioActual.CveUsuario) Then
|
||||
ErrorMovInv = True
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
'comentado para subir versión, dividirOC
|
||||
'For Each oc In resultsOC
|
||||
' If oc.Cantidad < oc.CantidadOC Then
|
||||
' MensajeOC.AppendFormat("- {0}</br>", oc.PS)
|
||||
' If Not ObjOC.UpdateOrdenCompraDetalleDivideCantidad(CveOCSurtir, oc.CveOCDetalle, oc.Cantidad, UsuarioActual.CveUsuario) Then
|
||||
' ErrorMovInv = True
|
||||
' End If
|
||||
' End If
|
||||
'Next
|
||||
|
||||
End If
|
||||
Else
|
||||
@@ -3145,7 +3145,7 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
|
||||
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
|
||||
|
||||
For Each RowUsado As DataRow In DtPSVirtual.Rows
|
||||
|
||||
@@ -640,11 +640,16 @@
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
|
||||
</ItemTemplate>
|
||||
</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="Código" DataField="Codigo" ItemStyle-Width="10%" />
|
||||
<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" >
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtLote" Width="60px" runat="server" Text='<%# Eval("Lote") %>' Visible="false"></asp:TextBox>
|
||||
|
||||
@@ -575,7 +575,18 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
tCaducidad = MinFecha
|
||||
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
|
||||
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 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
|
||||
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
|
||||
@@ -1383,15 +1404,15 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
|
||||
Dim AplicaSerie As Boolean = CBool(drP("AplicaSerie"))
|
||||
|
||||
'codigo temporal
|
||||
If UsuarioActual.CveEmpresa = 140 Then
|
||||
Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
|
||||
''codigo temporal
|
||||
'If UsuarioActual.CveEmpresa = 140 Then
|
||||
' Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
|
||||
|
||||
If Not CveSubProyecto.Contiene(11793, 11993, 11794, 11795) Then
|
||||
AplicaSerie = False
|
||||
End If
|
||||
' If Not CveSubProyecto.Contiene(11793, 11993, 11794, 11795, 12010, 12011) Then
|
||||
' AplicaSerie = False
|
||||
' End If
|
||||
|
||||
End If
|
||||
'End If
|
||||
|
||||
ThSerie.Visible = AplicaSerie
|
||||
TdSerie.Visible = AplicaSerie
|
||||
@@ -1697,7 +1718,10 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
GvDatosRecepcion.DataSource = Dtt
|
||||
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(8).Visible = Dtt.MAX("AplicaCaducidad").ToEntero > 0 'Dtt.MAX("FechaCaducidad").ToDate > MinFecha
|
||||
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.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(3).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString)
|
||||
@@ -1928,11 +1953,14 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
TextoError = "Ocurrió un error al cancelar el traspaso"
|
||||
End If
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
|
||||
CveMovimientoAlmacen:=CveMovimientoSalidaTransitorio, ImporteMX:=ImporteDecimal, Contabilizable:=False) Then
|
||||
ErrorMovInv = True
|
||||
TextoError = "Ocurrió un erro al cancelar el traspaso"
|
||||
If CveMovimientoSalidaTransitorio > 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
|
||||
CveMovimientoAlmacen:=CveMovimientoSalidaTransitorio, ImporteMX:=ImporteDecimal, Contabilizable:=False) Then
|
||||
ErrorMovInv = True
|
||||
TextoError = "Ocurrió un error al cancelar el traspaso"
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -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> <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)
|
||||
|
||||
CargaRecepcion()
|
||||
DivCodigoSeriePSRecepcion.Visible = False
|
||||
|
||||
GvDatosRecepcion.DataBind()
|
||||
@@ -1971,7 +1999,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
ObjConta.Dispose()
|
||||
ObjInventario.Dispose()
|
||||
|
||||
CargaRecepcion()
|
||||
|
||||
End Sub
|
||||
|
||||
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)
|
||||
''RMF codigo temporal. por implementación
|
||||
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
|
||||
|
||||
If CveSubProyectoRecibe.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
|
||||
@@ -2082,7 +2111,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
tFechaCaducidad = gvr.FCTextBox("TxtCaducidad").Text.ToDate
|
||||
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
|
||||
TextoError = "Ocurrió un error al guardar los movimientos de salida"
|
||||
Exit For
|
||||
@@ -2251,13 +2280,14 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
GvDatosRecepcion.DataBind()
|
||||
UpDatosRecepcion.Update()
|
||||
UPDatosAlmacen.Update()
|
||||
CargaRecepcion()
|
||||
Else
|
||||
ObjInventario.RollBack()
|
||||
Alert(TextoError, TipoMensaje.MsgError)
|
||||
End If
|
||||
ObjInventario.Dispose()
|
||||
ObjConta.Dispose()
|
||||
CargaRecepcion()
|
||||
|
||||
Else
|
||||
Alert("No hay movimientos para el traspaso", TipoMensaje.MsgAdvertencia)
|
||||
If ChkTransitorio.Checked Then DivResponsable.Visible = True : DivTransitorio2.Visible = True
|
||||
|
||||
Reference in New Issue
Block a user