Ir para conteúdo
Fórum Script Brasil

Rodrigo Hoffmann

Membros
  • Total de itens

    46
  • Registro em

  • Última visita

Sobre Rodrigo Hoffmann

Rodrigo Hoffmann's Achievements

0

Reputação

  1. Sim, trabalho apenas com ADP, é muito engraçado, não sei se talvez falte algum recurso habilitar no sql server, mas uso muito o sql server 7 com access 2000 e tudo é normal, mesmo agora estou usando o sql server 2003, e as stored que crio no sql não aparecem no access, fiz a conexao access no sql tudo normal, e as tabelas, views, tudo aparece, não consigo resolver este problema.
  2. Olá Galera Preciso de ajuda, uso o access para programar a um bom tempo, mas estou fazendo um sistema via ADP ligado com BD Sql Server 2003, e as stored que crio não aparece no access, tabelas, views, tudo certo, menos storeds, preciso acionar algo, li que devo usar o Access 2007, aguardo ajuda
  3. Olá Pessoal Tenho um problema que não estou conseguindo resolver Preciso de 3 select, cada um tem if else para ver o valor caso for TODOS faz select normal e caso for diferente de TODOS faz um WHERE no SELECT até ai tudo bem, mas não estou conseguir é atualizar um combo assim que da onchange no primeiro select, fiz via frame, até o segundo combo funcionou, mas acho que exista alguma forma para fazer isso tudo no mesma pagina segue o código Fiz 3 forms para os 3 combos, não sei se é necessario, sou leigo ainda em php. ?php $conexao = mssql_connect($host,$user,$pw) or die ("Falha de coneção!"); $banco = mssql_select_db($db,$conexao); //COMBO COLECAO $colecao = mssql_query("SELECT AmostrasItemColecao FROM WEB_COLECAO GROUP BY AmostrasItemColecao ORDER BY AmostrasItemColecao"); ?> <!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" /> <link href="css/buscaintrocss.css" rel="stylesheet" type="text/css" /> <style type="text/css"> body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } </style> </head> <body> <div id="bg"> <div id="tabela-tipo"> <table> <td width="200" style="background-image:url(img/faixa.png);font-family:'Palatino Linotype', 'Book Antiqua', Palatino, serif;font-size:17px;background-repeat:repeat-x;color:#FFF;padding-left:10px;">O que você procura?</td><tr> </table> <table width="200px" height="182"> <td style="font-family:Verdana, Geneva, sans-serif;font-size:10px;">COLEÇÃO</td><tr> <td> <form name="colecao" method="get"> <select style="font-family:Verdana, Geneva, sans-serif;font-size:13px;" name="colecao" onchange="document.linha.reload();"> <? while($ccolecao = mssql_fetch_array($colecao)) { ?><option><?= $ccolecao['AmostrasItemColecao'] ?></option><? } ?> <option selected=selected">SELECIONAR TODOS</option> </select> </form> </td> <tr> <td style="font-family:Verdana, Geneva, sans-serif;font-size:10px;">LINHA</td><tr> <td> <form name="linha"> <select style="font-family:Verdana, Geneva, sans-serif;font-size:13px;" name="linha"> <? $colecao = $_GET['colecao]; if ($colecao <> "SELECIONAR TODOS") {$linha = mssql_query("SELECT AmostrasItemLinha FROM WEB_COLECAO WHERE AmostrasItemColecao = '$colecao' GROUP BY AmostrasItemLinha ORDER BY AmostrasItemLinha");} else {$linha = mssql_query("SELECT AmostrasItemLinha FROM WEB_COLECAO GROUP BY AmostrasItemLinha ORDER BY AmostrasItemLinha");} while($clinha = mssql_fetch_array($linha)) { ?><option><?= $clinha['AmostrasItemLinha'] ?></option><? } ?> <option selected=selected">SELECIONAR TODOS</option> </select> </form> </td><tr> <td style="font-family:Verdana, Geneva, sans-serif;font-size:10px;">TIPO</td><tr> <td> <form name="tipo"> <select style="font-family:Verdana, Geneva, sans-serif;font-size:13px;" name="tipo"> <? $linha = $_GET['linha]; //COMBO TIPO if ($linha <> "SELECIONAR TODOS") {$tipo = mssql_query("SELECT Tipo FROM WEB_COLECAO WHERE AmostrasItemLinha ='$linha' GROUP BY Tipo ORDER BY Tipo");} else {$tipo = mssql_query("SELECT Tipo FROM WEB_COLECAO GROUP BY Tipo ORDER BY Tipo");} while($ctipo = mssql_fetch_array($tipo)) { ?><option><?= $ctipo['Tipo'] ?></option><? } ?> <option selected="selected">SELECIONAR TODOS</option> </select> </form> </td> <tr> <td> <input type="image" name="busca" src="img/button/buscar.png" width="98" height="40" onmouseover="this.src='img/button/buscar1.png'" onmouseout="this.src='img/button/buscar.png'" /> </table> </div> </div> </body> </html>
  4. Olá Estou com esse problema em vba alguém consegue me ajudar por favor Dim cnn As ADODB.Connection Dim CMD As ADODB.Command Dim Prm As New ADODB.Parameter Dim rst As ADODB.Recordset Set rst = CreateObject("ADODB.Recordset") Set cnn = CurrentProject.Connection Set CMD = New ADODB.Command Set CMD.ActiveConnection = cnn CMD.CommandText = "dbo.[Formulario Subformulario PRD_PRE_PEDIDO_CHECK_CONSUMO]" CMD.CommandType = adCmdStoredProc Set Prm = CMD.CreateParameter("@Referencia", adInteger, adParamInput, , Nz(Me.ReferenciaCodigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@MATERIAL", adInteger, adParamInput, , Nz(Me.MaterialCodigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material1", adInteger, adParamInput, , Nz(Me.MaterialNivel1Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material2", adInteger, adParamInput, , Nz(Me.MaterialNivel2Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material3", adInteger, adParamInput, , Nz(Me.MaterialNivel3Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material4", adInteger, adParamInput, , Nz(Me.MaterialNivel4Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material5", adInteger, adParamInput, , Nz(Me.MaterialNivel5Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material6", adInteger, adParamInput, , Nz(Me.MaterialNivel6Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material7", adInteger, adParamInput, , Nz(Me.MaterialNivel7Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material8", adInteger, adParamInput, , Nz(Me.MaterialNivel8Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material9", adInteger, adParamInput, , Nz(Me.MaterialNivel9Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Cor", adInteger, adParamInput, , Nz(Me.ProdutoNivel5, Null)) CMD.Parameters.Append Prm Set rst = CMD.Execute If rst.EOF Then MsgBox "SEM CONSUMO", vbOKOnly End If O erro que dá é: OPERAÇÃO NÃO PERMITIDA QUANDO OBJETO ESTA FECHADO
  5. Olá Tenho um problema. Fiz uma stored com 10 parametros em sql server e via vba access queria se comunicar com ela num formulario folha de dados, nele eu tenho 10 campos, e precisaria que a cada vez que saisse do registro ele passava os valores dos 10 campos a stored e ele rodava e se não retorna-se nenhum resultado daria mensagem: "nenhum item encontrado Eu tentei fazer de duas maneiras mas sou meio nato nisso ainda Maneira 1 Dim cnn As ADODB.Connection Dim CMD As ADODB.Command Dim Prm As New ADODB.Parameter Dim rst As ADODB.Recordset Set cnn = CurrentProject.Connection Set CMD = New ADODB.Command Set CMD.ActiveConnection = cnn CMD.CommandText = "DBO.[Formulario Subformulario PRD_PRE_PEDIDO_CHECK_CONSUMO]" CMD.CommandType = adCmdStoredProc Set Prm = CMD.CreateParameter("@Referencia", adInteger, adParamInput, , Nz(Me.ReferenciaCodigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material", adInteger, adParamInput, , Nz(Me.MaterialCodigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material1", adInteger, adParamInput, , Nz(Me.MaterialNivel1Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material2", adInteger, adParamInput, , Nz(Me.MaterialNivel2Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material3", adInteger, adParamInput, , Nz(Me.MaterialNivel3Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material4", adInteger, adParamInput, , Nz(Me.MaterialNivel4Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material5", adInteger, adParamInput, , Nz(Me.MaterialNivel5Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material6", adInteger, adParamInput, , Nz(Me.MaterialNivel6Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material7", adInteger, adParamInput, , Nz(Me.MaterialNivel7Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material8", adInteger, adParamInput, , Nz(Me.MaterialNivel8Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Material9", adInteger, adParamInput, , Nz(Me.MaterialNivel9Codigo, Null)) CMD.Parameters.Append Prm Set Prm = CMD.CreateParameter("@Cor", adInteger, adParamInput, , Nz(Me.ProdutoNivel5, Null)) CMD.Parameters.Append Prm rst = CMD.Execute,,adOpenDynamic If rst.EOF Then MsgBox "ITEM SEM CONSUMO", vbOKOnly Else rst.Close End If End Sub maneira 2 Dim cnn As ADODB.Connection Dim CMD As ADODB.Command Dim rst As ADODB.Recordset Set cnn = CurrentProject.Connection Set CMD.ActiveConnection = cnn CMD.CommandText = "[Formulario Subformulario PRD_PRE_PEDIDO_CHECK_CONSUMO]" Set rst = CMD.Execute(, Nz(Me.ReferenciaCodigo, Null), Nz(Me.MaterialCodigo, Null), Nz(Me.MaterialNivel1Codigo, Null), Nz(Me.MaterialNivel2Codigo, Null), Nz(Me.MaterialNivel3Codigo, Null), Nz(Me.MaterialNivel4Codigo, Null), Nz(Me.MaterialNivel5Codigo, Null), Nz(Me.MaterialNivel6Codigo, Null), Nz(Me.MaterialNivel7Codigo, Null), Nz(Me.MaterialNivel8Codigo, Null), Nz(Me.MaterialNivel9Codigo, Null), Nz(Me.ProdutoNivel5, Null), adCmdStoredProc) Set CMD = Nothing If rst.EOF Then MsgBox "ITEM SEM CONSUMO", vbOKOnly Else rst.Close End If Posso estar completamente errado ou talvez quase certo Mas aqui da erro Até mais
  6. Sim Mas quero que apareça no subform que já é ligado numa tabela
  7. Poisé já tentei isso e não funciona É que não estou com o formulario da empresa aberto quando uso o form da ordem de compra entende então na tabela da empresa não esta setado a empresa para que la o sub fique com os dados e possa então copiar estes dados
  8. Olá Estou com problemas para resolver isso Tenho dois subs SUB ORDEM DE COMPRA CONDICOES DE PAGAMENTO SUB EMPRESA CONDICOES No FORM EMPRESA eu cadastro as condições de pagamento no SUB EMPRESA CONDICOES ali possuo 5 colunas Gostaria que quando eu fosse no form ORDEM DE COMPRA, quando fizesse um cadastro novo e colocasse o nome da empresa, e entrasse no SUB ORDEM DE COMPRA CONDICOES DE PAGAMENTO já puxasse la do SUB EMPRESA CONDICOES as condições padroes Lembrando que os dois subs estão ligados em tabelas distintas, sem ligação nenhuma, acho que se fizer um select e colocar um paramentro pelo nome da empresa daria, mas não consigo montar isso em vba, Me ajudem por favor
  9. Olá me ajude nunca trabalhei com esse metodo ainda minha consulta é essa, onde colocaria isso CREATE PROCEDURE DBO.[Formulario LFC_GERACAO_ARQUIVO_RECEITA_FEDERAL_431] ( @PCodEmpresa INT, @PDataI DATETIME, @PDataF DATETIME ) AS SELECT BAS_DOCUMENTO.NotaFiscalEntSai, BAS_DOCUMENTO.ModeloNotaCod, BAS_DOCUMENTO.NotaFiscalSerie, BAS_DOCUMENTO.NotaFiscalSubSerie, BAS_DOCUMENTO.NotaFiscalNumero, (SELECT REPLACE(CONVERT (VARCHAR(10), BAS_DOCUMENTO.NotaFiscalDataEmissao, 103), '/', '') AS numeric) AS NotaFiscalDataEmissao, BAS_DOCUMENTO.NotaFiscalEmpCodigo, (SELECT REPLACE(CONVERT (VARCHAR(10), BAS_DOCUMENTO.NotaFiscalDataLancamento, 103), '/', '') AS numeric) AS NotaFiscalDataLancamento, SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorProdutos) AS TotalMercadoria, SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorDesconto) AS TotalDesconto, SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorFrete) AS TotalFrete, SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorSeguro) AS TotalSeguro, (SELECT SUM(OUTRAS.NFRLOutrasIPI) FROM BAS_DOCUMENTO_REG_LAN AS OUTRAS INNER JOIN BAS_DOCUMENTO ON OUTRAS.NotaFiscalContador = BAS_DOCUMENTO.NotaFiscalContador INNER JOIN BAS_DOCUMENTO_HISTORICO ON OUTRAS.HistoricoCodigo = BAS_DOCUMENTO_HISTORICO.HistoricoCodigo INNER JOIN BAS_DOCUMENTO_MODELO ON BAS_DOCUMENTO.ModeloNotaCod = BAS_DOCUMENTO_MODELO.ModeloNotaCod INNER JOIN LFC_DOCUMENTO_OPERACAO ON BAS_DOCUMENTO_HISTORICO.CodigoNaturezaOperacao = LFC_DOCUMENTO_OPERACAO.CodigoNaturezaOperacao WHERE (OUTRAS.HistoricoCodigo in ('193301','193302','193307','135201','193303','135203','135204','135205','135206','135207','135208','135209','135210','130201','235202','235201')) AND (OUTRAS.NotaFiscalContador = BAS_DOCUMENTO_REG_LAN.NotaFiscalContador)) AS TotalDespesa, SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorIPI) AS TotalIPI, '0' AS TotalICMS, SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorContabil) AS TotalContabil, '00000000000000' AS SubsTributario, '000000000000000' AS ViaTransporte, (SELECT TOP 1 BAS_EMPRESA.EmpCódigo FROM BAS_EMPRESA WHERE BAS_EMPRESA.EmpFantasia = BAS_DOCUMENTO.EmpFantasiaTransportador) AS CodigoTransportador, NotaFiscalQuantidade, NotaFiscalEspecie, NotaFiscalPesoBruto, NotaFiscalPesoLiquido, (CASE WHEN ISNULL(BAS_DOCUMENTO.NotaFiscalFrete,0) = 1 THEN 'FOB' ELSE 'CIF' END) AS NotaFiscalFrete, NotaFiscalPlaca, 'N' AS Cancelado, '2' AS Fatura, (LTRIM(RTRIM(ISNULL(BAS_DOCUMENTO.NotaFiscalOBS,'')))+ISNULL(NotaFiscalDadosAdicionais,'')) AS Observacao FROM BAS_DOCUMENTO_REG_LAN INNER JOIN BAS_DOCUMENTO ON BAS_DOCUMENTO_REG_LAN.NotaFiscalContador = BAS_DOCUMENTO.NotaFiscalContador INNER JOIN BAS_DOCUMENTO_HISTORICO ON BAS_DOCUMENTO_REG_LAN.HistoricoCodigo = BAS_DOCUMENTO_HISTORICO.HistoricoCodigo INNER JOIN BAS_DOCUMENTO_MODELO ON BAS_DOCUMENTO.ModeloNotaCod = BAS_DOCUMENTO_MODELO.ModeloNotaCod INNER JOIN LFC_DOCUMENTO_OPERACAO ON BAS_DOCUMENTO_HISTORICO.CodigoNaturezaOperacao = LFC_DOCUMENTO_OPERACAO.CodigoNaturezaOperacao WHERE (BAS_DOCUMENTO_MODELO.ModeloNotaSintegra = 1) AND (BAS_DOCUMENTO.CodEmpresa = @PCodEmpresa) AND (LFC_DOCUMENTO_OPERACAO.NaturezaOperacaoTransICMS<>1) AND (BAS_DOCUMENTO.NotaFiscalDataLancamento BETWEEN CONVERT(DATETIME,@PDataI, 102) and CONVERT(DATETIME,@PDataF, 102)) AND (BAS_DOCUMENTO.NotaFiscalEntSai in ('E')) AND (BAS_DOCUMENTO.NotaFiscalEmpTipo in ('J')) AND (BAS_DOCUMENTO.ModeloNotaCod IN ('1','55','6','22','8')) GROUP BY BAS_DOCUMENTO.NotaFiscalEntSai, BAS_DOCUMENTO.ModeloNotaCod, BAS_DOCUMENTO.NotaFiscalSerie, BAS_DOCUMENTO.NotaFiscalSubSerie, BAS_DOCUMENTO.NotaFiscalNumero, BAS_DOCUMENTO.NotaFiscalDataEmissao, BAS_DOCUMENTO_REG_LAN.NotaFiscalContador, BAS_DOCUMENTO.NotaFiscalEmpCodigo, BAS_DOCUMENTO.NotaFiscalDataLancamento, BAS_DOCUMENTO.NotaFiscalOBS, BAS_DOCUMENTO.NotaFiscalDadosAdicionais, BAS_DOCUMENTO.EmpFantasiaTransportador, BAS_DOCUMENTO.NotaFiscalEspecie, BAS_DOCUMENTO.NotaFiscalPesoBruto, BAS_DOCUMENTO.NotaFiscalPesoLiquido, BAS_DOCUMENTO.NotaFiscalFrete, BAS_DOCUMENTO.NotaFiscalPlaca, BAS_DOCUMENTO.NotaFiscalQuantidade UNION ALL SELECT BAS_DOCUMENTO.NotaFiscalEntSai, BAS_DOCUMENTO.ModeloNotaCod, BAS_DOCUMENTO.NotaFiscalSerie, BAS_DOCUMENTO.NotaFiscalSubSerie, BAS_DOCUMENTO.NotaFiscalNumero, (SELECT REPLACE(CONVERT (VARCHAR(10), BAS_DOCUMENTO.NotaFiscalDataEmissao, 103), '/', '') AS numeric) AS NotaFiscalDataEmissao, BAS_DOCUMENTO.NotaFiscalEmpCodigo, (SELECT REPLACE(CONVERT (VARCHAR(10), BAS_DOCUMENTO.NotaFiscalDataLancamento, 103), '/', '') AS numeric) AS NotaFiscalDataLancamento, SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorProdutos) AS TotalMercadoria, SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorDesconto) AS TotalDesconto, SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorFrete) AS TotalFrete, SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorSeguro) AS TotalSeguro, (SELECT SUM(OUTRAS.NFRLOutrasIPI) FROM BAS_DOCUMENTO_REG_LAN AS OUTRAS INNER JOIN BAS_DOCUMENTO ON OUTRAS.NotaFiscalContador = BAS_DOCUMENTO.NotaFiscalContador INNER JOIN BAS_DOCUMENTO_HISTORICO ON OUTRAS.HistoricoCodigo = BAS_DOCUMENTO_HISTORICO.HistoricoCodigo INNER JOIN BAS_DOCUMENTO_MODELO ON BAS_DOCUMENTO.ModeloNotaCod = BAS_DOCUMENTO_MODELO.ModeloNotaCod INNER JOIN LFC_DOCUMENTO_OPERACAO ON BAS_DOCUMENTO_HISTORICO.CodigoNaturezaOperacao = LFC_DOCUMENTO_OPERACAO.CodigoNaturezaOperacao WHERE (OUTRAS.HistoricoCodigo in ('193301','193302','193307','135201','193303','135203','135204','135205','135206','135207','135208','135209','135210','130201','235202','235201')) AND (OUTRAS.NotaFiscalContador = BAS_DOCUMENTO_REG_LAN.NotaFiscalContador)) AS TotalDespesa, SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorIPI) AS TotalIPI, '0' AS TotalICMS, SUM(BAS_DOCUMENTO_REG_LAN.NFRLValorContabil) AS TotalContabil, '00000000000000' AS SubsTributario, '000000000000000' AS ViaTransporte, (SELECT TOP 1 BAS_EMPRESA.EmpCódigo FROM BAS_EMPRESA WHERE BAS_EMPRESA.EmpFantasia = BAS_DOCUMENTO.EmpFantasiaTransportador) AS CodigoTransportador, NotaFiscalQuantidade, NotaFiscalEspecie, NotaFiscalPesoBruto, NotaFiscalPesoLiquido, (CASE WHEN ISNULL(BAS_DOCUMENTO.NotaFiscalFrete,0) = 1 THEN 'FOB' ELSE 'CIF' END) AS NotaFiscalFrete, NotaFiscalPlaca, 'N' AS Cancelado, '2' AS Fatura, (LTRIM(RTRIM(ISNULL(BAS_DOCUMENTO.NotaFiscalOBS,'')))+ISNULL(NotaFiscalDadosAdicionais,'')) AS Observacao FROM BAS_DOCUMENTO_REG_LAN INNER JOIN BAS_DOCUMENTO ON BAS_DOCUMENTO_REG_LAN.NotaFiscalContador = BAS_DOCUMENTO.NotaFiscalContador INNER JOIN BAS_DOCUMENTO_HISTORICO ON BAS_DOCUMENTO_REG_LAN.HistoricoCodigo = BAS_DOCUMENTO_HISTORICO.HistoricoCodigo INNER JOIN BAS_DOCUMENTO_MODELO ON BAS_DOCUMENTO.ModeloNotaCod = BAS_DOCUMENTO_MODELO.ModeloNotaCod INNER JOIN LFC_DOCUMENTO_OPERACAO ON BAS_DOCUMENTO_HISTORICO.CodigoNaturezaOperacao = LFC_DOCUMENTO_OPERACAO.CodigoNaturezaOperacao WHERE (BAS_DOCUMENTO_MODELO.ModeloNotaSintegra = 1) AND (BAS_DOCUMENTO.CodEmpresa = @PCodEmpresa) AND (LFC_DOCUMENTO_OPERACAO.NaturezaOperacaoTransICMS<>1) AND (BAS_DOCUMENTO.NotaFiscalDataLancamento BETWEEN CONVERT(DATETIME,@PDataI, 102) and CONVERT(DATETIME,@PDataF, 102)) AND (BAS_DOCUMENTO.NotaFiscalEmpTipo in ('J')) AND (BAS_DOCUMENTO.NotaFiscalEntSai in ('S')) GROUP BY BAS_DOCUMENTO.NotaFiscalEntSai, BAS_DOCUMENTO.ModeloNotaCod, BAS_DOCUMENTO.NotaFiscalSerie, BAS_DOCUMENTO.NotaFiscalSubSerie, BAS_DOCUMENTO.NotaFiscalNumero, BAS_DOCUMENTO.NotaFiscalDataEmissao, BAS_DOCUMENTO.NotaFiscalEmpCodigo, BAS_DOCUMENTO.NotaFiscalDataLancamento, BAS_DOCUMENTO_REG_LAN.NotaFiscalContador, BAS_DOCUMENTO.NotaFiscalOBS, BAS_DOCUMENTO.NotaFiscalDadosAdicionais, BAS_DOCUMENTO.EmpFantasiaTransportador, BAS_DOCUMENTO.NotaFiscalEspecie, BAS_DOCUMENTO.NotaFiscalPesoBruto, BAS_DOCUMENTO.NotaFiscalPesoLiquido, BAS_DOCUMENTO.NotaFiscalFrete, BAS_DOCUMENTO.NotaFiscalPlaca, BAS_DOCUMENTO.NotaFiscalQuantidade ORDER BY 5, 6
  10. Olá Estou com um problema Iniciei a pouco tempo sql e estou com duvidas para criar um cursor A minha consulta que fiz me retorna por exemplo 50 codigos, cada um com seu numero eu gostaria de preencher com algum comando em sql os codigos nulo Exemplo Minha consulta retornou 1 jose 2 joao 4 maria 5 juca 6 pedro 9 marta 10 fulano etc e gostaria que se não possui o codigo ele prenchesse então ficaria 1 jose 2 joao 3 4 maria 5 juca 6 pedro 7 8 9 marta 10 fulano etc Esperam que entendam, preciso de ajuda Obrigado
  11. Tem como resolver esse erro de alguma forma Pois ele aparece na query quando executo a consulta E com este erro que esta dando não consigo fazer os filtros no relatorio access
  12. Poisé Essa consulta ela me passa uns 3000 registros então toda a noite eu teria que rodar essa consulta para pegar os registros dessas consulta que esta em um banco chamado status e passar os resultados para outro banco em um tabela chamado statusweb. De que forma posso resolver isso
  13. Estou com esse problema numa consulta Acho que tem haver com o group by Consigo fazer filtro num subformulario access com ela, mas quando puxo o filtro para um relatorio access da erro
  14. Olá Preciso de uma ajuda que nunca fiz em sql Tenho sql server 7 e preciso rodar uma consulta e pegar os resultados dela e com os resultados fazer um insert em outra tabela Nome da consulta - PRD_PRONTA_ENTREGA Campos que pego o resultado - Codigo - Modelo Nome da tabela que vai ser inserido o resultado dos dois campos da consulta - STATUSWEB.ProntaEntrega Preciso fazer uma stored para isso funcionar Aguardo ajuda por favor
  15. Ola estou com um problemao aqui Tenho uma consulta em sql server E queria definir toda ela com um AS para colocar outra consulta junto com outro AS exemplo CONSULTA 1 AS A CONSULTA 2 AS B e fazer calculos entre elas Até
×
×
  • Criar Novo...