Rodrigo Cardilo

Boa tarde amigos, Eu acabei de receber a mesma recusa do amigo Fernando pelo Bradesco. Discuti com eles que no Manual (em anexo) não é explícito essa informação do Sequencial na linha 2 porém não tem discussão. Alterei o arquivo na mão e foi aceito perfeitamente. Fiz manualmente a alteração proposta pelo Fernando e não tenho mais problema com o Bradesco. ACBrBancoBradesco.pas 4008-524-0339-mp-operacionais-troca-arquivos-240-posicoes.pdf

Boa tarde amigos, Estou gerando o sped fiscal e o registro 0305 não está sendo gerado. Estou utilizando o código abaixo: with Registro0300New do begin COD_IND_BEM := DM1.TB07100CODIGO.AsString; IDENT_MERC := DM1.TB07100TIPO.Value; DESCR_ITEM := DM1.TB07100DESCRICAO.Value; COD_PRNC := ''; if DM1.TB07100TIPO.Value = 2 then COD_PRNC := DM1.TB07100CODPRINCIPAL.AsString; COD_CTA := DM1.TB07100CODCTA.AsString; NR_PARC := DM1.TB07100PARCELAS.Value; // FILHO with Registro0305New do begin COD_CCUS := DM1.TB07100CODCUSTO.Value; VIDA_UTIL := DM1.TB07100VIDAUTIL.Value; FUNC := DM1.TB07100FUNCAO.Value; end; end; Alguém sabe me dizer se estou fazendo algo errado pois no arquivo não aparece o registro 0305, somente o 0300. Grato desde já

Eu também estava com esse problema. Resolvi assim: ACBrNFe1.SSL.SSLXmlSignLib := xsLibXml2;

Galera de MG, Vou explicar como resolvi. Eu fui no SIARE. Segui os passos do credenciamento conforme explica no manual http://www.sped.fazenda.mg.gov.br/spedmg/export/sites/spedmg/cte/downloads/Manual_Credenciamento_CTe_Julho2017.pdf. Na hora de liberar (tem que esperar as 2 horas) vai perguntar o tipo de modal. Eu marquei rodoviário e CTE-OS. A contabilidade antes só tinha marcado CTE-OS e não estava funcionando. Pode ser coincidência mas agora tá funcionando normalmente. Espero ter ajudado.

Oi amigos, Estou com um problema na emissão de CTE-OS, Até dezembro eu enviava sem problemas. Porém fui enviar hoje e apareceu a mensagem Rejeicao: Versao informada para o modal nao suportada. Eu já conferi o xml de trás pra frente e não achei problema algum. Estou postando caso alguém possa me ajudar, fico agradecido. 0-env-lot.xml 0-pro-lot.xml

Segue como resolvi: (Faça as adaptações ao seu projeto) Eu tenho um procedure onde habilito ou não as propriedades do componente: procedure TFRC_CTE.LerConfiguracao; var Ok: Boolean; StreamMemo: TMemoryStream; begin DM1.ACBrCTe1.Configuracoes.Certificados.NumeroSerie := DM1.TB99840NUMSERIE.Value; DM1.ACBrCTe1.Configuracoes.Certificados.Senha := DM1.TB99840SENHA_CERTIFICADO.Value; case DM1.TB99840FORMAEMISSAOCTE.Value of 1: DM1.ACBrCTe1.Configuracoes.Geral.FormaEmissao := teNormal; 8: DM1.ACBrCTe1.Configuracoes.Geral.FormaEmissao := teSVCSP; end; case DM1.TB99840SALVAR.Value of 0: DM1.ACBrCTe1.Configuracoes.Geral.Salvar := False; 1: DM1.ACBrCTe1.Configuracoes.Geral.Salvar := True; end; // rotina adicionada para salvar pasta mensal DM1.ACBrCTe1.Configuracoes.Arquivos.Salvar := True; DM1.ACBrCTe1.Configuracoes.Geral.Salvar := True; DM1.ACBrCTe1.Configuracoes.WebServices.Salvar := True; DM1.ACBrCTe1.Configuracoes.Arquivos.EmissaoPathCTe := True; DM1.ACBrCTe1.Configuracoes.Arquivos.SepararPorMes := True; DM1.ACBrCTe1.Configuracoes.Arquivos.AdicionarLiteral := True; DM1.ACBrCTe1.Configuracoes.Arquivos.PathSalvar := IncludeTrailingPathDelimiter(DM1.TB99840PATHCTE.Value); DM1.ACBrCTe1.Configuracoes.Arquivos.PathCTe := IncludeTrailingPathDelimiter(DM1.TB99840PATHCTE.Value); DM1.ACBrCTe1.Configuracoes.Arquivos.PathInu := IncludeTrailingPathDelimiter(DM1.TB99840PATHCTE.Value); DM1.ACBrCTe1.Configuracoes.Arquivos.PathEvento := IncludeTrailingPathDelimiter(DM1.TB99840PATHCTE.Value); DM1.ACBrCTe1.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + '\SchemasCte'; DM1.ACBrCTe1.DACTe.PathPDF := PastaMensalCTe(DtInicial, 'PDF'); DM1.ACBrCTe1.Configuracoes.WebServices.UF := DMG.TB99100UF.Value; DM1.ACBrCTe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok, DM1.TB99840AMBIENTECTE.AsString); if DM1.ACBrCTe1.DACTe <> nil then begin DM1.ACBrCTe1.DACTe.Logo := DM1.TB99840LOGO.Value; DM1.ACBrCTeDACTeRL1.Logo := DM1.TB99840LOGO.Value; case DM1.TB99840DACTE.Value of 1: DM1.ACBrCTe1.DACTe.TipoDACTe := tiRetrato; 2: DM1.ACBrCTe1.DACTe.TipoDACTe := tiPaisagem; end; case DM1.TB99840VISUALIZADACTE.Value of 0: DM1.ACBrCTe1.DACTe.MostrarPreview := False; 1: DM1.ACBrCTe1.DACTe.MostrarPreview := True; end; end; case DM1.TB99840EMAILAUTO.Value of 0: EmailAuto := False; 1: EmailAuto := True; end; end; Daí criei uma procedure para ativar ou desativar os campos que "atrapalham" o local de salvar o pdf procedure TFRC_CTE.ConfigPDF(Liga: Boolean); begin with DM1.ACBrCTe1 do begin Configuracoes.Arquivos.OrdenacaoPath.Clear; Configuracoes.Arquivos.AdicionarLiteral := Liga; Configuracoes.Arquivos.Salvar := Liga; Configuracoes.Arquivos.SepararPorAno := False; Configuracoes.Arquivos.SepararPorCNPJ := False; Configuracoes.Arquivos.SepararPorDia := False; Configuracoes.Arquivos.SepararPorMes := Liga; Configuracoes.Arquivos.SepararPorModelo := False; end; end; Agora ficou fácil. Toda vez que vou gerar o pdf antes eu chamo a procedure ConfigPDF(False); Depois de gerar o pdf eu chamo a procedure novamente : ConfigPDF(True) ; Lembrando que pra geração de e-mail deve ser feito a mesma coisa. Espero ter ajudado.

Boa tarde amigos, Atualizei os fontes hoje e estou tentando salvar o pdf. Antes eu fazia da seguinte forma. Dentro da pasta do anomes (201710) eu criava uma pasta PDF e lá salvava o arquivo normalmente. A propriedade pastapdf do dacte ficava por exemplo: C:\Sistema\ArqCte\201710\PDF Isso já bastava para salvar automaticamente nessa pasta Porém depois de atualizar eu continuo alimentando o componente com o mesmo path mas agora salva na seguinte pasta: C:\Sistema\ArqCTE\201710\PDF\CTeOS. Uma alternativa que eu percebi alterar a propriedade AdicionarLiteral para False porém isso vai atrapalhar o local para salvar o xml. Alguém sabe me dizer porque foi mudado isso no componente e como voltar como era antes? Grato

Bom dia amigos, Preciso de programador free-lance com experiência em Delphi e Firebird (Datasnap, Dbxpress, firedac e ACBR) Caso alguém esteja interessado favor entrar em contato pelo skype cardilo ou pelo email [email protected] Obrigado.

Cara, é só seguir esse modelo que funciona. with seg.Add do begin if RadioGroup5.ItemIndex = 0 then respSeg := rsEmitente else respSeg := rsTomadorServico; end; with seg.Add do begin CNPJ := trim(cxTextEdit21.Text); xSeg := copy(trim(cxTextEdit19.Text), 1, 30); //CNPJCPF := trim(cxTextEdit21.Text); nApol := copy(trim(cxTextEdit20.Text), 1, 20); with aver.Add do begin nAver := '9988444'; end; end; Estou enviando sem problema.

sim, isso mesmo

nAver não pode ser zero. Usei a seguinte regra: Na NT 2017.002 há o seguinte: 4. Orientações de Preenchimento Informações da averbação do seguro (modal rodoviário): 1.Em caso de sucesso na comunicação entre transportador e seguradora, o campo número da averbação (nAver) poderá ser preenchido com o protocolo gerado pela seguradora. 2.Em caso de falha na integração entre transportadora e o sistema da seguradora da carga, poderá ser preenchida a tag do número da averbação (nAver) com a sequência 99999.

Estou fazendo dessa maneira. A maioria das seguradoras que não tem o sistema integrado me retornaram dizendo que só geram o numero de averbação no mês subsequente da emissão dos ctes.

Bom dia Bruno, Você não prefere utilizar essas configurações pelo banco de dados? Fica mais simples e fácil de alterar. Eu tenho cliente que possuem carteira de até 5 bancos ao mesmo tempo e funciona perfeitamente. Fica a dica. Abraço

Galera, desculpe minha ignorância mas procurei vários exemplos no google para fazer esse método e não consegui achar nada que se enquadre em minha estrutura DataSnap (Firedac no servidor e DBX no cliente). Alguém aí tem alguma idéia ou um exemplo de como consigo fazer esse método? Grato

Entendi.. Vou pesquisar esse método e tentar aqui.. Obrigado a todos pelas dicas.

Mas como eu aplicaria o commit pela aplicação cliente?

Amigo xyberx, eu imaginei que seria isso, mas na tecnologia firedac não tenho a mínima noção de como acionar o commit após o comando. Você sabe de algum exemplo que possa me explicar melhor o uso do commit? Grato desde já

Agradeço a dica mas não resolve meu problema. Grato.

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=)

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,

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