Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

dbechelli

Membros Pro
  • Posts

    14
  • Joined

  • Last visited

About dbechelli

Recent Profile Visitors

191 profile views

dbechelli's Achievements

Rookie

Rookie (2/14)

  • Collaborator Rare
  • First Post
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

1

Reputation

  1. Bom dia, Estamos com um cliente implantando o sistema em Roraima, inclusive para emissão da NFCe. Contudo, os canais de orientação não estão acessíveis e a contabilidade de lá insiste que não tem necessidade do CSC para emissão. Alguma orientação sobre o assunto? PS: Peço desculpas antecipadamente aos moderadores caso este tópico já tenho sido abordado. Na existencia, poderiam me indicar o link? Obrigado.
  2. Honestamente não vi nada em meu código que estivesse diferente do arquivo exemplo: Chamada: GerarCTeOS: procedure TFRMCTE.GerarCTeOS(NumCTe: String); var NTAF, NNRE : STRING; begin //CTeOS WITH FRMCONFIG, DM DO begin QLICENCA.Close; QLICENCA.Open; with ACBrCTe1.Conhecimentos.Add.CTe do begin if rgVersaoDF.ItemIndex = 0 then infCTe.versao := 2.0 else infCTe.versao := 3.0; Ide.cUF := UFtoCUF(QLICENCAESTADO.AsString); Ide.CFOP := STRTOINT (cbCFOP.Text); Ide.natOp := TXNATUREZA.Text; Ide.modelo := 67; Ide.serie := 32; Ide.nCT := StrToInt(NumCTe); Ide.cCT := GerarCodigoDFe(Ide.nCT); Ide.dhEmi := Now; Ide.tpImp := tiRetrato; case rgFormaEmissao.ItemIndex of 0: Ide.tpEmis := teNormal; 1: Ide.tpEmis := teDPEC; 2: Ide.tpEmis := teFSDA; 3: Ide.tpEmis := teSVCRS; 4: Ide.tpEmis := teSVCSP; end; if rgFormaEmissao.ItemIndex = 2 then begin ide.dhCont := Now; ide.xJust := 'Entrada em contingência por falhas na conexão com o web service.'; end; if rgTipoAmb.ItemIndex = 0 then Ide.tpAmb := taProducao else Ide.tpAmb := taHomologacao; case cbFinalidade.ItemIndex of 0: Ide.tpCTe := tcNormal; 1: Ide.tpCTe := tcComplemento; 2: Ide.tpCTe := tcAnulacao; 3: Ide.tpCTe := tcSubstituto; end; Ide.procEmi := peAplicativoContribuinte; Ide.verProc := '3.0'; Ide.cMunEnv := StrToInt(edtEmitCodCidade.Text); Ide.xMunEnv := Trim(edtEmitCidade.Text); Ide.UFEnv := Trim(edtEmitUF.Text); case cbModal.ItemIndex of 0: Ide.modal := mdRodoviario; 1: Ide.modal := mdAereo; 2: Ide.modal := mdAquaviario; 3: Ide.modal := mdFerroviario; 4: Ide.modal := mdDutoviario; 5: Ide.modal := mdMultimodal; end; case cbTipoServico.ItemIndex of 0: Ide.tpServ := tsNormal; 1: Ide.tpServ := tsSubcontratacao; 2: Ide.tpServ := tsRedespacho; 3: Ide.tpServ := tsIntermediario; 4: Ide.tpServ := tsMultimodal; 5: Ide.tpServ := tsTranspPessoas; 6: Ide.tpServ := tsTranspValores; 7: Ide.tpServ := tsExcessoBagagem; end; case cbPapelTomador.ItemIndex of 0: ide.indIEToma := inContribuinte; 1: ide.indIEToma := inIsento; 2: ide.indIEToma := inNaoContribuinte; end; QMUNICIPIO.Close; QMUNICIPIO.SQL.Clear; QMUNICIPIO.SQL.Add('SELECT * FROM MUNICIPIO WHERE UF = '''+CBUFINI.Text+''' AND DESCRICAO = '''+CBMUNINI.Text+''''); QMUNICIPIO.Open; Ide.cMunIni := QMUNICIPIOCOD_IBGE.AsInteger; Ide.xMunIni := cbMunIni.Text; Ide.UFIni := cbUFini.Text; QMUNICIPIO.Close; QMUNICIPIO.SQL.Clear; QMUNICIPIO.SQL.Add('SELECT * FROM MUNICIPIO WHERE UF = '''+CBUFFIM.Text+''' AND DESCRICAO = '''+CBMUNFIM.Text+''''); QMUNICIPIO.Open; Ide.cMunFim := QMUNICIPIOCOD_IBGE.AsInteger; Ide.xMunFim := cbMunFim.Text; Ide.UFFim := cbUFFim.Text; QMUNICIPIO.Close; {Dados do Percurso} //ide.infPercurso.Add.UFPer := 'PR'; {Dados do Emitente} Emit.CNPJ := Trim(QLICENCACNPJ.AsString); Emit.IE := Trim(QLICENCAEMP_INSC_ESTADUAL.AsString); Emit.xNome := Trim(QLICENCAEMP_RAZAO_SOCIAL.AsString); Emit.xFant := Trim(QLICENCAEMP_FANTASIA.AsString); Emit.enderEmit.xLgr := Trim(QLICENCAENDERECO.AsString); Emit.enderEmit.nro := Trim(QLICENCANUMERO.AsString); Emit.enderEmit.xCpl := Trim(QLICENCAEMP_COMPLEMENTO.AsString); Emit.enderEmit.xBairro := Trim(QLICENCABAIRRO.AsString); Emit.enderEmit.cMun := QLICENCAEMP_IBGE.AsInteger; Emit.enderEmit.xMun := Trim(QLICENCACIDADE.AsString); Emit.enderEmit.CEP := QLICENCACEP.AsInteger; Emit.enderEmit.UF := Trim(QLICENCAESTADO.AsString); Emit.enderEmit.fone := Trim(QLICENCATELEFONES.AsString); //Adiciona dados do tomador do serviço toma.CNPJCPF := TXCNPJ.Text; toma.IE := TXIE.Text; toma.xNome := TXRAZAO.Text; toma.xFant := TXFANTASIA.Text; toma.fone := TXTELEFONE.Text; toma.enderToma.xLgr := TXENDERECO.Text; toma.enderToma.nro := TXNUM.Text; toma.enderToma.xCpl := TXCOMPLEMENTO.Text; toma.enderToma.xBairro := TXBAIRRO.Text; toma.enderToma.cMun := STRTOINT (TXCODIBGE.Text); toma.enderToma.xMun := TXCIDADE.Text; toma.enderToma.CEP := STRTOINT (TXCEP.Text); toma.enderToma.UF := TXUF.Text; toma.enderToma.cPais := 1058; toma.enderToma.xPais := 'BRASIL'; toma.email := ''; {Carrega valores da prestacao de servico} vPrest.vTPrest := STRTOFLOAT (TXVTOTAL.Text); vPrest.vRec := STRTOFLOAT (TXVRECEBER.Text); {Carrega componentes do valor da prestacao} with vPrest.comp.Add do begin xNome := ''; vComp := 0; end; {Carrega Impostos} case cbSituacaoTrib.ItemIndex of 0: //00 - Tributação Normal ICMS BEGIN Imp.ICMS.SituTrib := cst00; Imp.ICMS.ICMS00.CST := cst00; Imp.ICMS.ICMS00.vBC := STRTOFLOAT (TXVRBC.Text); Imp.ICMS.ICMS00.pICMS:= STRTOFLOAT (TXALIQCIMS.Text); Imp.ICMS.ICMS00.vICMS:= STRTOFLOAT (TXVRICMS.Text); END; 1: //40 - ICMS Isento BEGIN Imp.ICMS.SituTrib := cst40; Imp.ICMS.ICMS45.CST:= cst40; END; 2: //41 - ICMS não Tributada BEGIN Imp.ICMS.SituTrib := cst41; Imp.ICMS.ICMS45.CST:= cst41; END; 3://51 - ICMS diferido BEGIN Imp.ICMS.SituTrib := cst51; Imp.ICMS.ICMS45.CST:= cst51; END; 4://90 - ICMS Outros BEGIN if Emit.enderEmit.UF = Rem.enderReme.UF then begin Imp.ICMS.SituTrib := cst90; Imp.ICMS.ICMS90.CST := cst90; Imp.ICMS.ICMS90.pRedBC:= 10.00; Imp.ICMS.ICMS90.vBC := 100.00; Imp.ICMS.ICMS90.pICMS := 7.00; Imp.ICMS.ICMS90.vICMS := 6.30; Imp.ICMS.ICMS90.vCred := 0.00; end; if cbCOBRAICMS.Checked = TRUE then begin Imp.ICMS.SituTrib := cstICMSOutraUF; Imp.ICMS.ICMSOutraUF.CST := cstICMSOutraUF; // ICMS Outros Imp.ICMS.ICMSOutraUF.pRedBCOutraUF := STRTOFLOAT (TXALIQINTER.Text); Imp.ICMS.ICMSOutraUF.vBCOutraUF := STRTOFLOAT (TXBCINTEREST.Text); Imp.ICMS.ICMSOutraUF.pICMSOutraUF := STRTOINT (cbPERCPARTILHA.Text); Imp.ICMS.ICMSOutraUF.vICMSOutraUF := STRTOINT (TXICMSUFTERMINO.Text); end; END; 5: //SN - Simples Nacional BEGIN Imp.ICMS.SituTrib := cstICMSSN; Imp.ICMS.ICMSSN.indSN := 1; END; end; compl.xObs := TXOBSGERAIS.Text; Imp.infAdFisco := 'Lei da Transparencia: O valor aproximado de tributos incidentes sobre o preço deste servico é de R$ '''+TXVIMPOSTOS.Text+'''. Fonte: IBPT'; imp.vTotTrib := STRTOFLOAT (TXVIMPOSTOS.Text); //Impostos federais imp.infTribFed.vPIS := (STRTOFLOAT(TXVTOTAL.Text)*0.0065); imp.infTribFed.vCOFINS := (STRTOFLOAT(TXVTOTAL.Text)*0.03); imp.infTribFed.vIR := 0; imp.infTribFed.vINSS := (STRTOFLOAT(TXVTOTAL.Text)*0.033); imp.infTribFed.vCSLL := 0; {Carrega as informacoes CTe Normal} infCTeNorm.infServico.xDescServ := TXDESCRICAOSERV.Text; infCTeNorm.infServico.qCarga := StrToFloat (TXQUANTIDADE.Text); {Informações dos documentos referenciados} {with infCTeNorm.infDocRef.Add do begin nDoc := ''; serie := ''; subserie := ''; dEmi := Date; vDoc := 0.00; end;} {Carrega informacoes do seguro} with infCTeNorm.Seg.Add do begin respSeg := rsEmitenteCTe; xSeg := TXSEGURADORA.Text; nApol := TXNUMAPOLICE.Text; end; {Carrega Informacoes do Modal} {Rodoviario} NTAF := FRMCTE.TXTAF.Text; NNRE := FRMCTE.TXNRE.Text; if NTAF <> '' then infCTeNorm.rodoOS.TAF := NTAF; if NNRE <> '' then infCTeNorm.rodoOS.NroRegEstadual := NNRE; infCTeNorm.rodoOS.infFretamento.tpFretamento := tfEventual; infCTeNorm.rodoOS.infFretamento.dhViagem := now + 1; {Carega inf veiculos do modal rodo 0-1} with infCTeNorm.rodoOS.veic do begin placa := cbPLACA.Text; RENAVAM := TXRENAVAM.Text; UF := cbUFVEICULO.Text; //Se for de Terceiro {Prop.CNPJCPF := ''; Prop.xNome := ''; Prop.UF := ''; prop.TAF := ''; prop.NroRegEstadual := ''; Prop.IE := ''; Prop.tpProp := tpTACAgregado;} end; {Carrega dados da CTe substituta 0-1} {with infCTeNorm.infCTeSub do begin chCte := ''; //Se tomador não é Contribuinte tomaNaoICMS.refCteAnu := ''; //Se tomador for Contribuinte case TipoDoc of //Tipo do Documento que o Tomador Emitiu para anulação de valor do Cte Anterior 0: tomaICMS.refNFe := '';//NFe 1: tomaICMS.refCte := '';//CTe 2://NF begin tomaICMS.refNF.CNPJCPF := ''; tomaICMS.refNF.modelo := ''; tomaICMS.refNF.serie := 0; tomaICMS.refNF.subserie := 0; tomaICMS.refNF.nro := 0; tomaICMS.refNF.valor := 0; tomaICMS.refNF.dEmi := Date; end; end; end;} {CTe de Complemento de valor} //InfCTeComp.chave := ''; {CTe de Anulacao de valores} //infCteAnu.chCTe := ''; //infCteAnu.dEmi := Date; {Seleciona o dados dos Autorizados a baixar o xml} //autXML.Add.CNPJCPF := ''; {Informações do Responsável Técnico pela emissão do DF-e} infRespTec.xContato := ''; infRespTec.email := ''; infRespTec.fone := ''; end; end;
  3. Boa tarde, Sim, esta gerando normalmente pelo exemplo! Não sei dizer o por que de minha aplicação, isso estar acontecendo. Vou revisar os códigos mais uma vez. Obrigado e bom domingo!!!
  4. Boa noite, saberiam dizer o porque o XML está sendo gerado vazio (em anexo)? Dada a pandemia, minha aplicação ficou sem emitir CTeOS por mais de um ano. Fiz a atualização dos fontes para a versão mais recente (Delphi), inclusive dos schemas. Nenhum erro é apresentado, a não ser quando efetuo a validação, que não encontra nada no XML. Obrigado pelo apoio. 31210707410645000141670320000000671090929676-cte.xml
  5. Segui por duas tentativas, porem sem sucesso! Estou anexando o log de instalação. Obrigado! log_Delphi_10.3_Rio_Win32.txt
  6. Obrigado pelo link. Segui o recomendado, entre outros que procurei. Criei uma nova, baixei a ultima versão via SVN, conforme recomendado, apaguei as versões anteriores, instalei como Administrador. Até aqui, tudo certo! Quando abro o Delphi, ele mostra a imagem em anexo para todos os componentes. Já confirmei e os mesmos estão lá! Alguma sugestão? Obrigado!
  7. Bom dia pessoal. Estou com um problema parecido com o amigo acima! Segue log em anexo. Obrigado! log_Delphi_10.3_Rio_Win32.txt
  8. Bom dia, estou com um problema ao compilar ACBrCTeDACTEClass e ACBrCTe.pas: [dcc32 Error] ACBrCTeDACTEClass.pas(60): E2003 Undeclared identifier: 'piacbrAllPlatforms' [dcc32 Fatal Error] UConfiguracoes.pas(2164): F2063 Could not compile used unit 'ACBrCTe.pas' Acabei de efetuar a atualização no SVN da pasta: ACBr\Fontes\ACBrDFe\ACBrCTe Agradeço pela atenção!
  9. Boa tarde pessoal! Sou um pouco novato no assunto e estou com a mesma dificuldade! Porem quando tento fazer a re-instalação do componente do ACBrCTe esta dando o seguinte erro: Alguma dica
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.