//Relatorio Manual Excel

ok is boolean = False
CAB is int = 0
Lineprint is string = ""
sFileName is string = ""
contador is int = 0

IF GloAno = "" THEN
GloAno = CurrentYear()
END

Numero_Ano is string = GloNumFechamento +"_"+ GloAno

IF gnConvenioAdministrador <> "" THEN

Lineprint = ""

Ordem is string = ""

IF RADIO_OrdemImpressao..Value = 1
Ordem = "Funcionario"
ELSE IF RADIO_OrdemImpressao..Value = 2
Ordem = "Corrida"
ELSE IF RADIO_OrdemImpressao..Value = 3
Ordem = "CentroDeCusto"
ELSE IF RADIO_OrdemImpressao..Value = 4
Ordem = "Embarque"
ELSE IF RADIO_OrdemImpressao..Value = 5
Ordem = "RT"
ELSE
Ordem = "Funcionario"
END


ok = HExecuteQuery(QRY_Select_FechamentoDetalhado,hQueryDefault,gnConvenioAdministrador,GloAno,GloNumFechamento,GloCentroCusto, Ordem)
IF ok = True THEN

IF CAB = 0 THEN
CAB = 1

Lineprint = "AnoFechamento;NumeroFechamento;CentroDeCusto;DesCentroDeCusto;Diretoria;ClienteConvenio;Corrida;DataHora;RT;Funcionario;Embarque;Desembarque;Finalidade;Km;Vouchers;Valor"+Charact(13)+Charact(10)
END

FOR EACH QRY_Select_FechamentoDetalhado
contador += 1

Lineprint += QRY_Select_FechamentoDetalhado.AnoFechamento +";"
Lineprint += QRY_Select_FechamentoDetalhado.NumeroFechamento +";"
Lineprint += QRY_Select_FechamentoDetalhado.Vouchers +";"
Lineprint += QRY_Select_FechamentoDetalhado.Valor + Charact(13)+Charact(10)

END

END
//info(contador)
IF ok = True THEN

sFile is string
sFile = WS_ReturnGenerationDir()+"\FechamentoVoucher"+ gnConvenioAdministrador +"_"+ Numero_Ano +".xls"
IF sFile <> "" THEN
LooperToExcel(TABLE_QRY_Select_FechamentoDetalhado,sFile)
iDestination(iGenericXLS,sFile)
FileDisplay(sFile,"application/unknown",sFile)
fDelete(sFile)
END

END

END