Optimizar Corte de Caja

*
*
procedure probarcorte(nAlgoritmo,cCorte)
    cCorte = padl(allt(cCorte),7)
    set decimal to 10
    set delete on
    set talk off
    close databases
    use docum in 0 order tiponum
    use movim in 0 order tiponumpar
    if nAlgoritmo=1
        corteActual(cCorte)
    else
        corteoptimizado(cCorte)
    endif
return



*
* Este select carga las partidas de un corte
* mediante left join con docum
* tal como se hace actualmente
*
procedure corteActual(vCorte)
    set talk on
    TextoIniciar()
    text
    Select
        Movim.TIPODOC, Movim.NUMDOC, Movim.NUMART,
        Movim.CANT, Movim.PRECIO, Movim.PJEDESC, Movim.IMPUESTO1,
        Docum.TC, Docum.DIVISA
    From Movim
        Left Join Docum on Movim.TIPODOC+Movim.NUMDOC==Docum.TIPODOC+Docum.NUMDOC
    Where
        Docum.CORTE== vCorte  and Docum.FORMAPAGO=='1'  and
        (Docum.TIPODOC==' N' or Docum.TIPODOC==' F') and
        Docum.STATUS <> 1
    Order By Docum.TIPODOC, Movim.IMPUESTO1
    into cursor partidas
    endtext
    cmd = textoSql()
    &cmd
    set talk off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas
    nTotPartidas = round(nTotPartidas,2)
    ?
    ? 'Algoritmo Actual'
    ? 'CORTE ACTUAL:',vCorte
    ? '$ de partidas:',nTotPartidas
return




*
* Este procedimiento optimizado carga todas las partidas de un corte
*
procedure corteoptimizado(vCorte)
    create cursor partidas( ;
        tipodoc     c(2),;
        numdoc      c(10),;
        status      n(1),;
        divisa      c(1),;
        fecha       d(8),;
        numart      c(20),;
        cant        n(16,6),;
        precio      n(16,6),;
        pjedesc     n(6,2),;
        impuesto1   n(6,2))
    select * from docum where corte==vCorte into cursor documentos
    set near on
    select documentos
    scan
        cKeyDoc = documentos.tipodoc+documentos.numdoc
        select movim
        =seek(cKeyDoc,'Movim','TipoNumPar')
        scan while movim.tipodoc+movim.numdoc==cKeyDoc
            insert into partidas values (;
                documentos.tipodoc,;
                documentos.numdoc,;
                documentos.status,;
                documentos.divisa,;
                documentos.fecha,;
                movim.numart,;
                movim.cant,;
                movim.precio,;
                movim.pjedesc,;
                movim.impuesto1)
        endscan
        select documentos
    endscan
    set near off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas for status<>1 and (tipodoc==' F' or tipodoc==' N')
    nTotPartidas = round(nTotPartidas,2)
    select documentos
    sum importe+impuesto1 to nTotDocumentos for status<>1 and formapago=='1' and (tipodoc==' F' or tipodoc==' N')
    nTotDocumentos = round(nTotDocumentos,2)
    ?
    ? 'Algoritmo Optimizado'
    ? 'CORTE:',vCorte
    ? '$ de partidas:',nTotPartidas
    ? '$ de document:',nTotDocumentos
retu
*
procedure probarcorte(nAlgoritmo,cCorte)
    cCorte = padl(allt(cCorte),7)
    set decimal to 10
    set delete on
    set talk off
    close databases
    use docum in 0 order tiponum
    use movim in 0 order tiponumpar
    if nAlgoritmo=1
        corteActual(cCorte)
    else
        corteoptimizado(cCorte)
    endif
return



*
* Este select carga las partidas de un corte
* mediante left join con docum
* tal como se hace actualmente
*
procedure corteActual(vCorte)
    set talk on
    TextoIniciar()
    text
    Select
        Movim.TIPODOC, Movim.NUMDOC, Movim.NUMART,
        Movim.CANT, Movim.PRECIO, Movim.PJEDESC, Movim.IMPUESTO1,
        Docum.TC, Docum.DIVISA
    From Movim
        Left Join Docum on Movim.TIPODOC+Movim.NUMDOC==Docum.TIPODOC+Docum.NUMDOC
    Where
        Docum.CORTE== vCorte  and Docum.FORMAPAGO=='1'  and
        (Docum.TIPODOC==' N' or Docum.TIPODOC==' F') and
        Docum.STATUS <> 1
    Order By Docum.TIPODOC, Movim.IMPUESTO1
    into cursor partidas
    endtext
    cmd = textoSql()
    &cmd
    set talk off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas
    nTotPartidas = round(nTotPartidas,2)
    ?
    ? 'Algoritmo Actual'
    ? 'CORTE ACTUAL:',vCorte
    ? '$ de partidas:',nTotPartidas
return




*
* Este procedimiento optimizado carga todas las partidas de un corte
*
procedure corteoptimizado(vCorte)
    create cursor partidas( ;
        tipodoc     c(2),;
        numdoc      c(10),;
        status      n(1),;
        divisa      c(1),;
        fecha       d(8),;
        numart      c(20),;
        cant        n(16,6),;
        precio      n(16,6),;
        pjedesc     n(6,2),;
        impuesto1   n(6,2))
    select * from docum where corte==vCorte into cursor documentos
    set near on
    select documentos
    scan
        cKeyDoc = documentos.tipodoc+documentos.numdoc
        select movim
        =seek(cKeyDoc,'Movim','TipoNumPar')
        scan while movim.tipodoc+movim.numdoc==cKeyDoc
            insert into partidas values (;
                documentos.tipodoc,;
                documentos.numdoc,;
                documentos.status,;
                documentos.divisa,;
                documentos.fecha,;
                movim.numart,;
                movim.cant,;
                movim.precio,;
                movim.pjedesc,;
                movim.impuesto1)
        endscan
        select documentos
    endscan
    set near off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas for status<>1 and (tipodoc==' F' or tipodoc==' N')
    nTotPartidas = round(nTotPartidas,2)
    select documentos
    sum importe+impuesto1 to nTotDocumentos for status<>1 and formapago=='1' and (tipodoc==' F' or tipodoc==' N')
    nTotDocumentos = round(nTotDocumentos,2)
    ?
    ? 'Algoritmo Optimizado'
    ? 'CORTE:',vCorte
    ? '$ de partidas:',nTotPartidas
    ? '$ de document:',nTotDocumentos
retu
*
* Este select carga las partidas de un corte
* mediante left join con docum
* tal como se hace actualmente
*
procedure corteActual(vCorte)
    set talk on
    TextoIniciar()
    text
    Select
        Movim.TIPODOC, Movim.NUMDOC, Movim.NUMART,
        Movim.CANT, Movim.PRECIO, Movim.PJEDESC, Movim.IMPUESTO1,
        Docum.TC, Docum.DIVISA
    From Movim
        Left Join Docum on Movim.TIPODOC+Movim.NUMDOC==Docum.TIPODOC+Docum.NUMDOC
    Where
        Docum.CORTE== vCorte  and Docum.FORMAPAGO=='1'  and
        (Docum.TIPODOC==' N' or Docum.TIPODOC==' F') and
        Docum.STATUS <> 1
    Order By Docum.TIPODOC, Movim.IMPUESTO1
    into cursor partidas
    endtext
    cmd = textoSql()
    &cmd
    set talk off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas
    nTotPartidas = round(nTotPartidas,2)
    ?
    ? 'Algoritmo Actual'
    ? 'CORTE ACTUAL:',vCorte
    ? '$ de partidas:',nTotPartidas
return




*
* Este procedimiento optimizado carga todas las partidas de un corte
*
procedure corteoptimizado(vCorte)
    create cursor partidas( ;
        tipodoc     c(2),;
        numdoc      c(10),;
        status      n(1),;
        divisa      c(1),;
        fecha       d(8),;
        numart      c(20),;
        cant        n(16,6),;
        precio      n(16,6),;
        pjedesc     n(6,2),;
        impuesto1   n(6,2))
    select * from docum where corte==vCorte into cursor documentos
    set near on
    select documentos
    scan
        cKeyDoc = documentos.tipodoc+documentos.numdoc
        select movim
        =seek(cKeyDoc,'Movim','TipoNumPar')
        scan while movim.tipodoc+movim.numdoc==cKeyDoc
            insert into partidas values (;
                documentos.tipodoc,;
                documentos.numdoc,;
                documentos.status,;
                documentos.divisa,;
                documentos.fecha,;
                movim.numart,;
                movim.cant,;
                movim.precio,;
                movim.pjedesc,;
                movim.impuesto1)
        endscan
        select documentos
    endscan
    set near off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas for status<>1 and (tipodoc==' F' or tipodoc==' N')
    nTotPartidas = round(nTotPartidas,2)
    select documentos
    sum importe+impuesto1 to nTotDocumentos for status<>1 and formapago=='1' and (tipodoc==' F' or tipodoc==' N')
    nTotDocumentos = round(nTotDocumentos,2)
    ?
    ? 'Algoritmo Optimizado'
    ? 'CORTE:',vCorte
    ? '$ de partidas:',nTotPartidas
    ? '$ de document:',nTotDocumentos
retu
* Este select carga las partidas de un corte
* mediante left join con docum
* tal como se hace actualmente
*
procedure corteActual(vCorte)
    set talk on
    TextoIniciar()
    text
    Select
        Movim.TIPODOC, Movim.NUMDOC, Movim.NUMART,
        Movim.CANT, Movim.PRECIO, Movim.PJEDESC, Movim.IMPUESTO1,
        Docum.TC, Docum.DIVISA
    From Movim
        Left Join Docum on Movim.TIPODOC+Movim.NUMDOC==Docum.TIPODOC+Docum.NUMDOC
    Where
        Docum.CORTE== vCorte  and Docum.FORMAPAGO=='1'  and
        (Docum.TIPODOC==' N' or Docum.TIPODOC==' F') and
        Docum.STATUS <> 1
    Order By Docum.TIPODOC, Movim.IMPUESTO1
    into cursor partidas
    endtext
    cmd = textoSql()
    &cmd
    set talk off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas
    nTotPartidas = round(nTotPartidas,2)
    ?
    ? 'Algoritmo Actual'
    ? 'CORTE ACTUAL:',vCorte
    ? '$ de partidas:',nTotPartidas
return




*
* Este procedimiento optimizado carga todas las partidas de un corte
*
procedure corteoptimizado(vCorte)
    create cursor partidas( ;
        tipodoc     c(2),;
        numdoc      c(10),;
        status      n(1),;
        divisa      c(1),;
        fecha       d(8),;
        numart      c(20),;
        cant        n(16,6),;
        precio      n(16,6),;
        pjedesc     n(6,2),;
        impuesto1   n(6,2))
    select * from docum where corte==vCorte into cursor documentos
    set near on
    select documentos
    scan
        cKeyDoc = documentos.tipodoc+documentos.numdoc
        select movim
        =seek(cKeyDoc,'Movim','TipoNumPar')
        scan while movim.tipodoc+movim.numdoc==cKeyDoc
            insert into partidas values (;
                documentos.tipodoc,;
                documentos.numdoc,;
                documentos.status,;
                documentos.divisa,;
                documentos.fecha,;
                movim.numart,;
                movim.cant,;
                movim.precio,;
                movim.pjedesc,;
                movim.impuesto1)
        endscan
        select documentos
    endscan
    set near off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas for status<>1 and (tipodoc==' F' or tipodoc==' N')
    nTotPartidas = round(nTotPartidas,2)
    select documentos
    sum importe+impuesto1 to nTotDocumentos for status<>1 and formapago=='1' and (tipodoc==' F' or tipodoc==' N')
    nTotDocumentos = round(nTotDocumentos,2)
    ?
    ? 'Algoritmo Optimizado'
    ? 'CORTE:',vCorte
    ? '$ de partidas:',nTotPartidas
    ? '$ de document:',nTotDocumentos
retu
* mediante left join con docum
* tal como se hace actualmente
*
procedure corteActual(vCorte)
    set talk on
    TextoIniciar()
    text
    Select
        Movim.TIPODOC, Movim.NUMDOC, Movim.NUMART,
        Movim.CANT, Movim.PRECIO, Movim.PJEDESC, Movim.IMPUESTO1,
        Docum.TC, Docum.DIVISA
    From Movim
        Left Join Docum on Movim.TIPODOC+Movim.NUMDOC==Docum.TIPODOC+Docum.NUMDOC
    Where
        Docum.CORTE== vCorte  and Docum.FORMAPAGO=='1'  and
        (Docum.TIPODOC==' N' or Docum.TIPODOC==' F') and
        Docum.STATUS <> 1
    Order By Docum.TIPODOC, Movim.IMPUESTO1
    into cursor partidas
    endtext
    cmd = textoSql()
    &cmd
    set talk off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas
    nTotPartidas = round(nTotPartidas,2)
    ?
    ? 'Algoritmo Actual'
    ? 'CORTE ACTUAL:',vCorte
    ? '$ de partidas:',nTotPartidas
return




*
* Este procedimiento optimizado carga todas las partidas de un corte
*
procedure corteoptimizado(vCorte)
    create cursor partidas( ;
        tipodoc     c(2),;
        numdoc      c(10),;
        status      n(1),;
        divisa      c(1),;
        fecha       d(8),;
        numart      c(20),;
        cant        n(16,6),;
        precio      n(16,6),;
        pjedesc     n(6,2),;
        impuesto1   n(6,2))
    select * from docum where corte==vCorte into cursor documentos
    set near on
    select documentos
    scan
        cKeyDoc = documentos.tipodoc+documentos.numdoc
        select movim
        =seek(cKeyDoc,'Movim','TipoNumPar')
        scan while movim.tipodoc+movim.numdoc==cKeyDoc
            insert into partidas values (;
                documentos.tipodoc,;
                documentos.numdoc,;
                documentos.status,;
                documentos.divisa,;
                documentos.fecha,;
                movim.numart,;
                movim.cant,;
                movim.precio,;
                movim.pjedesc,;
                movim.impuesto1)
        endscan
        select documentos
    endscan
    set near off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas for status<>1 and (tipodoc==' F' or tipodoc==' N')
    nTotPartidas = round(nTotPartidas,2)
    select documentos
    sum importe+impuesto1 to nTotDocumentos for status<>1 and formapago=='1' and (tipodoc==' F' or tipodoc==' N')
    nTotDocumentos = round(nTotDocumentos,2)
    ?
    ? 'Algoritmo Optimizado'
    ? 'CORTE:',vCorte
    ? '$ de partidas:',nTotPartidas
    ? '$ de document:',nTotDocumentos
retu
* tal como se hace actualmente
*
procedure corteActual(vCorte)
    set talk on
    TextoIniciar()
    text
    Select
        Movim.TIPODOC, Movim.NUMDOC, Movim.NUMART,
        Movim.CANT, Movim.PRECIO, Movim.PJEDESC, Movim.IMPUESTO1,
        Docum.TC, Docum.DIVISA
    From Movim
        Left Join Docum on Movim.TIPODOC+Movim.NUMDOC==Docum.TIPODOC+Docum.NUMDOC
    Where
        Docum.CORTE== vCorte  and Docum.FORMAPAGO=='1'  and
        (Docum.TIPODOC==' N' or Docum.TIPODOC==' F') and
        Docum.STATUS <> 1
    Order By Docum.TIPODOC, Movim.IMPUESTO1
    into cursor partidas
    endtext
    cmd = textoSql()
    &cmd
    set talk off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas
    nTotPartidas = round(nTotPartidas,2)
    ?
    ? 'Algoritmo Actual'
    ? 'CORTE ACTUAL:',vCorte
    ? '$ de partidas:',nTotPartidas
return




*
* Este procedimiento optimizado carga todas las partidas de un corte
*
procedure corteoptimizado(vCorte)
    create cursor partidas( ;
        tipodoc     c(2),;
        numdoc      c(10),;
        status      n(1),;
        divisa      c(1),;
        fecha       d(8),;
        numart      c(20),;
        cant        n(16,6),;
        precio      n(16,6),;
        pjedesc     n(6,2),;
        impuesto1   n(6,2))
    select * from docum where corte==vCorte into cursor documentos
    set near on
    select documentos
    scan
        cKeyDoc = documentos.tipodoc+documentos.numdoc
        select movim
        =seek(cKeyDoc,'Movim','TipoNumPar')
        scan while movim.tipodoc+movim.numdoc==cKeyDoc
            insert into partidas values (;
                documentos.tipodoc,;
                documentos.numdoc,;
                documentos.status,;
                documentos.divisa,;
                documentos.fecha,;
                movim.numart,;
                movim.cant,;
                movim.precio,;
                movim.pjedesc,;
                movim.impuesto1)
        endscan
        select documentos
    endscan
    set near off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas for status<>1 and (tipodoc==' F' or tipodoc==' N')
    nTotPartidas = round(nTotPartidas,2)
    select documentos
    sum importe+impuesto1 to nTotDocumentos for status<>1 and formapago=='1' and (tipodoc==' F' or tipodoc==' N')
    nTotDocumentos = round(nTotDocumentos,2)
    ?
    ? 'Algoritmo Optimizado'
    ? 'CORTE:',vCorte
    ? '$ de partidas:',nTotPartidas
    ? '$ de document:',nTotDocumentos
retu
*
procedure corteActual(vCorte)
    set talk on
    TextoIniciar()
    text
    Select
        Movim.TIPODOC, Movim.NUMDOC, Movim.NUMART,
        Movim.CANT, Movim.PRECIO, Movim.PJEDESC, Movim.IMPUESTO1,
        Docum.TC, Docum.DIVISA
    From Movim
        Left Join Docum on Movim.TIPODOC+Movim.NUMDOC==Docum.TIPODOC+Docum.NUMDOC
    Where
        Docum.CORTE== vCorte  and Docum.FORMAPAGO=='1'  and
        (Docum.TIPODOC==' N' or Docum.TIPODOC==' F') and
        Docum.STATUS <> 1
    Order By Docum.TIPODOC, Movim.IMPUESTO1
    into cursor partidas
    endtext
    cmd = textoSql()
    &cmd
    set talk off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas
    nTotPartidas = round(nTotPartidas,2)
    ?
    ? 'Algoritmo Actual'
    ? 'CORTE ACTUAL:',vCorte
    ? '$ de partidas:',nTotPartidas
return




*
* Este procedimiento optimizado carga todas las partidas de un corte
*
procedure corteoptimizado(vCorte)
    create cursor partidas( ;
        tipodoc     c(2),;
        numdoc      c(10),;
        status      n(1),;
        divisa      c(1),;
        fecha       d(8),;
        numart      c(20),;
        cant        n(16,6),;
        precio      n(16,6),;
        pjedesc     n(6,2),;
        impuesto1   n(6,2))
    select * from docum where corte==vCorte into cursor documentos
    set near on
    select documentos
    scan
        cKeyDoc = documentos.tipodoc+documentos.numdoc
        select movim
        =seek(cKeyDoc,'Movim','TipoNumPar')
        scan while movim.tipodoc+movim.numdoc==cKeyDoc
            insert into partidas values (;
                documentos.tipodoc,;
                documentos.numdoc,;
                documentos.status,;
                documentos.divisa,;
                documentos.fecha,;
                movim.numart,;
                movim.cant,;
                movim.precio,;
                movim.pjedesc,;
                movim.impuesto1)
        endscan
        select documentos
    endscan
    set near off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas for status<>1 and (tipodoc==' F' or tipodoc==' N')
    nTotPartidas = round(nTotPartidas,2)
    select documentos
    sum importe+impuesto1 to nTotDocumentos for status<>1 and formapago=='1' and (tipodoc==' F' or tipodoc==' N')
    nTotDocumentos = round(nTotDocumentos,2)
    ?
    ? 'Algoritmo Optimizado'
    ? 'CORTE:',vCorte
    ? '$ de partidas:',nTotPartidas
    ? '$ de document:',nTotDocumentos
retu
*
* Este procedimiento optimizado carga todas las partidas de un corte
*
procedure corteoptimizado(vCorte)
    create cursor partidas( ;
        tipodoc     c(2),;
        numdoc      c(10),;
        status      n(1),;
        divisa      c(1),;
        fecha       d(8),;
        numart      c(20),;
        cant        n(16,6),;
        precio      n(16,6),;
        pjedesc     n(6,2),;
        impuesto1   n(6,2))
    select * from docum where corte==vCorte into cursor documentos
    set near on
    select documentos
    scan
        cKeyDoc = documentos.tipodoc+documentos.numdoc
        select movim
        =seek(cKeyDoc,'Movim','TipoNumPar')
        scan while movim.tipodoc+movim.numdoc==cKeyDoc
            insert into partidas values (;
                documentos.tipodoc,;
                documentos.numdoc,;
                documentos.status,;
                documentos.divisa,;
                documentos.fecha,;
                movim.numart,;
                movim.cant,;
                movim.precio,;
                movim.pjedesc,;
                movim.impuesto1)
        endscan
        select documentos
    endscan
    set near off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas for status<>1 and (tipodoc==' F' or tipodoc==' N')
    nTotPartidas = round(nTotPartidas,2)
    select documentos
    sum importe+impuesto1 to nTotDocumentos for status<>1 and formapago=='1' and (tipodoc==' F' or tipodoc==' N')
    nTotDocumentos = round(nTotDocumentos,2)
    ?
    ? 'Algoritmo Optimizado'
    ? 'CORTE:',vCorte
    ? '$ de partidas:',nTotPartidas
    ? '$ de document:',nTotDocumentos
retu
* Este procedimiento optimizado carga todas las partidas de un corte
*
procedure corteoptimizado(vCorte)
    create cursor partidas( ;
        tipodoc     c(2),;
        numdoc      c(10),;
        status      n(1),;
        divisa      c(1),;
        fecha       d(8),;
        numart      c(20),;
        cant        n(16,6),;
        precio      n(16,6),;
        pjedesc     n(6,2),;
        impuesto1   n(6,2))
    select * from docum where corte==vCorte into cursor documentos
    set near on
    select documentos
    scan
        cKeyDoc = documentos.tipodoc+documentos.numdoc
        select movim
        =seek(cKeyDoc,'Movim','TipoNumPar')
        scan while movim.tipodoc+movim.numdoc==cKeyDoc
            insert into partidas values (;
                documentos.tipodoc,;
                documentos.numdoc,;
                documentos.status,;
                documentos.divisa,;
                documentos.fecha,;
                movim.numart,;
                movim.cant,;
                movim.precio,;
                movim.pjedesc,;
                movim.impuesto1)
        endscan
        select documentos
    endscan
    set near off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas for status<>1 and (tipodoc==' F' or tipodoc==' N')
    nTotPartidas = round(nTotPartidas,2)
    select documentos
    sum importe+impuesto1 to nTotDocumentos for status<>1 and formapago=='1' and (tipodoc==' F' or tipodoc==' N')
    nTotDocumentos = round(nTotDocumentos,2)
    ?
    ? 'Algoritmo Optimizado'
    ? 'CORTE:',vCorte
    ? '$ de partidas:',nTotPartidas
    ? '$ de document:',nTotDocumentos
retu
*
procedure corteoptimizado(vCorte)
    create cursor partidas( ;
        tipodoc     c(2),;
        numdoc      c(10),;
        status      n(1),;
        divisa      c(1),;
        fecha       d(8),;
        numart      c(20),;
        cant        n(16,6),;
        precio      n(16,6),;
        pjedesc     n(6,2),;
        impuesto1   n(6,2))
    select * from docum where corte==vCorte into cursor documentos
    set near on
    select documentos
    scan
        cKeyDoc = documentos.tipodoc+documentos.numdoc
        select movim
        =seek(cKeyDoc,'Movim','TipoNumPar')
        scan while movim.tipodoc+movim.numdoc==cKeyDoc
            insert into partidas values (;
                documentos.tipodoc,;
                documentos.numdoc,;
                documentos.status,;
                documentos.divisa,;
                documentos.fecha,;
                movim.numart,;
                movim.cant,;
                movim.precio,;
                movim.pjedesc,;
                movim.impuesto1)
        endscan
        select documentos
    endscan
    set near off
    select partidas
    sum cant*precio*(1+impuesto1/100) to nTotPartidas for status<>1 and (tipodoc==' F' or tipodoc==' N')
    nTotPartidas = round(nTotPartidas,2)
    select documentos
    sum importe+impuesto1 to nTotDocumentos for status<>1 and formapago=='1' and (tipodoc==' F' or tipodoc==' N')
    nTotDocumentos = round(nTotDocumentos,2)
    ?
    ? 'Algoritmo Optimizado'
    ? 'CORTE:',vCorte
    ? '$ de partidas:',nTotPartidas
    ? '$ de document:',nTotDocumentos
return