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

--FIX varios

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-06-22 10:20:35 -07:00
parent c3a688fb9f
commit b5fc0b2f94
4 changed files with 26 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Ventas/CatAutorizacionLimites.aspx
View File

@@ -179,7 +179,6 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoDocto" runat="server" Width="100%" CssClass="form-control marginFixRow select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoDocto_SelectedIndexChanged"> <asp:DropDownList ID="DdlTipoDocto" runat="server" Width="100%" CssClass="form-control marginFixRow select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoDocto_SelectedIndexChanged">
<asp:ListItem Value="Ing" Selected="True" Text="Factura de Ingreso"></asp:ListItem> <asp:ListItem Value="Ing" Selected="True" Text="Factura de Ingreso"></asp:ListItem>
<asp:ListItem Value="Egs" Text="Nota de crédito"></asp:ListItem>
<asp:ListItem Value="Rem" Text="Remisión"></asp:ListItem> <asp:ListItem Value="Rem" Text="Remisión"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlTipoDocto.ClientID.ToString()%>">Tipo Documento:</label> <label for="<%= DdlTipoDocto.ClientID.ToString()%>">Tipo Documento:</label>

1
Ventas/FacturacionGlobal.aspx.vb
View File

@@ -230,6 +230,7 @@ Partial Class Ventas_FacturacionGlobal
If Math.Abs(ObjFactura.Total.RoundSQL(2) - DtPagosFacturaGlobal.SUMD("Importe").RoundSQL(2)) > 0.01D Then If Math.Abs(ObjFactura.Total.RoundSQL(2) - DtPagosFacturaGlobal.SUMD("Importe").RoundSQL(2)) > 0.01D Then
Alert($"Los pagos no coinciden con el total de la factura [{ObjFactura.Total.RoundSQL(2)}-{ DtPagosFacturaGlobal.SUMD("Importe").RoundSQL(2)}]", TipoMensaje.MsgError) Alert($"Los pagos no coinciden con el total de la factura [{ObjFactura.Total.RoundSQL(2)}-{ DtPagosFacturaGlobal.SUMD("Importe").RoundSQL(2)}]", TipoMensaje.MsgError)
GuardaLog($"Los pagos no coinciden con el total de la factura [{ObjFactura.Total.RoundSQL(2)}-{ DtPagosFacturaGlobal.SUMD("Importe").RoundSQL(2)}] Remisiones: " + SbRemisiones.ToString())
Exit Sub Exit Sub
End If End If

1
Ventas/Ventas.aspx
View File

@@ -8588,7 +8588,6 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoDocto" runat="server" Width="100%" CssClass="form-control marginFixRow select2me" AutoPostBack="true"> <asp:DropDownList ID="DdlTipoDocto" runat="server" Width="100%" CssClass="form-control marginFixRow select2me" AutoPostBack="true">
<asp:ListItem Value="Ing" Selected="True" Text="Factura de Ingreso"></asp:ListItem> <asp:ListItem Value="Ing" Selected="True" Text="Factura de Ingreso"></asp:ListItem>
<asp:ListItem Value="Egs" Text="Nota de crédito"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlTipoDocto.ClientID.ToString()%>">Tipo Documento:</label> <label for="<%= DdlTipoDocto.ClientID.ToString()%>">Tipo Documento:</label>
</div> </div>

26
Ventas/Ventas.aspx.vb
View File

@@ -9711,8 +9711,17 @@ Partial Class Ventas
End If End If
Me.CveAutorizacion = -1 Me.CveAutorizacion = -1
Dim PermiteAutorizacion As Boolean = False
If DdlTipoComprobante.SelectedValue.Contiene("Ing") Then
PermiteAutorizacion = True
End If
If DdlTipoComprobante.SelectedValue.Contiene("Rem") AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
PermiteAutorizacion = True
End If
'SI ES A CREDITO DEBE VERIFICAR SI TIENE AUTORIZACIONES 'SI ES A CREDITO DEBE VERIFICAR SI TIENE AUTORIZACIONES
If UsuarioActual.Empresa.Funcionalidad(595) = "2" AndAlso CveCliente > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing") AndAlso RBLPago.SelectedValue = "1" Then If UsuarioActual.Empresa.Funcionalidad(595) = "2" AndAlso CveCliente > 0 AndAlso PermiteAutorizacion AndAlso RBLPago.SelectedValue = "1" Then
Dim TipoDocumentoAutorizacion As String = "" Dim TipoDocumentoAutorizacion As String = ""
Dim ImporteAutorizacion As Decimal = 0 Dim ImporteAutorizacion As Decimal = 0
Dim TipoAutorizacion As Integer = 0 Dim TipoAutorizacion As Integer = 0
@@ -31890,6 +31899,11 @@ Partial Class Ventas
Exit Sub Exit Sub
End If End If
If Not UsuarioActual.TienePermisoProceso(60) Then
Alert("El usuario no tiene permiso para facturar.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
'MARCA LAS SELECCIONADAS 'MARCA LAS SELECCIONADAS
VerificaCotizaciones(DtCotizaciones) VerificaCotizaciones(DtCotizaciones)
@@ -32417,6 +32431,11 @@ Partial Class Ventas
Exit Sub Exit Sub
End If End If
If Not UsuarioActual.TienePermisoProceso(60) Then
Alert("El usuario no tiene permiso para facturar.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
'Checa las facturas selecionadas 'Checa las facturas selecionadas
If Not VerificaRemisiones(DTRemisiones) Then If Not VerificaRemisiones(DTRemisiones) Then
Alert("La cantidad/total debe ser mayor que 0", TipoMensaje.MsgAdvertencia) Alert("La cantidad/total debe ser mayor que 0", TipoMensaje.MsgAdvertencia)
@@ -32994,6 +33013,11 @@ Partial Class Ventas
Exit Sub Exit Sub
End If End If
If Not UsuarioActual.TienePermisoProceso(60) Then
Alert("El usuario no tiene permiso para facturar.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
'MARCA LAS SELECCIONADAS 'MARCA LAS SELECCIONADAS
VerificaPedidos2(DtPedidos2) VerificaPedidos2(DtPedidos2)
Dim DTSeleccionadas As DataTable = DtPedidos2.FiltraParametros("Aplicado = True") Dim DTSeleccionadas As DataTable = DtPedidos2.FiltraParametros("Aplicado = True")