@@ -887,7 +888,7 @@
|
-
+
@@ -1029,8 +1030,8 @@
-
-
+
+
@@ -1042,7 +1043,7 @@
-
+
@@ -1066,8 +1067,8 @@
Agregar
--%>
-
-
+
+
@@ -1252,8 +1253,39 @@
+
+
+
+
+
+
+
+ Cancelar Complemento
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
@@ -1563,13 +1594,6 @@
- <%--
¿Cual de las siguientes acciones es la que desea realizar?
-
-
- Cancelar Complemento
- Cancelar Pago y Complemento
- --%>
-
@@ -1630,7 +1654,8 @@
-
@@ -1800,7 +1825,7 @@
function ValidarCantidad(t, c) {
var Ot = 0.00;
// considera importe de OT ingresos, para que se peuda exceder
- if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value);}
+ if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value); }
t.value = (ToDouble(t.value) > ToDouble(c) + Ot ? c : t.value)
}
@@ -1814,10 +1839,10 @@
}
- function SelectorNotas(Chk) {
+ function SelectorNotas(Chk) {
$(`.CssSelector input[type=checkbox]`).each(function () {
- $(this).prop('checked', Chk.checked);
+ $(this).prop('checked', Chk.checked);
});
FCSumaTotalesNotas()
@@ -1830,7 +1855,7 @@
$(`.CssSelector input[type=checkbox]`).each(function () {
if ($(this).is(":checked")) {
Total += parseFloat($(this).attr("data-saldo"));
- }
+ }
});
@@ -1838,22 +1863,22 @@
$(`#TxtImporte`).val(Total);
- FormatoMoneda( $get("TxtImporte"));
+ FormatoMoneda($get("TxtImporte"));
} else {
$(`#TxtImporte`).val("");
- }
+ }
}
- function DeshabilitarTxt(){
+ function DeshabilitarTxt() {
return false;
}
function CambiaTCPagoOC() {
-
+
$("#LnkActualizaTCOC").click();
}
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index e845a08e3..22d6a995d 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -1120,7 +1120,8 @@ Partial Class Bancos_IE
End If
'LnkCancelarComplemento.Visible = False
- LnkCancelarComplementoImporte.Visible = False
+ 'LnkCancelarComplementoImporte.Visible = False
+ DivCancelarComplemento.Visible = False
UppEliminarIE.Update()
@@ -1296,7 +1297,8 @@ Partial Class Bancos_IE
'LnkCancelar.Visible = False
'LnkCancelarComplemento.Visible = True
- LnkCancelarComplementoImporte.Visible = True
+ 'LnkCancelarComplementoImporte.Visible = True
+ DivCancelarComplemento.Visible = True
End If
@@ -1304,7 +1306,8 @@ Partial Class Bancos_IE
Else
BtnEditar.Visible = False
' LnkCancelarComplemento.Visible = False
- LnkCancelarComplementoImporte.Visible = False
+ 'LnkCancelarComplementoImporte.Visible = False
+ DivCancelarComplemento.Visible = False
DVGenerarComplementoModal.Visible = False
End If
@@ -4453,13 +4456,12 @@ Partial Class Bancos_IE
Protected Sub BtnCancelarIE_Click(sender As Object, e As EventArgs)
RegistraScript("$('#DivCancelarIE').modal('hide');")
Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
-
- If Not ExistenComplementosVigentes Then
- CancelarIE()
- Else
- Alert("No se puede cancelar documento con complementos de pago vigentes", TipoMensaje.MsgError)
+ If ExistenComplementosVigentes AndAlso DdlMotivoCancelacion.SelectedValue.ToEntero() <= 0 Then
+ Alert("Debe seleccionar un motivo de cancelación", TipoMensaje.MsgError)
+ Exit Sub
End If
+ CancelarIE(CancelarComplemento:=ExistenComplementosVigentes)
End Sub
@@ -4681,23 +4683,23 @@ Partial Class Bancos_IE
Dim ObjCancelacion As New Timbrado
If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
- If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
- CargaComplementosPago()
- RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
- ErrorCancelarComplemento = False
- Alert("El complemento se cancelo correctamente.")
- End If
+ 'If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
+ ' CargaComplementosPago()
+ ' RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
+ ' ErrorCancelarComplemento = False
+ ' Alert("El complemento se cancelo correctamente.")
+ 'End If
Else
Dim respCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
If respCancelacion.Verificado Then
- If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
- CargaComplementosPago()
- RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
- ErrorCancelarComplemento = False
- Alert("El complemento se cancelo correctamente.")
- End If
+ 'If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
+ ' CargaComplementosPago()
+ ' RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
+ ' ErrorCancelarComplemento = False
+ ' Alert("El complemento se cancelo correctamente.")
+ 'End If
Else
Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
@@ -5937,7 +5939,7 @@ Partial Class Bancos_IE
End If
If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 1 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
- DVmotivoCancelacion.Visible = True
+ DivCancelarComplemento.Visible = True
End If
@@ -6758,20 +6760,20 @@ Partial Class Bancos_IE
If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
- If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
- CargaComplementosPago()
- Alert("El complemento se cancelo correctamente.")
- End If
+ 'If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
+ ' CargaComplementosPago()
+ ' Alert("El complemento se cancelo correctamente.")
+ 'End If
Else
Dim resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
If resp.Verificado Then
- If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
+ 'If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
- Alert("El complemento se cancelo correctamente.")
- End If
+ ' Alert("El complemento se cancelo correctamente.")
+ 'End If
Else
Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
End If
@@ -6791,7 +6793,7 @@ Partial Class Bancos_IE
Exit Sub
End If
- TxtFechaCancelacion.Text = TxtFechaCancelarComplemento.Text
+ 'TxtFechaCancelacion.Text = TxtFechaCancelarComplemento.Text
CancelarIE(True)
End Sub
@@ -6822,10 +6824,10 @@ Partial Class Bancos_IE
CvePACCancelacion = DTComplementos.Rows(0)("CvePAC").ToString.ToEntero
RegistraScript("$('#ModalCancelarComplemetno').modal('show');")
- DivFechaCancelación.Visible = True
+ 'DivFechaCancelación.Visible = True
CargaComplementosPago()
- UpModalCancelarComplemetno.Update()
+ 'UpModalCancelarComplemetno.Update()
Else
If DTComplementos.Rows.Count = 0 Then
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 2486ed8af..f54ffac71 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2047,6 +2047,7 @@ Partial Class PopUpVerFactura
For Each parametro As ReportParameter In params
retorno.Parametros.Add(New ReportParameter($"SRP_{parametro.Name}", parametro.Values.Item(0)))
Next
+ retorno.Parametros.Add(New ReportParameter($"TieneCartaPorte", "True"))
Else
retorno.Parametros.AddRange(params)
End If
@@ -2690,7 +2691,7 @@ Partial Class PopUpVerFactura
Dim CveTimbreCartaPorteVenta As Integer = -1
Dim CartaPorte As Modelos.MSubReportData = Nothing
- If Vta.TipoDocto = "Ing" Then
+ If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Ing" Then
Using ObjGral As New ClsGenerales
If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0)
@@ -2713,6 +2714,9 @@ Partial Class PopUpVerFactura
'CartaPorte.DataSources.Add(New ReportDataSource() With {.Name = "DataSet1", .Value = dt})
CartaPorte = PreParaImpresionCartaPorte(CveTimbreCartaPorteVenta, AplicaSubReporte:=True)
+ Else
+ CartaPorte = New Modelos.MSubReportData()
+ CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
End If
End If
diff --git a/Empresas/13/Formatos/CartaPorteTimbrado.rdlc b/Empresas/13/Formatos/CartaPorteTimbrado.rdlc
index 970407272..3bf625808 100644
--- a/Empresas/13/Formatos/CartaPorteTimbrado.rdlc
+++ b/Empresas/13/Formatos/CartaPorteTimbrado.rdlc
@@ -18,7 +18,7 @@
Cantidad
@@ -64,7 +64,7 @@
- 0.6cm
+ 0.36188cm
@@ -78,7 +78,7 @@
=Fields!UnidadMedida.Value
@@ -112,7 +112,7 @@
=Fields!Descripcion.Value
@@ -146,7 +146,7 @@
=Fields!CveMaterialPeligroso.Value
@@ -180,7 +180,7 @@
=Fields!Embalaje.Value
@@ -214,7 +214,7 @@
=Fields!PesoEnKg.Value
@@ -244,7 +244,7 @@
- 0.52062cm
+ 0.36187cm
true
@@ -256,7 +256,7 @@
Unidad
@@ -282,7 +282,7 @@
- 0.52062cm
+ 0.36187cm
true
@@ -294,7 +294,7 @@
Producto
@@ -320,7 +320,7 @@
- 0.52062cm
+ 0.36187cm
true
@@ -329,21 +329,13 @@
- Cod. Material
+ Cod. Material Peligroso
-
- Peligroso
-
-
@@ -404,7 +396,7 @@
- 0.52062cm
+ 0.36187cm
true
@@ -416,7 +408,7 @@
Peso (KG)
@@ -459,7 +451,7 @@
=Fields!Cantidad.Value
@@ -488,9 +480,9 @@
true
true
DataSet3
- 6.6164cm
+ 4.93365cm
0.06623cm
- 1.12062cm
+ 0.72375cm
20.36729cm
@@ -521,8 +513,8 @@
Textbox3
- 6.1004cm
- 0.06623cm
+ 4.4494cm
+ 0.0927cm
0.50189cm
8.01543in
1
@@ -553,7 +545,7 @@
Distancia
@@ -601,7 +593,7 @@
- 0.6cm
+ 0.46771cm
@@ -615,7 +607,7 @@
=Fields!TipoUbicacion.Value
@@ -663,7 +655,7 @@
=Fields!RFC.Value
@@ -711,7 +703,7 @@
=Fields!Nombre.Value
@@ -751,7 +743,7 @@
=Fields!FechaHoraSalida.Value
@@ -792,7 +784,7 @@
=Fields!Direccion.Value
@@ -832,7 +824,7 @@
- 0.52062cm
+ 0.44125cm
true
@@ -844,7 +836,7 @@
Ubicación
@@ -872,7 +864,7 @@
- 0.52062cm
+ 0.44125cm
true
@@ -884,7 +876,7 @@
RFC
@@ -912,7 +904,7 @@
- 0.52062cm
+ 0.44125cm
true
@@ -924,7 +916,7 @@
Nombre
@@ -952,7 +944,7 @@
- 0.52062cm
+ 0.44125cm
true
@@ -964,7 +956,7 @@
Fecha
@@ -992,7 +984,7 @@
- 0.52062cm
+ 0.44125cm
true
@@ -1004,7 +996,7 @@
Dirección
@@ -1049,7 +1041,7 @@
=Fields!Distancia.Value
@@ -1092,9 +1084,9 @@
true
true
DataSet2
- 9.1543cm
+ 6.1698cm
0.06623cm
- 1.12062cm
+ 0.90895cm
20.38566cm
2
@@ -1125,9 +1117,9 @@
Textbox3
- 8.56422cm
+ 5.77022cm
0.06623cm
- 0.5cm
+ 0.41369cm
8.01861in
3
@@ -1196,7 +1188,7 @@
- 0.6cm
+ 0.41479cm
@@ -1210,7 +1202,7 @@
=Fields!NumLicencia.Value
@@ -1258,7 +1250,7 @@
=Fields!NombreOperador.Value
@@ -1298,7 +1290,7 @@
- 0.52062cm
+ 0.41479cm
true
@@ -1310,7 +1302,7 @@
LICENCIA
@@ -1338,7 +1330,7 @@
- 0.52062cm
+ 0.41479cm
true
@@ -1350,7 +1342,7 @@
NOMBRE OPERADOR
@@ -1395,7 +1387,7 @@
=Fields!RFC.Value
@@ -1438,9 +1430,9 @@
true
true
DataSet4
- 11.8213cm
+ 7.59855cm
0.06623cm
- 1.12062cm
+ 0.82958cm
20.36724cm
4
@@ -1471,9 +1463,9 @@
Textbox3
- 11.23122cm
+ 7.18459cm
0.06623cm
- 0.5cm
+ 0.41396cm
8.01861in
5
-
-
- :
-
@@ -1513,7 +1497,7 @@
=Parameters!MedioTransporte.Value
@@ -1528,7 +1512,7 @@
Transporte Internacional:
@@ -1536,7 +1520,7 @@
=Parameters!TransporteInternacional.Value
@@ -1551,7 +1535,7 @@
Permiso SCT:
@@ -1559,7 +1543,7 @@
@@ -1567,7 +1551,7 @@
=Parameters!PermisoSTCC.Value
@@ -1579,83 +1563,13 @@
- Numero de Permiso
+
-
- :
-
-
-
- =Parameters!NumPermiso.Value
-
-
-
-
-
-
-
-
- Placa:
-
-
-
- =Parameters!PlacaVM.Value
-
-
-
-
-
-
-
-
- Año:
-
-
-
- =Parameters!AnioVM.Value
-
-
-
-
-
-
@@ -1719,75 +1633,6 @@
true
true
-
-
-
- Aseguradora Responsabilidad Civil:
-
-
-
- =Parameters!Aseguradora.Value
-
-
-
-
-
-
-
-
- Número de Póliza:
-
-
-
- =Parameters!NumPoliza.Value
-
-
-
-
-
-
-
-
- Aseguradora Medio Ambiente:
-
-
-
- =Parameters!NombreAseguradoraMedioAmbiente.Value
-
-
-
-
-
@@ -1874,10 +1719,10 @@
Textbox2
- 1.09361in
- 9.72269cm
- 0.95951in
- 4.21685in
+ 1.07972in
+ 14.61748cm
+ 0.48798in
+ 2.26893in
8
Placa:
=Parameters!RemolquePlaca1.Value
Tipo Rem:
=Parameters!RemolqueSubtimo1.Value
@@ -1931,9 +1776,9 @@
Textbox38
- 5.28548cm
+ 4.01548cm
0.06623cm
- 0.45862cm
+ 0.35631cm
9.62118cm
9
@@ -1958,32 +1803,32 @@
Remolque 2
Placa:
=Parameters!RemolquePlaca2.Value
Tipo Rem:
=Parameters!RemolqueSubtimo2.Value
@@ -1991,9 +1836,9 @@
Textbox38
- 5.28548cm
+ 4.01548cm
9.72269cm
- 0.45862cm
+ 0.35631cm
10.7292cm
10
@@ -2381,7 +2226,7 @@
true
- 13.15006cm
+ 8.48281cm
0.06623cm
1.78092cm
20.36726cm
@@ -3585,7 +3430,7 @@
true
- 15.01212cm
+ 10.34487cm
0.0743cm
7.44771cm
20.42542cm
@@ -3609,14 +3454,14 @@
Pesto Neto Total (KG):
=Parameters!PesoNetoTotal.Value
@@ -3624,9 +3469,9 @@
Textbox46
- 7.86463cm
- 0.10048cm
- 0.56201cm
+ 5.70563cm
+ 0.06623cm
+ 0.3768cm
8.87863cm
14
=Parameters!DistanciaTotal.Value
@@ -3664,10 +3509,10 @@
Textbox46
- 10.43366cm
+ 7.18459cm
0.0743cm
- 0.6cm
- 8.90481cm
+ 0.37869cm
+ 6.32091cm
15
+
+ true
+ true
+
+
+
+
+ Numero de Permiso:
+
+
+
+ =Parameters!NumPermiso.Value
+
+
+
+
+
+
+
+
+ Placa:
+
+
+
+ =Parameters!PlacaVM.Value
+
+
+
+
+
+
+
+
+ Año:
+
+
+
+ =Parameters!AnioVM.Value
+
+
+
+
+
+
+
+
+
+
+ Textbox53
+ 2.77933cm
+ 5.36787cm
+ 1.20263cm
+ 3.86975cm
+ 16
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Aseguradora Responsabilidad Civil:
+
+
+
+ =Parameters!Aseguradora.Value
+
+
+
+
+
+
+
+
+ Número de Póliza:
+
+
+
+ =Parameters!NumPoliza.Value
+
+
+
+
+
+
+
+
+ Aseguradora Medio Ambiente:
+
+
+
+ =Parameters!NombreAseguradoraMedioAmbiente.Value
+
+
+
+
+
+
+ Textbox57
+ 2.77778cm
+ 9.30817cm
+ 1.20419cm
+ 5.25306cm
+ 17
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
- 8.84245in
+ 7.00495in