HABLAR fuera del set
cobertura de la SET SAFETY OFF && no preguntar
CheckKeHu checkJieZhang la checkXianShangXia Y el Y SI
ELSE
MESSAGEBOX ( 'elegir fusionar en la facturación en línea y fuera de línea del cliente unidades exporta ...', 'consejos')
RETURN
ENDIF
SELECT grid1XaoTiaoJian && debe
contar todos para la selección = '√' A la xuanShuAll
la SI = 0 && xuanShuAll RECCOUNT () = 0
la MESSAGEBOX ( 'comprobación de los registros de exportación ...', 'pronta')
RETURN
ENDIF
El SELECT;
la (nombre de mercancías) TRIM como el nombre de carga, TRIM (modelo) modelos, especificaciones ,;
COUNT (*) artículos, SUM (Número de venta) como el número total de ventas ,;
SUM (precio de venta * número de ventas) / sum (ventas número) como el precio de venta unitario medio ,;
la suma (ventas * número promedio de compra precio unitario) / sum (número de venta) como el precio medio de la compra ,;
la suma (compra venta * medio numérico monovalente) como el costo total ,;
la suma (por cobrar) como el total de créditos, suma (desembolsado) como el total desembolsado;
el FROM DB / XAO;
el DONDE elige = '√';
ORDER BY nombre de los bienes, el modelo, la especificación;
el Grupo por nombre bienes, modelo, especificación,
la INTO CURSOR tmpXaoHeBingExport
keHuDanWei = SUPERIOR (ALLTRIM (thisform.txt filial de servicios para .Value))
xlsFileName + = keHuDanWei El TTOC (DATETIME () ,. 1) + '_ _ combinados detalles de las ventas'
copiar el de sobresalir \ & xlsFileName. la SALVO compra el precio unitario medio CAMPOS, el costo total TIPO XL5 && para la selección = '√' campos excepto fuente seleccionada, este código es
una tabla temporal seleccione grid1XaoTiaoJian && de la nueva tabla al original
MESSAGEBOX ( 'éxito de las exportaciones XLS ...', 'consejos')
&& Abrir carpeta de exportación
*! * OX = CreateObject ( "WScript.Shell")
*! * Ox.run ( "\ Excel", 1, .f .)
&& investigación después de los 2020 aspectos VBS / VB de la carpeta abierta y seleccione el código puede reescribir la documentación
obj = CreateObject ( "wscript.shell") && Crear objeto
obj.run ( "% SystemRoot% \ explorer.exe / seleccionar ,. \ Excel \ "+ + xlsFileName" . xls ") && abrir la carpeta y seleccione el archivo especificado