[RESOLVIDO] Exportar para Excel com modelo pré-definido

Diogenes Luis · Agosto 22, 2013

Boa tarde Membros!
Preciso de ajuda, estou escrevendo uma linha de código para ser executado direto pela extensão .p e exportado para um modelo pré-definido de excel.
Estou com dificuldade no momento em que os dados são gerados e inseridos neste modelo, pois a coluna "A" esta estourando seu tamanho, ou seja, ela aumenta para o lado direito e com ferra o layout.
Existe a possibilidade de limitar diretamente no progress ou é no Excel que devo fazer isso? Outra coisa, fiz um UPDATE para mudar o nome de um LABEL, mas isso não acontece, onde estou errando?

Anexei a imagem de como fica a matriz e o LABEL.

Desde já agradeço a ajuda de todos.

/*------------ Definicao de Variaveis --------------------------------------*/

def var chExcelApplication as com-handle no-undo.
def var chWorkbook as com-handle no-undo.
def var chworksheet as com-handle no-undo.
def var m-linha as int no-undo.
DEF VAR nota-fisc-ini LIKE nota-fiscal.nr-nota-fis NO-UNDO.
DEF VAR nota-fisc-fim LIKE nota-fiscal.nr-nota-fis NO-UNDO.

UPDATE
nota-fisc-ini LABEL "N.DEBITO INICIAL"
nota-fisc-fim LABEL "N.DEBITO FINAL" .

FOR EACH nota-fiscal NO-LOCK
WHERE nota-fiscal.nr-nota-fis >= nota-fisc-ini
AND nota-fiscal.nr-nota-fis <= nota-fisc-fim:

create "Excel.Application" chExcelApplication.
assign chWorkbook = chExcelApplication:Workbooks:ADD(search("dtv\NotaDebito_Matriz.xlsx")).
chworksheet=chexcelapplicAtion:sheets:item(1).
chworksheet:name="NotaDebito".

m-linha = 2.

/*------------ Definicao de Relacionamentos----------------------------------*/

FIND emitente OF nota-fiscal NO-LOCK NO-ERROR.

FIND FIRST natur-oper OF nota-fiscal NO-LOCK NO-ERROR.

FIND FIRST it-nota-fisc OF nota-fiscal NO-LOCK NO-ERROR.

FIND FIRST item OF it-nota-fisc NO-LOCK NO-ERROR.

FIND FIRST fat-duplic WHERE fat-duplic.nr-fatura = nota-fiscal.nr-nota-fis
AND fat-duplic.serie = nota-fiscal.serie NO-LOCK NO-ERROR.

assign chworksheet:Cells(2,"I"):value = nota-fiscal.nr-nota-fis
chworksheet:range("I4"):value = nota-fiscal.dt-emis-nota
chworksheet:range("A9"):value = emitente.nome-emit
chworksheet:range("A11"):value = nota-fiscal.endereco
chworksheet:range("I13"):value = nota-fiscal.cep
chworksheet:range("A13"):value = nota-fiscal.cidade
chworksheet:range("H13"):value = nota-fiscal.estado
chworksheet:range("I9"):value = nota-fiscal.cgc
chworksheet:range("I11"):value = nota-fiscal.ins-estadual
chworksheet:range("A29"):value = it-nota-fisc.it-codigo
chworksheet:range("B29"):value = item.descricao-1 + item.descricao-2
chworksheet:range("E25"):value = it-nota-fisc.vl-tot-item
chworksheet:range("I29"):value = it-nota-fisc.vl-tot-item
chworksheet:range("I10"):value = nota-fiscal.observ-nota
chworksheet:range("A25"):value = nota-fiscal.nr-nota-fis
chworksheet:range("C25"):value = fat-duplic.dt-venciment
chworksheet:range("I35"):value = it-nota-fisc.vl-tot-item.

chExcelApplication:Range("A1"):select.
chExcelApplication:Range("A:Z"):EntireColumn:AutoFit.
chExcelApplication:Visible = yes.
release object chExcelApplication.
release object chWorkbook.

END.
Clique para expandir...

Rogerio · Agosto 23, 2013

Meu caro de imediato sem analisar muito seu codigo, sugiro que tire o AutoFit no final do programa... veja se assim fica aceitavel, senao posta aqui novamente que tento dar uma olhada com mais calma

Diogenes Luis · Agosto 23, 2013

Caro Rogerio,
Muito obrigado pela dica, foi puro facilo meu hein... rsrsrsrs

Você pode me ajudar na alteração do LABEL ? Que apesar de eu ter colocado o comando, na execução não esta fazendo.

Abraço

Diógenes Luis

Diogenes Luis · Agosto 23, 2013

Caro Rogerio,

Já consegui o comando para mudar o LABEL..

Muito obrigado pela força.

Abraço

Diógenes Luis

Logar ou Criar uma Conta

[RESOLVIDO] Exportar para Excel com modelo pré-definido

Diogenes Luis Sem Pontuação

Arquivos Anexados:

Matriz.JPG

Rogerio Moderator Moderador Equipe de Suporte

Diogenes Luis Sem Pontuação

Diogenes Luis Sem Pontuação

Compartilhe esta Página