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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-05-12 00:26:08 -07:00
parent b2f2f1e389 33bc73db54
commit 3dd1418247
7 changed files with 11 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsBancos.vb
View File

@@ -4843,11 +4843,7 @@ Public Class ClsBancos
'MOVIMIENTOS CHEQUE
If GetBancosIEMovimientos(CveIENotificar, UsuarioActual.CveEmpresa) Then
Dim Textov33 As String = ""
If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
End If
Dim Textov33 As String = "Favor de emitir complemento de pago de los siguientes documentos"
strBody.AppendFormat("<div style='width: 1000px'>")
strBody.AppendFormat(" <table style='width:1000px'>")

5
Bancos/IE.aspx.vb
View File

@@ -6223,10 +6223,7 @@ Partial Class Bancos_IE
'MOVIMIENTOS CHEQUE
If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
Dim Textov33 As String = ""
If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
End If
Dim Textov33 As String = "Favor de emitir complemento de pago de los siguientes documentos"
strBody.AppendFormat("<div style='width: 1000px'>")
strBody.AppendFormat(" <table style='width:1000px'>")

5
Compras/Proveedores.aspx.vb
View File

@@ -5898,10 +5898,7 @@ Partial Class Compras_Proveedores
'MOVIMIENTOS CHEQUE
If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
Dim Textov33 As String = ""
If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
End If
Dim Textov33 As String = "Favor de emitir complemento de pago de los siguientes documentos"
strBody.AppendFormat("<div style='width: 1000px'>")
strBody.AppendFormat(" <table style='width:1000px'>")

7
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1950,8 +1950,13 @@ Partial Class Inventarios_EntradasSalidas
End If
If Not ErrorMovInv Then
Dim OpcionPrePoliza As Integer = -1
'SI ES CONSUMO INTERNO
If DdlConcepto.SelectedValue = "30" Then
OpcionPrePoliza = 11
End If
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, OpcionPrePoliza) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
ErrorMovInv = True
GuardaLogAD($"Inv/ES | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")

18
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -2624,14 +2624,6 @@ Partial Class Inventarios_TraspasoAlmacen
strBody.AppendFormat(" <td>Observaciones:</td>")
strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", ObjInventario.Observaciones)
strBody.AppendFormat(" </tr>")
'strBody.AppendFormat(" <tr class='Texto'>")
'strBody.AppendFormat(" <td>Importe:</td>")
'strBody.AppendFormat(" <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
'strBody.AppendFormat(" </tr>")
'strBody.AppendFormat(" <tr class='Texto'>")
'strBody.AppendFormat(" <td>Observaciones:</td>")
'strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", objIE.Observaciones)
'strBody.AppendFormat(" </tr>")
strBody.AppendFormat(" <tr class='Texto'>")
strBody.AppendFormat(" <td colspan='2'>")
strBody.AppendFormat(" <hr />")
@@ -2644,12 +2636,6 @@ Partial Class Inventarios_TraspasoAlmacen
strBody.AppendFormat(" </table>")
strBody.AppendFormat("</div>")
'MOVIMIENTOS CHEQUE
'Dim Textov33 As String = ""
'If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
' Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
'End If
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
strBody.AppendFormat("<div style='width: 1000px'>")
strBody.AppendFormat(" <table style='width:1000px'>")
@@ -2662,8 +2648,6 @@ Partial Class Inventarios_TraspasoAlmacen
strBody.AppendFormat(" <th scope='col' style='width: 10%'>Cantidad</th>")
strBody.AppendFormat(" <th scope='col' style='width: 20%'>Unidad</th>")
strBody.AppendFormat(" <th scope='col' style='width: 70%'>Producto / Servicio</th>")
'strBody.AppendFormat(" <th scope='col' style='width: 40%'>Folio Fiscal</th>")
'strBody.AppendFormat(" <th scope='col' style='width: 15%'>NC Aplicadas</th>")
strBody.AppendFormat(" </tr>")
@@ -2672,8 +2656,6 @@ Partial Class Inventarios_TraspasoAlmacen
strBody.AppendFormat(" <td>{0}</td>", dr("Cantidad").ToString.FormatoNumero)
strBody.AppendFormat(" <td>{0}</td>", dr("UnidadMedida").ToString)
strBody.AppendFormat(" <td>{0}</td>", dr("CodigoPS").ToString)
'strBody.AppendFormat(" <td>{0}</td>", dr("FolioFiscal"))
'strBody.AppendFormat(" <td>{0}</td>", dr("ImporteNC").ToString.FormatoNumero)
strBody.AppendFormat(" </tr>")
Next

2
Ventas/Ventas.aspx
View File

@@ -1065,7 +1065,7 @@
</ContentTemplate>
</asp:UpdatePanel>
</th>
<th>
<th style="width:120px;">
<div class="row" id="DivPrecioLista" runat="server" visible="false">
<div class="col-md-12">
<asp:DropDownList ID="DdlPrecioLista" runat="server" Width="100%" CssClass="select2me" DataValueField="CvePrecioLista" DataTextField="PrecioLista" OnSelectedIndexChanged="DdlPrecioLista_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList>

2
Ventas/Ventas.aspx.vb
View File

@@ -7070,7 +7070,7 @@ Partial Class Ventas
Dim ValorAutorizacion As String = UsuarioActual.Empresa.Funcionalidad(595)
'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO
If Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then
If (Not UsuarioActual.Empresa.Funcionalidad(702).Contiene("1", "2")) AndAlso Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then
RBLPago.SelectedValue = "2"
RBLPago.Items(0).Enabled = False
RBLPago_SelectedIndexChanged(Nothing, Nothing)