mmousinho

Vou tentar valeu

Bom dia.Estou com um probleminha que não estou conseguindo resolver.Tenho dois DBGrids onde no 'Dbgrid1' coloco as contas e no 'Dbgrid2' as parcelas das mesmas e desta forma atualizo as cores conforme baixa nas contas e parcelas.Digamos que para o 'Dbgrid1' uso o DM.qcontasareceber e no 'Dbgrid2' uso o DM.qparcelasR.Preciso que as contas vencendo no dia atual fiquem conforme abaixo. //A Pagar Hoje else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value = date) then begin DBGrid1.Canvas.Brush.Color := clGray; DBGrid1.Canvas.Font.Color := clBlack; end porém preciso puxar mais um campo para validação do DM.qparcelasR mais ou menos assim //A Pagar Hoje else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value = date) and (dm.qparcelas_RContaFinalizada.Value = 'Não') then begin DBGrid1.Canvas.Brush.Color := clGray; DBGrid1.Canvas.Font.Color := clBlack; end porém quando coloco desta forma acima não muda a cor do grid como se não reconhecesse o comando.Alguém pode me ajudar?Segue abaixo todo o código de pintura para quem interessar!!!Todos os demais códigos estão todos funcionando!!! procedure Tfrm_ContasAReceber.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin // Selecionado if (gdSelected in State) or (gdFocused in State) then Begin DBGrid1.Canvas.Brush.Color := clBlue; DBGrid1.Canvas.Font.Color := clWhite; End // Sem gerar Parcela Else if (dm.qcontasreceberESTATUS.Value = 'QUITADO') and (dm.qContasreceberULTIMAPARCELA.Value = 0) then begin DBGrid1.Canvas.Brush.Color := clBlack; DBGrid1.Canvas.Font.Color := clWhite; end // Pago Else if (dm.qContasreceberESTATUS.Value = 'QUITADO') then begin DBGrid1.Canvas.Brush.Color := clYellow; DBGrid1.Canvas.Font.Color := clBlack; end //A Pagar Hoje else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value = date) then begin DBGrid1.Canvas.Brush.Color := clGray; DBGrid1.Canvas.Font.Color := clBlack; end // Vencida else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value < date) and (dm.qcontasreceberESTATUS.Value = 'PENDENTE') then begin DBGrid1.Canvas.Brush.Color := clRed; DBGrid1.Canvas.Font.Color := clWhite; end // A Pagar else if (dm.qContasreceberPROXIMOPAGAMENTO.Value > date)and (dm.qcontasreceberESTATUS.Value = 'PENDENTE') then begin DBGrid1.Canvas.Brush.Color := clGreen; DBGrid1.Canvas.Font.Color := clWhite; end; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;

Pessoal, consegui resolver aqui!!! Montei uma SQL para atualizar com um c o campo fantasma que já havia na segunda tabela (DataRecebimento), este campo se tornou a data da ultima parcela com o comando MAX() de acordo com ID e IDCONTA. Segue o código: procedure Tfrm_ContasAPagar.BitBtn_GerarParcaela_MovClick(Sender: TObject); var qend, qend1 : TZQuery; LongintVar, i : Integer; LongintVar2, i2 : Integer; DataConta : TDate; DataUltParcela : TDate; begin qend := TZQuery.Create(nil); qend.Connection := dm.Conect; qend1 := TZQuery.Create(nil); qend1.Connection := dm.Conect; qend.SQL.Clear; qend.SQL.Add(' SELECT ID, CENTRODECUSTO, VALORTOTAL '+#10+ ' FROM CONTAS_A_PAGAR WHERE ID = '''+ dm.qContasaPagar.FieldByName('id').asstring +''' '); qend.Open; qend1.SQL.Clear; qend1.SQL.Add('SELECT IDCONTA FROM CONTAS_A_PAGAR_DETALHE '+ 'WHERE IDCONTA = '''+ qend.FieldByName('ID').AsString +''' '); qend1.Open; LongintVar := StrToInt(edt_QtdParcelas_CP.Text); DataConta := StrToDate(edt_Data_CP.text); try if qend1.RecordCount > 0 then begin Messagedlg('As Parcelas Já Foram Geradas Anteriormente!',mtinformation,[mbok],0); exit; end else begin LongintVar := StrToInt(edt_QtdParcelas_CP.Text); for I := 1 to LongintVar do begin qend1.SQL.Clear; qend1.SQL.Add(' INSERT INTO CONTAS_A_PAGAR_DETALHE '+#10+ ' (CENTRODECUSTO, IDCONTA, VALOR, JUROS, '+#10+ ' DESCONTOS, DATAVENCIMENTO, PARCELA, VALORDEVEDOR) '); qend1.SQL.Add(' VALUES '); qend1.SQL.Add(' (:P1, :P2, :P3, :P4, :P5, :P6, :P7, :P8) '); qend1.ParamByName('P1').asString := qend.FieldByName('CENTRODECUSTO').asString; qend1.ParamByName('P2').asString := qend.FieldByName('ID').asString; qend1.ParamByName('P3').AsCurrency := qend.FieldByName('VALORTOTAL').Value / LongintVar; qend1.ParamByName('P4').asString := '0'; qend1.ParamByName('P5').asString := '0'; if LongintVar = 1 then begin qend1.ParamByName('P6').asDate := DataConta; end else qend1.ParamByName('P6').asDate := incMonth(DataConta, i-1); qend1.ParamByName('P7').AsString := IntToStr(i)+'/'+ IntToStr(LongintVar); qend1.ParamByName('P8').AsCurrency := qend.FieldByName('VALORTOTAL').Value / LongintVar; qend1.ExecSQL; end; end; except On E: Exception do raise Exception.Create(E.Message); end; if LongintVar = 1 then begin ShowMessage('Foi Gerada ' + IntToStr(LongintVar) + ' Parcela com Sucesso'); BitBtn_PesquisarCP.Click; end else ShowMessage('Foram Geradas ' + IntToStr(LongintVar) + ' Parcela(s) com Sucesso'); BitBtn_PesquisarCP.Click; end;

Obrigado.

Vou tentar man...Desde já agradeço. O que acha de fazer um Trigger direto no mysql?

Não deu certo man, poderia fazer um exemplo com meus codigos para eu ver se estou fazendo errado?

Amigo, sou meio leigo no delphi ainda por isso não entendi bem o que fazer. LongintVar2 := StrToInt(edt_QtdParcelas_CP.Text); for I2 := 1 to LongintVar do qend.SQL.Clear; qend.SQL.Add(' UPDATE CONTAS_A_PAGAR '); qend.SQL.Add(' SET DATAVULTPARCELA = :CP1 '); qend.SQL.Add(' WHERE ID = :IDCONTA '); qend.ParamByName('IDCONTA').AsInteger := dm.qparcelasIDConta.Value; qend.ParamByName('CP1').AsDate := incMonth(DataConta, i2); qend.ExecSQL; Mais mudei o código e já verifiquei as tabelas e estão corretas...neste momento não esta dando erro, porém a segunda tabela que é a variável "qend" no campo "DATAVULTPARCELA" não esta atualizando após o processo.

Ele da erro "Not Found IDCONTA " mais esta correto o nome e a tabela a primeira parte esta funcionando com este nome. Segue o erro em anexo para você olhar man .

Boa noite pessoal, estou quebrando a cabeça em uma questão aqui faz dois dias, já pesquisei em vários Fóruns e vídeo aulas mais sem sucesso.O Problema é o Seguinte.Tenho duas tabelas (contas_a_pagar) e (conta_a_pagar detalhes), em uma delas tenho um atualizo via "FORM" as contas com valores total da mesma, na outra atualizo "Botão Gerar Parcelas" e utilizo para gerar as parcelas.A Parte 1 que uso para gerar parcelas e inserir na minha tabela "contas_a_pagar_detalhe" esta funcionando normalmente e usei o comando abaixo: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 procedure Tfrm_ContasAPagar.BitBtn_GerarParcaela_MovClick(Sender: TObject); var qend, qend1 : TZQuery; LongintVar, i : Integer; DataConta : TDate; DataUltParcela : TDate; begin qend := TZQuery.Create(nil); qend.Connection := dm.Conect; qend1 := TZQuery.Create(nil); qend1.Connection := dm.Conect; qend.SQL.Clear; qend.SQL.Add(' SELECT ID, CENTRODECUSTO, VALORTOTAL '+#10+ ' FROM CONTAS_A_PAGAR WHERE ID = '''+ dm.qContasaPagar.FieldByName('id').asstring +''' '); qend.Open; qend1.SQL.Clear; qend1.SQL.Add('SELECT IDCONTA FROM CONTAS_A_PAGAR_DETALHE '+ 'WHERE IDCONTA = '''+ qend.FieldByName('ID').AsString +''' '); qend1.Open; LongintVar := StrToInt(edt_QtdParcelas_CP.Text); DataConta := StrToDate(edt_Data_CP.text); try if LongintVar = 1 then begin Messagedlg('Este Pagamento não tem Parcelas a Ser Geradas!',mtinformation,[mbok],0); exit; end else if qend1.RecordCount > 0 then begin Messagedlg('As Parcelas Já Foram Geradas Anteriormente!',mtinformation,[mbok],0); exit; end else begin LongintVar := StrToInt(edt_QtdParcelas_CP.Text); for I := 1 to LongintVar do begin qend1.SQL.Clear; qend1.SQL.Add(' INSERT INTO CONTAS_A_PAGAR_DETALHE '+#10+ ' (CENTRODECUSTO, IDCONTA, VALOR, JUROS, '+#10+ ' DESCONTOS, DATAVENCIMENTO, PARCELA, VALORDEVEDOR) '); qend1.SQL.Add(' VALUES '); qend1.SQL.Add(' (:P1, :P2, :P3, :P4, :P5, :P6, :P7, :P8) '); qend1.ParamByName('P1').asString := qend.FieldByName('CENTRODECUSTO').asString; qend1.ParamByName('P2').asString := qend.FieldByName('ID').asString; qend1.ParamByName('P3').AsCurrency := qend.FieldByName('VALORTOTAL').Value / LongintVar; qend1.ParamByName('P4').asString := '0'; qend1.ParamByName('P5').asString := '0'; qend1.ParamByName('P6').asDate := incMonth(DataConta, i); qend1.ParamByName('P7').AsString := IntToStr(i)+'/'+ IntToStr(LongintVar); qend1.ParamByName('P8').AsCurrency := qend.FieldByName('VALORTOTAL').Value / LongintVar; qend1.ExecSQL; end; end; except On E: Exception do raise Exception.Create(E.Message); end; ShowMessage('Foram Geradas ' + IntToStr(LongintVar) + ' Parcela(s) com Sucesso'); end; A Segunda Parte que é para atualizar meu campo "DatavUltParcela" na minha tabela conforme a "contas_a_pagar" é que mora o problema.Segue o comando que estou usando para ela. 1 2 3 4 5 6 7 8 9 begin qend.SQL.Clear; qend.SQL.Add(' UPDATE CONTAS_A_PAGAR SET (DATAVULTPARCELA) '+#10+ ' WHERE ID = '''+ qend1.FieldByName('IDCONTA').AsString +''' '); qend.SQL.Add(' VALUES '); qend.SQL.Add(' (:CP1) '); qend.ParamByName('CP1').asDate := incMonth(DataConta, i); qend.ExecSQL; end; Será que estou fazendo algo de errado?Segue o código Completo do codigo: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 procedure Tfrm_ContasAPagar.BitBtn_GerarParcaela_MovClick(Sender: TObject); var qend, qend1 : TZQuery; LongintVar, i : Integer; DataConta : TDate; DataUltParcela : TDate; begin qend := TZQuery.Create(nil); qend.Connection := dm.Conect; qend1 := TZQuery.Create(nil); qend1.Connection := dm.Conect; qend.SQL.Clear; qend.SQL.Add(' SELECT ID, CENTRODECUSTO, VALORTOTAL '+#10+ ' FROM CONTAS_A_PAGAR WHERE ID = '''+ dm.qContasaPagar.FieldByName('id').asstring +''' '); qend.Open; qend1.SQL.Clear; qend1.SQL.Add('SELECT IDCONTA FROM CONTAS_A_PAGAR_DETALHE '+ 'WHERE IDCONTA = '''+ qend.FieldByName('ID').AsString +''' '); qend1.Open; LongintVar := StrToInt(edt_QtdParcelas_CP.Text); DataConta := StrToDate(edt_Data_CP.text); try if LongintVar = 1 then begin Messagedlg('Este Pagamento não tem Parcelas a Ser Geradas!',mtinformation,[mbok],0); exit; end else if qend1.RecordCount > 0 then begin Messagedlg('As Parcelas Já Foram Geradas Anteriormente!',mtinformation,[mbok],0); exit; end else begin LongintVar := StrToInt(edt_QtdParcelas_CP.Text); for I := 1 to LongintVar do begin qend1.SQL.Clear; qend1.SQL.Add(' INSERT INTO CONTAS_A_PAGAR_DETALHE '+#10+ ' (CENTRODECUSTO, IDCONTA, VALOR, JUROS, '+#10+ ' DESCONTOS, DATAVENCIMENTO, PARCELA, VALORDEVEDOR) '); qend1.SQL.Add(' VALUES '); qend1.SQL.Add(' (:P1, :P2, :P3, :P4, :P5, :P6, :P7, :P8) '); qend1.ParamByName('P1').asString := qend.FieldByName('CENTRODECUSTO').asString; qend1.ParamByName('P2').asString := qend.FieldByName('ID').asString; qend1.ParamByName('P3').AsCurrency := qend.FieldByName('VALORTOTAL').Value / LongintVar; qend1.ParamByName('P4').asString := '0'; qend1.ParamByName('P5').asString := '0'; qend1.ParamByName('P6').asDate := incMonth(DataConta, i); qend1.ParamByName('P7').AsString := IntToStr(i)+'/'+ IntToStr(LongintVar); qend1.ParamByName('P8').AsCurrency := qend.FieldByName('VALORTOTAL').Value / LongintVar; qend1.ExecSQL; end; begin LongintVar := StrToInt(edt_QtdParcelas_CP.Text); for I := 1 to LongintVar do begin qend.SQL.Clear; qend.SQL.Add(' UPDATE CONTAS_A_PAGAR SET (DATAVULTPARCELA) '+#10+ ' WHERE ID = '''+ qend1.FieldByName('IDCONTA').AsString +''' '); qend.SQL.Add(' VALUES '); qend.SQL.Add(' (:CP1) '); qend.ParamByName('CP1').asDate := incMonth(DataConta, i); qend.ExecSQL; end; end; end; except On E: Exception do raise Exception.Create(E.Message); end; ShowMessage('Foram Geradas ' + IntToStr(LongintVar) + ' Parcela(s) com Sucesso'); end; Estou trabalhando com banco de dados Mysql.Será que estou colocando a segunda parte no lugar errado? Falta algo? ou o Procedimento é errado?Alguém pode me ajudar por favor?Estou iniciando meus trabalhos com Delphi Tokio 10.2 e ainda sou um pouco leigo no assunto!!!Desde já agradeço a todos que ajudarem ou pelo menos tentarem.

Boa noite amigo, Obrigado de imediato, porém já tinha procurado na internet e já tinha passado por estes links. mais obrigado mesmo assim. Mais alguém tem uma ideia?

Boa noite pessoal...Gostaria de uma ajuda... eu estou com um projeto onde estou fazendo uma especie de estrato bancário onde os valores dele fica um embaixo do outro.Imagine que este é o relatório.ID DATA HORARIO CENTRO DE CUSTO HISTORICO TIPO VALOR1 16/08/2018 10:00 EMPRESA TESTE1 DEBITO -R$ 100,002 16/08/2018 12:34 EMPRESA TESTE2 CREDITO R$ 200,003 17/08/2018 12:45 EMPRESA TESTE2 CREDITO R$ 130,004 17/08/2018 12:56 EMPRESA TESTE3 CREDITO R$ 140,005 18/08/2018 12:09 EMPRESA TESTE1 DEBITO -R$ 160,00TOTAL CREDITO (?) TOTAL DEBITO(?) TOTAL CREDITO (Já está funcionando este campo de cálculo).Deste forma, Preciso colocar os campos negativos em vermelho e positivos em azul e também preciso de algum comando que posso usar no fortes report que calcule o que teve de crédito e débito de acordo com o valor (Positivo ou negativo), ou de acordo com o campo "TIPO" (Crédito e Débito), alguém pode me ajudar?Banco de dados Mysql, Relatório Fortes Reportes, Campo (Valor) ou (TIPO) de é a origem do cálculo é um TRLDBText.Desde já agradeço.

Alguém consegue me ajudar ?

Bom dia pessoal, sou novo em PHP e gostaria de uma ajuda, estou adapitando um layout no meu painel php e agostaria de colocar o usuário logado nele de acordo com o login que foi utilizado para logar no sistema. Segue abaixo os códigos de validação... <?php error_reporting (E_ALL & ~ E_NOTICE & ~ E_DEPRECATED);require_once('Connections/config.php'); ?> <?php if (!function_exists("GetSQLValueString")) { function GetSQLValueString($theValue, $theType, $theDefinedValue = "", $theNotDefinedValue = "") { if (PHP_VERSION < 6) { $theValue = get_magic_quotes_gpc() ? stripslashes($theValue) : $theValue; } $theValue = function_exists("mysql_real_escape_string") ? mysql_real_escape_string($theValue) : mysql_escape_string($theValue); switch ($theType) { case "text": $theValue = ($theValue != "") ? "'" . $theValue . "'" : "NULL"; break; case "long": case "int": $theValue = ($theValue != "") ? intval($theValue) : "NULL"; break; case "double": $theValue = ($theValue != "") ? doubleval($theValue) : "NULL"; break; case "date": $theValue = ($theValue != "") ? "'" . $theValue . "'" : "NULL"; break; case "defined": $theValue = ($theValue != "") ? $theDefinedValue : $theNotDefinedValue; break; } return $theValue; } } ?> <?php // *** Validate request to login to this site. if (!isset($_SESSION)) { session_start(); } $loginFormAction = $_SERVER['PHP_SELF']; if (isset($_GET['accesscheck'])) { $_SESSION['PrevUrl'] = $_GET['accesscheck']; } if (isset($_POST['Login'])) { $loginUsername=$_POST['Login']; $password=$_POST['Senha:']; $MM_fldUserAuthorization = ""; $MM_redirectLoginSuccess = "painel.php"; $MM_redirectLoginFailed = "erro.php"; $MM_redirecttoReferrer = false; mysql_select_db($database_config, $config); $LoginRS__query=sprintf("SELECT Login, Senha FROM `usuário` WHERE Login=%s AND Senha=%s", GetSQLValueString($loginUsername, "text"), GetSQLValueString($password, "text")); $LoginRS = mysql_query($LoginRS__query, $config) or die(mysql_error()); $loginFoundUser = mysql_num_rows($LoginRS); if ($loginFoundUser) { $loginStrGroup = ""; if (PHP_VERSION >= 5.1) {session_regenerate_id(true);} else {session_regenerate_id();} //declare two session variables and assign them $_SESSION['MM_Username'] = $loginUsername; $_SESSION['MM_UserGroup'] = $loginStrGroup; if (isset($_SESSION['PrevUrl']) && false) { $MM_redirectLoginSuccess = $_SESSION['PrevUrl']; } header("Location: " . $MM_redirectLoginSuccess ); } else { header("Location: ". $MM_redirectLoginFailed ); } } ?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Login de Sistema MM</title> <link href="css/style.css" rel="stylesheet" type="text/css" /> <style type="text/css"> </style> </head> <body> <center> <div id='conteudologinsistema'> <table align="center" width="167" height="200" border="0"> <tr> <th width="161" height="190" scope="col"> <br><br><br> <h6 style="font-size: 55px">SisWebMM</h6> </th> </tr> </table> <table align="center" width="351" height="200" border="0"> <tr> <td align="center" bgcolor="#FFFFFF"><form id="form1" name="form1" method="POST" action="<?php echo $loginFormAction; ?>"> <table width="351" border="0"> <tr> <td align="center" style="font-size: 12px"> <span>Entre com usuário e senha</span><br><br></td> </tr> <td align="center" colspan="3"><label for="Login"></label> <input style="color:#000"; type="text" name="Login" placeholder="Usuário" onfocus="if (this.value=='Usuário') this.value='';" onblur="if (this.value=='') this.value='Usuário'"id="Usuário:" maxlength="20" size="25" class="figurasemail" /></td> </td> </tr><br> <tr> <td align="center" colspan="3"><label for="Senha:"></label> <input style="color:#000" type="password" name="Senha:" placeholder="Senha" onfocus="if (this.value=='Senha') this.value='';" onblur="if (this.value=='') this.value='Senha'"id="Senha:" maxlength="8" size="25" class="figurassenha" /></form></td> </tr> <br /> <tr> <td height="65" colspan="4" align="center" valign="bottom"><br /> <input type = "submit" name = "nome" value = "Entrar" p style = "color: black; cursor: pointer; background-color: white; font-size: 20px; font-weight: bold; width: 200; height: 145; font-family: verdana; border: 1px dotted #000000;"/> <div id="menu"> <ul> <li><a href="index.php">Ir para o site</a></li> </ul> </div> </tr> </td> </tr> </table> </div> </center> </body> </html> E em outra pagina já do painel eu tenho uma área que gostaria de colocar o usuário conforme código abaixo. <a href="#" class="dropdown-toggle" data-toggle="dropdown"> <span class="hidden-xs"> <!--Aparecer o nome do usuário logado??? --> </span> </a> Desde já agradeço a compreenção e ajuda de todos.

Denunciar post #1 Postado 1 minuto Boa tarde pessoal, sou novo em programação e tenho um site no qual eu mesmo desenvolvi (mmtransportesseguro.com.br) com ajuda no Dreamweaver. Preciso implementar um calculador de fretes no meu site, porém não sei como iniciar este projeto alguém poderia me ajudar? Não quero que seja por sedex e sim com os meus valores de frete. Desde já agradeço. Segue o código Padrão das minhas paginas e quero implementar entre elas. <!doctype html> <html> <head> <meta charset='utf-8'> <meta name='viewport' content="width=device-whidt, intial-scale=1"> <meta name="Description" content="Transportes Coletas e Express"> <meta name="author" content="Marcelo Mousinho"> <link rel="icon" href='imagens/Sem Título-1.png'> <title>MM Transportes</title> <link href='css/style.css' rel='stylesheet'> </head> <?php include'scripts.php';?> <body> <div id="fb-root"></div> <script>(function(d, s, id) { var js, fjs = d.getElementsByTagName(s)[0]; if (d.getElementById(id)) return; js = d.createElement(s); js.id = id; js.src = "//connect.facebook.net/pt_BR/sdk.js#xfbml=1&version=v2.9&appId=292809827775992"; fjs.parentNode.insertBefore(js, fjs); }(document, 'script', 'facebook-jssdk'));</script> <div id='conteudo'> <div id='topo'> <div id='banner'> <div class="bannermmnovo"></div> </div> </div> <div id='menu'> <ul> <li><a href='index.php'>Inicio</a></li> <li><a href='servicos.php'>Serviços</a> <ul> <li><a href="#">Express</a></li> <li><a href="#">Coletas</a></li> <li><a href="#">Porta a Porta</a></li> <li><a href="#">Transportes</a></li> </ul> </li> <li><a href="#">Sobre nós</a></li> <li><a href="#">Clientes</a></li> <li><a href="#">Contatos</a></li> <li><a href="#">Apresentação</a></li> <li><a href="#">Trabalhe conosco</a> <ul> <li><a href="#">Candidatos</a></li> </ul> </li> </ul> </div> <div id='carrossel'> <ul> <li><img src='imagens/courriercarrossel2.jpg'</li> <li><img src='imagens/transportescarrossel.jpg'</li> <li><img src='imagens/portaaportacarrosselfiorino.jpg'</li> </ul> </div> <div id='conteudomeio'> <div class='colunas'> <div class='titulocoluna'> <ul> <li>Titulo</li> </ul> </div> <div id='acessocoluna' style="color: #FFFFFF; text-align: left; margin-top: auto;"> Acesso </div> <div id='linkscoluna'> <ul> <li><a href="#">Serviços</a></li><br> <li><a href="#">Sobre nós</a></li><br> <li><a href="#">Clientes</a></p></li><br> <li><a href="#">Contratos</a></li><br> <li><a href="#">Apresentação</a></li><br> <li><a href="#">Trabalhe conosco</a></li><br> <li><a href="#">Candidatos</a></li><br> <li><a href="#">Express</a></li><br> <li><a href="#">Coletas</a></li><br> <li><a href="#">Porta a Porta</a></li><br> <li><a href="#">Transportes</a></li> </ul> </div> </div> <div class='titulocoluna'> <ul> <li>Calcula Frete</li> </ul> </div> <div id="colunadocnovo"> </div> <br> <div id="colunadocnovo"> </div> <br> <div id="colunadocnovo"> </div> <div id='conteudoinferior'> <div id='colunainferior'> <div id='titulocolunainferior' style="font-size: 120%"> Curta nossa página no facebook. </div> <div id='espacoface'> <div class="fb-page" data-href="https://www.facebook.com/MM-Transportes-890278471033191/?ref=bookmarks" data-tabs="eventos" data-width="356" data-height="245" data-small-header="false" data-adapt-container-width="true" data-hide-cover="false" data-show-facepile="false"><blockquote cite="https://www.facebook.com/MM-Transportes-890278471033191/?ref=bookmarks" class="fb-xfbml-parse-ignore"><a href="https://www.facebook.com/MM-Transportes-890278471033191/?ref=bookmarks">MM Transportes</a></blockquote></div> </div> </div> </div> <div id='rodape' style="text-align: left; color: #FFFFFF;"> <ul> <li> Site desenvolvido e administrado por MM Transportes </li> </ul> </div> </div> </body> </html>

Pessoal? me ajudem por favor??