Ponto de Entrada
Descrição: | Este Ponto de Entrada será executado na rotina Relacao de Os.s (OFIOR450) e permite verificações após a geração da Planilha XLS. | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Localização: | Relatorios \ Operac Pecas \ Relacao de Os.s (OFIOR450) | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Eventos: | ... // ------------- // // Gera Planilha // // ------------- // If MV_PAR26 == 2 If ExistBlock("OR450XLS") ExecBlock("OR450XLS",.f.,.f., { aImpXls } ) EndIf If MV_PAR03 == 3 cNomeArq := Alltrim(mv_par27)+"OFIOR450.xls" oExcel:Activate() oExcel:GetXMLFile(cNomeArq) oExcel:DeActivate() MsgInfo( STR0044 + CHR(13)+CHR(10)+CHR(13)+CHR(10) + cNomeArq , STR0045 ) // "Planilha gerada com sucesso!" # "Atenção" Else MsgInfo(STR0126) Endif EndIf ... | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Programa Fonte: | OFIOR450.PRW | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Função: | RunReport() | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Parâmetros: |
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Retorno: | N/A |
Exemplo:
Include totvs.ch
//////////////////////////////////////////////////////////////////////////////////////////////////
// //
// OR450XLS - Ponto de Entrada no relatório de Relação de OSs (OFIOR450), executado no momento //
// da geração da Planilha XLS e recebe como parametro o vetor com os dados que //
// populam a planilha. //
// //
// aDadosXls - vetor com os dados que populam a planilha //
// //
//////////////////////////////////////////////////////////////////////////////////////////////////
User Function OR450XLS()
Local aDadosXls := ParamIxb[1] // vetor com os dados que populam a planilha
/*
aImpXls[nLinha,01] // Filial da OS
aImpXls[nLinha,02] // Numero da OS
aImpXls[nLinha,03] // Tipo Atendimento
aImpXls[nLinha,04] // Data Abertura da OS
aImpXls[nLinha,05] // Hora Abertura da OS
aImpXls[nLinha,06] // Funcionario Abertura
aImpXls[nLinha,07] // KM Veiculo
aImpXls[nLinha,08] // Proprietario Atual
aImpXls[nLinha,09] // Loja do Proprietario Atual
aImpXls[nLinha,10] // Nome do Proprietario
aImpXls[nLinha,11] // CNPJ/CPF do Proprietario
aImpXls[nLinha,12] // Numero do Orcamento
aImpXls[nLinha,13] // Endereco do Proprietario
aImpXls[nLinha,14] // Municipio do Proprietario
aImpXls[nLinha,15] // UF do Municipio do Proprietario
aImpXls[nLinha,16] // Telefone do Proprietario
aImpXls[nLinha,17] // Codigo da Marca do Veiculo
aImpXls[nLinha,18] // Modelo do Veiculo
aImpXls[nLinha,19] // Ano Fabricação/Modelo
aImpXls[nLinha,20] // Descricao da Cor
aImpXls[nLinha,21] // CHAINT do Veiculo
aImpXls[nLinha,22] // Chassi do Veiculo
aImpXls[nLinha,23] // Placa do Veiculo
aImpXls[nLinha,24] // Codigo da Frota do Veiculo
aImpXls[nLinha,25] // Sequencia do Inconveniente
aImpXls[nLinha,26] // Grupo do Inconveniente
aImpXls[nLinha,27] // Codigo do Inconveniente
aImpXls[nLinha,28] // Descricao do Inconveniente
aImpXls[nLinha,29] // Tipo de Tempo
aImpXls[nLinha,30] // LibVOO
aImpXls[nLinha,31] // Codigo Faturar Para
aImpXls[nLinha,32] // Loja Faturar Para
aImpXls[nLinha,33] // Nome Faturar Para
aImpXls[nLinha,34] // Depto.Garantia
aImpXls[nLinha,35] // Depto.Interno
aImpXls[nLinha,36] // Produtivo
aImpXls[nLinha,37] // Data Liberação
aImpXls[nLinha,38] // Data Fechamento
aImpXls[nLinha,39] // Data Cancelamento
aImpXls[nLinha,40] // Numero NF
aImpXls[nLinha,41] // Total de Peças
aImpXls[nLinha,42] // Total Tempo Padrão
aImpXls[nLinha,43] // Total Tempo Trabalhado
aImpXls[nLinha,44] // Total Tempo Cobrado
aImpXls[nLinha,45] // Total Tempo Vendido
aImpXls[nLinha,46] // Total Serviços
aImpXls[nLinha,47] // Numero da Requisicao
aImpXls[nLinha,48] // Grupo da Peca
aImpXls[nLinha,49] // Codigo da Peca
aImpXls[nLinha,50] // Descricao da Peca
aImpXls[nLinha,51] // Quantidade
aImpXls[nLinha,52] // Produtivo que Requisitou
aImpXls[nLinha,53] // Formula
aImpXls[nLinha,54] // Valor Unitario
aImpXls[nLinha,55] // Valor Total
aImpXls[nLinha,56] // Tipo de Servico
aImpXls[nLinha,57] // Grupo do Servico
aImpXls[nLinha,58] // Codigo do Servico
aImpXls[nLinha,59] // Descricao do Servico
aImpXls[nLinha,60] // Codigo do Produtivo
aImpXls[nLinha,61] // Nome do Produtivo
aImpXls[nLinha,62] // Tempo Padrao
aImpXls[nLinha,63] // Tempo Trabalhado
aImpXls[nLinha,64] // Tempo Cobrado
aImpXls[nLinha,65] // Tempo Vendido
aImpXls[nLinha,66] // Valor do Servico (Liquido)
aImpXls[nLinha,67] // KM Rodado
aImpXls[nLinha,68] // Original ou Paralelo
*/
MsgAlert("Ponto de entrada OR450XLS executado com sucesso!")
Return