Untitled

## FOXPRO SENTENCIA
Select 
Docum.FECHA As Clave,
Docum.numalm as numalm,
almacen.nomalm as sucursal,
MexDate2(Docum.FECHA) As Nombre,
Sum( Docum.IMPORTE*iif(Docum.DIVISA='P',1,Docum.TC) *iif(Docum.TIPODOC=' N',1,0)) As Importe,
Sum( Docum.DESCUENTO*iif(Docum.DIVISA='P',1,Docum.TC) *iif(Docum.TIPODOC=' N',1,0)) As Descuento,
Sum( (Docum.IMPORTE-Docum.DESCUENTO)*iif(Docum.DIVISA='P',1,Docum.TC) *iif(Docum.TIPODOC=' N',1,0)) As SubTotal,
Sum( Docum.IMPUESTO1*iif(Docum.DIVISA='P',1,Docum.TC) *iif(Docum.TIPODOC=' N',1,0)) As IVA,
sum( Docum.IMPUESTO2*iif(Docum.DIVISA='P',1,Docum.TC) *iif(Docum.TIPODOC=' N',1,0)) As Ieps,
Sum( (Docum.IMPORTE-Docum.DESCUENTO+Docum.IMPUESTO1+docum.impuesto2)*iif(Docum.DIVISA='P',1,Docum.TC) *iif(Docum.TIPODOC=' N',1, iif(Docum.TIPODOC='DN',-1,0))) As Total,
Sum( (Docum.IMPORTE-Docum.DESCUENTO+docum.impuesto1+docum.impuesto2)*iif(Docum.DIVISA='P',1,Docum.TC) *iif(Docum.TIPODOC='DN',1,0)) As Devol


From Docum 
left join almacen on almacen.numalm=docum.numalm
Group by docum.numalm,clave
Where 
   (Docum.TIPODOC = ' N' or Docum.TIPODOC='DN')
   and Docum.STATUS <> 1 and
   Between(Docum.FECHA,vFecha1,vFecha2) and  
   iif(Empty(vNumCli),.t.,Docum.NUMCLI = vNumCli) and
   iif(Empty(vNumVend),.t.,Docum.NUMVEND = vNumVend) AND
IIF(EMPTY(vNumalm),.t.,vNumalm==Docum.Numalm) 




## SQL SENTENCIA
select 
    docum.fecha  as clave,
    docum.numalm as numalm,
    almacen.nomalm as sucursal,
    docum.fecha    as nombre,
    sum( docum.importe*if(docum.divisa="P",1,docum.tc)*if(docum.tipodoc=" N",1,0) ) as importe,
    sum( docum.descuento*if(docum.divisa="P",1,docum.tc)*if(docum.tipodoc=" N",1,0) ) as descuento,
    sum( (docum.importe-docum.descuento)*if(docum.divisa="P",1,docum.tc)*if(docum.tipodoc=" N",1,0) ) as subtotal,
    sum( docum.impuesto1*if(docum.divisa="P",1,docum.tc)*if(docum.tipodoc=" N",1,0) ) as iva,
    sum( docum.impuesto2*if(docum.divisa="P",1,docum.tc)*if(docum.tipodoc=" N",1,0) ) as ieps,
    sum( (docum.importe-docum.descuento+docum.impuesto1+docum.impuesto2)*if(docum.divisa="P",1,docum.tc)*if(docum.tipodoc=" N",1,if(docum.tipodoc='DN',-1,0))) as total,
    sum( (docum.importe-docum.descuento+docum.impuesto1+docum.impuesto2)*if(docum.divisa="P",1,docum.tc)*if(docum.tipodoc="DN",1,0) ) as devol
from docum
left join almacen on almacen.numalm=docum.numalm
where 
    (docum.tipodoc=" N" or docum.tipodoc="DN") and 
    docum.status != 1 and
    (docum.fecha >= ?vfecha1 and docum.fecha <= ?vfecha2 ) and
    if( trim( ?vnumcli ) = "",true, docum.numcli= ?vnumcli ) and
    if( trim( ?vnumvend ) = "",true, docum.numvend= ?vnumvend ) and
    if( trim( ?vnumalm ) = "",true, docum.numalm= ?vnumalm )
group by docum.numalm, clave;