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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-04-30 15:33:13 -07:00
parent f4ab753364 7452304465
commit 8f4a36e790
15 changed files with 111 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Acumuladores/RepIndicadorDiario.aspx
View File

@@ -190,7 +190,7 @@
Acumulado Acumulado
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlCantidadAcumulado" runat="server" Text='<%# Eval("CantidadAcumulado", "{0:N0}") %>'></asp:Literal> <asp:Literal ID="LtlCantidadAcumulado" runat="server" Text='<%# Eval("CantidadAcumulado", "{0:#,##0.##}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-Width="20" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField ItemStyle-Width="20" ItemStyle-HorizontalAlign="Right">
@@ -206,7 +206,7 @@
Venta Diaria Venta Diaria
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlCantidadAlDia" runat="server" Text='<%# Eval("CantidadAldia", "{0:N0}") %>'></asp:Literal> <asp:Literal ID="LtlCantidadAlDia" runat="server" Text='<%# Eval("CantidadAldia", "{0:#,##0.##}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-Width="80" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField ItemStyle-Width="80" ItemStyle-HorizontalAlign="Right">

27
App_Code/ClsContabilidad.vb
View File

@@ -187,6 +187,9 @@ Public Class ClsContabilidad
If Valor1 = "2" OrElse Valor2 = "2" Then If Valor1 = "2" OrElse Valor2 = "2" Then
Retorno = 3 Retorno = 3
End If End If
Case 140
Retorno = 2 'egreso
End Select End Select
@@ -987,16 +990,20 @@ Public Class ClsContabilidad
If ex1.Message.Contains("50015;") Then If ex1.Message.Contains("50015;") Then
OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
ElseIf ex1.Message.Contains("50024; La Cuenta no fue detectada") Then ElseIf ex1.Message.Contains("50024; La Cuenta no fue detectada") Then
Dim Concepto1 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable)) Dim dr As Data.DataRow = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimero(String.Format("CveConceptoContable = {0}", CveConceptoContable))
OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", Concepto1), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) Dim Strr As String = dr("ConceptoContable").ToString
ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then 'If dr("AplicaClasificacion").ToString <> "No" Then
Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable)) ' Strr = Strr + " - Clasificación: " + DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("", "")
OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) 'End If
ElseIf ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", dr("ConceptoContable").ToString), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
Dim Concepto3 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable)) ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
Else OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) ElseIf ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then
Dim Concepto3 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
Else
OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End If ' End If '
Catch ex As Exception Catch ex As Exception
If ex.Message.Contains("50015;") Then If ex.Message.Contains("50015;") Then

11
App_Code/ClsInventarios.vb
View File

@@ -5545,22 +5545,15 @@ Public Class ClsInventarios
#End Region #End Region
#Region "Camiones" #Region "Camiones"
Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer, Optional CveTipoCamion As Integer = -1) As Boolean Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer, Optional CveTipoCamion As Integer = -1, Optional Estatus As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_CamionesGet") DataAdapter("PA_Inv_CamionesGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveCamion", SqlDbType.Int).Value = CveCamion .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion .Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion
.Add("@Estatus", SqlDbType.Int).Value = Estatus
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

35
Bancos/Devoluciones.aspx.cs
View File

@@ -392,7 +392,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
int cveProveedor = (DdlProveedores.SelectedValue.ToEntero() > 0) ? DdlProveedores.SelectedValue.ToEntero() : -1; int cveProveedor = (DdlProveedores.SelectedValue.ToEntero() > 0) ? DdlProveedores.SelectedValue.ToEntero() : -1;
int cvePersonal = (DdlPersonal.SelectedValue.ToEntero() > 0) ? DdlPersonal.SelectedValue.ToEntero() : -1; int cvePersonal = (DdlPersonal.SelectedValue.ToEntero() > 0) ? DdlPersonal.SelectedValue.ToEntero() : -1;
int cveCliente = (DdlCliente.SelectedValue.ToEntero() > 0) ? DdlCliente.SelectedValue.ToEntero() : -1; int cveCliente = (DdlCliente.SelectedValue.ToEntero() > 0) ? DdlCliente.SelectedValue.ToEntero() : -1;
bool TipoMovoDevolucion = false; bool TipoMovtoDevolucion = false;
double TC = 1; double TC = 1;
StringBuilder Msg = new StringBuilder(); StringBuilder Msg = new StringBuilder();
@@ -402,25 +402,25 @@ public partial class Bancos_Devoluciones : ClsPaginas
PagueseA = DdlCliente.SelectedText.ToString(); PagueseA = DdlCliente.SelectedText.ToString();
CveConceptoContableDevolucion = 92; CveConceptoContableDevolucion = 92;
CvePlantillaPoliza = 7; CvePlantillaPoliza = 7;
TipoMovoDevolucion = false; TipoMovtoDevolucion = false;
break; break;
case "2": case "2":
PagueseA = DdlProveedores.SelectedText.ToString(); PagueseA = DdlProveedores.SelectedText.ToString();
CveConceptoContableDevolucion = 21; CveConceptoContableDevolucion = 21;
CvePlantillaPoliza = 7; CvePlantillaPoliza = 7;
TipoMovoDevolucion = true; TipoMovtoDevolucion = true;
break; break;
case "3": case "3":
PagueseA = DdlPersonal.SelectedItem.ToString(); PagueseA = DdlPersonal.SelectedItem.ToString();
CvePlantillaPoliza = 100; CvePlantillaPoliza = 100;
TipoMovoDevolucion = true; TipoMovtoDevolucion = true;
CveConceptoContableDevolucion = 250; CveConceptoContableDevolucion = 250;
break; break;
case "4": case "4":
PagueseA = DdlPersonal.SelectedItem.ToString(); PagueseA = DdlPersonal.SelectedItem.ToString();
CveConceptoContableDevolucion = 273; CveConceptoContableDevolucion = 273;
CvePlantillaPoliza = 100; CvePlantillaPoliza = 100;
TipoMovoDevolucion = true; TipoMovtoDevolucion = true;
break; break;
} }
@@ -464,7 +464,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
{ {
if (gvr.FCCheckBox("Chk").Checked) if (gvr.FCCheckBox("Chk").Checked)
{ {
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, 0, -1, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE, CveNominaMovtoPermanente: CveMovtoPermanente)) if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, 0, -1, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE, CveNominaMovtoPermanente: CveMovtoPermanente))
{ {
MsgError = "No se pudo insertar concepto de Devolución"; MsgError = "No se pudo insertar concepto de Devolución";
break; break;
@@ -474,7 +474,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
//Decimal tTotal = (TxtValor.Text.ToDecimal() * TxtVecesAplicar.Text.ToDecimal()).RoundSQL(); //Decimal tTotal = (TxtValor.Text.ToDecimal() * TxtVecesAplicar.Text.ToDecimal()).RoundSQL();
Decimal tTotal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal(); Decimal tTotal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal();
//GUARDA PREPOLIZAS DETALLE Via Nómina //GUARDA PREPOLIZAS DETALLE Via Nómina
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: tTotal, CveNominaMovtoPermanente: CveMovtoPermanente)) if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovtoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: tTotal, CveNominaMovtoPermanente: CveMovtoPermanente))
{ {
MsgError = "No se pudo insertar concepto de Devolución"; MsgError = "No se pudo insertar concepto de Devolución";
} }
@@ -520,15 +520,24 @@ public partial class Bancos_Devoluciones : ClsPaginas
else else
{ {
//INGxC //INGxC
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, IDCtaContableDevolucion, -1, CveIE: CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero())) if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, IDCtaContableDevolucion, -1, CveIE: CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero()))
{ {
MsgError = "No se pudo insertar concepto de bancos"; MsgError = "No se pudo insertar concepto de bancos";
} }
// OTROS INGRESOS
if (gvr.FCTextBox("TxtComision").Text.ToDecimal() != 0)
{
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtComision").Text.ToDecimal(), Ref, 78, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE: CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), ImporteMX: gvr.FCTextBox("TxtComision").Text.ToDecimal(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero()))
{
MsgError = "No se pudo insertar concepto de ot. ingresos/gastos";
break;
}
}
} }
} }
else else
{ {
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, IDCtaContableDevolucion, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE)) if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), Ref, CveConceptoContableDevolucion, Conc, DateTime.Now, IDCtaContableDevolucion, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveIEDevolucion: CveIE))
{ {
MsgError = "No se pudo insertar concepto de Devolución"; MsgError = "No se pudo insertar concepto de Devolución";
break; break;
@@ -537,7 +546,11 @@ public partial class Bancos_Devoluciones : ClsPaginas
// OTROS INGRESOS // OTROS INGRESOS
if (gvr.FCTextBox("TxtComision").Text.ToDecimal() != 0) if (gvr.FCTextBox("TxtComision").Text.ToDecimal() != 0)
{ {
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtComision").Text.ToDecimal(), Ref, 78, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtComision").Text.ToDecimal(), CveIEDevolucion: CveIE)) int tcvecon = 78;
if (gvr.FCTextBox("TxtComision").Text.ToDecimal() > 0)
tcvecon = 255;
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtComision").Text.ToDecimal(), Ref, tcvecon, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtComision").Text.ToDecimal(), CveIEDevolucion: CveIE))
{ {
MsgError = "No se pudo insertar concepto de Devolución"; MsgError = "No se pudo insertar concepto de Devolución";
break; break;
@@ -548,7 +561,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
} }
//GUARDA PREPOLIZAS DETALLE Bancos //GUARDA PREPOLIZAS DETALLE Bancos
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, TxtImporte.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: TxtImporte.Text.ToDecimal())) if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovtoDevolucion, TxtImporte.Text.ToDecimal(), Ref, CveConceptoContableBanco, Conc, DateTime.Now, IDCtaContableBancos, -1, CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: TxtImporte.Text.ToDecimal()))
{ {
MsgError = "No se pudo insertar concepto de bancos"; MsgError = "No se pudo insertar concepto de bancos";
} }

2
Bancos/RepEgresosSinComprobante.aspx.vb
View File

@@ -39,7 +39,7 @@ Partial Class Bancos_RepEgresosSinComprobante
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1")) DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
Else Else
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario) DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.DataBind()
End If End If

5
Compras/Compras.aspx
View File

@@ -5827,8 +5827,7 @@
$get("HdnArchivoEstatus").value = "error"; $get("HdnArchivoEstatus").value = "error";
alert("Ocurrió un error al intentar subir el archivo, por favor intentelo de nuevo."); alert("Ocurrió un error al intentar subir el archivo, por favor intentelo de nuevo.");
} }
function chkAnt(t, txt, importe, TotalSaldo, CveMonedaAnticipo, TCAnticipo, CveMonedaOriginal) { function chkAnt(t, txt, importe, TotalSaldo, CveMonedaAnticipo, TCAnticipo, CveMonedaOriginal) {
var Total = ToDouble($get('TxtTotal').value); var Total = ToDouble($get('TxtTotal').value);
@@ -5844,7 +5843,7 @@
} }
//var SaldoCompra = parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2)); //var SaldoCompra = parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2));
var SaldoCompra = (Total - FnSumaValoresAnt() + txtvalue).toFixed(2); // le agrego lo del valor actual para validarlo var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + txtvalue).toFixed(2); // le agrego lo del valor actual para validarlo

7
Compras/Compras.aspx.vb
View File

@@ -14991,12 +14991,12 @@ Partial Class Compras_Compras
End If End If
ObjComprasComprobacion.Dispose() ObjComprasComprobacion.Dispose()
Dim cvemovimientoentrada As Integer = -1
'DEVOLUCIÓN AUTOMATICA 'DEVOLUCIÓN AUTOMATICA
If CheckDevAuto.Checked Then If CheckDevAuto.Checked Then
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
Dim cvemovimientoentrada As Integer
Dim folio As Integer Dim folio As Integer
Dim fecha As Date = TxtFechaCancelacion.Text.ToDate Dim fecha As Date = TxtFechaCancelacion.Text.ToDate
Dim importeconcepto As Decimal Dim importeconcepto As Decimal
@@ -15138,7 +15138,8 @@ Partial Class Compras_Compras
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero, If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero,
dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero, dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero,
dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero, dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero, If(cvemovimientoentrada > 0, cvemovimientoentrada, dr("CveMovimientoAlmacen").ToString.ToEntero),
dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
ErrorCancelar = True ErrorCancelar = True
Exit For Exit For

8
Contabilidad/PopUpAuxiliar.aspx.vb
View File

@@ -198,7 +198,13 @@ Partial Class PopUpAuxiliar
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Left
If e.Row.FCLiteral("LtlContabilizado").Text = "Si" Then If e.Row.FCLiteral("LtlContabilizado").Text = "Si" Then
Dim Liga As String = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">", e.Row.DBCampo("IdPoliza")) Dim Liga As String
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Liga = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">", e.Row.DBCampo("CvePrePoliza"))
Else
Liga = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">", e.Row.DBCampo("IdPoliza"))
End If
e.Row.FCLiteral("LtlPoliza").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("Poliza")) e.Row.FCLiteral("LtlPoliza").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("Poliza"))
End If End If

1
Contabilidad/RegPrePolizaS.aspx
View File

@@ -368,6 +368,7 @@
<asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList> <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
<ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost> <ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
<asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList> <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList>
<asp:Label ID="LblTC" runat="server" Text="TC" Visible="false"></asp:Label><asp:TextBox ID="TxtTCPreP" CssClass="form-control input-sm select2me" runat="server" Width="50px" Visible="false"></asp:TextBox>
</th> </th>
<th> <th>

14
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -693,6 +693,17 @@ Partial Class ContabilidadC_RegPrePolizaS
Private Sub DdlConceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContables.SelectedIndexChanged Private Sub DdlConceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContables.SelectedIndexChanged
Dim dr As DataRow = GlobalDTContaConceptosContables(DdlConceptosContables.SelectedValue.ToEntero).FiltroPrimero("")
If dr IsNot Nothing Then
If dr("AplicaTC").ToString = "True" Then
TxtTCPreP.Visible = True
LblTC.Visible = True
Else
TxtTCPreP.Visible = False
LblTC.Visible = False
End If
End If
If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
CargaProveedores() CargaProveedores()
@@ -709,7 +720,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Else Else
DdlPersonal.Visible = False DdlPersonal.Visible = False
End If End If
If DdlConceptosContables.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then If DdlConceptosContables.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91, 291, 292) Then
CargaClientes() CargaClientes()
DdlClientes.Visible = True DdlClientes.Visible = True
DdlVentas.Visible = True DdlVentas.Visible = True
@@ -1524,6 +1535,7 @@ Partial Class ContabilidadC_RegPrePolizaS
If AplicaBancos Then If AplicaBancos Then
CargaModalConceptoTipoTransaccion("Egs")
'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px") 'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6") DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6")
DvMoldalConceptoSeccion2.Visible = True DvMoldalConceptoSeccion2.Visible = True

12
Ventas/ClientesAbonar.aspx
View File

@@ -196,7 +196,13 @@
<div class="col-md-2" runat="server" id="DvLiquidacion1" visible="false">Liquidación:</div> <div class="col-md-2" runat="server" id="DvLiquidacion1" visible="false">Liquidación:</div>
<div class="col-md-3" runat="server" id="DvLiquidacion2" visible="false"> <div class="col-md-3" runat="server" id="DvLiquidacion2" visible="false">
<asp:CheckBox ID="ChkLiquidacion" OnCheckedChanged="ChkLiquidacion_CheckedChanged" runat="server" AutoPostBack="true" /> <asp:UpdatePanel ID="UppTiempo" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:CheckBox ID="ChkLiquidacion" OnCheckedChanged="ChkLiquidacion_CheckedChanged" runat="server" AutoPostBack="true" />
<asp:Timer runat="server" ID="TimTiempo" Interval="300000" Enabled="false" OnTick="TimTiempo_Tick"></asp:Timer>
</ContentTemplate>
</asp:UpdatePanel>
</div> </div>
</div> </div>
@@ -566,7 +572,7 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:Button ID="BtnSaldarCuentasIncobrables" runat="server" CssClass="btn btn-primary" Text="Saldar cuentas" ValidationGroup="GrpIncobrable" /> <asp:Button ID="BtnSaldarCuentasIncobrables" runat="server" CssClass="btn btn-primary" Text="Saldar cuentas" ValidationGroup="GrpIncobrable" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button> <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
@@ -606,7 +612,7 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:Button ID="BtnVincularIntermediario" runat="server" CssClass="btn btn-primary" Text="Vincular Intermediario" /> <asp:Button ID="BtnVincularIntermediario" runat="server" CssClass="btn btn-primary" Text="Vincular Intermediario" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button> <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>

10
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1499,7 +1499,7 @@ Partial Class Ventas_ClientesAbonar
End If End If
End If End If
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) AndAlso UsuarioActual.CveEmpresa <> 158 Then
If ObjMov.ValorPolizaDescuadre > 0 Then If ObjMov.ValorPolizaDescuadre > 0 Then
MsgError = ObjMov.MensajePolizaDescuadre + " La diferencia es de: " + ObjMov.ValorDiferencia MsgError = ObjMov.MensajePolizaDescuadre + " La diferencia es de: " + ObjMov.ValorDiferencia
End If End If
@@ -2871,11 +2871,15 @@ Partial Class Ventas_ClientesAbonar
#Region "LIQUIDACION" #Region "LIQUIDACION"
Protected Sub TimTiempo_Tick(sender As Object, e As EventArgs)
Dim a As String = "se recarga para que no pierda sesíón el registro puede tardar más de una hora en llenar todos los datos" 'solo para que se ejecute sin que afecte a lo demás
End Sub
Protected Sub ChkLiquidacion_CheckedChanged(sender As Object, e As EventArgs) Protected Sub ChkLiquidacion_CheckedChanged(sender As Object, e As EventArgs)
If ChkLiquidacion.Checked Then If ChkLiquidacion.Checked Then
TimTiempo.Enabled = True 'para que no me saque
GvCxC.Columns(4).Visible = False GvCxC.Columns(4).Visible = False
GvCxC.Columns(5).Visible = False GvCxC.Columns(5).Visible = False
GvCxC.Columns(6).Visible = False GvCxC.Columns(6).Visible = False
@@ -2899,6 +2903,7 @@ Partial Class Ventas_ClientesAbonar
Else Else
TimTiempo.Enabled = False
GvCxC.Columns(4).Visible = True GvCxC.Columns(4).Visible = True
GvCxC.Columns(5).Visible = True GvCxC.Columns(5).Visible = True
GvCxC.Columns(6).Visible = True GvCxC.Columns(6).Visible = True
@@ -2919,7 +2924,6 @@ Partial Class Ventas_ClientesAbonar
GvCxC.Columns(27).Visible = True GvCxC.Columns(27).Visible = True
GvCxC.Columns(28).Visible = True GvCxC.Columns(28).Visible = True
End If End If
UPVentas.Update() UPVentas.Update()

15
Ventas/RepCancelacionesPorRespuesta.aspx
View File

@@ -70,7 +70,7 @@
<asp:BoundField HeaderText="Motivo" DataField="MotivoCancelacion" ItemStyle-Width="25%" /> <asp:BoundField HeaderText="Motivo" DataField="MotivoCancelacion" ItemStyle-Width="25%" />
<asp:TemplateField ItemStyle-Width="35px" HeaderText="Verificar"> <asp:TemplateField ItemStyle-Width="35px" HeaderText="Verificar">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton runat="server" OnClick="BtnValidar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea verificar la cancelación?" data-btn-ok-label="si"></asp:LinkButton> <asp:LinkButton runat="server" ID="BtnValidar" OnClick="BtnValidar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea verificar la cancelación?" data-btn-ok-label="si"></asp:LinkButton>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
@@ -121,21 +121,26 @@
<asp:LinkButton ID="LnkValidarRefac" runat="server" OnClick="BtnValidarRefacturacion_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea verificar la cancelación?" data-btn-ok-label="si"></asp:LinkButton> <asp:LinkButton ID="LnkValidarRefac" runat="server" OnClick="BtnValidarRefacturacion_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea verificar la cancelación?" data-btn-ok-label="si"></asp:LinkButton>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-Width="35px" HeaderText="Cancelar"> <asp:TemplateField ItemStyle-Width="40px" HeaderText="Cancelar">
<ItemTemplate> <ItemTemplate>
<div class="row" style="padding-bottom:3px;"> <div class="row" style="padding-bottom:3px;">
<div class="col-md-12"> <div class="col-md-12">
<asp:LinkButton ID="LnkCancelar" Visible="false" runat="server" OnClick="BtnCancelarDocumento_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-check'> Factura Pendiente</i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si"></asp:LinkButton> <asp:LinkButton ID="LnkCancelar" Visible="false" runat="server" OnClick="BtnCancelarDocumento_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-ban'> </i>" ToolTip="Cancelar refacturación" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si"></asp:LinkButton>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:LinkButton ID="LnkCancelarFolioSustitucion" Visible="false" runat="server" OnClick="LnkCancelarFolioSustitucion_Click" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-check'> Folio Sustitucion</i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si"></asp:LinkButton> <asp:LinkButton ID="LnkCancelarFolioSustitucion" Visible="false" runat="server" OnClick="LnkCancelarFolioSustitucion_Click" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-ban'> 02</i>" ToolTip="Cancelar refacturación con método 02" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el documento?" data-btn-ok-label="si"></asp:LinkButton>
</div> </div>
</div> </div>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:HyperLinkField HeaderText="Refacturar" Text="Refacturar" DataNavigateUrlFields="CveVenta" ItemStyle-Width="100px" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveDevolucion={0}&NuevaFactura=1" /> <asp:TemplateField ItemStyle-Width="40px" HeaderText="Refact">
<ItemTemplate>
<asp:HyperLink ID="HplRefact" Visible="false" runat="server" Text="Refacturar" NavigateUrl="/Ventas/Ventas.aspx?CveDevolucion={0}&NuevaFactura=1" ></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
</Columns> </Columns>
<RowStyle CssClass="Texto" /> <RowStyle CssClass="Texto" />
<HeaderStyle CssClass="Titulos" /> <HeaderStyle CssClass="Titulos" />

13
Ventas/RepCancelacionesPorRespuesta.aspx.cs
View File

@@ -77,6 +77,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
GvRefacturaciones.DataSource = DtRefacturar; GvRefacturaciones.DataSource = DtRefacturar;
GvRefacturaciones.DataBind(); GvRefacturaciones.DataBind();
} }
GvDatos.DataBind(); GvDatos.DataBind();
UPDatos.Update(); UPDatos.Update();
@@ -569,11 +570,19 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
{ {
if (e.Row.RowType == DataControlRowType.DataRow) if (e.Row.RowType == DataControlRowType.DataRow)
{ {
if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 0 || !string.IsNullOrEmpty(e.Row.DBCampo("FolioFiscalSustitucion").ToString())) GridView gv = (GridView)sender;
if (!(e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 0 || !string.IsNullOrEmpty(e.Row.DBCampo("FolioFiscalSustitucion").ToString())))
{ {
e.Row.Cells[12].Text = ""; e.Row.FCHyperLink("HplRefact").NavigateUrl = string.Format("/Ventas/Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", e.Row.DBCampo("CveVenta"));
e.Row.FCHyperLink("HplRefact").Visible = true;
} }
if (e.Row.DBCampo("CveEstatusRefacturacion") == "4" && gv.ID=="GvDatos")
{
e.Row.FCLinkButton("BtnValidar").Text= "<i class='fa fa-check'>02</i>";
}
//
//if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 1 && e.Row.DBCampo("CveEstatusFactura").ToString().ToEntero() == 23) //if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 1 && e.Row.DBCampo("CveEstatusFactura").ToString().ToEntero() == 23)
//{ //{
// e.Row.FCLinkButton("LnkValidarRefac").Visible = false; // e.Row.FCLinkButton("LnkValidarRefac").Visible = false;

1
Ventas/Ventas.aspx.vb
View File

@@ -9179,6 +9179,7 @@ Partial Class Ventas
If UsuarioActual.CveEmpresa = 140 Then If UsuarioActual.CveEmpresa = 140 Then
AutoConta = True AutoConta = True
idCuentaContabilizacion = 10
End If End If
If AutoConta Then If AutoConta Then