= $rowCTR[CTRFecha1]){
$SemanaMaximo = $rowAR9[AR9Cant4];
$MesMaximo = $rowAR9[AR9Cant6];
}
}
}
$SemanaMaximo; $MesMaximo;
//Días de Alquiler
if($diasAlquiler>= $MesMaximo){
$periocidadCobrada = 'Mensual';
}
else if($diasAlquiler>= $SemanaMaximo){
$periocidadCobrada = 'Semanal';
$semanas =$diasAlquiler/$SemanaMaximo;
$semanas = floor($semanas);
$dias =$diasAlquiler % $SemanaMaximo;
}
else{
$periocidadCobrada = 'Diaria';
}
//echo "
Periocidad Cobrada: ".$periocidadCobrada."
";
if($periocidadCobrada == 'Mensual'){
$totalAlquiler =$tarifaMensual;
}
else if($periocidadCobrada == 'Semanal'){
$totalAlquiler = ($semanas * $tarifaSemanal)+ ($dias * $tarifaDiaria); // Tarifa de Alquiler
}
else if($periocidadCobrada == 'Diaria'){
$totalAlquiler =$diasAlquiler * $tarifaDiaria; // Tarifa de Alquiler
}
$IdUsuario = $cok['COKAgente'];
$TipoContrato = 'Extensión';
//Actualizar Contrato
$queryCTR = "UPDATE 410CTR SET CTRLink3_AGE = '$IdUsuario',
CTREnlaceA = '$AGECodigo',
CTRFecha2 = '$CTRFecha2',
CTRFecha3 = '$CTRFecha2Anterior',
CTRLista1 = '$TipoContrato',
CTRCant1 = '$diasAlquiler',
CTRMonto3 = '$totalAlquiler'
WHERE CTRCodigo='$CodContrato'";
$resultCTR = mysql_query($queryCTR);
//---------------------------------------------------------------------------------- [NUEVO INGRESO de GARANTÍAí de Pago] --------------------------------------------------------------------------------//
$cantPagoIngresos = count($hActivo);
for($i=1;$i<=$cantPagoIngresos; $i++){
if($hActivo[$i]==1){
//Variables
$montoPago = $hMonto[$i];
$numeroPago = $tNro[$i];
$bancoEmisorPago=$tBancoA[$i];
$bancoOtroEmisorPago=$totroBancoA[$i];
$bancoReceptorPago=$tBancoB[$i];
$tarjetahabientePago=$tCliente[$i];
$companiaPago=$tCompania[$i];
$fechaEmisionPago=$tFechaEmision[$i];
$fechaInicioVigenciaPago=$tFechaDesde[$i];
$fechaFinVigenciaPago=$tFechaHasta[$i];
$personaAutorizaPago=$tautorizador[$i];
$nroCartaPago=$tNroCarta[$i];
$tipoTDCPago=$tTDCTipo[$i];
$mesPago=$tVencMes[$i];
$anoPago=$tVencAno[$i];
$idOP=$tIdOp[$i];
$nroLote=$tNroLote[$i];
$clave=$tClaveAut[$i];
$pin=$tPin[$i];
$CiudadGlobal = $cok["COKGlobal1"];
$fechaDeHoy = date('Y-m-d');
//El siguiente check $checkGarantia es para dejar acentado en PAGCheckbox4 que se registro una "Garantia de Pago"
//asi se cambie luego el tipo a "Pago" ,agregado el 06/03/2006
$checkGarantia = "1";
if($hPagoForma[$i] == 'Cheque' ){
$queryPago= "
INSERT INTO 410PAG (PAGCodAgente,PAGLink1_CTR,PAGLista2,PAGLista10,PAGMonto1,PAGLinea1,PAGLista9, PAGLinea15, PAGCheckbox4,PAGFecha6)
VALUES ('$AGECodigo','$CodContrato','Cheque','Autorización de Garantía','$montoPago','$numeroPago','$bancoEmisorPago', '$bancoOtroEmisorPago', '$checkGarantia','".date('Y-m-d')."')";
}
else if($hPagoForma[$i] == 'Depósito' ){
$queryPago= "
INSERT INTO 410PAG (PAGCodAgente,PAGLink1_CTR,PAGLista2,PAGLista10,PAGMonto1,PAGLinea1,PAGLista9, PAGLinea15, PAGLista4,PAGCheckbox4,PAGFecha6)
VALUES ('$AGECodigo','$CodContrato','Depósito','Autorización de Garantía','$montoPago','$numeroPago','$bancoEmisorPago', '$bancoOtroEmisorPago', '$bancoReceptorPago','$checkGarantia','".date('Y-m-d')."')";
}
// fmoreno 06/08/08 se agregó la opción transferencia según ticket 2707-->
else if($hPagoForma[$i] == 'Transferencia' ){
$queryPago= "
INSERT INTO 410PAG (PAGCodAgente,PAGLink1_CTR,PAGLista2,PAGLista10,PAGMonto1,PAGLinea1,PAGLista9, PAGLinea15, PAGLista4,PAGCheckbox4,PAGFecha6)
VALUES ('$AGECodigo','$nroContratoN2C','Transferencia','Autorización de Garantía','$montoPago','$numeroPago','$bancoEmisorPago', '$bancoOtroEmisorPago', '$bancoReceptorPago','$checkGarantia','".date('Y-m-d')."')";
}
else if($hPagoForma[$i] == 'Tarjeta de Crédito' ){
//Buscando % de Impuesto general que aplica a ese contrato
$cantImpuesto = LeerStd($impuesto, '410AR8', "*", "AR8Lista6 = 'General' AND AR8Lista5='$CiudadGlobal' AND AR8Fecha1<= '$fechaDeHoy' AND (AR8Fecha2 = '0000-00-00' OR AR8Fecha2>='$fechaDeHoy' OR AR8Fecha2 = ' ') ", "", "", "", "");
$rowISRL = mysql_fetch_array($impuesto);
$netoImpuesto = ($rowISRL[AR8Monto1] + 100)/100;
$queryPago= "
INSERT INTO 410PAG (PAGCodAgente,PAGLink1_CTR,PAGLista2,PAGLista10,PAGMonto1,PAGLinea1,PAGLista9, PAGLinea15,PAGLinea12,PAGLista5,PAGLista8,PAGLista7,PAGCheckbox4,PAGLinea7,PAGCant3,PAGCant2,PAGLinea17,PAGFecha6)
VALUES ('$AGECodigo','$CodContrato','Tarjeta de Crédito','Autorización de Garantía','$montoPago','$numeroPago','$bancoEmisorPago', '$bancoOtroEmisorPago', '$tarjetahabientePago','$tipoTDCPago','$mesPago','$anoPago','$checkGarantia','$idOP','$nroLote','$clave','$pin','".date('Y-m-d')."')";
}
else if($hPagoForma[$i] == 'Carta Orden' ){
$queryPago= "
INSERT INTO 410PAG (PAGCodAgente,PAGLink1_CTR,PAGLista2,PAGLista10,PAGMonto1,PAGFecha3,PAGLinea9,PAGLinea10,PAGCheckbox4,PAGFecha6)
VALUES ('$AGECodigo','$CodContrato','Carta Orden','Autorización de Garantía','$montoPago','$fechaEmisionPago','$personaAutorizaPago','$nroCartaPago','$checkGarantia','".date('Y-m-d')."')";
}
else if($hPagoForma[$i] == 'Carta Otto' ){
$queryPago= "
INSERT INTO 410PAG (PAGCodAgente,PAGLink1_CTR,PAGLista2,PAGLista10,PAGMonto1,PAGFecha3,PAGLinea9,PAGLinea10,PAGLinea1,PAGLista9, PAGLinea15, PAGLinea12,PAGLista5,PAGLista8,PAGLista7,PAGCheckbox4,PAGLinea7,PAGCant3,PAGCant2,PAGLinea17,PAGFecha6)
VALUES ('$AGECodigo','$CodContrato','Carta Otto','Autorización de Garantía','$montoPago','$fechaEmisionPago','$personaAutorizaPago','$nroCartaPago','$numeroPago','$bancoEmisorPago', '$bancoOtroEmisorPago', '$tarjetahabientePago','$tipoTDCPago','$mesPago','$anoPago','$checkGarantia','$idOP','$nroLote','$clave','$pin','".date('Y-m-d')."')";
}
else if($hPagoForma[$i] == 'Efectivo' ){
$queryPago= "
INSERT INTO 410PAG (PAGCodAgente,PAGLink1_CTR,PAGLista2,PAGLista10,PAGMonto1,PAGCheckbox4,PAGFecha6)
VALUES ('$AGECodigo','$CodContrato','Efectivo','Autorización de Garantía','$montoPago','$checkGarantia','".date('Y-m-d')."')";
}
//fmoreno según ticket 2778 28/08/08
else if($hPagoForma[$i] == 'Tarjeta de Débito' ){
//Buscando % de Impuesto general que aplica a ese contrato
$cantImpuesto = LeerStd($impuesto, '410AR8', "*", "AR8Lista6 = 'General' AND AR8Lista5='$CiudadGlobal' AND AR8Fecha1<= '$fechaDeHoy' AND (AR8Fecha2 = '0000-00-00' OR AR8Fecha2>='$fechaDeHoy' OR AR8Fecha2 = ' ') ", "", "", "", "");
$rowISRL = mysql_fetch_array($impuesto);
$netoImpuesto = ($rowISRL[AR8Monto1] + 100)/100;
$queryPago= "
INSERT INTO 410PAG (PAGCodAgente,PAGLink1_CTR,PAGLista2,PAGLista10,PAGMonto1,PAGLinea1,PAGLista9, PAGLinea15,PAGLinea12,PAGLista5,PAGLista8,PAGLista7,PAGCheckbox4,PAGLinea7,PAGCant3,PAGCant2,PAGLinea17,PAGFecha6)
VALUES ('$AGECodigo','$CodContrato','Tarjeta de Débito','Autorización de Garantía','$montoPago','$numeroPago','$bancoEmisorPago', '$bancoOtroEmisorPago', '$tarjetahabientePago','$tipoTDCPago','$mesPago','$anoPago','$checkGarantia','$idOP','$nroLote','$clave','$pin','".date('Y-m-d')."')";
}
mysql_query($queryPago);
}
}
//----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------//
?>