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

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

Browse Source
This commit is contained in:
rakcsle
2022-04-04 20:53:45 -07:00
parent b13bcf4c71 353d4ef218
commit 3db411e5bb
16 changed files with 85 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/RepRecuperacionDetalle.aspx
View File

@@ -289,6 +289,8 @@
<asp:BoundField HeaderText="Num. Cuenta" DataField="NumCuenta" />
<asp:BoundField HeaderText="Dias Vencimiento" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" DataField="DiasVencimiento" />
<asp:BoundField HeaderText="Dias Pago" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" DataField="DiasPagados" />
<asp:BoundField HeaderText="Forma Pago" DataField="FormaPago" />
<asp:BoundField HeaderText="CondicionesPago" DataField="CondicionesPago" />
</Columns>
</asp:GridView>
</ContentTemplate>

11
Ventas/Ventas.aspx.vb
View File

@@ -6372,7 +6372,7 @@ Partial Class Ventas
If CveCliente > 0 Then CargaAnticipos(CveCliente) : UpAnticipos.Update()
If CveCliente > 0 AndAlso UsuarioActual.CveEmpresa = 140 Then
If CveCliente > 0 AndAlso UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then
DivVentasUsados.Visible = True
Dim ObjClientes As New ClsClientes
@@ -22468,12 +22468,13 @@ Partial Class Ventas
#Region " DEVOLUCION ALMACEN "
Private Sub InicializaDevolucionAlmacen()
If Not GvInv.Rows.Count > 0 Then
Exit Sub
If CveVenta.Contiene(2035312, 2035310, 2039679) Then
LBAplicaDevolucion.Visible = True
End If
If CveVenta = 1651560 Then
LBAplicaDevolucion.Visible = True
If Not GvInv.Rows.Count > 0 Then
Exit Sub
End If
If CveVenta > 0 AndAlso (SaldoVenta = TxtTotal.Text.ToDecimal OrElse DdlTipoComprobante.SelectedValue = "Dev" OrElse (DdlTipoComprobante.SelectedValue = "Ped" AndAlso TmpDT IsNot Nothing AndAlso TmpDT.COUNT("CveContratoDetalle", "CveContratoDetalle > 0") > 0)) Then 'And (DdlTipoComprobante.SelectedValue.Contiene({"Rem", "Ped"}) Or (DdlTipoComprobante.SelectedValue.Contiene({"Ing"}) And TxtFecha.Text.ToDate.Month = Now.Month And TxtFecha.Text.ToDate.Year = Now.Year)) Then