>SELECT imp = .t. as imprime,; > Sea140.empresa,; > producto.ldoble,; > producto.nombre,; > producto.composi,; > producto.ancho,; > producto.pesoml,; > iif(producto.unid = "MTS",; > ((producto.precio01 / producto.lote) * producto.pesoml + m.aumento),; > (producto.precio01 / producto.lote) + m.aumento / producto.pesoml) as costo,; > iif(producto.unid = "MTS",; > (producto.precio02 - sea.cargofijo - ((producto.precio01 / producto.lote) * producto.pesoml + m.aumento)),; > producto.precio02 - (sea.cargofijo / producto.pesoml) - ((producto.precio01 / producto.lote) + m.aumento)) as utilidad,; > producto.precio02,; > Sea400.frecibo,; > producto.cla16,; > round(lote/producto.pesoml,-1) as carga,; > sea140.cla14,; > producto.lote,; > producto.unid,; > producto.color,; > producto.precio01,; > producto.ancho1; >FROM Sea140,sea400,producto; >WHERE Sea140.cla14 = subs(producto.cla16,1,4); >.AND. sea400.cla16 = producto.cla16; >.AND. iif(ThisForm.chkUnCte.value = 1,(sea140.cla14 == m.clave), .T.); >.AND. iif(ThisForm.chkUnaComp.value = 1,producto.composi = alltrim(Thisform.cmbComp.displayvalue),.t.); >.AND. iif(!empty(m.cade),at(m.cade,producto.nombre)!= 0,.t.); >.AND. iif(lccolor = "",producto.color = lccolor,.t.); >.AND. BETWEEN(pesoml, m.inicio, m.fin); >.AND. producto.precio02 > 0; >.AND. iif(ThisForm.chkDeLosUltimos.value = 1,Sea400.frecibo >= date() - thisform.txtDias.value,.t.); >ORDER BY sea140.empresa, producto.nombre; >group by producto.cla16; >INTO dbf sys(2023)+"\aca5504z"