Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -2521,76 +2521,7 @@
|
||||
</tr>
|
||||
</table>
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpCreditos" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row" runat="server" id="romCreditosTabla" visible="false" style="max-height: 250px!important">
|
||||
<div class="col-md-12">
|
||||
|
||||
<div class="col-md-6" style="text-align: right"></div>
|
||||
|
||||
<div class="col-md-6" style="text-align: left">
|
||||
<asp:Label runat="server" Font-Bold="true" ID="LblImporteCreditos" Text="Total:"> </asp:Label>
|
||||
</div>
|
||||
<br />
|
||||
<asp:UpdatePanel runat="server" ID="UpGvCreditos" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<div class="row" style="height: 200px!important">
|
||||
<div class="col-md-12" style="height: 200px!important">
|
||||
|
||||
<asp:GridView ID="GvCreditos" runat="server" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveCredito,CveCreditoDetalle,FondoGarantia,Periodo,Periodos,Marcador,ProximoPeriodo,TipoPago,Fecha,CveMoneda,Referencia,CveTipoCredito,SeparadorLiquido,Estatus,CveCompra,CveCompraInteres,Mensualidad"
|
||||
EmptyDataText="No se encontraron Créditos registrados"
|
||||
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" data-height="200" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField HeaderText="Sel" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5px" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:CheckBox ID="ChkSel" CssClass="ChkSelCreditos" runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:BoundField DataField="Referencia" HeaderText="Crédito" HeaderStyle-CssClass="rompe" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="ProximoPeriodo" HeaderText="Pago" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" />
|
||||
|
||||
<asp:TemplateField HeaderText="Capital" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:TextBox runat="server" ID="TxtCapital" Width="60px" Style="text-align: right;" ToolTip="Incluye IVA"></asp:TextBox>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Interes" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:TextBox runat="server" ID="TxtInteres" Width="60px" Style="text-align: right;" ToolTip="Incluye IVA"></asp:TextBox>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px">
|
||||
<ItemTemplate>
|
||||
<asp:TextBox runat="server" ID="TxtAmbos" Width="60px" Style="text-align: right;" ToolTip="Incluye IVA"></asp:TextBox>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
<asp:GridView ID="GvCreditosRelacionados" runat="server" AutoGenerateColumns="False" Visible="false"
|
||||
EmptyDataText="No se encontraron Créditos registrados"
|
||||
CssClass=" chequesie2 Widthall ScrollAD mysmallbtn" data-sort="false" data-height="200" GridLines="None">
|
||||
<Columns>
|
||||
<asp:HyperLinkField DataTextField="Referencia" ItemStyle-HorizontalAlign="Left" HeaderText="Referencia" DataNavigateUrlFields="CveCredito" DataNavigateUrlFormatString='/Bancos/Creditos.aspx?CveCredito={0}' ControlStyle-CssClass="rompe" />
|
||||
<asp:BoundField DataField="PeriodoTexto" HeaderText="Periodo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" />
|
||||
<asp:BoundField DataField="Tipo" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" />
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<%--<%--Reembolsos--%>
|
||||
<br />
|
||||
@@ -4292,6 +4223,130 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<div id="DivCreditoFinacieroModal" align="center" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpdatePanel3" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="Literal3" runat="server" Text="Créditos Fianacieros" />
|
||||
</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpCreditos" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<%--<div class="row" runat="server" id="romCreditosTabla" visible="false" style="max-height: 250px!important">--%>
|
||||
<div class="col-md-12">
|
||||
|
||||
<div class="col-md-6" style="text-align: right"></div>
|
||||
|
||||
<div class="col-md-6" style="text-align: left">
|
||||
<asp:Label runat="server" Font-Bold="true" ID="LblImporteCreditos" Text="Total:"> </asp:Label>
|
||||
</div>
|
||||
<br />
|
||||
<asp:UpdatePanel runat="server" ID="UpGvCreditos" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<div class="row" >
|
||||
<div class="col-md-12" >
|
||||
|
||||
<asp:GridView ID="GvCreditos" runat="server" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveCredito,CveCreditoDetalle,FondoGarantia,Periodo,Periodos,Marcador,ProximoPeriodo,TipoPago,Fecha,CveMoneda,Referencia,CveTipoCredito,SeparadorLiquido,Estatus,CveCompra,CveCompraInteres,Mensualidad,CveIE,Total"
|
||||
EmptyDataText="No se encontraron Créditos registrados"
|
||||
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" data-height="200" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField HeaderText="Sel" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5px" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:CheckBox ID="ChkSel" CssClass="ChkSelCreditos" runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:BoundField DataField="Referencia" HeaderText="Crédito" HeaderStyle-CssClass="rompe" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="ProximoPeriodo" HeaderText="Pago" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" />
|
||||
|
||||
<asp:TemplateField HeaderText="Capital" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:TextBox runat="server" ID="TxtCapital" Width="60px" Style="text-align: right;" ToolTip="Incluye IVA"></asp:TextBox>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Interes" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:TextBox runat="server" ID="TxtInteres" Width="60px" Style="text-align: right;" ToolTip="Incluye IVA"></asp:TextBox>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px">
|
||||
<ItemTemplate>
|
||||
<asp:TextBox runat="server" ID="TxtAmbos" Width="60px" Style="text-align: right;" ToolTip="Incluye IVA"></asp:TextBox>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
<asp:TemplateField HeaderStyle-HorizontalAlign="Center" HeaderText="Comisión" ItemStyle-HorizontalAlign="Right" >
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtComision" runat="server" MaxLength="12" Width="76px" Style="text-align: right;"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FilTxtComision" runat="server" TargetControlID="TxtComision" ValidChars="-." FilterType="Custom, Numbers" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
<asp:GridView ID="GvCreditosRelacionados" runat="server" AutoGenerateColumns="False" Visible="false"
|
||||
EmptyDataText="No se encontraron Créditos registrados"
|
||||
CssClass=" chequesie2 Widthall ScrollAD mysmallbtn" data-sort="false" data-height="200" GridLines="None">
|
||||
<Columns>
|
||||
<asp:HyperLinkField DataTextField="Referencia" ItemStyle-HorizontalAlign="Left" HeaderText="Referencia" DataNavigateUrlFields="CveCredito" DataNavigateUrlFormatString='/Bancos/Creditos.aspx?CveCredito={0}' ControlStyle-CssClass="rompe" />
|
||||
<asp:BoundField DataField="PeriodoTexto" HeaderText="Periodo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" />
|
||||
<asp:BoundField DataField="Tipo" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" />
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
<%--</div>--%>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<button id="BtnGuardarmodalCreditosFiancieros" runat="server" type="button" class="btn btn-success" data-dismiss="modal">Guardar</button>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<%--MODAL AGREGAR/EDITAR PS--%>
|
||||
<div id="divAddProducto" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
|
||||
@@ -2559,7 +2559,7 @@ Partial Class Compras_Compras
|
||||
GvCreditosRelacionados.DataSource = ObjBancos.DtResultados
|
||||
GvCreditosRelacionados.Visible = True
|
||||
GvCreditosRelacionados.DataBind()
|
||||
romCreditosTabla.Visible = True
|
||||
'romCreditosTabla.Visible = True
|
||||
GvCreditos.Visible = False
|
||||
GvCreditosRelacionados.Visible = True
|
||||
|
||||
@@ -4187,7 +4187,7 @@ Partial Class Compras_Compras
|
||||
Dim DifCreCompra As Decimal = 0
|
||||
Dim TotalCreditos As Decimal = 0
|
||||
Dim MensualidadMultipleTotal As Decimal = 0
|
||||
Dim CveUltimoCreditoDetalleInterno As Integer
|
||||
' Dim CveUltimoCreditoDetalleInterno As Integer
|
||||
|
||||
For Each GvRow As GridViewRow In GvCreditos.Rows
|
||||
|
||||
@@ -4201,22 +4201,22 @@ Partial Class Compras_Compras
|
||||
|
||||
TotalCreditos = TotalCreditos + CapitalMiltiple + InteresMiltiple
|
||||
MensualidadMultipleTotal = MensualidadMultipleTotal + MensualidadMultiple
|
||||
CveUltimoCreditoDetalleInterno = GvRow.DataKey("CveCreditoDetalle").ToEntero
|
||||
'CveUltimoCreditoDetalleInterno = GvRow.DataKey("CveCreditoDetalle").ToEntero
|
||||
|
||||
ElseIf AmbosMiltiple > 0 Then
|
||||
|
||||
TotalCreditos = TotalCreditos + AmbosMiltiple
|
||||
MensualidadMultipleTotal = MensualidadMultipleTotal + MensualidadMultiple
|
||||
CveUltimoCreditoDetalleInterno = GvRow.DataKey("CveCreditoDetalle").ToEntero
|
||||
'CveUltimoCreditoDetalleInterno = GvRow.DataKey("CveCreditoDetalle").ToEntero
|
||||
EstatusCredito = GvRow.DataKey("Estatus").ToEntero
|
||||
End If
|
||||
Next
|
||||
|
||||
If TotalCreditos <> TxtTotal.Text.ToDecimal Then
|
||||
Alert($"El importe de La factura no concide con el total de los creditos, diferencia: { (TotalCreditos - TxtTotal.Text.ToDecimal).FormatoNumero(2)}", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
'If TotalCreditos <> TxtTotal.Text.ToDecimal Then
|
||||
' Alert($"El importe de La factura no concide con el total de los creditos, diferencia: { (TotalCreditos - TxtTotal.Text.ToDecimal).FormatoNumero(2)}", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
''VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT
|
||||
@@ -4833,9 +4833,9 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
|
||||
If RBLPago.SelectedValue.ToEntero = 4 And EstatusCredito.Contiene(1, 101) Then
|
||||
CveEstatusFactura = 6
|
||||
End If
|
||||
'If RBLPago.SelectedValue.ToEntero = 4 And EstatusCredito.Contiene(1, 101) Then
|
||||
' CveEstatusFactura = 6
|
||||
'End If
|
||||
|
||||
|
||||
'Compra
|
||||
@@ -5996,6 +5996,7 @@ Partial Class Compras_Compras
|
||||
|
||||
If RBLPago.SelectedValue.ToEntero = 4 And EstatusCredito.Contiene(2, 102) Then 'SI ES CRÉDITO Y ESTA PAGADO
|
||||
|
||||
'aqui meter for, con validaciones de estatus de creditos
|
||||
For Each Row2 As DataRow In TmpDT.Rows
|
||||
|
||||
importeMovimiento = TxtTotal.Text.ToDecimal 'TmpDT.SUM("Total", String.Format("ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And CveClasificacion = {0} And CveSubProyecto = {1} And ISNULL(CveTipoGasto, 0) = {2} Then", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
|
||||
@@ -6041,20 +6042,64 @@ Partial Class Compras_Compras
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, 41, Referencia, Concepto, CtaProveedorAcreedores, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, 41, Referencia, Concepto, CtaProveedorAcreedores, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
' ErrorPrepoliza = True
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
'daskldaskldmaskldanmlksd
|
||||
If importeMovimiento <> 0 Then
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = importeMovimiento
|
||||
Pago.CveIE = CveIE
|
||||
Pago.CveMonedaPago = 1
|
||||
Pago.CveCompraAmortizacion = -1
|
||||
Pago.CveCreditoDetalle = CveCreditoDetalle
|
||||
'Pago.OtroGastoIngreso = OtrosGastosIngresos
|
||||
For Each gvRowCredito As GridViewRow In GvCreditos.Rows
|
||||
|
||||
Dim ImportePagoCredito As Decimal = If(gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal > 0, gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal, (gvRowCredito.FCTextBox("TxtCapital").Text.ToDecimal + gvRowCredito.FCTextBox("TxtInteres").Text.ToDecimal))
|
||||
Dim TotalMensualidadCredito As Decimal = gvRowCredito.DataKey("Total").ToDecimal
|
||||
Dim CveMonedaCredito As Integer = gvRowCredito.DataKey("CveMoneda").ToEntero
|
||||
|
||||
Dim OtrosGastosIngresosCredito As Decimal = gvRowCredito.FCTextBox("TxtComision").Text.ToDecimal
|
||||
Dim CveIECredito As Integer = gvRowCredito.DataKey("CveIE").ToEntero
|
||||
Dim CveCreditoDetalleTemp As Integer = gvRowCredito.DataKey("CveCreditoDetalle").ToEntero
|
||||
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = CompraActual.Total
|
||||
Pago.CveIE = CveIECredito
|
||||
Pago.CveMonedaPago = 1
|
||||
Pago.CveCompraAmortizacion = -1
|
||||
Pago.CveProveedor = CveProveedor
|
||||
Pago.CveCreditoDetalle = CveCreditoDetalleTemp
|
||||
Pago.TipoPago = "Egsc"
|
||||
|
||||
If OtrosGastosIngresosCredito <> 0 Then
|
||||
Pago.OtroGastoIngreso = OtrosGastosIngresosCredito
|
||||
End If
|
||||
|
||||
ErrorCreditosCompra = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
If ErrorCreditosCompra Then
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Dim ImporteDifCredito As Decimal = TotalMensualidadCredito - ImportePagoCredito
|
||||
|
||||
If ImporteDifCredito > 0 Then
|
||||
|
||||
Dim ImportePagoCreditoMN As Decimal = ImportePagoCredito * tipoCambioActual
|
||||
Dim ImporteDifCreditoMN As Decimal = ImporteDifCredito * tipoCambioActual
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDifCredito, ImporteDifCreditoMN, 59, Referencia, Concepto, IdCtaContable, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDifCredito, ImporteDifCreditoMN, 21, Referencia, Concepto, CtaProveedorAcreedores, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
@@ -6094,6 +6139,10 @@ Partial Class Compras_Compras
|
||||
IdCtaContable = CtaProveedorExtranjera
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Case 30 'Bancos
|
||||
importeMovimiento = importeBanco + importeCajaChica 'Uno de los dos debe ser 0
|
||||
If CveMonedaPago = 2 AndAlso DdlMoneda.SelectedValue.ToEntero = 1 Then
|
||||
@@ -11787,7 +11836,7 @@ Partial Class Compras_Compras
|
||||
tdNumeroReembolso.Visible = False
|
||||
End If
|
||||
EsContado = False
|
||||
romCreditosTabla.Visible = False
|
||||
'romCreditosTabla.Visible = False
|
||||
Case "2" 'Contado
|
||||
PnlContado.Visible = True
|
||||
TxtNumeroReembolso.Text = ""
|
||||
@@ -11810,7 +11859,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
EsContado = True
|
||||
romCreditosTabla.Visible = False
|
||||
'romCreditosTabla.Visible = False
|
||||
Case "3" 'Reembolso/Comprobacion
|
||||
PnlContado.Visible = True
|
||||
|
||||
@@ -11867,7 +11916,7 @@ Partial Class Compras_Compras
|
||||
Case "6"
|
||||
DdlCuentaCajaChicaReembolso.Visible = True
|
||||
End Select
|
||||
romCreditosTabla.Visible = False
|
||||
'romCreditosTabla.Visible = False
|
||||
Case "4"
|
||||
EsContado = False
|
||||
CargaCreditosDisponibles()
|
||||
@@ -11879,6 +11928,11 @@ Partial Class Compras_Compras
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "DivContadoModal"))
|
||||
End If
|
||||
|
||||
|
||||
If RBLPago.SelectedValue.ToEntero = 4 Then ' Créditos Financieros
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "DivCreditoFinacieroModal"))
|
||||
End If
|
||||
|
||||
LtlTituloPago.Text = If(EsContado, "Contado", "Reembolso")
|
||||
|
||||
DivContado.Visible = EsContado
|
||||
@@ -11942,20 +11996,20 @@ Partial Class Compras_Compras
|
||||
Case "1" ' Bancos
|
||||
PnlContadoBancos.Visible = True
|
||||
TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
|
||||
ChkCreditoMultiple.Visible = False
|
||||
'ChkCreditoMultiple.Visible = False
|
||||
RfvTxtNumeroReembolso.Enabled = False
|
||||
TxtNumeroReembolso.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
Case "2" ' F y E
|
||||
PnlContadoFyE.Visible = True
|
||||
CargaFuncionariosEmpleados()
|
||||
ChkCreditoMultiple.Visible = False
|
||||
'ChkCreditoMultiple.Visible = False
|
||||
RfvTxtNumeroReembolso.Enabled = True
|
||||
TxtRembolsoNumero.Text = ""
|
||||
TxtNumeroReembolso.Text = ""
|
||||
Case "3" ' Creditos
|
||||
PnlContadoCreditos.Visible = True
|
||||
ChkCreditoMultiple.Visible = True
|
||||
'ChkCreditoMultiple.Visible = True
|
||||
CargaCreditos()
|
||||
RfvTxtNumeroReembolso.Enabled = False
|
||||
RfvTxtNumeroReembolso.Text = ""
|
||||
@@ -11963,13 +12017,13 @@ Partial Class Compras_Compras
|
||||
Case "4" ' Deudores
|
||||
PnlContadoDeudores.Visible = True
|
||||
CargaDeudores()
|
||||
ChkCreditoMultiple.Visible = False
|
||||
'ChkCreditoMultiple.Visible = False
|
||||
RfvTxtNumeroReembolso.Enabled = False
|
||||
TxtNumeroReembolso.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
Case "5" ' ACREEDORES
|
||||
PnlContadoAcreedores.Visible = True
|
||||
ChkCreditoMultiple.Visible = True
|
||||
'ChkCreditoMultiple.Visible = True
|
||||
CargaAcreedores()
|
||||
RfvTxtNumeroReembolso.Enabled = False
|
||||
TxtNumeroReembolso.Text = ""
|
||||
@@ -11977,7 +12031,7 @@ Partial Class Compras_Compras
|
||||
Case "6" ' Caja Chica
|
||||
PnlContadoCajaChica.Visible = True
|
||||
TxtDocumentoImporteCaja.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
|
||||
ChkCreditoMultiple.Visible = False
|
||||
'ChkCreditoMultiple.Visible = False
|
||||
RfvTxtNumeroReembolso.Enabled = True
|
||||
TxtNumeroReembolso.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
@@ -18793,7 +18847,7 @@ Partial Class Compras_Compras
|
||||
|
||||
If ChkCreditoMultiple.Checked Then
|
||||
|
||||
romCreditosTabla.Visible = True
|
||||
'romCreditosTabla.Visible = True
|
||||
Dim ObjBancos As New ClsBancos
|
||||
|
||||
If ObjBancos.GetCreditosDetalleCompras(UsuarioActual.CveEmpresa, CveProveedor, -1, -1, -1) Then
|
||||
@@ -18860,11 +18914,11 @@ Partial Class Compras_Compras
|
||||
GvCreditos.DataSource = Nothing
|
||||
End If
|
||||
ObjBancos.Dispose()
|
||||
romCreditosTabla.Visible = True
|
||||
'romCreditosTabla.Visible = True
|
||||
GvCreditos.DataBind()
|
||||
|
||||
Else
|
||||
romCreditosTabla.Visible = False
|
||||
'romCreditosTabla.Visible = False
|
||||
End If
|
||||
|
||||
UpGvCreditos.Update()
|
||||
|
||||
@@ -3407,8 +3407,10 @@ Partial Class Compras_eFacturas
|
||||
|
||||
MontoPago = Monto
|
||||
|
||||
Dim NodosPagosString As String = Regex.Replace(nodePagos2.InnerXml, $"{Prefijo}:", "", RegexOptions.IgnoreCase)
|
||||
|
||||
Dim ObjCompraFolios As New ClsCompras
|
||||
If ObjCompraFolios.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace($"{Prefijo}:", ""), UsuarioActual.CveEmpresa, OP:=If(CveComplementoPagoCompra > 0, 2, 1), CveFactura:=CveFacturaComplemento) Then
|
||||
If ObjCompraFolios.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, NodosPagosString, UsuarioActual.CveEmpresa, OP:=If(CveComplementoPagoCompra > 0, 2, 1), CveFactura:=CveFacturaComplemento) Then
|
||||
'
|
||||
'.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", ""), UsuarioActual.CveEmpresa) Then
|
||||
If ObjCompraFolios.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
Reference in New Issue
Block a user