Ir para conteúdo
Fórum Script Brasil

Rodrigo Hoffmann

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    46

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Rodrigo Hoffmann postou

  1. Rodrigo Hoffmann
    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. Rodrigo Hoffmann
    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. Rodrigo Hoffmann
    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. Rodrigo Hoffmann
    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. Rodrigo Hoffmann
    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. Rodrigo Hoffmann
    Sim Mas quero que apareça no subform que já é ligado numa tabela
  7. Rodrigo Hoffmann
    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. Rodrigo Hoffmann
    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. Rodrigo Hoffmann
    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. Rodrigo Hoffmann
    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. Rodrigo Hoffmann
    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. Rodrigo Hoffmann
    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. Rodrigo Hoffmann
    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. Rodrigo Hoffmann
    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. Rodrigo Hoffmann
    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é
  16. Rodrigo Hoffmann
    Olá Sou novato em access ainda e gostaria de saber como defino uma variavel global num relatorio gostaria de dar o nome a ela de INDICE Até
  17. Rodrigo Hoffmann
    Obrigado por enquanto
  18. Rodrigo Hoffmann
    Certo Olha só Tenho um campo da consulta que me retorna resultados 36 37 38 39 40, um abaixo do outro, Gostaria que ficasse assim 36 37 38 39 40 Poderia fazer um subrelatorio e colocar eles com varias colunas nas propriedades de impressao, então queria saber outra forma se precisar usar esse subrelatorio Apenas pegar o campo la em detalhes e se existir algum codigo para na hora eu definir o numero de colunas que DETALHE do realatorio ira ter Entende
  19. Rodrigo Hoffmann
    Poisé Gostaria de saber se existe algum codigo Para pegar dois campo da consulta e alinhar os resultados em coluna
  20. Rodrigo Hoffmann
    Olá Estou com um relatório access E queria saber como faço para meus resultados no relatório que esta ligado a uma consulta ficarem em coluna e não linhas Tem alguma opçao do access mesmo ou no evento ao formatar do relatório Aguardo
  21. Rodrigo Hoffmann
    O problema é o seguinte cor preço grade grade pares total ICE US$ 12.000 5.500 36 8 16.000 ICE US$ 12.000 6.500 37 16 32.000 ICE US$ 12.000 7.500 38 23 46.000 ICE US$ 12.000 8.500 39 23 46.000 ICE US$ 12.000 9.000 40 15 30.000 ICE US$ 12.000 10.000 41 8 16.000 Eu gostaria que os as resultado das colunas grade pares total virassem coluna cada item para não repertir todas as linhas iguis tipo cor preço e cor Colunas tipo 36 37 38 39 40 41 com seu resultados para eu conseguir fazer um group by e juntar os itens pelas referencia Ou se tiver alguma forma que no subformulario do access eu consiga agrupar estes itens Qualquer coisa posso te passar a sql para dar uma olhada
  22. Rodrigo Hoffmann
    Olha. O problema é o seguinte cor preo grade grade pares total ICE US$ 12.000 5.500 36 8 16.000 ICE US$ 12.000 6.500 37 16 32.000 ICE US$ 12.000 7.500 38 23 46.000 ICE US$ 12.000 8.500 39 23 46.000 ICE US$ 12.000 9.000 40 15 30.000 ICE US$ 12.000 10.000 41 8 16.000 Eu gostaria que os as resultado das colunas grade pares total virassem coluna cada item para não repertir todas as linhas iguis tipo cor preço e cor
  23. Rodrigo Hoffmann
    Olá Preciso de uma luz por favor Tenho um subform como folha de dados e gostaria de que 7 campos da consulta que puxo fiquei listados por coluna e não por linha Faço isso na consulta, a consulta é em SQL, como agrego isso ao subform. Aguardo
  24. Rodrigo Hoffmann
    Olá Preciso de uma luz por favor Tenho um subform como folha de dados e gostaria de que 7 campos da consulta que puxo fiquei listados por coluna e não por linha Faço isso na consulta, a consulta é em SQL, como agrego isso ao subform. Aguardo
  25. Rodrigo Hoffmann
    Ola Gostaria de agrupar um campo de uma consulta que esta ligada a um relatorio, na consulta mesmo eu não posso agrupar estes campos devido a uma grade nela Mas gostaria que ao abrir o relatorio o campo referencia que possui varias iguais agrupasse Uso algo do tipo GROUP BY REFERENCIA na origem de controle ou devo usar alguma instrucao sql Até mais
×
×
  • Criar Novo...