-
Total de ítens
260 -
Registro em
-
Última visita
Tudo que Rodrigo Cardilo postou
-
Delphi com DataSnap e FireDAC
Rodrigo Cardilo replied to Michel Ouriques's tópico in Object Pascal - Delphi & Lazarus
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á, -
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=)
-
Estado MG parado , tem outra opcao de enviar
Rodrigo Cardilo replied to walter faria's tópico in ACBrCTe
Utilize a opção SVC-SP. Sugiro ler melhor sobre o assunto de contigência no portal MG http://portalcte.fazenda.mg.gov.br/. -
Algum moderador pode olhar esse problema por favor?
-
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
-
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,
-
Diminuir espaçamento entre os boletos carnês
Rodrigo Cardilo replied to Gracilane Lima's tópico in ACBrBoleto
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 -
Como alterar o banco do boleto dinamicamente ?
Rodrigo Cardilo replied to joaolenosi's tópico in ACBrBoleto
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; -
Rejeição: Não informado grupo ICMS p/ UF destino
Rodrigo Cardilo replied to Ariboni's tópico in ACBrNFe
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 -
Rejeição: Não informado grupo ICMS p/ UF destino
Rodrigo Cardilo replied to Ariboni's tópico in ACBrNFe
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á, -
Inscrição Estadual empresa desenvolvedora
Rodrigo Cardilo replied to Fabio Damasceno Silva's tópico in ACBrNFe
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,- 1 reply
-
- 1
-
-
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,
-
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,
-
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,
-
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,
-
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á
-
Instalação Delphi XE3 no Windows Server 2008
um tópico no fórum postou Rodrigo Cardilo Object Pascal - Delphi & Lazarus
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á, -
Problemas após atualizar acbr
Rodrigo Cardilo replied to Andre Luiz Ucella's tópico in Dúvidas Gerais sobre o ACBr
Oi André, Já passei por erros parecidos várias vezes. Minha solução está aqui: Siga os passos e dará certo. Atc, -
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
-
Bom dia, Post o xml também. Atc,
-
Problema ao carregar xml: "Não encontrei o atributo: versao"
Rodrigo Cardilo replied to Rodrigo Cardilo's tópico in ACBrNFe
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 -
Problema ao carregar xml: "Não encontrei o atributo: versao"
Rodrigo Cardilo replied to Rodrigo Cardilo's tópico in ACBrNFe
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 -
Problema ao carregar xml: "Não encontrei o atributo: versao"
Rodrigo Cardilo replied to Rodrigo Cardilo's tópico in ACBrNFe
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