Ir para conteúdo
  • Cadastre-se

Rodrigo Cardilo

Membros Pro
  • Total de ítens

    260
  • Registro em

  • Última visita

Tudo que Rodrigo Cardilo postou

  1. Galera, Estou tentando criar um servidor com firedac e os clientes com datasnap dbx. Tudo funciona perfeitamente. O único problema é quando tento enviar um comando sql para apagar registros via clientdataset. Segue o exemplo: CDS.CommandText := 'DELETE FROM TABELA WHERE CONTROLE = 1' ; CDS.Execute ; Não acontece o esperado, ou seja, não apagou o registro correspondente. Somente apagou o registro quando eu fechei a aplicação. Minha pergunta é: Existe alguma outra forma de resolver esse problema utilizando algum outro componente Firedac ou somente se eu mudar toda minha estrutura cliente? Grato desde já,
  2. O campo inscrição estadual não aceita RG. Vide página 181 e 182 do Manual (http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=URCYvjVMIzI=)
  3. Utilize a opção SVC-SP. Sugiro ler melhor sobre o assunto de contigência no portal MG http://portalcte.fazenda.mg.gov.br/.
  4. Algum moderador pode olhar esse problema por favor?
  5. Boa tarde, O Código de Mora/Juros do Sicoob (Bancoob) está errado no fonte: Segundo o manual deles os códigos corretos seriam 0 - Isento; 1 - Valor por dia; 2 - Taxa Mensal Estou enviando o o arquivo fonte alterado e o manual para atualização o SVN. // Codigo Anterior constructor TACBrBancoob.create(AOwner: TACBrBanco); begin inherited create(AOwner); fpDigito := 0; fpNome := 'SICOOB'; fpNumero := 756; fpTamanhoMaximoNossoNum := 7; fpTamanhoCarteira := 1; fpTamanhoConta := 8; fpCodigosMoraAceitos:= '123'; end; // Código Alterado constructor TACBrBancoob.create(AOwner: TACBrBanco); begin inherited create(AOwner); fpDigito := 0; fpNome := 'SICOOB'; fpNumero := 756; fpTamanhoMaximoNossoNum := 7; fpTamanhoCarteira := 1; fpTamanhoConta := 8; fpCodigosMoraAceitos:= '012'; end; Grato, ACBrBancoBancoob.pas Layouts+para+troca+de+informações+01072015 (1) BANCOOB COM REGISTRO.xls
  6. Oi Arnaldo, Eu tive um problema parecido a um tempo atrás. O que eu fiz foi o seguinte. Filtrei os registros na tabela depois utilizei a rotina abaixo e deu certinho. // Depois de filtrar os registros Tabela.First ; While Not Tabela.Eof do begin GeraBoleto ; // rotina que adiciona os dados no componente ACBRBoleto ACBrBoletoFCFortes1.NomeArquivo := 'NomedoArquivo.pdf' ; ACBrBoleto1.GerarPDF ; Tabela.Next; end ; Atenciosamente,
  7. Bom dia, Estou mandando anexo layout alterado e diminuído caso queira aproveitar. (Fortes Report) O Boleto de impressão "normal" eu também alterei. Atc, ACBrBoletoFCFortesFr.pas ACBrBoletoFCFortesFr.dfm
  8. Oi amigos, Eu criei uma rotina chamada gravacedente sempre antes de gerar o boleto ou a remessa e funciona perfeitamente. Segue exemplo do código: procedure TDM1.GravaCedenteCobranca(CodCarteira: integer); begin // Grava Configurações do Cedente e Cobrança ACBrBoleto1.ListadeBoletos.Clear; DM1.TB03600.Refresh; DM1.TB03600.Locate('CONTROLE', CodCarteira, []); with ACBrBoleto1 do begin case DM1.TB03600BANCO.Value of 1: Banco.TipoCobranca := cobBancoDoBrasil; 104: Banco.TipoCobranca := cobCaixaEconomica; 237: Banco.TipoCobranca := cobBradesco; 341: Banco.TipoCobranca := cobItau; 756: begin Banco.TipoCobranca := cobBancoob; Cedente.Modalidade := '01'; end; end; Cedente.Agencia := DM1.TB03600AGENCIA.Value; Cedente.AgenciaDigito := ' '; if DM1.TB03600DIGAGENCIA.Value <> '' then Cedente.AgenciaDigito := DM1.TB03600DIGAGENCIA.Value; Cedente.Conta := DM1.TB03600CONTA.Value; Cedente.ContaDigito := DM1.TB03600DIGCONTA.Value; Cedente.Nome := DM1.TB03600NOMECEDENTE.Value; Cedente.Logradouro := DM1.TB03600ENDCEDENTE.Value; Cedente.NumeroRes := DM1.TB03600ENDNUMCEDENTE.Value; Cedente.Cidade := DM1.TB03600CIDADECEDENTE.Value; Cedente.Bairro := DM1.TB03600BAIRROCEDENTE.Value; Cedente.UF := DM1.TB03600UFCEDENTE.Value; Cedente.CEP := DM1.TB03600CEPCEDENTE.Value; if Length(FRC_Funcoes.DesformataCNPJ_CPF(DM1.TB03600CPFCEDENTE.Value)) = 11 then Cedente.TipoInscricao := pFisica else if Length(FRC_Funcoes.DesformataCNPJ_CPF(DM1.TB03600CPFCEDENTE.Value)) = 14 then Cedente.TipoInscricao := pJuridica; Cedente.CNPJCPF := FRC_Funcoes.DesformataCNPJ_CPF(DM1.TB03600CPFCEDENTE.Value); Cedente.CodigoCedente := DM1.TB03600CODCEDENTE.Value; Cedente.Convenio := DM1.TB03600CONVENIO.AsString; // Cedente.Modalidade := DM1.TB03600MODALIDADE.Value; ACBrBoletoFC.DirLogo := ExtractFilePath(Application.ExeName) + '\Boleto'; Cedente.ResponEmissao := tbCliEmite; case DM1.TB03600TIPOIMPRESSAO.Value of 1: ACBrBoletoFC.LayOut := lPadrao; 2: ACBrBoletoFC.LayOut := lFatura; 3: ACBrBoletoFC.LayOut := lCarne; 99: Cedente.ResponEmissao := tbBancoEmite; end; Cedente.CaracTitulo := tcSimples; case DM1.TB03600TIPOMOD.Value of 1: Cedente.CaracTitulo := tcSimples; 2: Cedente.CaracTitulo := tcVinculada; 3: Cedente.CaracTitulo := tcCaucionada; 4: Cedente.CaracTitulo := tcDescontada; 5: Cedente.CaracTitulo := tcVendor; end; if DM1.TB03600CNAB.Value = 240 then LayoutRemessa := c240 else LayoutRemessa := c400; end; end;
  9. Amigos, De forma não explicada consegui enviar. Os parâmetros que utilizei foram: CSOSN: 102 idDest: 2=Operação interestadual; ndFinal: 0=Normal; indIEDest: 9=Não Contribuinte, que pode ou não possuir Inscrição Estadual no Cadastro de Contribuintes do ICMS. A UF do destinatário era SP e a do remetente era MG Uma dica que já tinha visto a um tempo atrás: Fiquem atento ao CSOSN. Segundo a regra não se pode utilizar 101 ou 201 para não contribuintes. Isso pode acarretar problemas. Mas sinceramente não sei porque aconteceu o problema justamente hoje. Notei que o sistema estava lento para receber os dados do retorno da nota fiscal. Creio que pode estar havendo alguma falha no sistema. No mais qualquer novidade aviso vocês. Boa sorte
  10. Bom dia, Meu sistema que até ontem, 30/06/2016 emitia notas para fora da minha UF normalmente hoje começou a dar o mesmo erro citado pelo amigo Ariboni. A diferença é que os dados informados por mim são diferentes: O meu cliente e Simples Nacional, o destinatario tem CPF , 9 = Nao Contribuinte; 1 = Consumidor Final ; 2 = Interestadual ; o CFOP = 6101 e CST = 101. Alguém sabe dizer se mudou alguma regra a partir de 01/07? Grato desde já,
  11. Bom dia Fábio, A única maneira de você fazer testes com NFe é tendo uma inscrição estadual. Eu mesmo passei por isso (a 6 anos atrás) e tive que ter IE para resolver fazer meus testes. Lembrando que a empresa desenvolvedora não é impedida de ter IE. Atc,
  12. Oi amigo, Seu post é muito vago.. Você está preenchendo o compontente ACBRNFe corretamente? No envie o xml gerado para analisarmos. Pelo erro, aparentemente, seu sistema não está gerando o xml. Atc,
  13. Oi Filipe, Atualize seu fonte e tente enviar a nota novamente. Automaticamente o grupo de informações acima citados serão criados. Quanto a obrigatoriedade das informações o nosso amigo Gildenor já explicou. As empresas SIMPLES NACIONAL possuem uma liminar do STF (ADI 5464) desobrigando as informações. Portanto você só precisa atender ao layout e já basta. Atc,
  14. Oi Mateus. Cada estado tem uma legislação específica para a nota fiscal eletrônica de produtor Rural. Só é possível emissão de nota fiscal se o produtor possuir CNPJ e não somente CPF. http://www.nfe.fazenda.gov.br/portal/perguntasFrequentes.aspx?tipoConteudo=LnhDJy3Fl+g= O ACBRNFe só vai emitir notas para CNPJ's. Verifique junto ao seu estado a possibilidade de emissão desse tipo de nota. Só uma dica: Se seu estado permitir que a nota seja emitida pelo Emissor Gratuito você também consegue emitir pelo ACBRNFe, caso contrário não será possível. Espero ter ajudado. Atc,
  15. Oi amigo, Você consegue fazer toda a parte de desenvolvimento sem necessidade do certificado digital (vide exemplos). Porém, o teste propriamente dito, utilizando o ambiente de homologação é obrigatório o uso do certificado. No começo eu adquiri um certificado tipo A1, pois o custo é menor e é possível instalar em vários computadores. Sugiro utilizar o capicom para o desenvolvimento. Boa sorte,
  16. Perfeito Rafael, Era isso mesmo. Fiz o que você me sugeriu e está funcionando perfeitamente. Muito obrigado pela atenção e pelo tempo dispensado. Abraço
  17. Oi Juliomar. Bem, estou tentando. Na verdade sempre desenvolvi nos windows server anteriores (2000, 2003). Tenho um cliente em especial onde desenvolvo dentro da empresa dele. E como ele adquiriu um servidor novo com o windows 2008 vi a possibilidade de usar uma maquina virtual para desenvolver. Eu já tinha visto programadores em Visual Studio utilizarem essa técnica daí pensei em usar também. Segue anexo o erro Renato. Grato desde já
  18. Oi Juliomar, Usando o Hyper-V eu consegui um melhor desempenho no Windows Server.. E também por ser a versão que meu cliente comprou as licenças.
  19. Oi amigos,Estou tentando instalar o delphi XE3 no windows server 2008 r2 (hyper V) e após a instalação o delphi simplesmente abre e dá erro carregando os pacotes de componente do próprio delphi.Alguém já passou por isso? Será que tenho que configurar algo diferente na permissões do windows server para rodar o delphi corretamente? Já instalei como Administrador e etc e nada. Já tentei o XE5 e aconteceu a mesma coisa.Grato desde já,
  20. Oi André, Já passei por erros parecidos várias vezes. Minha solução está aqui: Siga os passos e dará certo. Atc,
  21. ACBrCTe.EventoCTe.Evento.Clear; with ACBrCTe.EventoCTe.Evento.Add do begin infevento.chCTe := Chave; infEvento.CNPJ := sCNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := nSequencia; infEvento.detEvento.xCondUso := ''; ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Clear; with ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Add do begin grupoAlterado := sGrupo; campoAlterado := sCampo; valorAlterado := sValor; nroItemAlterado := iNumItem; end; end; ACBrCTe.EnviarEventoCTe(iNumLote); É só pesquisar na pasta exemplos no ACBR que tem tudo
  22. Bom dia, Post o xml também. Atc,
  23. Oi Ítalo, Vou resumir o que venho recebendo nos arquivos de muitas empresas com duas palavras que você postou: ZORRA e PORCARIA. Eu já tinha feito a alternativa que você me passou. Agradeço a atenção dispensada de qualquer forma. Abraço
  24. Boa tarde Italo, Sobre a questão da apostrofe provavelmente foi um erro ao copiar pois dentro do arquivo (anexo) está ok. Já quanto aos namespace concordo contigo, porém, a empresa responsável pelo desenvolvimento do arquivo não aceitou meu argumento alegando que o visualizador de DF-e lê normalmente ( nada a comentar). Eu estava analisando a fonte do ACBRNFe e pensei: Se ignoramos a namespace e considerar somente a versão (que no arquivo está escrita corretamente)? Pelo que vi tem vários amigos aqui com o mesmo problema devido à auto-sapiência de algumas empresas de software que acham que seu sistema está sempre certo. Bem, é só uma sugestão. Grato. 31151107420928000255550010002934571152934576-nfe Autorizado.xml 31151107420928000255550010002954641152954643-nfe Autorizado.xml
  25. Italo, Já fiz esse teste e deu certo.. substituí: <nfeProc xmlns='http://www.portalfiscal.inf.br/nfe' xmlns:ds='http://www.w3.org/2000/09/xmldsig#' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xsi:schemaLocation='http://www.portalfiscal.inf.br/nfe procNFe_v3.10.xsd' versao='3.10'> <NFe xmlns="http://www.portalfiscal.inf.br/nfe"> por ><nfeProc versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe"><NFe xmlns="http://www.portalfiscal.inf.br/nfe"> e deu certinho. Também fiz o seguinte. Baixei o Visualizador de DF-e no portal e testei. Lá não erro algum. Fiz isso pois liguei para o fornecedor que está enviando esses arquivos e me pediram pra testar do visualizador. Grato
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...