Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Select csgcdite
- Set Relation To
- If Messagebox('Confirma a Exportação?',4 + 32 + 0,'Confirmação') = 6
- xalias = Alias()
- xord = Order()
- rec = Iif(!Eof(),Recno(),0)
- abre_tabela("produtos", "", "AUX", 1)
- Select produtosAux
- Set Order To pro_descri
- Select csgcdite
- Set Relation To pro_descri Into produtosAUX Additive
- Create Cursor X_mapa(fone c(70), isbn c(13),fax c(30),udatac c(30),endere c(50),bairro c(30),cidade c(30),sigla c(17),;
- produto c(50),descont c(6),unit c(12),Total c(12),qtd c(17),devolv c(17), vend c(30),;
- repos c(6), contato c(20), email c(100), cscCli_nome c(50), cscgCli_cgccpf c(50), prPro_custo c(12), prSaldoesto c(10))
- Select csgcdite
- Set Order To pro_descri
- Go Top
- xtotal = 0
- xqtd = 0
- xdevolv = 0
- xvend = 0
- xrepos = 0
- xnome = csgcdcab.cli_nome
- If xnome = csgcdcab.cli_nome
- For m_i = 1 To 2
- Insert Into X_mapa(cidade,sigla,produto);
- VALUES(Iif(m_i = 1,"Telefone",CLIENTES_CSG.cli_fone), Iif(m_i = 1, "Fax",CLIENTES_CSG.cli_fax),;
- IIF(m_i = 1, "Ult.Acerto:",Dtoc(csgcdcab.csg_udatac)))
- Endfor
- For m_i = 1 To 2
- Insert Into X_mapa(fone,fax,udatac,endere, contato, email);
- values(CLIENTES_CSG.cli_endere, CLIENTES_CSG.cli_bairro, CLIENTES_CSG.cli_cidade, CLIENTES_CSG.ufe_sigla, CLIENTES_CSG.cli_contat, CLIENTES_CSG.cli_email)
- Endfor
- Endif
- Insert Into X_mapa(fone, isbn,fax,udatac,endere,bairro,cidade,sigla,produto);
- VALUES("PRODUTO", "ISBN", "DESCONTO","$ UNITÁRIO","$ TOTAL","QUANT.","DEVOLV.","VEND.","REPOS.")
- Select csgcdcab
- Set Order To CSG_NUMERO
- Select csgcdite
- Set Order To CSG_NUMERO
- Go Top
- Seek Alltrim(csgcdcab.CSG_NUMERO)
- Do While csgcdite.CSG_NUMERO = csgcdcab.CSG_NUMERO
- Insert Into X_mapa (fone, isbn,;
- fax,udatac,endere,;
- bairro, cscCli_nome, cscgCli_cgccpf, prPro_custo, prSaldoesto );
- values (Alltrim(csgcdite.pro_descri), produtosAUX.pro_isbn,;
- Str(csgcdite.csg_dsc,6)+"%", Str(csgcdite.csg_vlu,10,2), ;
- Str(Round(csgcdite.csg_qtd*(csgcdite.csg_vlu-(csgcdite.csg_vlu*csgcdite.csg_dsc/100)),2),12,2),;
- Str(csgcdite.csg_qtd,6),;
- Clientes_csg.Cli_nome,;
- Clientes_csg.Cli_cgccpf,;
- ConverteDados(produtosaux.pro_custo),;
- "99")
- xtotal = xtotal + Round(csgcdite.csg_qtd*(csgcdite.csg_vlu-(csgcdite.csg_vlu*csgcdite.csg_dsc/100)),2)
- xqtd = xqtd + csgcdite.csg_qtd
- Skip
- Enddo
- Insert Into X_mapa(udatac,endere,bairro);
- VALUES ("TOTAL:", Str(xtotal,12,2),Str(xqtd,6))
- xtotal = 0
- xqtd = 0
- original = Sys(5)+Sys(2003)
- Set Default To Sys(5)+"\sistemas\planilhas"
- drv = Putfile("Gravar", "mapaAcerto", "xls")
- Set Defa To &original
- If !Empty(drv)
- Erro = .F.
- Select X_mapa
- Export To (drv) For !Eof() Type Xl5
- loexcel=Createobject("Excel.application")
- With loexcel.Application
- .Visible = .F.
- .workbooks.Open(drv)
- lcCliFor = Iif(informacao[1, 21] = 1, 'CLIENTE :', 'FORNECEDOR :')
- .Cells(1,1).Value = 'MAPA DE CONSIGNAÇÕES DO ' + lcCliFor
- For m_i = 2 To 15
- .Cells(1,m_i).Value = ''
- Endfor
- .Cells(3,1).Value = csgcdcab.cli_nome
- For m_i = 2 To 4
- .Cells(3,m_i).Value = ''
- Endfor
- .Rows(6).Insert
- .Cells(6,1).Value = informacao [1,1]
- For m_i = 2 To 15
- .Cells(6,m_i).Value = ''
- Endfor
- .Rows(7).Insert
- .Cells(5,7).Value = "Vendedor(a):"
- .Cells(5,8).Value = CLIENTES_CSG.FUN_NOME
- .Rows(6).Insert
- For m_i = 1 To 10
- .Cells(4,m_i).Value = ''
- Endfor
- .Cells.Select
- .Selection.Columns.AutoFit
- .Selection.Font.Name = "Arial"
- .Selection.Font.Size = 8
- letra1 = 'b'
- letra2 = 'b'
- .Range("&LETRA1:&letra2").Select
- .Selection.HorizontalAlignment = 3
- letra1 = 'a1'
- letra2 = 'a3'
- .Range("&LETRA1:&letra2").Select
- .Selection.Font.Size = 10
- .Selection.Font.bold = .T.
- letra1 = 'c'
- letra2 = 'E'
- .Range("&LETRA1:&letra2").Select
- .Selection.HorizontalAlignment = 4
- .Columns("a:a").ColumnWidth = 50.00
- .Columns("h:h").ColumnWidth = 13.71
- .Rows(9).HorizontalAlignment = 3
- .Rows(5).HorizontalAlignment = 2
- .Rows(2).Font.bold = .T.
- Go Top
- contador = 1
- x_linha = 0
- Do While !Eof()
- If Upper(Alltrim(X_mapa.fone)) = "PRODUTO"
- x_linha = contador
- .Rows(x_linha+2).Font.bold = .T.
- .Rows(x_linha+2).Font.Size = 10
- .Rows(x_linha+4).Font.bold = .T.
- .Rows(x_linha).Font.bold = .T.
- letra1 = 'A'+ Alltrim(Str(contador-4))
- letra2 = 'i' + Alltrim(Str(x_linha+4))
- .Range("&LETRA1:&letra2").Select
- .Selection.BorderS(9).weight = 2
- .Selection.BorderS(7).weight = 2
- .Selection.BorderS(10).weight = 2
- .Selection.BorderS(4).weight = 2
- .Selection.BorderS(3).weight = 2
- letra1 = 'g'+ Alltrim(Str(contador-3))
- letra2 = 'H' + Alltrim(Str(x_linha-2))
- .Range("&LETRA1:&letra2").Select
- .Selection.BorderS(1).weight = 2
- .Selection.BorderS(2).weight = 2
- letra1 = 'g'+ Alltrim(Str(contador))
- letra2 = 'i' + Alltrim(Str(x_linha))
- .Range("&LETRA1:&letra2").Select
- .Selection.BorderS(7).weight = 2
- Endif
- If Empty(X_mapa.fone) .And. !Empty(X_mapa.udatac)
- xcont = contador
- .Rows(xcont+4).Font.bold = .T.
- letra1 = 'a'+ Alltrim(Str(contador))
- letra2 = 'i' + Alltrim(Str(xcont+3))
- .Range("&LETRA1:&LETRA2").Select
- .Selection.BorderS(9).weight = 2
- letra1 = 'D'+ Alltrim(Str(contador-1))
- letra2 = 'i' + Alltrim(Str(xcont+4))
- .Range("&LETRA1:&LETRA2").Select
- .Selection.BorderS(9).weight = 2
- letra1 = 'D'+ Alltrim(Str(x_linha+5))
- letra2 = 'i' + Alltrim(Str(xcont+4))
- .Range("&LETRA1:&LETRA2").Select
- .Selection.BorderS(1).weight = 2
- .Selection.BorderS(2).weight = 2
- letra1 = 'A'+ Alltrim(Str(x_linha+5))
- letra2 = 'B' + Alltrim(Str(xcont+3))
- .Range("&LETRA1:&LETRA2").Select
- .Selection.BorderS(1).weight = 2
- .Selection.BorderS(2).weight = 2
- Endif
- contador = contador +1
- Skip
- Enddo
- *inicio trabalho Mover Colunas.
- .Range("F9:F"+Alltrim(Str(xcont+3))).Select
- .Selection.Cut
- .Range("K9:K"+Alltrim(Str(xcont+3))).Select
- .Selection.Insert
- .Range("E9:E"+Alltrim(Str(xcont+3))).Select
- .Selection.Cut
- .Range("N9:N"+Alltrim(Str(xcont+3))).Select
- .Selection.Insert
- .Range("B9:B"+Alltrim(Str(xcont+3))).Select
- .Selection.Cut
- .Range("A9:A"+Alltrim(Str(xcont+3))).Select
- .Selection.Insert
- .Range("B9:B"+Alltrim(Str(xcont+3))).Select
- .Range("S10:S"+Alltrim(Str(xcont+3))).Select
- .Selection.Cut
- .Range("C10:C"+Alltrim(Str(xcont+3))).Select
- .Selection.Insert
- .Range("T10:T"+Alltrim(Str(xcont+3))).Select
- .Selection.Cut
- .Range("D10:D"+Alltrim(Str(xcont+3))).Select
- .Selection.Insert
- .Range("F10:F"+Alltrim(Str(xcont+3))).Select
- .Selection.Cut
- .Range("E10:E"+Alltrim(Str(xcont+3))).Select
- .Selection.Insert
- .Range("U10:U"+Alltrim(Str(xcont+3))).Select
- .Selection.Cut
- .Range("F10:F"+Alltrim(Str(xcont+3))).Select
- .Selection.Insert
- .Range("L10:L"+Alltrim(Str(xcont+3))).Select
- .Selection.Cut
- .Range("E10:E"+Alltrim(Str(xcont+3))).Select
- .Selection.Insert
- .Range("P10:P"+Alltrim(Str(xcont+3))).Select
- .Selection.Cut
- .Range("G10:G"+Alltrim(Str(xcont+3))).Select
- .Selection.Insert
- .Range("H10:H"+Alltrim(Str(xcont+3))).Select
- .Selection.Cut
- .Range("F10:F"+Alltrim(Str(xcont+3))).Select
- .Selection.Insert
- .Range("H9:V"+Alltrim(Str(xcont+3))).Select
- .Selection.Delete
- .Selection.ClearContents
- .Range("N1:W"+Alltrim(Str(xcont+3))).Select
- .Selection.Delete
- .Selection.ClearContents
- *set step on
- .Range("A9:W"+Alltrim(Str(xcont+3))).Select
- .Selection.Columns.AutoFit
- *Fim trabalho Mover Colunas.
- *Renomear Cabecalhos.
- .Cells(9,1).Value = 'ISBN'
- .Cells(9,2).Value = 'PRODUTO'
- .Cells(9,3).Value = 'CLIENTE'
- .Cells(9,4).Value = 'CNPJ'
- .Cells(9,5).Value = 'QTD CSG'
- .Cells(9,6).Value = 'PREÇO CUSTO'
- .Cells(9,7).Value = 'TOTAL'
- .Range("A10:G"+Alltrim(Str(xcont+3))).Select
- .Selection.Font.Name = "Arial"
- .Selection.Font.Size = 8
- .Selection.Font.bold = .F.
- .Selection.BorderS(9).weight = 2
- .Selection.BorderS(7).weight = 2
- .Selection.BorderS(10).weight = 2
- .Selection.BorderS(4).weight = 2
- .Selection.BorderS(3).weight = 2
- .ActiveWorkbook.Save
- .workbooks.Close
- Endwith
- Rele loexcel
- = Messagebox('Planilha gerada com sucesso!', 0 + 32, 'Aviso')
- Endif
- fecha_tabela("produtosAUX")
- Select (xalias)
- Set Order To (xord)
- If !Empty(rec)
- Go rec
- Endif
- Endif
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement