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

-

Browse Source
This commit is contained in:
rrene
2022-07-14 12:15:05 -07:00
parent 05e1372561 597838a867
commit aeb4f11110
35 changed files with 29240 additions and 11233 deletions
Download Patch File Download Diff File Expand all files Collapse all files

65
Inventarios/Consignaciones.aspx.vb
View File

@@ -24,6 +24,24 @@ Partial Class Inventarios_Consignaciones
End Set
End Property
Public Property DtRecepcion() As DataTable
Get
If ViewState("DtRecepcion") Is Nothing Then
ViewState("DtRecepcion") = New DataTable
End If
Return CType(ViewState("DtRecepcion"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtRecepcion") = value
End Set
End Property
Public Property CveConsignacion() As Integer
Get
Return ViewState("CveConsignacion").ToString.ToEntero
@@ -1298,17 +1316,18 @@ Partial Class Inventarios_Consignaciones
End Sub
Private Sub CargaRecepcion()
Dim ObjInventarios As New ClsInventarios
Dim Dt As DataTable = Nothing
DtRecepcion = New DataTable
If ObjInventarios.GetMovimientosTransitorios(DdlAlmacenRecepcion.SelectedValue.ToEntero, 4, DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero, -1, If(TxtFolioRecepcion.Text = "", -1, TxtFolioRecepcion.Text.ToEntero), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
Dt = ObjInventarios.DtResultados
DtRecepcion = ObjInventarios.DtResultados
Else
Alert("Ocurrió un error al consultar los movimientos transitorios. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If
ObjInventarios.Dispose()
If Dt IsNot Nothing Then
GvDatosRecepcion.DataSource = Dt
If DtRecepcion IsNot Nothing Then
GvDatosRecepcion.DataSource = DtRecepcion
GvDatosRecepcion.DataBind()
End If
@@ -1318,7 +1337,7 @@ Partial Class Inventarios_Consignaciones
BtnRecibir.Visible = True
End If
Dt.Dispose()
UpDatosRecepcion.Update()
End Sub
@@ -1455,7 +1474,41 @@ Partial Class Inventarios_Consignaciones
' End If
' End If
'End If
'End If
If Not ErrorMovInv Then
Dim ImportePrePoliza As Decimal = DtRecepcion.SUMD("Importe", "CveMovimientoDetalle > 0")
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
Dim Concepto As String = "Recepcion Traspaso"
Dim CvePrePoliza = ObjConta.AddPrePolizas("Recepcion/Consignacion", 53, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrePoliza, "Recepcion Traspaso", 68, "Recepcion Traspaso", Fecha, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ImportePrePoliza, CveSubProyecto:=-1, Contabilizable:=False) Then
ErrorMovInv = True
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImportePrePoliza, "Recepcion Traspason", 68, "Recepcion Traspaso", Fecha, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ImportePrePoliza, Contabilizable:=False) Then
ErrorMovInv = True
End If
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Consig | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorMovInv = True
End If
End If
End If
If Not ErrorMovInv Then

42
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2083,6 +2083,48 @@ Partial Class Inventarios_EntregaAlmacen
End If
End If
Dim ImportePrePoliza As Decimal = 0D
If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
ImportePrePoliza = ObjInventario.DtResultados.SUMD("Total")
End If
Dim MovAlmacen As Boolean = True
Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & 9).ToEntero
If OrigenMov = 1 Then
MovAlmacen = True
Else
MovAlmacen = False
End If
Dim ObjConta2 As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
Dim Concepto As String = "ARMPAQ2"
Dim CvePrePoliza = ObjConta2.AddPrePolizas("RE/GSC1/GSC3/RE/G4", 74, ImportePrePoliza, ImportePrePoliza, 1, TxtFecha.Text.ToDate, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
'Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
If Not ObjConta2.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ImportePrePoliza, "RE/G4", 68, "RE/G4", TxtFecha.Text.ToDate, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimientoEntradaApartado, ImporteMX:=ImportePrePoliza, CveSubProyecto:=-1, Contabilizable:=False) Then
ErrorMovInv = True
End If
If Not ObjConta2.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, ImportePrePoliza, "RE/GSC1/GSC3", 68, "RE/GSC1/GSC3", TxtFecha.Text.ToDate, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ImportePrePoliza, Contabilizable:=False) Then
ErrorMovInv = True
End If
If ObjConta2.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
If ObjConta2.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta2.MensajePolizaDescuadre} Diferencia:{ObjConta2.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorMovInv = True
End If
End If
End If
If Not ErrorMovInv Then

215
Inventarios/EntregaAlmacenRuta.aspx.cs
View File

@@ -212,8 +212,16 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
if (ObjTimbres.Timbrar())
{
MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>XML &nbsp;<i class='fa fa-file'></i></i></a>&nbsp;&nbsp;", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)));
MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>PDF &nbsp;<i class='fa fa-ad-pdf'></i></i></i></a>&nbsp;", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre)));
MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>XML &nbsp;<i class='fa fa-file'></i></i></a>&nbsp;&nbsp;", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)));
if (ChkEmitirCartaPorte.Checked)
{
MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>PDF &nbsp;<i class='fa fa-ad-pdf'></i></i></i></a>&nbsp;", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre)));
}
else
{
MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>PDF &nbsp;<i class='fa fa-ad-pdf'></i></i></i></a>&nbsp;", ModExtensiones.Encripta(String.Format("OP=CARPO&CVETIMBRE={0}", cvetimbre)));
}
MensajeAlert.Append("<br/>");
DdlChofer.SelectedValueExist("-1");
@@ -247,8 +255,6 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
protected void LnkGeneraRecoleccion_Click(object sender, EventArgs e)
{
if (DdlChoferRec.SelectedValue.ToEntero() <= 0)
{
Alert("Debe seleccionar un chofer.", ModExtensiones.TipoMensaje.MsgAdvertencia);
@@ -266,21 +272,22 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
//ActualizaOrdenDTGenerarDocumentos();
List<int> ListaTimbres = new List<int>();
bool TieneError = false;
ClsGenerales ObjGeneral = new ClsGenerales();
ObjGeneral.IniciaTransacSQL();
string Usuario = DdlChofer.SelectedItem.Text;
try
{
string Usuario = DdlChofer.SelectedItem.Text;
int CveDireccionOrigen = -1;
foreach (GridViewRow row in gvR.Rows)
{
int Orden = row.DataKey("Orden").ToEntero();
int CveEntregaAlmacen = row.DataKey("CveEntregaAlmacen").ToEntero();
int CveDireccionOrigen = -1;
foreach (GridViewRow row in gvR.Rows)
{
int Orden = row.DataKey("Orden").ToEntero();
int CveEntregaAlmacen = row.DataKey("CveEntregaAlmacen").ToEntero();
if (row.FCCheckBox("Chk").Checked)
{
CveDireccionOrigen = row.DataKey("CveDireccionOrigen").ToEntero();
if (row.FCCheckBox("Chk").Checked)
{
CveDireccionOrigen = row.DataKey("CveDireccionOrigen").ToEntero();
if (CveEntregaAlmacen > 0)
{
@@ -289,112 +296,98 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
{
int CveTimbre = ObjGeneral.AddGralTimbre("Rec", row.DataKey("CveSubProyecto").ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen: CveEntregaAlmacen, AplicaCP: ChkEmitirPorteRec.Checked);
if (CveTimbre <= 0)
{
SBError.AppendLine($"Factura {row.DataKey("SerieFolio")} error al agregar timbre. ");
TieneError = true;
break;
}
else
{
ListaTimbres.Add(CveTimbre);
}
}
else
{
SBError.AppendLine($"Factura {row.DataKey("SerieFolio")} error al aplicar condiciones de entrega. ");
TieneError = true;
break;
}
}
else
{
SBError.AppendLine($"Factura {row.DataKey("SerieFolio")} error al agregar entrega almacen. ");
TieneError = true;
break;
}
}
}
if (CveTimbre <= 0)
{
SBError.AppendLine($"Folio <b>{row.DataKey("FolioReferencia")}</b> ocurrió un error al agregar timbre. ");
TieneError = true;
break;
}
else
{
ListaTimbres.Add(CveTimbre);
}
}
else
{
SBError.AppendLine($"Folio <b>{row.DataKey("FolioReferencia")}</b> ocurrió un error al aplicar condiciones de entrega. ");
TieneError = true;
break;
}
}
else
{
SBError.AppendLine($"Folio <b>{row.DataKey("FolioReferencia")}</b> ocurrió un error al agregar entrega almacen. ");
TieneError = true;
break;
}
}
}
}
catch (global::System.Exception ex)
{
TieneError = true;
this.OnError("Ocurrió un error al generar la entrega", ex);
}
if (!TieneError)
{
ObjGeneral.Commit();
}
else
{
ObjGeneral.RollBack();
}
ObjGeneral.Dispose();
foreach (GridViewRow row in gvR.Rows)
{
try
{
//MandarNotificacionCorreo(row);
}
catch (Exception ex)
{
TieneError = true;
ModExtensiones.GuardaLog(ex.Message);
}
if (!TieneError)
{
StringBuilder MensajeAlert = new StringBuilder();
//recorrer para timbrar
MensajeAlert.Append(" Entregas creadas correctamente <br/><br/>");
foreach (int cvetimbre in ListaTimbres)
{
Timbres ObjTimbres = new Timbres("Rec", cvetimbre, UsuarioActual);
}
if (!TieneError)
{
ObjGeneral.Commit();
StringBuilder MensajeAlert = new StringBuilder();
//recorrer para timbrar
MensajeAlert.Append(" Entregas creadas correctamente <br/><br/>");
foreach (int cvetimbre in ListaTimbres)
{
Timbres ObjTimbres = new Timbres("Rec", cvetimbre, UsuarioActual);
if (ObjTimbres.Timbrar())
{
//ClsPaginas.PdfFactura(ref ObjTimbres.ObjFactura,"0",true);
//MensajeAlert.Append("Emitido con éxito.");
////XML
//string ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio);
//if (System.IO.File.Exists(ArchivoXML))
// MensajeAlert.AppendFormat("<ul><li><a class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Descargar XML</a></li></ul>", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)));
MensajeAlert.AppendFormat("Folio: <b>{0}</b> &nbsp;", ObjTimbres.ObjFactura.SerieFolio);
MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>XML &nbsp;<i class='fa fa-file'></i></i></a>&nbsp;&nbsp;", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)));
if (ObjTimbres.Timbrar())
{
MensajeAlert.AppendFormat("Folio: <b>{0}</b> &nbsp;", ObjTimbres.ObjFactura.SerieFolio);
MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>XML &nbsp;<i class='fa fa-file'></i></i></a>&nbsp;&nbsp;", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)));
if (ChkEmitirPorteRec.Checked)
{
MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>PDF &nbsp;<i class='fa fa-ad-pdf'></i></i></i></a>&nbsp;", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre)));
MensajeAlert.Append("<br/>");
////PDF
//string ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio);
//if (System.IO.File.Exists(ArchivoPDF))
// MensajeAlert.AppendFormat("<ul><li><a class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Descargar PDF</a></li></ul>", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "PDF", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)));
}
else
{
MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>PDF &nbsp;<i class='fa fa-ad-pdf'></i></i></i></a>&nbsp;", ModExtensiones.Encripta(String.Format("OP=CARPO&CVETIMBRE={0}", cvetimbre)));
}
MensajeAlert.Append("<br/>");
}
else
{
MensajeAlert.AppendFormat("<ul><li>{0}</li></ul>", ObjTimbres.MsgError);
}
}
Alert(MensajeAlert.ToString(), ModExtensiones.TipoMensaje.MsgInformacion);
CargaDatosRecoleccion();
DdlChofer.SelectedValueExist("-1");
DdlUnidadCamion.SelectedValueExist("-1");
//if (UsuarioActual.Empresa.Funcionalidad(161) == "1")
// MensajeAlert.AppendFormat("<ul><li><a class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre)));
//else
// MensajeAlert.AppendFormat("<ul><li><a class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Descargar Carta Porte</a></li></ul>", ModExtensiones.Encripta(String.Format("OP=CARPO&CveTimbre={0}", cvetimbre)));
}
else
{
MensajeAlert.AppendFormat("<ul><li>{0}</li></ul>", ObjTimbres.MsgError);
}
}
Alert(MensajeAlert.ToString(), ModExtensiones.TipoMensaje.MsgInformacion);
CargaDatosRecoleccion();
DdlChofer.SelectedValueExist("-1");
DdlUnidadCamion.SelectedValueExist("-1");
SeleccionEntrega = false;
SeleccionarGenerar(1);
UpDatos.Update();
}
else
{
ObjGeneral.RollBack();
}
ObjGeneral.Dispose();
}
else
{
Alert(SBError.ToString(), ModExtensiones.TipoMensaje.MsgAdvertencia);
SeleccionEntrega = false;
SeleccionarGenerar(1);
UpDatos.Update();
}
else
{
Alert(SBError.ToString(), ModExtensiones.TipoMensaje.MsgError);
}
}
private void CargaDatos()
{