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

-- mejoras en lineas adicionales

Browse Source
This commit is contained in:
rrene
2022-10-28 08:53:23 -07:00
parent 5898c5863c
commit 68cdc90b73
2 changed files with 20 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Ventas/Clientes.aspx
View File

@@ -2557,6 +2557,7 @@
<asp:Literal ID="LtlMon" runat="server" Text='<%# Eval("MonedaVenta")%>'></asp:Literal> <asp:Literal ID="LtlMon" runat="server" Text='<%# Eval("MonedaVenta")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional" />
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Archivos</HeaderTemplate> <HeaderTemplate>Archivos</HeaderTemplate>
<ItemStyle HorizontalAlign="Center" /> <ItemStyle HorizontalAlign="Center" />

31
Ventas/Clientes.aspx.vb
View File

@@ -2176,6 +2176,7 @@ Partial Class Clientes
GvBancos.DataSource = ObjMovtos.DtResultados GvBancos.DataSource = ObjMovtos.DtResultados
DTCobrosRealizados = ObjMovtos.DtResultados DTCobrosRealizados = ObjMovtos.DtResultados
DTCobrosRealizados.Rows.Remove(DTCobrosRealizados.Rows(0)) DTCobrosRealizados.Rows.Remove(DTCobrosRealizados.Rows(0))
GvBancos.Columns(5).Visible = ObjMovtos.DtResultados.COUNT("LineaAdicional", "LineaAdicional <>'' ") > 0
Else Else
DTCobrosRealizados = Nothing DTCobrosRealizados = Nothing
End If End If
@@ -2193,7 +2194,7 @@ Partial Class Clientes
If e.Row.DBCampo("CveVenta") = "" Then If e.Row.DBCampo("CveVenta") = "" Then
If e.Row.DBCampo("CveIE") <> "" Then If e.Row.DBCampo("CveIE") <> "" Then
Dim ObjBancos As New ClsBancos
e.Row.Cells(0).Text = String.Format("{0} - {1}", e.Row.DBCampo("Banco"), e.Row.DBCampo("NumCuenta")) e.Row.Cells(0).Text = String.Format("{0} - {1}", e.Row.DBCampo("Banco"), e.Row.DBCampo("NumCuenta"))
e.Row.FCLiteral("LtlFechaVenci").Text = e.Row.DBCampo("FechaDocumento").ToDate().ToShortDateString() e.Row.FCLiteral("LtlFechaVenci").Text = e.Row.DBCampo("FechaDocumento").ToDate().ToShortDateString()
@@ -2201,19 +2202,25 @@ Partial Class Clientes
e.Row.FCLiteral("LtlImp").Text = e.Row.DBCampo("ImporteIE").FormatoNumero() e.Row.FCLiteral("LtlImp").Text = e.Row.DBCampo("ImporteIE").FormatoNumero()
e.Row.FCLiteral("LtlMon").Text = e.Row.DBCampo("MonedaIE") e.Row.FCLiteral("LtlMon").Text = e.Row.DBCampo("MonedaIE")
If e.Row.DBCampo("CveComplementoPago") <> "" Then
e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolio").ToString(), e.Row.DBCampo("CveIE").ToString())))
e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolio").ToString(), e.Row.DBCampo("CveIE").ToString())))
'HLSendMail.HRef = String.Format("javascript:$get('HdnCveIE').value='{0}';$get('HdnSerieFolio').value='{1}';$get('HdnFolioPago').value='{2}';$get('TxtParaMail').value='{3}';$('#ModalDivMail').modal();", e.Row.DBCampo("CveIE"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("FolioCobro"), TxtCobranzaCorreo.Text) e.Row.FCLinkButton("LnkSendMail").Visible = True
If ObjBancos.GetComplementoPagos(-1, e.Row.DBCampo("CveIE").ToString().ToEntero(), -1, UsuarioActual.CveEmpresa) Then
If ObjBancos.DtResultados.Rows.Count > 0 Then
e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString(), ObjBancos.DtResultados(0)("SerieFolio").ToString(), ObjBancos.DtResultados(0)("CveIE").ToString())))
e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString(), ObjBancos.DtResultados(0)("SerieFolio").ToString(), ObjBancos.DtResultados(0)("CveIE").ToString())))
e.Row.FCLinkButton("LnkSendMail").Visible = True
End If
End If End If
ObjBancos.Dispose()
''HLSendMail.HRef = String.Format("javascript:$get('HdnCveIE').value='{0}';$get('HdnSerieFolio').value='{1}';$get('HdnFolioPago').value='{2}';$get('TxtParaMail').value='{3}';$('#ModalDivMail').modal();", e.Row.DBCampo("CveIE"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("FolioCobro"), TxtCobranzaCorreo.Text)
'Dim ObjBancos As New ClsBancos
'If ObjBancos.GetComplementoPagos(-1, e.Row.DBCampo("CveIE").ToString().ToEntero(), -1, UsuarioActual.CveEmpresa) Then
' If ObjBancos.DtResultados.Rows.Count > 0 Then
' e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString(), ObjBancos.DtResultados(0)("SerieFolio").ToString(), ObjBancos.DtResultados(0)("CveIE").ToString())))
' e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString(), ObjBancos.DtResultados(0)("SerieFolio").ToString(), ObjBancos.DtResultados(0)("CveIE").ToString())))
' e.Row.FCLinkButton("LnkSendMail").Visible = True
' End If
'End If
'ObjBancos.Dispose()
End If End If
e.Row.BackColor = Drawing.Color.LightGray e.Row.BackColor = Drawing.Color.LightGray
e.Row.Font.Bold = True e.Row.Font.Bold = True
@@ -10384,7 +10391,7 @@ Partial Class Clientes
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
If ObjVentas.GetLineasAdicionales(-1, CveCliente, -1, -1, -1, MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa) Then If ObjVentas.GetLineasAdicionales(CveCliente, -1, -1, -1, UsuarioActual.CveEmpresa) Then
GvLineasAdicionales.DataSource = ObjVentas.DtResultados GvLineasAdicionales.DataSource = ObjVentas.DtResultados
End If End If