FiveTech Support Forums

        Fec_Fin=ctod('31/12/'+cAno)
    Fec_Ini=ctod('01/01/'+cAno)
    tMeses:={"Ene.","Feb.","Mar.","Abr.","May.","Jun.","Jul.","Ago.","Sep.","Oct.","Nov.","Dic."}
    CursorWait()
   oEMPL:=oServer:Query( "SELECT * FROM DATPER ORDER BY CODIGO")
     
 Do While !oEMPL:Eof()
         vDiasT=(oEMPL:FECHARET-Fec_Ini)+1
      
       If vDiasT>365
         vDiasT=365
       Endif
      
       If (vDiasT=365 .or. vDiasT>89) .and. Right(dtos(oEMPL:FECHARET),6)="010101" 
          cMESES:="Oct.Nov.Dic."
          MESP1:=cAno+"10";MESP2:=cAno+"11";MESP3:=cAno+"12"
       ElseIf vDiasT>89 .and. Right(dtos(oEMPL:FECHARET),6)!="010101" 
           MESP1:=cAno+StrZero(Month(oEMPL:FECHARET)-3,2);MESP2:=cAno+StrZero(Month(oEMPL:FECHARET)-2,2);MESP3:=cAno+StrZero(Month(oEMPL:FECHARET)-1,2)
           cMeses:=tMeses[ Month(oEMPL:FECHARET)-3 ]+tMeses[ Month(oEMPL:FECHARET)-2 ]+tMeses[ Month(oEMPL:FECHARET)-1 ]
       Endif
       
       oPDET:=oServer:Query( "SELECT * FROM PLANIDET WHERE MESP ="+MESP1+" ORDER BY IDEMPL")
       oPDET:Seek( oEMPL:IDEMPL,"IDEMPL" )  
       vMes1:=oPDET1:HBAS+oPDET1:BOANT+oPDET:MTOHEXTR+oPDET:MTOHRECN+oPDET:OTR_ING
       oPDET:=oServer:Query( "SELECT * FROM PLANIDET WHERE MESP ="+MESP2+" ORDER BY IDEMPL")
       oPDET:Seek( oEMPL:IDEMPL,"IDEMPL" )  
       vMes2:=oPDET:HBAS+oPDET:BOANT+oPDET:MTOHEXTR+oPDET:MTOHRECN+oPDET:OTR_ING
       oPDET:=oServer:Query( "SELECT * FROM PLANIDET WHERE MESP ="+MESP3+" ORDER BY IDEMPL")
       oPDET:Seek( oEMPL:IDEMPL,"IDEMPL" )  
       vMes3:=oPDET:HBAS+oPDET:BOANT+oPDET:MTOHEXTR+oPDET:MTOHRECN+oPDET:OTR_ING
    
   /*Con DBF lo tengo así y es bien rápido.
          PDET->( dBseek(MESP1+STR(EMPL->IDEMPL,4)) )
         vMes1:=PDET->HBAS+PDET->BOANT+PDET->MTOHEXTR+PDET->MTOHRECN+PDET->OTR_ING
         dBseek(MESP2+STR(EMPL->IDEMPL,4)) 
         vMes2:=PDET->HBAS+PDET->BOANT+PDET->MTOHEXTR+PDET->MTOHRECN+PDET->OTR_ING
         dBseek(MESP3+STR(EMPL->IDEMPL,4)) 
        vMes3:=PDET->HBAS+PDET->BOANT+PDET->MTOHEXTR+PDET->MTOHRECN+PDET->OTR_ING
      */

       If vMes1=0
          vProm=(vMes2+vMes3)/2
       Else
          vProm=(vMes1+vMes2+vMes3)/3
       Endi
       Liq=(vProm/(365+X))*vDiasT
      
       If vDiasT>89
           AADD( aPrima,{ oEMPL:CODIGO,oEMPL:NOMBRE,vDiasT,DTOC(oEMPL:FECHAING),DTOC(oEMPL:FECHARET),cMeses,vMes1,vMes2,vMes3,vPROM,LIQ} )
        Endif
       
    oEMPL:Skip()
 Enddo

cQuery:="SELECT * FROM PLANIDET WHERE MESP ="+MESP1+" UNION "+;
        "SELECT * FROM PLANIDET WHERE MESP ="+MESP2+" UNION "+;
        "SELECT * FROM PLANIDET WHERE MESP ="+MESP3+;
        "ORDER BY IDEMPL"
oPDET:=oServer:Query(cQuery)

cQuery:="SELECT * FROM PLANIDET WHERE MESP ="+MESP1+" OR MESP ="+MESP2+" OR MESP ="+MESP3+" ORDER BY IDEMPL"
oPDET:=oServer:Query(cQuery)

         oQry := TDolphinQry():New( "SELECT p.*, c.cli_nom_ape " +;
            "FROM delipollo_pedidos p, delipollo_clientes c " +;
            "WHERE p.cli_telefono = c.cli_telefono " +;
            "ORDER BY ped_num_pedido", oDatos:oConex )

cQuery:="SELECT * FROM PLANIDET WHERE MESP ="+MESP1+" UNION "+;
        "SELECT * FROM PLANIDET WHERE MESP ="+MESP2+" UNION "+;
        "SELECT * FROM PLANIDET WHERE MESP ="+MESP3+;
        "ORDER BY IDEMPL"
oPDET:=oServer:Query(cQuery)

cQuery:="SELECT * FROM PLANIDET WHERE MESP IN ( " + MESP1 + ", " + MESP2 + ", " + MESP3 + " ) " + ;
        "ORDER BY IDEMPL"
oPDET:=oServer:Query(cQuery)

SELECT 
    datper.codigo, 
    datper.nombre, 
    vmes1.ganado as mes1,
    vmes2.ganado as mes2,
    vmes3.ganado as mes3,
    vdiast.valor as vdias, 
    dfecharet.valor as fecharet,
    datper.fechaing,
    datper.fecharet,
    datper.lout
FROM datper
INNER JOIN ( 
    SELECT 
        datper.idempl,
        calcular_diast( datper.lout, datper.fechaing, datper.fecharet, 2013 ) AS valor
    FROM datper
    GROUP BY datper.idempl
) vdiast ON vdiast.idempl = datper.idempl
INNER JOIN ( 
    SELECT 
        datper.idempl,
        calculo_fecha_ret( datper.lout, datper.fechaing, datper.fecharet, 2013 ) AS valor
    FROM datper
    GROUP BY datper.idempl
) dfecharet ON dfecharet.idempl = datper.idempl
LEFT JOIN(
    SELECT 
        planidet.idempl,
        planidet.hbas + planidet.boant + planidet.mtohextr + planidet.mtohrecn + planidet.otr_ing as ganado 
        FROM planidet
        INNER JOIN ( 
            SELECT 
                datper.idempl,
                CONCAT( LPAD( datper.idempl, 4, '0'), calculo_mesp1( datper.lout, calcular_diast( datper.lout, datper.fechaing, datper.fecharet, 2013 ), calculo_fecha_ret( datper.lout, datper.fechaing, datper.fecharet, 2013 ), 2013 ) ) AS valor
            FROM datper
            GROUP BY datper.idempl
        )  mesp1 ON mesp1.idempl = planidet.idempl
        WHERE SUBSTR(planidet.idmesp,5,4)=2013 AND planidet.idmesp = mesp1.valor
        GROUP BY planidet.idempl
) vmes1 ON vmes1.idempl = datper.idempl
LEFT JOIN(
    SELECT 
        planidet.idempl,
        planidet.hbas + planidet.boant + planidet.mtohextr + planidet.mtohrecn + planidet.otr_ing as ganado 
        FROM planidet
        INNER JOIN ( 
            SELECT 
                datper.idempl,
                CONCAT( LPAD( datper.idempl, 4, '0'), calculo_mesp2( datper.lout, calcular_diast( datper.lout, datper.fechaing, datper.fecharet, 2013 ), calculo_fecha_ret( datper.lout, datper.fechaing, datper.fecharet, 2013 ), 2013 ) ) AS valor
            FROM datper
            GROUP BY datper.idempl
        )  mesp2 ON mesp2.idempl = planidet.idempl
        WHERE SUBSTR(planidet.idmesp,5,4)=2013 AND planidet.idmesp = mesp2.valor
        GROUP BY planidet.idempl
) vmes2 ON vmes2.idempl = datper.idempl
LEFT JOIN(
    SELECT 
        planidet.idempl,
        planidet.hbas + planidet.boant + planidet.mtohextr + planidet.mtohrecn + planidet.otr_ing as ganado 
        FROM planidet
        INNER JOIN ( 
            SELECT 
                datper.idempl,
                CONCAT( LPAD( datper.idempl, 4, '0'), calculo_mesp3( datper.lout, calcular_diast( datper.lout, datper.fechaing, datper.fecharet, 2013 ), calculo_fecha_ret( datper.lout, datper.fechaing, datper.fecharet, 2013 ), 2013 ) ) AS valor
            FROM datper
            GROUP BY datper.idempl
        )  mesp3 ON mesp3.idempl = planidet.idempl
        WHERE SUBSTR(planidet.idmesp,5,4)=2013 AND planidet.idmesp = mesp3.valor
        GROUP BY planidet.idempl
) vmes3 ON vmes3.idempl = datper.idempl
WHERE vdias.valor > 89
ORDER BY datper.codigo

BEGIN
    DECLARE FECHA_FIN DATE;
    DECLARE FECHA_MED DATE;
    DECLARE FECHA_INI DATE;
    DECLARE VDIAST INT;
    SET FECHA_FIN = CONCAT(cAno, '-12-31');
    SET FECHA_MED = CONCAT(cAno, '-03-31');
    SET FECHA_INI = CONCAT(cAno, '-01-01');
    SET VDIAST = 0;
    IF lOut = 1 THEN
        IF fecha_retiro > FECHA_MED THEN
            IF fecha_retiro > FECHA_FIN THEN
            SET VDIAST = DATEDIFF( FECHA_FIN, fecha_ingreso ) + 1;
                -- despues vemo el dFechaRet
            ELSE
            IF fecha_ingreso < FECHA_INI THEN
                SET VDIAST = DATEDIFF( fecha_retiro, FECHA_INI ) + 1;
            ELSE
                SET VDIAST = DATEDIFF( fecha_retiro, fecha_ingreso ) + 1;
            END IF;
            -- calculo de dfecharet
            END IF;
        END IF; 
    ELSE
        IF fecha_retiro != '0001-01-01' THEN
            SET VDIAST = DATEDIFF( fecha_retiro, FECHA_INI ) + 1; 
            -- calculo dFecRet
            IF fecha_ingreso < FECHA_FIN THEN 
                IF VDIAST > 89 THEN
                    SET VDIAST = VDIAST + DATEDIFF( FECHA_FIN, fecha_ingreso );
                END IF;
            END IF;
        ELSE
            SET VDIAST = DATEDIFF( FECHA_FIN, fecha_ingreso ) + 1;
        END IF;
    END IF;
    
    SET VDIAST = GREATEST( 0, LEAST( VDIAST, 365 ) );
    
    RETURN VDIAST;
END