adilsonpazzini

Entao , mais esses campos . podem alterar o valor da soma do agrupamento . o que vc pode fazer , ou é informalos na sequencia ex: SELECT DATA , CODPRODUTO , CAMPO1 , CAMPO2 , CAMPO3 , SUM(CAMPO_VALOR1) , SUM(CAMPO_VALOR2) FROM TABELA WHERE DATA >= '00/00/0000' AND DATA <= '00/00/0000' GROUP BY DATA , CODPRODUTO , CAMPO1 , CAMPO2 , CAMPO3 Pra group by . vc nunca vai conseguir usar com * , sempre terá que informar os campos . Ai o que vc precisa ver é se no informando campo o valor nao soma com por agrupar errado ... ai o que vc pode fazer, ou criar um stored procedure no Firebird q te resulte o valor , ou vc faz um query com o agrupamento por dia e codigo do produto e depois faz outra query em seguida com as outras informações que vc precisa ver . Adilson .

select DATA , CODPRODUTO , sum(CAMPO_VALOR) FROM TABELA WHERE DATA >= '00/00/0000' AND DATA <= '00/00/0000' GROUP BY DATA , CODPRODUTO Ref a data 00/00/0000 vc informa a data que vc quizer OK , ATÉ O LANCE AI ESTA NO SELECT ...SUM . toda vez q utiliza o SUM , vc deve fazer o group by . Pelos campos que vc quer que agrupe / some o valor .

Outro problema que percebi é que quando da o erro ERRO: The operation timed out - URL:https://producao.ginfes.com.br/ServiceGinfesImpl - SOAPAction:"" , no envio para a provedor , e retorna com o erro de Time out , qndo tento enviar novamente , da o erro de ACESS MEMORY . Adilson Pazzini

estou tentando enviar e esta me retornando esse erro [Não é possível carregar crl do certificado] e as vezes tambem ta retornando ERRO: The operation timed out - URL:https://producao.ginfes.com.br/ServiceGinfesImpl - SOAPAction:"" até o segundo erro da a impressao de q o servidor esta demorando demais pra retornar por isso da o time out . mais o primeiro nunca vi este erro e do nada . acaba enviando e protocolando a nfse ... mais as vezes ta dando esse erro de carregar o crl do certificado ... queria saber se alguem ja passou por esse problema ...so pra saber o que é . sem mais, Desde ja agradesço Adilson Pazzini .

Então , como exemplo . vou pegar o estado do PR Q no link ref a NF-e . realmente ele fala q esta com a Contingencia ativada . mais nao fala qual tipo devera ser usada a SCAN ou DPEC .. isso que queria saber onde é possivel saber qual devemos utilizar , pois que nem hj . tenho um cliente no estado do PR . mais nao sei qual tipo de Contingência ativar .... Resultado do link da NF-e: Contingência Ativada CE-Desde 24/8/2012 09:24:35 MG-Desde 9/10/2012 11:31:02 PE-Desde 21/9/2012 11:42:09 PR-Desde 28/10/2012 15:30:00 Contingência Agendada Não há agendamentos para o serviço de contingência.

Valeu galera , agora fica a duvida do seguinte . como vou saber . pelo sefaz mesmo , se o que esta disponivel pra utilização é o SCAN ou o DPEC ... se no site do NF-e fala algo ref a isso . pra poder liberar pro cliente ... Desde ja agradesço Adilson Pazzini .

Aproveitando o Topico , como vou posso saber em qual tipo enviar . se SCAN ou DPEC , ou tanto faz , qualquer um daria certo ? .. ou dependendo do estado é uma forma ou outra ... Desde já agradesço Adilson Pazzini

Boa pessoal , queria saber o seguinte . estou fazendo o cancelamento pelo GINFES , cidade TATUI-SP , e qndo envio o cancelamento ., pego o retorno do retorno Ex: NFSe.NotasFiscais.LoadFromFile('122-nfse.xml'); NFSe.CancelarNFSe('2');//--> cancelamento ... //pegando o retorno . NFSe.WebServices.CancNfse.CodigoCancelamento iif(NFSe.WebServices.CancNfse.DataHora = 0, '',DateTimeToStr(NFSe.WebServices.CancNfse.DataHora)) mais a data sempre retorna ZERADO .. queria saber se é isso mesmo , ou estou pegando de algum lugar errado ... Desde ja agradesço . Sem mais, Adilson Pazzini .

Tem como Aumentar o Tamanho do campo DISCRIMINAÇÃO DOS SERVICOS pra impressao , pois dependendo do tamanho da Descrição . ta criando duas paginas pra impressao ... nao sei se teria como deixa isso uma opcao do componente pra impressao . ate´assim . diminuir a tamnho do fonte ou almentar mesmo o numero de linhas .. se isso seria possive . Adilson Pazzini .

Daniel , queria agradescer sua resposta . Então Daniel , cheguei tambem testar com o SQLDb do proprio Lazarus , e o problema continua , o que fiz , foi alterar o dialeto mesmo , que no caso acabou funcionando conforme passei acima .. o Que fico com duvida entao é assim . hj meu sistema contempla varios modulos , eu queria ir convertendo aos poucos para lazarus. so que pelo que vi . utilizando DELPHI7 , nao vou conseguir fazer isso . acho q teria q converter para uma versao do Delphi mais atual , que suporte UNICODE pra ai começar a utilizar o lazarus e convertendo aos poucos o sistema . Se tiver uma opniao sobre isso . ou qualquer usuario que ja teve esta experiencia . agradesceria se comenta-sem algo . Sem mais, Adilson Pazzini .

Obrigado pela resposta Daniel , até eu cheguei mandar essa pergunta no firebase , e eles la me retornaram dizendo q se eu troca-se o Dialect de 1 para 3 . resolveria meu problema . ate cheguei fazer um teste assim , tipo , agora no lazarus retornou a pesquisa , mais ainda assim . em uma outra ja deu um erro na hora de executar . Ai agora minha duvida fico no seguinte , Se eu troca-se todo o meu banco de ISO8859 para UTF8 , eu tenho o Delphi-7 , Será q no Delphi7 Iria funcionar corretamente o sistema , ou precisaria tambem fazer um upgrade para XE pra que entenda o banco nesse novo CharacterSet UTF8 ..? E assim . ainda eu to vendo tudo isso . justamente pra ir aos pouco convertendo para Lazarus ... Desde já agradesço ., Adilson Pazzini .

AProveitando o Topico . estou com duvidas se em todos os estados , ja está disponivel o cancelamento por Eventos . ou só em alguns estados esta liberado ? ... e se caso exitir algum estado q nao esteja ainda , qual o prazo pra deixar todos funcionando .. Desde ja agradesço Adilson PAzzini .

Aproveitando o Topico . estou utilizando o componente em Homologação , pois estou ainda adaptando o sistema . e ao cancelar um RPS , pelo provedor Ginfes . nao me da erro , mais retorna vazio os campos CodCancelamento=1 DtRetorno= Isso é normal . Adilson Pazzini .

Salve galera ... Vou tentar passar o meu problema . Bom hj tenho um sistema em Delphi 7 com Firebird 2.1 , e qndo iniciei o sistema ate agora estou utilizando o Character Set no Firebird ISO8859_1 , e para campos como Nome utilizo o Colate PT_BR . Ai comecei a fazer alguns projetos em Lazarus utilizando ZEOS , Utilizando essas configuracoes abaixo: DM.DATABASE.Connected := false ; DM.DATABASE.HostName := 'localhost' ; DM.DATABASE.Database := 'c:\sistema\banco.fdb' ; DM.DATABASE.User := 'SYSDBA'; DM.DATABASE.Password := 'masterkey'; DM.DATABASE.Properties.Add('lc_ctype=ISO8859_1'); DM.DATABASE.Properties.Add('codepage=UTF8'); DM.DATABASE.Properties.Add('Dialect=1'); DM.DATABASE.LoginPrompt := False; So que é o seguinte . dependendo da Query que executo , com parametros de pesquisa , ele nao retorna registro nenhum . Se eu fizer uma query simples . tipo de uma tabela só . abre normalmente . ... Existe alguma coisa haver com o Unicode com o Characterset utilizado no banco , pois no Delphi , esta mesma query ,funciona perfeitamente me retornando registros . mais ja no Lazarus nao me resultou nada ... Desde ja agradesço Adilson PAZZINI

with ACBrSPEDFiscal1.Bloco_1 do begin with Registro1001New do begin if CK_BLOCO1010.Checked = false then begin IND_MOV := imSemDados; end else begin IND_MOV := imcomDados; //== reaberto... with Registro1010New do begin IND_EXP := 'N'; IND_CCRF := 'N'; IND_COMB := 'N'; IND_COMB := 'N'; IND_USINA := 'N'; IND_VA := 'N'; IND_EE := 'N'; IND_CART := 'N'; //-- CARTAO DE CRÉDITO .. DEPOIS PRECISA CRIAR OS REGISTROS PARA CARTAO... IND_FORM := 'N'; IND_AER := 'N'; end; { with Registro1600New do begin COD_PART TOT_CREDITO TOT_DEBITO end; } //--REGISTRO DE CARTAO CRÉDITO end;//--> se gera ou nao o bloco 1010 end; end; ACBrSPEDFiscal1.WriteBloco_1; Tenta assim pra ver .. no meu dessa forma ta dando Certo ... Adilson .

Bom não sei se seria a melhor opção . mais acabei pegando o valor do campo ConsNfseRps.RetWS e criando o arquivo xml pelo savetofile do TStringList. Abaixo a Rotina ... se alguem achar algo errado por favor postar . Obrigado ... NFSe.ConsutarNFSeporRps(NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo), NFSe.NotasFiscais.Items[0].NFSe.Prestador.Cnpj, NFSe.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal); aTEXTO := NFSe.NotasFiscais.Items[0].Msg+sLineBreak+ '[sTATUS]'+sLineBreak+ 'Protocolo='+nfse.WebServices.ConsNfseRps.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Protocolo+sLineBreak+ 'CodVerificacao='+nfse.WebServices.ConsNfseRps.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.CodigoVerificacao+sLineBreak+ 'Numero='+nfse.WebServices.ConsNfseRps.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Numero+sLineBreak+ 'XML='+UTF8Encode(NFSe.WebServices.ConsNfseRps.RetWS)+sLineBreak; aProtocolo :=nfse.WebServices.ConsNfseRps.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Protocolo; aVerificacao :=nfse.WebServices.ConsNfseRps.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.CodigoVerificacao; aNumeroNFSe :=nfse.WebServices.ConsNfseRps.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.numero; //===> salvando arquivo xml do nfs-e if (aNumeroNFSe <> '') and (UTF8Encode(NFSe.WebServices.ConsNfseRps.RetWS)<>'') then if not FileExists(trim(FATNFMonitor.edtPastaMensal.text)+ExtractYearMonth(qry.fieldbyname('DTEMI').asdatetime)+'\'+inttostr(strtoint(aNumeroNFSe))+'-nfse.xml') then begin aXML:=TStringList.Create; try aXML.Clear; // Usando para add outros e-mail como Com-Cópia aXML.Add(UTF8Encode(NFSe.WebServices.ConsNfseRps.RetWS)); aXML.SaveToFile(trim(FATNFMonitor.edtPastaMensal.text)+ExtractYearMonth(qry.fieldbyname('DTEMI').asdatetime)+'\'+inttostr(strtoint(aNumeroNFSe))+'-nfse.xml'); finally aXML.Free; end; end;

Acho que poderia deixar o tipo tpSemPagamento , Mais bloquealo no C100

Alguem sabe me dizer nessa função . como posso fazer pra poder gravar o xml de retorno da NFS-e ..? sem mais, Adilson Pazzini .

ja ta no Site do lazarus http://www.lazarus.freepascal.org/ E ja disponivel pra baixar . Adilson .

Protocolo := acbrNfse1.NotasFiscais.Items[0].NFSe.Protocolo; CodVerificacao := acbrNfse1.NotasFiscais.Items[0].NFSe.CodigoVerificacao;

Então GALERA . ref a alteração TACBrTipoPagamento = ( tpVista, // 0 - À Vista tpPrazo, // 1 - A Prazo tpOutros, // 2 - Outros tpNenhum // Preencher vazio ); de tipo excluir o tipo 9 ... Para o bloco A100 a.. o tpSemPagamento , deve continuar existindo . pois o Validador exige esse campo . Adilson Pazzini .

Regis como posso falar com vc . tem skype msn , telefone ] Obrigado pela atenção .. Adilson.

Então pessoal . estou ainda precisando de um PDV pra interligar com o meu sistema ERP . Ref ao meu sistema . trabalha com Ordens de Serviço e venda de peças pra veiculos . Preciso para o Estado de Goias e que tenha TEF Discado .. Se alguem souber de alguem . fico grato . Adilson Pazzini .

Bom dia a todos . Seguinte. estava analisando a forma de envio pelo DPEC no monitor , e preciso saber . ref aos diretorios , como devo informar nos paramentros no monitor . pra que ele pegue todos os XML de dentro da pasta ...pois vi que no comando nao aceita o caminho do xml em vez do ArqINI . Sem mais, Desde ja agradesço . Adilson Pazzini .

Boa tarde . seguinte . essa impressora bematech mp20mi - 40 colunas - Matricial não fiscal . eu consigo imprimir como fazia pras impressoras lx300 , Exemplo: AssignFile(IMPRESSORA,'LPT1:'); Rewrite(IMPRESSORA); Writeln(impressora); Writeln(Impressora,' teste de impressao '); Writeln(impressora); System.Close(Impressora); Pois .hj ja tenho rotinas pra impressão para LX 300 .. mais agora queria comprar um impressora Dessa. pra ver como fica ... alguem ja utilizou assim .ou será que vou ter que utilizar algum dll da impressora pra poder imprimir nela ...