FALAR OFF SET
cobertura do SAFETY OFF SET && não pergunte
CheckKeHu checkJieZhang o E checkXianShangXia o E SE
MAIS
MESSAGEBOX ( 'optar por mesclar no check-out on-line e unidades clientes off-line exportados ...', 'dicas')
RETURN
ENDIF
SELECIONAR grid1XaoTiaoJian && deve
contar todos para a seleção = '√' TO xuanShuAll
o IF = 0 && xuanShuAll RECCOUNT () = 0
a MESSAGEBOX ( 'verificando os registros de exportação ...', 'pronta')
RETURN
ENDIF
O SELECT;
o (nome bens) TRIM como nome carga, Trim (modelo) modelos, especificações ,;
COUNT (*) itens, Sum (Sales número) como o número total de vendas ,;
SUM (preço de venda * número de vendas) / SUM (vendas número) como o preço unitário médio de vendas ,;
o SUM (vendas * número médio de compra preço unitário) / Sum (sales número) como o preço médio da compra ,;
o SUM (vendas comprar número monovalente * média) como o custo total ,;
o SUM (receber) como receber total, a soma (paid-up) como o total integralizado;
o do db / XAO;
WHERE selecionar = '√';
o ORDER BY nome produtos, modelo, especificação;
o GROUP BY nome produtos, modelo, especificação;
o INTO CURSOR tmpXaoHeBingExport
keHuDanWei = UPPER (ALLTRIM (thisform.txt unidade do cliente .Value))
xlsFileName + = keHuDanWei O TTOC (DATETIME () ,. 1) + '_ _ combinados detalhes de vendas'
COPY TO Excel \ & xlsFileName. o EXCETO compra, o preço unitário médio CAMPOS, o custo total TIPO XL5 && para seleção = '√' campos exceto fonte seleccionada, este código é
uma tabela temporária selecionar grid1XaoTiaoJian && da nova tabela para o original
MESSAGEBOX ( 'sucesso XLS exportação ...', 'dicas')
&& Abrir pasta de exportação
* * OX = CREATEOBJECT ( "WScript.Shell")
* * Ox.run ( "\ Excel", 1, .f .)
&& investigação depois que os 2020 aspectos VBS / VB da pasta aberta e selecione o código ser reescrito documentação
obj = CreateObject ( "wscript.shell") && Criar objeto
obj.run ( "% systemroot% \ explorer.exe / seleccionar ,. \ Excel \ "+ xlsFileName +" . xls ") && abrir a pasta e selecione o arquivo especificado