adilsonpazzini

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 ...

Boa pessoal . precebi que ao preencher o regisro 1010 realmente não esta totalizando no registro 9 ... Adilson .

Obrigado Italo . vou fazer testes aqui entao com openssl , e vou reportando caso aparece problemas . Valeuuu Adilson .

Boa tarde pessoal . Italo , queria saber se o componente , esta funcionando pra OpenSSL . ou so em Capicom ? desde ja obrigado . Adilson Pazzini .

Então vou ver melhor com o pessoal da DJ . pois eles mesmos me informaram que ainda não estava liberado pra esses estados . Obrigado.. Adilson Pazzini .

Obrigado pela Resposta . entao ate ja to vendo com eles . mais parece que pro estado de Goias e Paraná ainda não está homologado . Adilson Pazzini .

Alguem tem ai modulo PDV para integracao com meu ERP , pros estados de Goias e Paraná .. Desde ja agradesço Adilson .

Boa pessoal , alguem ai ja tem o componente FreeReport com a classe para exportacao em PDF embutida no pacote . pois ate achei separado . mais ao instalar da falta de outras classes , então queria saber se alguem tem ai com a classe ja dentro do pacote . e que nao tenha problemas de instalação . ate ele da falta por classe do proprio delphi . pois cheguei ate a disponibilizar , e tambem instalei um pacote de PDF que precisa pra rodalo ... Mais se alguem tiver ai um pacote funcionando . fico grato . Obrigado Adilson Pazzini

Boa tarde Pessoal . estou com uma duvidade ref a Obrigatoriedade de Emissão de Cupom Fiscal para empresas que fazem revenda de motos zero kilometros , para o Estado de Goiás , pois tenho um cliente de la . que diz que a receita federal do estado de Goias , Obriga que ele Utilize Cupom fiscal . Aqui pro estado de São Paulo . sei que pra Revendas de Motos , não é obrigatorio desde que eu utilize 100% Emissão com Notas Fiscal Eletronica , queria saber se para o estado de Goias não é a Mesma coisa ,. se existe alguma clausula . onde possa insentar o uso do cupom fiscal pra esse tipo de empresa , ate a empresa é Lucro Real . que puder me ajudar agradesço . Sem mais, Adilson PAZZINI

Entao. esse clientes que vc tem q utilizao sevem . eles pararam de receber apos alguma data . ou vc ja instalo e nao funcionou .. tipo tava funcionando e parou .. se for o caso de q estava funcionando e parou . tente instalar a cadeia de certificado da V2 .. talvez resolva o problema ... Um jeito de fazer é testando a homologacao .. se funcionar homologacao e nao funcionar a producao . o problema ainda ta no certificado v2 . q precisa ser instalado no seu w sevem . agora se nenhum funcionar . tipo homologacao e producao . ai pode ja ser outro problema ...

Segue atalho com um post com um exemplo viewtopic.php?f=14&t=2337