Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -5918,7 +5918,7 @@
|
||||
}
|
||||
|
||||
|
||||
function chkAnt(t, txt, importe, TotalSaldoCompra, CveMonedaAnticipo, TCAnticipo, CveMonedaOriginal, TCCompra) {
|
||||
function chkAnt(t, txt, importe, TotalSaldoCompra, CveMonedaAnticipo, TCAnticipo, CveMonedaOriginal, TCCompra, txtComision) {
|
||||
var Total = ToDouble($get('TxtTotal').value);
|
||||
debugger;
|
||||
var txtvalue = ToDouble(txt.value);
|
||||
@@ -5939,13 +5939,23 @@
|
||||
else { TCC = 1; }
|
||||
var DifSaldo = (TotalSaldoCompra - FnSumaValoresAnt()).toFixed(2); // le agrego lo del valor actual para validarlo
|
||||
|
||||
|
||||
|
||||
if (t.checked)
|
||||
{
|
||||
if (DifSaldo > importevalue) {
|
||||
txt.value = toFixed(ToDouble(importevalue*TCC),2);
|
||||
} else {
|
||||
txt.value = toFixed(ToDouble(DifSaldo*TCC),2);
|
||||
}
|
||||
{
|
||||
if (DifSaldo > importevalue) {
|
||||
txt.value = toFixed(ToDouble(importevalue * TCC), 2);
|
||||
} else {
|
||||
txt.value = toFixed(ToDouble(DifSaldo * TCC), 2);
|
||||
}
|
||||
|
||||
let difFinal = (DifSaldo - importevalue) * TCC;
|
||||
|
||||
if (difFinal > 0 && difFinal < 1) {
|
||||
txtComision.value = toFixed(ToDouble(difFinal), 2);
|
||||
}
|
||||
|
||||
|
||||
} else {
|
||||
txt.value = "";
|
||||
}
|
||||
|
||||
@@ -4193,9 +4193,24 @@ Partial Class Compras_Compras
|
||||
|
||||
'------------------ INICIA VALIDACIONES ------------------
|
||||
|
||||
If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 AndAlso LblSaldoFactura.Text.ToDecimal > 0 Then
|
||||
Alert("La orden de compra se definió de contado, favor de especificar la compra de contado.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
|
||||
|
||||
|
||||
If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 Then
|
||||
|
||||
Dim ImporteAnticipoComision As Decimal = 0
|
||||
If ArrAnticipos.Count > 0 Then
|
||||
For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
|
||||
ImporteAnticipoComision += Ant.ImporteComision
|
||||
Next
|
||||
End If
|
||||
|
||||
If (LblSaldoFactura.Text.ToDecimal - ImporteAnticipoComision) > 0 Then
|
||||
Alert("La orden de compra se definió de contado, favor de especificar la compra de contado.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
|
||||
@@ -7240,20 +7255,22 @@ Partial Class Compras_Compras
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
Else
|
||||
Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) * TipoCambioAnt
|
||||
'Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) * TipoCambioAnt
|
||||
Dim ImporteAntMNComision As Decimal = (ImporteAnt) * TipoCambioAnt
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (ImporteAnt + ImporComisionAnticipo), ImporteAntMNComision, ConceptoContableAnticipo, Referencia, Concepto, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, ImporteME:=If(tipoCambioActual = 1, 0, (ImporteAnt + ImporComisionAnticipo)), TipoCambio:=TipoCambioAnt, Contabilizable:=SeContabiliza) Then
|
||||
'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (ImporteAnt + ImporComisionAnticipo), ImporteAntMNComision, ConceptoContableAnticipo, Referencia, Concepto, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, ImporteME:=If(tipoCambioActual = 1, 0, (ImporteAnt + ImporComisionAnticipo)), TipoCambio:=TipoCambioAnt, Contabilizable:=SeContabiliza) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (ImporteAnt), ImporteAntMNComision, ConceptoContableAnticipo, Referencia, Concepto, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, ImporteME:=If(tipoCambioActual = 1, 0, (ImporteAnt)), TipoCambio:=TipoCambioAnt, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
If TxtTotal.Text.ToDouble > 0 AndAlso TieneAnticiposXML = False Then
|
||||
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = importeMovimiento
|
||||
Pago.ImportePago = importeMovimiento + ImporComisionAnticipo
|
||||
Pago.CveIE = Ant.CveIE
|
||||
Pago.TCPago = Ant.TCCompra
|
||||
Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1)
|
||||
Pago.OtroGastoIngreso = ImporComisionAnticipo
|
||||
Pago.OtroGastoIngreso = -ImporComisionAnticipo
|
||||
ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
@@ -8480,7 +8497,8 @@ Partial Class Compras_Compras
|
||||
Dim ImporteAnticipo As Decimal = 0
|
||||
If ArrAnticipos.Count > 0 Then
|
||||
For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
|
||||
ImporteAnticipo += Ant.Importe
|
||||
'ImporteAnticipo += (Ant.Importe + Ant.ImporteComision)
|
||||
ImporteAnticipo += (Ant.Importe)
|
||||
Next
|
||||
End If
|
||||
|
||||
@@ -9762,22 +9780,26 @@ Partial Class Compras_Compras
|
||||
Dim tTCFecha As Double = If(Not e.Row.DBCampo("TCCompra").ToDouble > 1, GlobalTipoCambio(e.Row.DBCampo("Fecha").ToDate), e.Row.DBCampo("TCCompra").ToDouble)
|
||||
|
||||
|
||||
e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("chkAnt(this,{0},{1},{2},{3},{4},{5},{6});",
|
||||
e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("chkAnt(this,{0},{1},{2},{3},{4},{5},{6},{7});",
|
||||
e.Row.FCTextBox("TxtAnticipo").ClientID,
|
||||
e.Row.DBCampo("Saldo"),
|
||||
If(CveCompra > 0, CompraSaldo, ImporteAmortizacion),
|
||||
e.Row.DBCampo("CveMoneda"),
|
||||
e.Row.DBCampo("TCCompra").ToDouble,
|
||||
DdlMoneda.SelectedValue,
|
||||
IIf(DdlMoneda.SelectedValue = "1", 1, TxtTC.Text))) 'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO
|
||||
IIf(DdlMoneda.SelectedValue = "1", 1, TxtTC.Text),
|
||||
e.Row.FCTextBox("TxtComision").ClientID
|
||||
)) 'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO
|
||||
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.CveEmpresa.Contiene(13, 83) Then
|
||||
|
||||
e.Row.FCTextBox("TxtAnticipo").Attributes.Add("onKeyUp", String.Format("FnCambiaAnt({0},this,{1},{2},{3},{4},{5},{6});",
|
||||
e.Row.FCCheckBox("Chk").ClientID,
|
||||
e.Row.DBCampo("Saldo"),
|
||||
If(CveCompra > 0, CompraSaldo, ImporteAmortizacion), e.Row.DBCampo("CveMoneda").ToEntero,
|
||||
If(CveCompra > 0, CompraSaldo, ImporteAmortizacion),
|
||||
e.Row.DBCampo("CveMoneda").ToEntero,
|
||||
tTCFecha,
|
||||
DdlMoneda.SelectedValue.ToEntero,
|
||||
e.Row.FCTextBox("TxtComision").ClientID)) 'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO
|
||||
|
||||
@@ -227,7 +227,7 @@ Partial Class UserControl_AddMedico
|
||||
TxtFechaIng.Text = ""
|
||||
TxtUsuario.Text = ""
|
||||
|
||||
DdlVendedor.SelectedValueExist(-1)
|
||||
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
|
||||
CargaGVMedicoClienteSucursal(-1, UsuarioActual.CveEmpresa)
|
||||
|
||||
|
||||
|
||||
@@ -8767,7 +8767,7 @@ Partial Class Ventas
|
||||
|
||||
GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = False
|
||||
|
||||
If DdlTipoComprobante.SelectedValue = "Cot" Or RBLTipoVenta.SelectedValue.ToEntero = 1 Then
|
||||
If DdlTipoComprobante.SelectedValue = "Cot" Or RBLTipoVenta.SelectedValue.ToEntero = 2 Then
|
||||
GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = True
|
||||
End If
|
||||
|
||||
@@ -17682,7 +17682,7 @@ Partial Class Ventas
|
||||
|
||||
If EsVentaMedica Then
|
||||
TxtPrecio.Enabled = False
|
||||
If UsuarioActual.CveUsuario = 3986 Or RBLTipoVenta.SelectedValue.ToEntero = 1 Then
|
||||
If UsuarioActual.CveUsuario = 3986 Or RBLTipoVenta.SelectedValue.ToEntero = 2 Then
|
||||
TxtPrecio.Enabled = True
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user