josemarmt

Caro Wesley, também sou de juiz de fora e me parece q vc já esta a um passo a minha frente. Ainda não consegui gerar a NFSe. Será que poderíamos trocar algumas informações por email ou telefone?

Caro Italo, espero que na sua virada de ano tudo tenha sido da melhor forma possível. Continuo com o erro como mostrado na imagem do meu primeiro post, não sei se estou fazendo alguma coisa errada. Não sei ao certo se a sequencia esta correta, me corrija por favor. 1º- É obrigatório a geração do RPS? Tenho que imprimí-lo? 2º- No botão Gerar e Enviar NFSe informo o RPS que foi gerado anteriormente correto? Logo me parece que a 1ª dúvida esta respondida, ou seja, é obrigatório, pois e com este número que irei gerar a NFSe. Sendo assim, em que momento é atribuido ou gerado o número da NFSe. E é ao clicar neste botão em questão que me é apresentado o erro. Grato.

caso ajude este é o site da profeitura http://www.jfissdigital.pjf.mg.gov.br/portal/index.php tem tb o site da empresa que ministrou a palestra http://www.infofisco.com.br/solucoes/nfse-prefeituras/nfs-e-gerador/juiz-de-fora/

ok, vou continuar testando e postando novas situações. Favor postar qdo tiver novidades, obrigado.

Bom dia Italo, Vou com certeza me basear no programa exemplo.!!! Em função de uma palestra realizada sexta feira passada por uma empresa de Belo horizonte aqui na cidade de Juiz de Fora, me pareceu que implementaram o webservice para Gerar NFSe, não houve em nenhum momento referencia a palavra RPS. Sendo assim utilize o botão [Gerar e Enviar Lote]. ??? Você deve utilizar a pasta de schema referente a cidade em questão, no caso de Juiz de Fora é a pasta BHISS. - Seria através da propriedade PathSchemas?

Boa noite Italo, Muitíssimo obrigado pelo seu pronto auxílio. Verifiquei q Juiz de Fora agora se encontra na lista do combobox. Confesso que estou confuso com este novo processo. Existe algum tutorial onde eu possa me basear para evitar ficar aqui no forum postando todas as minhas dúvidas. Por exemplo: a real necessidade de se gerar a RPS? geração e envio de Lotes? Posso trabalhar somente com as NFSe? como selecionar qual schema irei utilizar? como observou as dúvidas são muitas. Quando clico no botão de Gerar e Enviar NFSe o erro postado na imagem continua ocorrendo. Mas uma vez agradeço. Abraços.

Caros senhores!!! Já utilizo os módulos NFe e CTe em alguns sistemas que desenvolvi e só tenho a agradecer a e parabenizar esta comunidade. Estou começando agora um projeto com a utilização do módulo da NFSe, entretanto ainda não consegui me situar muito bem. De partida, utilizando o demo ao gerar uma nota me é apresentado o erro em anexo. Outro ponto alterei o arquivo pnfsConversao de modo a incluir a cidade de Juiz de Fora junto com Belo Horizonte uma vez que a prefeitura adotou o mesmo padrão. Não soube como incluir a cidade de Juiz de Fora para aparecer no combobox da configuração. Contandocom a ajuda de vcs, desde já agradeço e tenham to

Bom dia Rodrigo, agradeço a sugestão, porém não funcionou. abraços.

Caros colegas. Possuo um sistema instalado em uma plataforma com o windows server 2003 e passou a me apresentar o erro acima até mesmo na tarefa de verificação do status, não sei se por coincidência o mesmo veio após a nova cadeia de caracter. Enfim, se alguém puder me dar uma luz... Desde já agradeço. Abraço a todos.

Caros senhores. Me parece q o problema esta na execução do programa no win7, pois no XP realizei os mesmos procedimentos e rodou normalmente, como estou muito atrasado na entrega do sistema, ja que o usuário não tem mais ctr em formulário continuo, não tenho como buscar a solução neste momento. Vou interromper este processo, mas alguem tiver interesse em dar continuidade, fica ai a questão. Um grande abraço a todos e FELIZ ANO NOVO!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Mas na minha maquina funciona!! devo ter deixado de instalar alguma coisa na maquina do cliente. Grato

infelizmente o problema presiste como pode ver em imagem anexa. grato

Desculpe, windows 7, firefox, não existe o proxy, por via das dúvidas instalei o acbr monitor, pedi o status e ele pediu a saenha e retornou a princípio normalmente. Grato.

Caros senhores, venho desta vez solicitar o auxilio no que se refere a algum ponto na instalação no cliente do CTe que não deve ter sido realizado, pois em meu micro de desenvolvimento o mesmo não ocorre. com o cd de instalação do Serasa experian realizei a instalação padrão. realizei também a inslação das dlls que constam na pasta ...\DLLs\Capicom. copiei a pasta Schemas para o diretório no qual esta o aplicativo. entretanto o erro abaixo ocorre antes mesmo da solicitação da senha do certificado WebService Consulta Status Serviço: - Inativo ou Inoperante tente novamente. - O tempo limite da operação foi atingido - URL:https://hcte.fazenda.mg.gov.br/cte/services/CteStatusServico- SOAPAction:http://www.portalfiscal.inf.br/cte/wsdl/CteStatusServico/c teStatusServicoCT. Grato por qualquer dica que possa ajudar. Desde já agradecimente Josemar

Caro gransoft, sua sugetão não funcionou. de qualquer forma muito obrigado, vale salientar q aquela forma q passei esta funcionando, um amigo meu programador comentou até que poderia ser um bug do compenente. Abraço a todos.

fiz assim e funcionou ACBrCTe1.Conhecimentos.Items[0].SaveToFile; s := ACBrCTe1.Conhecimentos.Items[0].NomeArq; acbrcte1.Conhecimentos.Clear; Acbrcte1.Conhecimentos.LoadFromFile(s); acbrcte1.Enviar(StrToInt(vAux)); porém estou ainda com uma mensagem de erro 585 Rejeição: IE Emitente não autorizada a emitir CT-e para o modal informado. sendo q esta tudo liberado para a fase de testes, homologação como pode ver no email recebido Prezados, Boa tarde. Informamos o credenciamento como emissor de CT-E do estabelecimento informado no formulário encaminhado, e que o ambiente de homologação já foi liberado para o mesmo. Seguem os endereços dos WebService de homologação do CT-e de MG: https://hcte.fazenda.mg.gov.br/cte/serv ... ncelamento https://hcte.fazenda.mg.gov.br/cte/serv ... utilizacao https://hcte.fazenda.mg.gov.br/cte/services/CteRecepcao https://hcte.fazenda.mg.gov.br/cte/serv ... etRecepcao https://hcte.fazenda.mg.gov.br/cte/serv ... tusServico https://hcte.fazenda.mg.gov.br/cte/services/CteConsulta Caso queiram liberar o ambiente de produção para os estabelecimentos já cadastrados e em fase de testes no ambiente de homologação, favor encaminhar um e-mail solicitando a liberação e informando os dados dos estabelecimentos (Razão Social, Inscrição Estadual e CNPJ) pelo menos 24h antes da data prevista para início da emissão do CT-e em produção. Att. Equipe SPED Secretaria de Estado de Fazenda de Minas Gerais SRE/SAIF/DIEF/Divisão de Escrituração Digital ------------------------- vou testar sua sugestão e retorno o resultado valeu, [] Agradecidamente, Josemar

verifiquei, mas me parece q não ocorre como consta o código abaixo. botão para gerar: procedure TfrmDemo_ACBrCTe.btnGerarCTeClick(Sender: TObject); var vAux : String; begin if not(InputQuery('WebServices Enviar', 'Numero do Conhecimento', vAux)) then exit; vAux := fmtzero(vAux,6); gerou := false; GerarCTe(vAux); if not gerou then exit; ACBrCTe1.Conhecimentos.Items[0].SaveToFile; ShowMessage('Arquivo gerado em: '+ACBrCTe1.Conhecimentos.Items[0].NomeArq); MemoDados.Lines.Add('Arquivo gerado em: '+ACBrCTe1.Conhecimentos.Items[0].NomeArq); MemoResp.Lines.LoadFromFile(ACBrCTe1.Conhecimentos.Items[0].NomeArq); LoadXML(MemoResp, WBResposta); PageControl2.ActivePageIndex := 1; end; função gerarCTe procedure TfrmDemo_ACBrCTe.GerarCTe(NumCTe: String); var i, j, CodigoMunicipio, Tomador: Integer; nota1, nota2, xcgcreme, xcgcdest, xcgc, xnummov, xserie, xciffob, xcpfreme, xcpfdest, xcancela, telreme, teldest, dcarga, ciffob : string; xvalormov, xbasecalc, xicms, xaliquota, vcarga : real; xdatamov : tdate; begin ACBrCTe1.Conhecimentos.Clear; VKDBFNTX1.Active := true; VKDBFNTX2.Active := true; VKDBFNTX3.Active := true; VKDBFNTX4.Active := true; VKDBFNTX1.Filtered := false; VKDBFNTX1.Filter := 'cgc = ' + QuotedStr('10.745.668/0001-11') + ' and numcon = ' + QuotedStr(NumCTe + '/ '); VKDBFNTX1.Filtered := true; if VKDBFNTX1.IsEmpty then begin showmessage('CTR não encontrado.'); gerou := false; exit; end; VKDBFNTX1.First; while not VKDBFNTX1.Eof do begin VKDBFNTX2.Filtered := false; VKDBFNTX2.Filter := 'cgc = ' + QuotedStr('10.745.668/0001-11') + ' and numcon = ' + QuotedStr(NumCTe + '/ '); VKDBFNTX2.Filtered := true; VKDBFNTX3.Filtered := false; VKDBFNTX3.Filter := 'cgc = ' + QuotedStr('10.745.668/0001-11') + ' and numcon = ' + QuotedStr(NumCTe + '/ '); VKDBFNTX3.Filtered := true; with ACBrCTe1.Conhecimentos.Add.CTe do begin xcancela := VKDBFNTX1.fieldbyname('cancela').AsString; xnummov := '00'+VKDBFNTX2.fieldbyname('conhece').AsString; xdatamov := VKDBFNTX2.fieldbyname('datacon').AsDateTime; xvalormov := VKDBFNTX2.fieldbyname('totprest').AsFloat; xbasecalc := VKDBFNTX2.fieldbyname('basecalc').AsFloat; xicms := VKDBFNTX2.fieldbyname('icms').AsFloat; xaliquota := VKDBFNTX2.fieldbyname('aliquota').AsFloat; xciffob := VKDBFNTX2.fieldbyname('cgcreme').AsString; xcgcreme := VKDBFNTX2.fieldbyname('cgcreme').AsString; xcpfreme := VKDBFNTX2.fieldbyname('cpfreme').AsString; xcgcdest := VKDBFNTX2.fieldbyname('cgcdest').AsString; xcpfdest := VKDBFNTX2.fieldbyname('cpfdest').AsString; ciffob := VKDBFNTX2.fieldbyname('ciffob').AsString; Ide.cUF := CTeUtil.UFtoCUF(edtEmitUF.Text); Ide.cCT := StrToInt(VKDBFNTX2.fieldbyname('conhece').AsString); //Caso não seja preenchido será gerado um número aleatório pelo componente Ide.CFOP := StrToInt(copy(VKDBFNTX2.fieldbyname('cfo').AsString,1,1) + copy(VKDBFNTX2.fieldbyname('cfo').AsString,3,3)); Ide.natOp := 'PRESTAÇÃO DE SERVIÇO'; if VKDBFNTX1.fieldbyname('fpago').AsString = 'P' then Ide.forPag := fpPago // ou Pago else Ide.forPag := fpAPagar; // ou APagar Ide.modelo := '57'; Ide.serie := 0; Ide.nCT := StrToInt(VKDBFNTX2.fieldbyname('conhece').AsString); Ide.dhEmi := Now; Ide.tpImp := tiRetrato; case rgFormaEmissao.ItemIndex of 0: Ide.tpEmis:=teNormal; 1: Ide.tpEmis:=teContingencia; 2: Ide.tpEmis:=teSCAN; 3: Ide.tpEmis:=teDPEC; 4: Ide.tpEmis:=teFSDA; end; if rgTipoAmb.ItemIndex = 0 then Ide.tpAmb := taProducao //Lembre-se de trocar esta variável quando for para ambiente de produção else Ide.tpAmb := taHomologacao; //Lembre-se de trocar esta variável quando for para ambiente de produção Ide.tpCTe := tcNormal; Ide.procEmi := peAplicativoContribuinte; Ide.verProc := '1.0'; //Versão do seu sistema Ide.modal := mdRodoviario; Ide.tpServ := tsNormal; VKDBFNTX4.Filtered := false; VKDBFNTX4.Filter := 'cgccli = ' + quotedstr(VKDBFNTX2.fieldbyname('cgcreme').AsString) + ' and ' + 'cpfcli = ' + quotedstr(VKDBFNTX2.fieldbyname('cpfreme').AsString); VKDBFNTX4.Filtered := true; Ide.cMunIni := VKDBFNTX4.fieldbyname('ibgecli').AsInteger; Ide.xMunIni := VKDBFNTX4.fieldbyname('cidcli').AsString; Ide.UFIni := VKDBFNTX4.fieldbyname('ufcli').AsString; VKDBFNTX4.Filtered := false; VKDBFNTX4.Filter := 'cgccli = ' + quotedstr(VKDBFNTX2.fieldbyname('cgcdest').AsString) + ' and ' + 'cpfcli = ' + quotedstr(VKDBFNTX2.fieldbyname('cpfdest').AsString); VKDBFNTX4.Filtered := true; Ide.cMunFim := VKDBFNTX4.fieldbyname('ibgecli').AsInteger; Ide.xMunFim := VKDBFNTX4.fieldbyname('cidcli').AsString; Ide.UFFim := VKDBFNTX4.fieldbyname('ufcli').AsString; Ide.cMunEnv := 3136702; Ide.xMunEnv := 'Juiz de Fora'; Ide.UFEnv := 'MG'; Ide.retira := rtSim; Ide.xdetretira := ''; Tomador := 0; if ciffob = 'C' then begin Ide.Toma03.Toma := tmRemetente; if trim(xcgcreme) = '' then xcgcreme := copy(xcpfreme,1,3)+copy(xcpfreme,5,3)+copy(xcpfreme,9,3)+copy(xcpfreme,13,2) else xcgcreme := copy(xcgcreme,1,2)+copy(xcgcreme,4,3)+copy(xcgcreme,8,3)+copy(xcgcreme,12,4)+copy(xcgcreme,17,2); VKDBFNTX4.Filtered := false; VKDBFNTX4.Filter := 'cgccli = ' + quotedstr(VKDBFNTX2.fieldbyname('cgcreme').AsString) + ' and ' + 'cpfcli = ' + quotedstr(VKDBFNTX2.fieldbyname('cpfreme').AsString); VKDBFNTX4.Filtered := true; Ide.Toma4.CNPJCPF := xcgcreme; end else begin Ide.Toma03.Toma := tmDestinatario; if trim(xcgcdest) = '' then xcgcdest := copy(xcpfdest,1,3)+copy(xcpfdest,5,3)+copy(xcpfdest,9,3)+copy(xcpfdest,13,2) else xcgcdest := copy(xcgcdest,1,2)+copy(xcgcdest,4,3)+copy(xcgcdest,8,3)+copy(xcgcdest,12,4)+copy(xcgcdest,17,2); VKDBFNTX4.Filtered := false; VKDBFNTX4.Filter := 'cgccli = ' + quotedstr(VKDBFNTX2.fieldbyname('cgcdest').AsString) + ' and ' + 'cpfcli = ' + quotedstr(VKDBFNTX2.fieldbyname('cpfdest').AsString); VKDBFNTX4.Filtered := true; end; telreme :=EliminaCaracteres(VKDBFNTX4.fieldbyname('telecli').AsString,'('); telreme :=EliminaCaracteres(telreme,')'); telreme :=EliminaCaracteres(telreme,'-'); telreme :=EliminaCaracteres(telreme,' '); Ide.Toma4.Toma :=tmOutros; Ide.Toma4.IE:=VKDBFNTX4.fieldbyname('inscest').AsString; Ide.Toma4.xNome:=VKDBFNTX4.fieldbyname('nomecli').AsString; Ide.Toma4.xFant:=VKDBFNTX4.fieldbyname('nomecli').AsString; Ide.Toma4.fone:=telreme; Ide.Toma4.EnderToma.xLgr:=VKDBFNTX4.fieldbyname('endcli').AsString; Ide.Toma4.EnderToma.nro:=VKDBFNTX4.fieldbyname('numcli').AsString; Ide.Toma4.EnderToma.xCpl:=VKDBFNTX4.fieldbyname('compcli').AsString; Ide.Toma4.EnderToma.xBairro:=VKDBFNTX4.fieldbyname('bairrocli').AsString; Ide.Toma4.EnderToma.cMun:=VKDBFNTX4.fieldbyname('ibgecli').AsInteger;; Ide.Toma4.EnderToma.xMun:=VKDBFNTX4.fieldbyname('cidcli').AsString; Ide.Toma4.EnderToma.CEP:=strtoint(copy(VKDBFNTX4.fieldbyname('cepcli').AsString,1,5)+copy(VKDBFNTX4.fieldbyname('cepcli').AsString,7,3)); Ide.Toma4.EnderToma.UF:=VKDBFNTX4.fieldbyname('ufcli').AsString; Ide.Toma4.EnderToma.cPais:=1058; Ide.Toma4.EnderToma.xPais:='Brasil'; compl.xCaracAd := ''; compl.xCaracSer := ''; compl.xEmi := ''; compl.fluxo.xOrig := ''; compl.fluxo.xDest := ''; compl.fluxo.xRota := ''; compl.xObs := 'DOCUMENTO EMITIDO POR ME OU EPP OPTANTE PELO SIMPLES NACINAL NAO GERA DIREITO A CREDITO FISCAL - ' + trim(VKDBFNTX2.fieldbyname('obscon').AsString) + ' ' + trim(VKDBFNTX2.fieldbyname('obscon1').AsString); Emit.CNPJ := copy(VKDBFNTX2.fieldbyname('cgc').AsString,1,2)+copy(VKDBFNTX2.fieldbyname('cgc').AsString,4,3)+ copy(VKDBFNTX2.fieldbyname('cgc').AsString,8,3)+copy(VKDBFNTX2.fieldbyname('cgc').AsString,12,4)+ copy(VKDBFNTX2.fieldbyname('cgc').AsString,17,2); Emit.IE:=edtEmitIE.Text; Emit.xNome:=edtEmitRazao.Text; Emit.xFant:=edtEmitRazao.Text; Emit.EnderEmit.xLgr:=edtEmitLogradouro.Text; Emit.EnderEmit.nro:=edtEmitNumero.Text; Emit.EnderEmit.xCpl:=edtEmitComp.Text; Emit.EnderEmit.xBairro:=edtEmitBairro.Text; Emit.EnderEmit.cMun:=strtoint(edtEmitCodCidade.Text); Emit.EnderEmit.xMun:=edtEmitCidade.Text; Emit.EnderEmit.CEP:=strtoint(edtEmitCEP.Text); Emit.EnderEmit.UF:=edtEmitUF.Text; Emit.EnderEmit.fone:=edtEmitFone.Text; VKDBFNTX4.Filtered := false; VKDBFNTX4.Filter := 'cgccli = ' + quotedstr(VKDBFNTX2.fieldbyname('cgcreme').AsString) + ' and ' + 'cpfcli = ' + quotedstr(VKDBFNTX2.fieldbyname('cpfreme').AsString); VKDBFNTX4.Filtered := true; Rem.CNPJCPF:=xcgcreme; Rem.xNome:=VKDBFNTX4.fieldbyname('nomecli').AsString; Rem.xFant:=VKDBFNTX4.fieldbyname('nomecli').AsString; Rem.EnderReme.xLgr:=VKDBFNTX4.fieldbyname('endcli').AsString; Rem.EnderReme.nro:=VKDBFNTX4.fieldbyname('numcli').AsString; Rem.EnderReme.xCpl:=VKDBFNTX4.fieldbyname('compcli').AsString; Rem.EnderReme.xBairro:=VKDBFNTX4.fieldbyname('bairrocli').AsString; Rem.EnderReme.cMun:=VKDBFNTX4.fieldbyname('ibgecli').AsInteger; Rem.EnderReme.xMun:=VKDBFNTX4.fieldbyname('cidcli').AsString; Rem.EnderReme.CEP:=strtoint(copy(VKDBFNTX4.fieldbyname('cepcli').AsString,1,5)+copy(VKDBFNTX4.fieldbyname('cepcli').AsString,7,3)); Rem.EnderReme.UF:=VKDBFNTX4.fieldbyname('ufcli').AsString; Rem.EnderReme.cPais:=1058; Rem.EnderReme.xPais:='Brasil'; Rem.CNPJCPF := xcgcreme; Rem.IE:=VKDBFNTX4.fieldbyname('inscest').AsString; telreme :=EliminaCaracteres(VKDBFNTX4.fieldbyname('telecli').AsString,'('); telreme :=EliminaCaracteres(telreme,')'); telreme :=EliminaCaracteres(telreme,'-'); telreme :=EliminaCaracteres(telreme,' '); Rem.fone:=telreme; if trim(xcgcdest) = '' then xcgcdest := copy(xcpfdest,1,3)+copy(xcpfdest,5,3)+copy(xcpfdest,9,3)+copy(xcpfdest,13,2) else xcgcdest := copy(xcgcdest,1,2)+copy(xcgcdest,4,3)+copy(xcgcdest,8,3)+copy(xcgcdest,12,4)+copy(xcgcdest,17,2); VKDBFNTX4.Filtered := false; VKDBFNTX4.Filter := 'cgccli = ' + quotedstr(VKDBFNTX2.fieldbyname('cgcdest').AsString) + ' and ' + 'cpfcli = ' + quotedstr(VKDBFNTX2.fieldbyname('cpfdest').AsString); VKDBFNTX4.Filtered := true; Dest.CNPJCPF:=xcgcdest; Dest.xNome:=VKDBFNTX4.fieldbyname('nomecli').AsString; Dest.EnderDest.xLgr:=VKDBFNTX4.fieldbyname('endcli').AsString; Dest.EnderDest.nro:=VKDBFNTX4.fieldbyname('numcli').AsString; Dest.EnderDest.xCpl:=VKDBFNTX4.fieldbyname('compcli').AsString; Dest.EnderDest.xBairro:=VKDBFNTX4.fieldbyname('bairrocli').AsString; Dest.EnderDest.cMun:=VKDBFNTX4.fieldbyname('ibgecli').AsInteger; Dest.EnderDest.xMun:=VKDBFNTX4.fieldbyname('cidcli').AsString; Dest.EnderDest.CEP:=strtoint(copy(VKDBFNTX4.fieldbyname('cepcli').AsString,1,5)+copy(VKDBFNTX4.fieldbyname('cepcli').AsString,7,3)); Dest.EnderDest.UF:=VKDBFNTX4.fieldbyname('ufcli').AsString; Dest.EnderDest.cPais:=1058; Dest.EnderDest.xPais:='Brasil'; Dest.CNPJCPF := xcgcdest; Dest.IE:=VKDBFNTX4.fieldbyname('inscest').AsString; teldest :=EliminaCaracteres(VKDBFNTX4.fieldbyname('telecli').AsString,'('); teldest :=EliminaCaracteres(teldest,')'); teldest :=EliminaCaracteres(teldest,'-'); teldest :=EliminaCaracteres(teldest,' '); Dest.fone:=teldest; Dest.locEnt.CNPJCPF := xcgcdest; Dest.locEnt.xNome:=VKDBFNTX4.fieldbyname('nomecli').AsString; Dest.locEnt.xLgr:=VKDBFNTX4.fieldbyname('endcli').AsString; Dest.locEnt.nro:=VKDBFNTX4.fieldbyname('numcli').AsString; Dest.locEnt.xCpl:=VKDBFNTX4.fieldbyname('compcli').AsString; Dest.locEnt.xBairro:=VKDBFNTX4.fieldbyname('bairrocli').AsString; Dest.locEnt.cMun:=VKDBFNTX4.fieldbyname('ibgecli').AsInteger; Dest.locEnt.xMun:=VKDBFNTX4.fieldbyname('cidcli').AsString; Dest.locEnt.UF:=VKDBFNTX4.fieldbyname('ufcli').AsString; vcarga := 0; dcarga := ''; VKDBFNTX3.First; while not VKDBFNTX3.Eof do begin with Rem.InfNF.Add do begin dcarga := VKDBFNTX3.fieldbyname('natureza').AsString; serie := VKDBFNTX3.fieldbyname('snf').AsString; nDoc := VKDBFNTX3.fieldbyname('nf').AsString; dEmi := VKDBFNTX3.fieldbyname('dtnf').AsDateTime; nCFOP := VKDBFNTX3.fieldbyname('cfop').AsInteger; vNF := RoundTo(VKDBFNTX3.fieldbyname('valor').AsFloat, -2); vProd := RoundTo(VKDBFNTX3.fieldbyname('valor').AsFloat, -2); nPeso := RoundTo(VKDBFNTX3.fieldbyname('pesocon').AsFloat, -2); vcarga := RoundTo(VKDBFNTX3.fieldbyname('valor').AsFloat, -2); end; VKDBFNTX3.Next; end; vPrest.vTPrest := RoundTo(VKDBFNTX2.fieldbyname('totprest').AsFloat, -2); vPrest.vRec := RoundTo(VKDBFNTX2.fieldbyname('totprest').AsFloat, -2); with vPrest.comp.Add do begin xNome:='Frete Peso'; vComp:=RoundTo(VKDBFNTX2.fieldbyname('fretepes').AsFloat, -2); end; with vPrest.comp.Add do begin xNome:='Frete Valor'; vComp:=RoundTo(VKDBFNTX2.fieldbyname('freteval').AsFloat, -2); end; with vPrest.comp.Add do begin xNome:='Frete Volume'; vComp:=RoundTo(VKDBFNTX2.fieldbyname('fretevol').AsFloat, -2); end; ACBrCTe1.Conhecimentos.Add.CTe.Imp.ICMS.ICMSSN.indSN := 1; Imp.ICMS.SituTrib := cst41; Imp.ICMS.ICMS45.CST := cst41; infCarga.vCarga := vcarga; infCarga.proPred := dcarga; with infCarga.InfQ.Add do begin cUnid := uKg; tpMed := 'Kg'; qCarga := RoundTo(VKDBFNTX2.fieldbyname('peso').AsFloat, -2); end; Rodo.RNTRC:='12365109' ; Rodo.dPrev:=(Date+1); Rodo.Lota:=ltNao; end; VKDBFNTX1.Next; end; gerou := true; end; Grato a todos.

Caro senhores, Primeiramente, gostaria de agradecer a todos os responsáveis e participantes deste projeto. Vamos esclarecer meu problema. Possuo um cliente que roda um sistema antigo em clipper ainda q funciona perfeitamente. Porém agora preciso fornecer um módulo a parte complementar com a função de gerar o CTe(conhecimento de transporte eletronico). Para tal, utilizei o componente da ACBr q no caso da NFe funciona perfeitamente, já o tenho implantado em vários clientes. No caso do CTe não obtive o mesmo sucesso, tipo quando mando gerar e validar o XML o mesmo é criado perfeitamente, mas quando mando criar e enviar me parece que o arquivo que é enviado é outro sem informação nenhuma contida, já fiz vários debug, mas não consigo identificar o problema. Antecipadamente agradecido, Josemar

Desculpe Italo, não consegui encontrar a explicação para alteração. analisei o arquivo ...\Fontes\ACBrComum\ACBr.inc. Agradeço se confirmar se é este mesmo o arquivo e se possível destacar a alteração no arquivo anexo. Cordialmente, Josemar */------------------ {******************************************************************************} { Projeto: Componentes ACBr } { Biblioteca multiplataforma de componentes Delphi para interação com equipa- } { mentos de Automação Comercial utilizados no Brasil } { } { Direitos Autorais Reservados © 2004 Daniel Simoes de Almeida } { } { Colaboradores nesse arquivo: } { } { Você pode obter a última versão desse arquivo na pagina do Projeto ACBr } { Componentes localizado em http://www.sourceforge.net/projects/acbr } { } { Esta biblioteca é software livre; você pode redistribuí-la e/ou modificá-la } { sob os termos da Licença Pública Geral Menor do GNU conforme publicada pela } { Free Software Foundation; tanto a versão 2.1 da Licença, ou (a seu critério) } { qualquer versão posterior. } { } { Esta biblioteca é distribuída na expectativa de que seja útil, porém, SEM } { NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU } { ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral Menor} { do GNU para mais detalhes. (Arquivo LICENÇA.TXT ou LICENSE.TXT) } { } { Você deve ter recebido uma cópia da Licença Pública Geral Menor do GNU junto} { com esta biblioteca; se não, escreva para a Free Software Foundation, Inc., } { no endereço 59 Temple Street, Suite 330, Boston, MA 02111-1307 USA. } { Você também pode obter uma copia da licença em: } { http://www.opensource.org/licenses/gpl-license.php } { } { Alexandre Rocha Lima e Marcondes - [email protected] } { } {******************************************************************************} {****************************************************************************** |* Historico |* |* 20/05/2004: Primeira Versao |* Alexandre Rocha Lima e Marcondes |* Criaçao e Distribuiçao da Primeira Versao |* 06/04/2005: Atualização |* Alexandre Rocha Lima e Marcondes |* Suporte para o Kylix 1, 2 e 3; Delphi 8 e 9; identificação da VisualCLX |* 15/08/2005: Adcionada compatibilidade de suporte a D5 e CLX |* Daniel Simoes de Almeida |* Se for CLX ou VisualCLX considera DELPHI6_UP com true |* 21/08/2005: Adcionada compatibilidade com FreePascal e Lazarus |* Douglas Fernando Scheibler / Daniel Simoes de Almeida |* 16/01/2006: Adcionada compatibilidade com o Delphi 2006 |* Luciano Donato |* 06/02/2007: Adcionada compatibilidade com o C++ Builder |* Thiago Delgado Pinto ******************************************************************************} {----------------------------------------------------------------------------- *** Extraido de jedi.inc - Project JEDI Code Library (JCL) *** ---------------------------------------------------------------------------- } (* - Diretivas de ambiente de compilação Este arquivo define duas diretivas para indicar em qual ambiente de desenvolvimento a biblioteca está sendo compilada. Diretiva Descrição ------------------------------------------------------------------------------ DELPHI Defined if compiled with Delphi KYLIX Defined if compiled with Kylix DELPHICOMPILER Defined if compiled with Delphi or Kylix/Delphi BCB Defined if compiled with C++ Builder CPPBUILDER Defined if compiled with C++ Builder (alias for BCB) BCBCOMPILER Defined if compiled with C++ Builder or Kylix/C++ DELPHILANGUAGE Defined if compiled with Delphi, Kylix or C++ Builder BORLAND Defined if compiled with Delphi, Kylix or C++ Builder FPC Defined if compiled with FPC - Diretivas de plataforma Diretivas de plataforma não são definidas explicitamente neste arquivo, mas são definidas pelo compilador. Estão listadas aqui para a documentação ficar completa. Diretiva Descrição ------------------------------------------------------------------------------ WIN32 Defined when target platform is 32 bit Windows MSWINDOWS Defined when target platform is 32 bit Windows LINUX Defined when target platform is Linux UNIX Defined when target platform is Linux or Unix - Diretivas da biblioteca Visual The following directives indicate for a visual library. In a Delphi application you need to define VisualCLX in the project options, if you want to use the VisualCLX. Alternative you can use the IDE expert, which is distributed with the JCL to do this automatically. Directive Description ------------------------------------------------------------------------------ COMPLIB_VCL Defined when application do not define VisualCLX, obsolete, use VCL COMPLIB_CLX Defined when application use the VisualCLX, obsolete, use VisualCLX VCL Defined when application do not define VisualCLX VisualCLX Defined when application use the VisualCLX - Versões do Delphi As diretivas a seguir são resultado de um mapeamento direto das diretivas VERXXX para um nome mais amigavel. Essas diretivas serão apenas definidas se o compilador for DELPHI (isto é, a diretiva DELPHI estiver definida). Diretiva Descrição ------------------------------------------------------------------------------ DELPHI1 Definida quando compilado com Delphi 1 DELPHI2 Definida quando compilado com Delphi 2 DELPHI3 Definida quando compilado com Delphi 3 DELPHI4 Definida quando compilado com Delphi 4 DELPHI5 Definida quando compilado com Delphi 5 DELPHI6 Definida quando compilado com Delphi 6 DELPHI7 Definida quando compilado com Delphi 7 DELPHI8 Defined when compiling with Delphi 8 DELPHI9 Defined when compiling with Delphi 9 DELPHI10 Defined when compiling with Delphi 10 (2006) DELPHI11 Defined when compiling with Delphi 11 (2007) DELPHI12 Defined when compiling with Delphi 11 (2009) DELPHI1_UP Definida quando compilado com Delphi 1 ou superior DELPHI2_UP Definida quando compilado com Delphi 2 ou superior DELPHI3_UP Definida quando compilado com Delphi 3 ou superior DELPHI4_UP Definida quando compilado com Delphi 4 ou superior DELPHI5_UP Definida quando compilado com Delphi 5 ou superior DELPHI6_UP Definida quando compilado com Delphi 6 ou superior DELPHI7_UP Definida quando compilado com Delphi 7 ou superior DELPHI8_UP Defined when compiling with Delphi 8 or higher DELPHI9_UP Defined when compiling with Delphi 9 or higher DELPHI10_UP Defined when compiling with Delphi 10 or higher DELPHI11_UP Defined when compiling with Delphi 11 or higher DELPHI12_UP Defined when compiling with Delphi 12 or higher - Versões do Kylix The following directives are direct mappings from the VERXXX directives to a friendly name of the associated compiler. These directives are only defined if the compiler is Kylix (ie KYLIX is defined). Directive Description ------------------------------------------------------------------------------ KYLIX1 Defined when compiling with Kylix 1 KYLIX2 Defined when compiling with Kylix 2 KYLIX3 Defined when compiling with Kylix 3 KYLIX1_UP Defined when compiling with Kylix 1 or higher KYLIX2_UP Defined when compiling with Kylix 2 or higher KYLIX3_UP Defined when compiling with Kylix 3 or higher - Versões do compilador Delphi (Delphi / Kylix, não no modo BCB) Directive Description ------------------------------------------------------------------------------ DELPHICOMPILER1 Defined when compiling with Delphi 1 DELPHICOMPILER2 Defined when compiling with Delphi 2 DELPHICOMPILER3 Defined when compiling with Delphi 3 DELPHICOMPILER4 Defined when compiling with Delphi 4 DELPHICOMPILER5 Defined when compiling with Delphi 5 DELPHICOMPILER6 Defined when compiling with Delphi 6 or Kylix 1, 2 or 3 DELPHICOMPILER7 Defined when compiling with Delphi 7 DELPHICOMPILER8 Defined when compiling with Delphi 8 DELPHICOMPILER9 Defined when compiling with Delphi 9 DELPHICOMPILER10 Defined when compiling with Delphi 10 DELPHICOMPILER1_UP Defined when compiling with Delphi 1 or higher DELPHICOMPILER2_UP Defined when compiling with Delphi 2 or higher DELPHICOMPILER3_UP Defined when compiling with Delphi 3 or higher DELPHICOMPILER4_UP Defined when compiling with Delphi 4 or higher DELPHICOMPILER5_UP Defined when compiling with Delphi 5 or higher DELPHICOMPILER6_UP Defined when compiling with Delphi 6 or Kylix 1, 2 or 3 or higher DELPHICOMPILER7_UP Defined when compiling with Delphi 7 or higher DELPHICOMPILER8_UP Defined when compiling with Delphi 8 or higher DELPHICOMPILER9_UP Defined when compiling with Delphi 9 or higher - Versões do C++ Builder As diretivas a seguir são resultado de um mapeamento direto das diretivas VERXXX para um nome mais amigavel. Essas diretivas serão apenas definidas se o compilador for C++ Builder (isto é, a diretiva BCB estiver definida). Diretiva Descrição ------------------------------------------------------------------------------ BCB1 Definida quando compilado com C++ Builder 1 BCB3 Definida quando compilado com C++ Builder 3 BCB4 Definida quando compilado com C++ Builder 4 BCB5 Definida quando compilado com C++ Builder 5 BCB6 Definida quando compilado com C++ Builder 6 BCB7 Definida quando compilado com C++ Builder 7 BCB1_UP Definida quando compilado com C++ Builder 1 ou superior BCB3_UP Definida quando compilado com C++ Builder 3 ou superior BCB4_UP Definida quando compilado com C++ Builder 4 ou superior BCB5_UP Definida quando compilado com C++ Builder 5 ou superior BCB6_UP Definida quando compilado com C++ Builder 6 ou superior BCB7_UP Definida quando compilado com C++ Builder 7 ou superior - Versões do Compilador As diretivas a seguir são resultado de um mapeamento direto das diretivas VERXXX para um nome mais amigavel. Diferentemente das diretivas DELPHI_X e BCB_X, estas diretivas são independentes do ambiente de desenvolvimento. O que quer dizer que são definidas independente de ser compilado usando Delphi ou C++ Builder. Diretiva Descrição ------------------------------------------------------------------------------ COMPILER1 Definida quando compilado com Delphi 1 COMPILER2 Definida quando compilado com Delphi 2 ou C++ Builder 1 COMPILER3 Definida quando compilado com Delphi 3 COMPILER35 Definida quando compilado com C++ Builder 3 COMPILER4 Definida quando compilado com Delphi 4 ou C++ Builder 4 COMPILER5 Definida quando compilado com Delphi 5 ou C++ Builder 5 COMPILER6 Definida quando compilado com Delphi 6 ou C++ Builder 6 COMPILER7 Definida quando compilado com Delphi 7 ou C++ Builder 7 COMPILER8 Defined when compiling with Delphi 8 COMPILER9 Defined when compiling with Delphi 9 COMPILER10 Defined when compiling with Delphi 10 COMPILER1_UP Definida quando compilado com Delphi 1 ou superior COMPILER2_UP Definida quando compilado com Delphi 2, C++ Builder 1 ou superior COMPILER3_UP Definida quando compilado com Delphi 3 ou superior COMPILER35UP Definida quando compilado com C++ Builder 3 ou superior COMPILER4_UP Definida quando compilado com Delphi 4, C++ Builder 4 ou superior COMPILER5_UP Definida quando compilado com Delphi 5, C++ Builder 5 ou superior COMPILER6_UP Definida quando compilado com Delphi 6, C++ Builder 6 ou superior COMPILER7_UP Definida quando compilado com Delphi 7, C++ Builder 6 ou superior COMPILER8_UP Defined when compiling with Delphi 8 COMPILER9_UP Defined when compiling with Delphi 9 COMPILER10_UP Defined when compiling with Delphi 10 - Versões da RTL Por exemplo, use o seguinte código para determinar a versão exata da RTL, desde a versão 14.0: {$IFDEF CONDITIONALEXPRESSIONS} {$IF Declared(RTLVersion) and (RTLVersion >= 14.2)} // código para o Delphi 6.02 ou superior, Kylix 2 ou superior, C++ Builder 6 ou superior ... {$IFEND} {$ENDIF} Diretiva Descrição ------------------------------------------------------------------------------ RTL80_UP Defined when compiling with Delphi 1 or later RTL90_UP Defined when compiling with Delphi 2 or later RTL93_UP Defined when compiling with C++ Builder 1 or later RTL100_UP Defined when compiling with Delphi 3 or later RTL110_UP Defined when compiling with C++ Builder 3 or later RTL120_UP Defined when compiling with Delphi 4 or later RTL125_UP Defined when compiling with C++ Builder 4 or later RTL130_UP Defined when compiling with Delphi 5 or C++ Builder 5 or later RTL140_UP Defined when compiling with Delphi 6, Kylix 1, 2 or 3 or C++ Builder 6 or later RTL150_UP Defined when compiling with Delphi 7 or later RTL160_UP Defined when compiling with Delphi 8 or later RTL170_UP Defined when compiling with Delphi 9 or later RTL180_UP Defined when compiling with Delphi 10 or later - Diretivas de Recursos As diretivas de recuso são usadas para testar se o compilador suporta recursos específicos, como overload de métodos, e ajusta os fontes de acordo. O uso dessas diretivas é preferido ao invés das diretivas DELPHI e COMPILER. Diretiva Descrição ------------------------------------------------------------------------------ SUPPORTS_CONSTPARAMS Compiler supports const parameters (D1+) SUPPORTS_SINGLE Compiler supports the Single type (D1+) SUPPORTS_DOUBLE Compiler supports the Double type (D1+) SUPPORTS_EXTENDED Compiler supports the Extended type (D1+) SUPPORTS_CURRENCY Compiler supports the Currency type (D2+) SUPPORTS_THREADVAR Compiler supports threadvar declarations (D2+) SUPPORTS_OUTPARAMS Compiler supports out parameters (D3+) SUPPORTS_VARIANT Compiler supports variant (D2+) SUPPORTS_WIDECHAR Compiler supports the WideChar type (D2+) SUPPORTS_WIDESTRING Compiler supports the WideString type (D3+/BCB3+) SUPPORTS_INTERFACE Compiler supports interfaces (D3+/BCB3+) SUPPORTS_DISPINTERFACE Compiler supports dispinterfaces (D3+/BCB3+) SUPPORTS_EXTSYM Compiler supports the $EXTERNALSYM directive (D4+/BCB3+) SUPPORTS_NODEFINE Compiler supports the $NODEFINE directive (D4+/BCB3+) SUPPORTS_LONGWORD Compiler supports the LongWord type (unsigned 32 bit) (D4+/BCB4+) SUPPORTS_INT64 Compiler supports the Int64 type (D4+/BCB4+) SUPPORTS_DYNAMICARRAYS Compiler supports dynamic arrays (D4+/BCB4+) SUPPORTS_DEFAULTPARAMS Compiler supports default parameters (D4+/BCB4+) SUPPORTS_OVERLOAD Compiler supports overloading (D4+/BCB4+) SUPPORTS_IMPLEMENTS Compiler supports implements (D4+/BCB4+) SUPPORTS_DEPRECATED Compiler supports the deprecated directive (D6+/BCB6+) SUPPORTS_PLATFORM Compiler supports the platform directive (D6+/BCB6+) SUPPORTS_LIBRARY Compiler supports the library directive (D6+/BCB6+) SUPPORTS_LOCAL Compiler supports the local directive (D6+/BCB6+) SUPPORTS_INLINE Compiler supports the inline directive (D9+) ACCEPT_DEPRECATED Compiler supports or ignore the deprecated directive (D6/BCB6/FPC) ACCEPT_PLATFORM Compiler supports or ignore the platform directive (D6+/BCB6+) ACCEPT_LIBRARY Compiler supports or ignore the library directive (D6+/BCB6+) SUPPORTS_CUSTOMVARIANTS Compiler supports custom variants (D6+/BCB6+) SUPPORTS_VARARGS Compiler supports varargs (D6+/BCB6+) SUPPORTS_ENUMVALUE Compiler supports values for enums (D6+/BCB6+) SUPPORTS_DEPRECATED_WARNINGS Compiler supports deprecated warnings (D6+/BCB6+) SUPPORTS_LIBRARY_WARNINGS Compiler supports library warnings (D6+/BCB6+) SUPPORTS_PLATFORM_WARNINGS Compiler supports platform warnings (D6+/BCB6+) SUPPORTS_UNSAFE_WARNINGS Compiler supports unsafe warnings (D7) SUPPORTS_WEAKPACKAGEUNIT Compiler supports the WEAKPACKAGEUNIT directive SUPPORTS_COMPILETIME_MESSAGES Compiler supports the MESSAGE directive HAS_UNIT_LIBC The unit Libc exists (Kylix, FPC on Linux) HAS_UNIT_RTLCONSTS The unit RTLConsts exists (D6+/BCB6+) HAS_UNIT_TYPES The unit Types exists (D6+/BCB6+) HAS_UNIT_VARIANTS The unit Variants exists (D6+/BCB6+) HAS_UNIT_STRUTILS The unit StrUtils exists (D6+/BCB6+) XPLATFORM_RTL The RTL supports crossplatform function names (e.g. RaiseLastOSError) (D6+/BCB6+/FPC) - Configurações de compilação As diretivas de configuração de compilação indicam que uma configuração específica de compilação está habilitada. Isto facilita a alteração local das configurações de um modo mais compacto e de leitura mais fácil. Diretiva Descrição ------------------------------------------------------------------------------ ALIGN_ON Compilando com o estado A+ (no alignment) BOOLEVAL_ON Compilando com o estado B+ (complete boolean evaluation) ASSERTIONS_ON Compilando com o estado C+ (assertions on) DEBUGINFO_ON Compilando com o estado D+ (debug info generation on) IMPORTEDDATA_ON Compilando com o estado G+ (creation of imported data references) LONGSTRINGS_ON Compilando com o estado H+ (string defined as AnsiString) IOCHECKS_ON Compilando com o estado I+ (I/O checking enabled) WRITEABLECONST_ON Compilando com o estado J+ (typed constants can be modified) LOCALSYMBOLS Compilando com o estado L+ (local symbol generation) TYPEINFO_ON Compilando com o estado M+ (RTTI generation on) OPTIMIZATION_ON Compilando com o estado O+ (code optimization on) OPENSTRINGS_ON Compilando com o estado P+ (variable string parameters are openstrings) OVERFLOWCHECKS_ON Compilando com o estado Q+ (overflow checing on) RANGECHECKS_ON Compilando com o estado R+ (range checking on) TYPEDADDRESS_ON Compilando com o estado T+ (pointers obtained using the @ operator are typed) SAFEDIVIDE_ON Compilando com o estado U+ (save FDIV instruction through RTL emulation) VARSTRINGCHECKS_ON Compilando com o estado V+ (type checking of shortstrings) STACKFRAMES_ON Compilando com o estado W+ (generation of stack frames) EXTENDEDSYNTAX_ON Compilando com o estado X+ (Delphi extended syntax enabled) *) //{$DEFINE ACBrNFeOpenSSL} // Para Usar OpenSSL no ACBrNFe em Delphi, descomente essa linha //{$DEFINE ACBrCTeOpenSSL} //{$DEFINE CLX} // Para usar CLX no Windows / Delphi descomente essa linha {$DEFINE VCL} {$DEFINE BORLAND} { Ajusta FreePascal para o modo Delphi } {$IFDEF FPC} {$DEFINE ACBrNFeOpenSSL} {$DEFINE ACBrCTeOpenSSL} {$MODE DELPHI} {$DEFINE VCL} {$DEFINE UNICODE} // Lazarus 0.9.26 usa UnicodeString como default para String {$DEFINE DELPHI7} {$DEFINE COMPILER7} {$ASMMODE Intel} {$UNDEF BORLAND} {$H+} {$ENDIF} {$IFDEF BORLAND} {$IFDEF LINUX} {$DEFINE ACBrNFeOpenSSL} {$DEFINE ACBrCTeOpenSSL} {$DEFINE KYLIX} {$ENDIF LINUX} {$IFNDEF CLR} {$DEFINE CPU386} // For Borland compilers select the x86 compat assembler by default {$DEFINE CPU32} // Assume Borland compilers are 32-bit (rather than 64-bit) {$DEFINE CPUASM} {$ENDIF ~CLR} {$ENDIF BORLAND} //------------------------------------------------------------------------------ // Mapeamento de VERXXX para nomes COMPILERX, DELPHIX e BCBX //------------------------------------------------------------------------------ {$IFDEF BORLAND} {$IFDEF KYLIX} {$I ACBr_kylix.inc} // FPC incompatible stuff {$ELSE ~KYLIX} {$IFDEF VER220} // Fulcrum {$DEFINE BDS} {$DEFINE BDS7} {$DEFINE COMPILER15} {$IFDEF BCB} {$DEFINE BCB15} {$ELSE} {$DEFINE DELPHI15} {$DEFINE DELPHI2011} // synonym to DELPHI14 {$DEFINE DELPHICOMPILER15} {$ENDIF BCB} {$DEFINE RTL220_UP} {$UNDEF UNKNOWN_COMPILER_VERSION} {$ENDIF VER220} {$IFDEF VER210} // RAD Studio 2010 {$DEFINE BDS} {$DEFINE BDS7} {$DEFINE COMPILER14} {$IFDEF BCB} {$DEFINE BCB14} {$ELSE} {$DEFINE DELPHI14} {$DEFINE DELPHI2010} // synonym to DELPHI14 {$DEFINE DELPHICOMPILER14} {$ENDIF BCB} {$DEFINE RTL210_UP} {$UNDEF UNKNOWN_COMPILER_VERSION} {$ENDIF VER210} {$IFDEF VER200} {H+} {$DEFINE COMPILER12} {$DEFINE DELPHI12} {$DEFINE DELPHICOMPILER12} {$DEFINE RTL200_UP} {$ENDIF} {$IFDEF VER190} {$DEFINE COMPILER11} {$DEFINE DELPHI11} {$DEFINE DELPHICOMPILER11} {$DEFINE RTL190_UP} {$ENDIF} {$IFDEF VER185} {$DEFINE COMPILER11} {$DEFINE DELPHI11} {$DEFINE DELPHICOMPILER11} {$DEFINE RTL185_UP} {$ENDIF} {$IFDEF VER180} {$DEFINE COMPILER10} {$DEFINE DELPHI10} {$DEFINE DELPHICOMPILER10} {$DEFINE RTL180_UP} {$ENDIF} {$IFDEF VER170} {$DEFINE COMPILER9} {$DEFINE DELPHI9} {$DEFINE DELPHICOMPILER9} {$DEFINE RTL170_UP} {$ENDIF} {$IFDEF VER160} {$DEFINE COMPILER8} {$DEFINE DELPHI8} {$DEFINE DELPHICOMPILER8} {$DEFINE RTL160_UP} {$ENDIF} {$IFDEF VER150} {$DEFINE COMPILER7} {$IFDEF BCB} {$DEFINE BCB7} {$ELSE} {$DEFINE DELPHI7} {$DEFINE DELPHICOMPILER7} {$ENDIF} {$DEFINE RTL150_UP} {$ENDIF} {$IFDEF VER140} {$DEFINE COMPILER6} {$IFDEF BCB} {$DEFINE BCB6} {$ELSE} {$DEFINE DELPHI6} {$DEFINE DELPHICOMPILER6} {$ENDIF} {$DEFINE RTL140_UP} {$ENDIF} {$IFDEF VER130} {$DEFINE COMPILER5} {$IFDEF BCB} {$DEFINE BCB5} {$ELSE} {$DEFINE DELPHI5} {$DEFINE DELPHICOMPILER5} {$ENDIF} {$DEFINE RTL130_UP} {$ENDIF} {$IFDEF VER125} {$DEFINE COMPILER4} {$DEFINE BCB4} {$DEFINE BCB} {$DEFINE RTL125_UP} {$ENDIF} {$IFDEF VER120} {$DEFINE COMPILER4} {$DEFINE DELPHI4} {$DEFINE DELPHICOMPILER4} {$DEFINE RTL120_UP} {$ENDIF} {$IFDEF VER110} {$DEFINE COMPILER35} {$DEFINE BCB3} {$DEFINE RTL110_UP} {$ENDIF} {$IFDEF VER100} {$DEFINE COMPILER3} {$DEFINE DELPHI3} {$DEFINE DELPHICOMPILER3} {$DEFINE RTL100_UP} {$ENDIF} {$IFDEF VER93} {$DEFINE COMPILER2} {$DEFINE BCB1} {$DEFINE BCB} {$DEFINE RTL93_UP} {$ENDIF} {$IFDEF VER90} {$DEFINE COMPILER2} {$DEFINE DELPHI2} {$DEFINE DELPHICOMPILER2} {$DEFINE RTL90_UP} {$ENDIF} {$IFDEF VER80} {$DEFINE COMPILER1} {$DEFINE DELPHI1} {$DEFINE DELPHICOMPILER1} {$DEFINE RTL80_UP} {$ENDIF} {$ENDIF ~KYLIX} {$IFDEF BCB} {$DEFINE CPPBUILDER} {$DEFINE BCBCOMPILER} {$ELSE ~BCB} {$DEFINE DELPHI} {$DEFINE DELPHICOMPILER} {$ENDIF ~BCB} {$ENDIF BORLAND} //------------------------------------------------------------------------------ // DELPHIX_UP à partir dos mapeamentos DELPHIX //------------------------------------------------------------------------------ {$IFDEF DELPHI15} {$DEFINE DELPHI15_UP} {$DEFINE DELPHI14_UP} {$DEFINE DELPHI13_UP} {$DEFINE DELPHI12_UP} {$DEFINE DELPHI11_UP} {$DEFINE DELPHI10_UP} {$DEFINE DELPHI9_UP} {$DEFINE DELPHI8_UP} {$DEFINE DELPHI7_UP} {$DEFINE DELPHI6_UP} {$DEFINE DELPHI5_UP} {$DEFINE DELPHI4_UP} {$DEFINE DELPHI3_UP} {$DEFINE DELPHI2_UP} {$DEFINE DELPHI1_UP} {$ENDIF} {$IFDEF DELPHI14} {$DEFINE DELPHI14_UP} {$DEFINE DELPHI13_UP} {$DEFINE DELPHI12_UP} {$DEFINE DELPHI11_UP} {$DEFINE DELPHI10_UP} {$DEFINE DELPHI9_UP} {$DEFINE DELPHI8_UP} {$DEFINE DELPHI7_UP} {$DEFINE DELPHI6_UP} {$DEFINE DELPHI5_UP} {$DEFINE DELPHI4_UP} {$DEFINE DELPHI3_UP} {$DEFINE DELPHI2_UP} {$DEFINE DELPHI1_UP} {$ENDIF} {$IFDEF DELPHI12} {$DEFINE DELPHI12_UP} {$DEFINE DELPHI11_UP} {$DEFINE DELPHI10_UP} {$DEFINE DELPHI9_UP} {$DEFINE DELPHI8_UP} {$DEFINE DELPHI7_UP} {$DEFINE DELPHI6_UP} {$DEFINE DELPHI5_UP} {$DEFINE DELPHI4_UP} {$DEFINE DELPHI3_UP} {$DEFINE DELPHI2_UP} {$DEFINE DELPHI1_UP} {$ENDIF} {$IFDEF DELPHI11} {$DEFINE DELPHI11_UP} {$DEFINE DELPHI10_UP} {$DEFINE DELPHI9_UP} {$DEFINE DELPHI8_UP} {$DEFINE DELPHI7_UP} {$DEFINE DELPHI6_UP} {$DEFINE DELPHI5_UP} {$DEFINE DELPHI4_UP} {$DEFINE DELPHI3_UP} {$DEFINE DELPHI2_UP} {$DEFINE DELPHI1_UP} {$ENDIF} {$IFDEF DELPHI10} {$DEFINE DELPHI10_UP} {$DEFINE DELPHI9_UP} {$DEFINE DELPHI8_UP} {$DEFINE DELPHI7_UP} {$DEFINE DELPHI6_UP} {$DEFINE DELPHI5_UP} {$DEFINE DELPHI4_UP} {$DEFINE DELPHI3_UP} {$DEFINE DELPHI2_UP} {$DEFINE DELPHI1_UP} {$ENDIF} {$IFDEF DELPHI9} {$DEFINE DELPHI9_UP} {$DEFINE DELPHI8_UP} {$DEFINE DELPHI7_UP} {$DEFINE DELPHI6_UP} {$DEFINE DELPHI5_UP} {$DEFINE DELPHI4_UP} {$DEFINE DELPHI3_UP} {$DEFINE DELPHI2_UP} {$DEFINE DELPHI1_UP} {$ENDIF} {$IFDEF DELPHI8} {$DEFINE DELPHI8_UP} {$DEFINE DELPHI7_UP} {$DEFINE DELPHI6_UP} {$DEFINE DELPHI5_UP} {$DEFINE DELPHI4_UP} {$DEFINE DELPHI3_UP} {$DEFINE DELPHI2_UP} {$DEFINE DELPHI1_UP} {$ENDIF} {$IFDEF DELPHI7} {$DEFINE DELPHI7_UP} {$DEFINE DELPHI6_UP} {$DEFINE DELPHI5_UP} {$DEFINE DELPHI4_UP} {$DEFINE DELPHI3_UP} {$DEFINE DELPHI2_UP} {$DEFINE DELPHI1_UP} {$ENDIF} {$IFDEF DELPHI6} {$DEFINE DELPHI6_UP} {$DEFINE DELPHI5_UP} {$DEFINE DELPHI4_UP} {$DEFINE DELPHI3_UP} {$DEFINE DELPHI2_UP} {$DEFINE DELPHI1_UP} {$ENDIF} {$IFDEF DELPHI5} {$DEFINE DELPHI5_UP} {$DEFINE DELPHI4_UP} {$DEFINE DELPHI3_UP} {$DEFINE DELPHI2_UP} {$DEFINE DELPHI1_UP} {$ENDIF} {$IFDEF DELPHI4} {$DEFINE DELPHI4_UP} {$DEFINE DELPHI3_UP} {$DEFINE DELPHI2_UP} {$DEFINE DELPHI1_UP} {$ENDIF} {$IFDEF DELPHI3} {$DEFINE DELPHI3_UP} {$DEFINE DELPHI2_UP} {$DEFINE DELPHI1_UP} {$ENDIF} {$IFDEF DELPHI2} {$DEFINE DELPHI2_UP} {$DEFINE DELPHI1_UP} {$ENDIF} {$IFDEF DELPHI1} {$DEFINE DELPHI1_UP} {$ENDIF} //------------------------------------------------------------------------------ // KYLIXX_UP à partir dos mapeamentos KYLIXX //------------------------------------------------------------------------------ {$IFDEF KYLIX3} {$DEFINE KYLIX3_UP} {$DEFINE KYLIX2_UP} {$DEFINE KYLIX1_UP} {$ENDIF} {$IFDEF KYLIX2} {$DEFINE KYLIX2_UP} {$DEFINE KYLIX1_UP} {$ENDIF} {$IFDEF KYLIX1} {$DEFINE KYLIX1_UP} {$ENDIF} //------------------------------------------------------------------------------ // BCBX_UP à partir dos mapeamentos BCBX //------------------------------------------------------------------------------ {$IFDEF BCB7} {$DEFINE BCB7_UP} {$DEFINE BCB6_UP} {$DEFINE BCB5_UP} {$DEFINE BCB4_UP} {$DEFINE BCB3_UP} {$DEFINE BCB1_UP} {$ENDIF} {$IFDEF BCB6} {$DEFINE BCB6_UP} {$DEFINE BCB5_UP} {$DEFINE BCB4_UP} {$DEFINE BCB3_UP} {$DEFINE BCB1_UP} {$ENDIF} {$IFDEF BCB5} {$DEFINE BCB5_UP} {$DEFINE BCB4_UP} {$DEFINE BCB3_UP} {$DEFINE BCB1_UP} {$ENDIF} {$IFDEF BCB4} {$DEFINE BCB4_UP} {$DEFINE BCB3_UP} {$DEFINE BCB1_UP} {$ENDIF} {$IFDEF BCB3} {$DEFINE BCB3_UP} {$DEFINE BCB1_UP} {$ENDIF} {$IFDEF BCB1} {$DEFINE BCB1_UP} {$ENDIF} //------------------------------------------------------------------------------ // DELPHICOMPILERX_UP à partir dos mapeamentos DELPHICOMPILERX //------------------------------------------------------------------------------ {$IFDEF DELPHICOMPILER15} {$DEFINE DELPHICOMPILER15_UP} {$DEFINE DELPHICOMPILER14_UP} {$DEFINE DELPHICOMPILER13_UP} {$DEFINE DELPHICOMPILER12_UP} {$DEFINE DELPHICOMPILER11_UP} {$DEFINE DELPHICOMPILER10_UP} {$DEFINE DELPHICOMPILER9_UP} {$DEFINE DELPHICOMPILER8_UP} {$DEFINE DELPHICOMPILER7_UP} {$DEFINE DELPHICOMPILER6_UP} {$DEFINE DELPHICOMPILER5_UP} {$DEFINE DELPHICOMPILER4_UP} {$DEFINE DELPHICOMPILER3_UP} {$DEFINE DELPHICOMPILER2_UP} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF} {$IFDEF DELPHICOMPILER14} {$DEFINE DELPHICOMPILER14_UP} {$DEFINE DELPHICOMPILER13_UP} {$DEFINE DELPHICOMPILER12_UP} {$DEFINE DELPHICOMPILER11_UP} {$DEFINE DELPHICOMPILER10_UP} {$DEFINE DELPHICOMPILER9_UP} {$DEFINE DELPHICOMPILER8_UP} {$DEFINE DELPHICOMPILER7_UP} {$DEFINE DELPHICOMPILER6_UP} {$DEFINE DELPHICOMPILER5_UP} {$DEFINE DELPHICOMPILER4_UP} {$DEFINE DELPHICOMPILER3_UP} {$DEFINE DELPHICOMPILER2_UP} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF} {$IFDEF DELPHICOMPILER12} {$DEFINE DELPHICOMPILER12_UP} {$DEFINE DELPHICOMPILER11_UP} {$DEFINE DELPHICOMPILER10_UP} {$DEFINE DELPHICOMPILER9_UP} {$DEFINE DELPHICOMPILER8_UP} {$DEFINE DELPHICOMPILER7_UP} {$DEFINE DELPHICOMPILER6_UP} {$DEFINE DELPHICOMPILER5_UP} {$DEFINE DELPHICOMPILER4_UP} {$DEFINE DELPHICOMPILER3_UP} {$DEFINE DELPHICOMPILER2_UP} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF} {$IFDEF DELPHICOMPILER11} {$DEFINE DELPHICOMPILER11_UP} {$DEFINE DELPHICOMPILER10_UP} {$DEFINE DELPHICOMPILER9_UP} {$DEFINE DELPHICOMPILER8_UP} {$DEFINE DELPHICOMPILER7_UP} {$DEFINE DELPHICOMPILER6_UP} {$DEFINE DELPHICOMPILER5_UP} {$DEFINE DELPHICOMPILER4_UP} {$DEFINE DELPHICOMPILER3_UP} {$DEFINE DELPHICOMPILER2_UP} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF} {$IFDEF DELPHICOMPILER10} {$DEFINE DELPHICOMPILER10_UP} {$DEFINE DELPHICOMPILER9_UP} {$DEFINE DELPHICOMPILER8_UP} {$DEFINE DELPHICOMPILER7_UP} {$DEFINE DELPHICOMPILER6_UP} {$DEFINE DELPHICOMPILER5_UP} {$DEFINE DELPHICOMPILER4_UP} {$DEFINE DELPHICOMPILER3_UP} {$DEFINE DELPHICOMPILER2_UP} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF} {$IFDEF DELPHICOMPILER9} {$DEFINE DELPHICOMPILER9_UP} {$DEFINE DELPHICOMPILER8_UP} {$DEFINE DELPHICOMPILER7_UP} {$DEFINE DELPHICOMPILER6_UP} {$DEFINE DELPHICOMPILER5_UP} {$DEFINE DELPHICOMPILER4_UP} {$DEFINE DELPHICOMPILER3_UP} {$DEFINE DELPHICOMPILER2_UP} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF} {$IFDEF DELPHICOMPILER8} {$DEFINE DELPHICOMPILER8_UP} {$DEFINE DELPHICOMPILER7_UP} {$DEFINE DELPHICOMPILER6_UP} {$DEFINE DELPHICOMPILER5_UP} {$DEFINE DELPHICOMPILER4_UP} {$DEFINE DELPHICOMPILER3_UP} {$DEFINE DELPHICOMPILER2_UP} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF} {$IFDEF DELPHICOMPILER7} {$DEFINE DELPHICOMPILER7_UP} {$DEFINE DELPHICOMPILER6_UP} {$DEFINE DELPHICOMPILER5_UP} {$DEFINE DELPHICOMPILER4_UP} {$DEFINE DELPHICOMPILER3_UP} {$DEFINE DELPHICOMPILER2_UP} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF} {$IFDEF DELPHICOMPILER6} {$DEFINE DELPHICOMPILER6_UP} {$DEFINE DELPHICOMPILER5_UP} {$DEFINE DELPHICOMPILER4_UP} {$DEFINE DELPHICOMPILER3_UP} {$DEFINE DELPHICOMPILER2_UP} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF} {$IFDEF DELPHICOMPILER5} {$DEFINE DELPHICOMPILER5_UP} {$DEFINE DELPHICOMPILER4_UP} {$DEFINE DELPHICOMPILER3_UP} {$DEFINE DELPHICOMPILER2_UP} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF} {$IFDEF DELPHICOMPILER4} {$DEFINE DELPHICOMPILER4_UP} {$DEFINE DELPHICOMPILER3_UP} {$DEFINE DELPHICOMPILER2_UP} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF} {$IFDEF DELPHICOMPILER3} {$DEFINE DELPHICOMPILER3_UP} {$DEFINE DELPHICOMPILER2_UP} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF} {$IFDEF DELPHICOMPILER2} {$DEFINE DELPHICOMPILER2_UP} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF} {$IFDEF DELPHICOMPILER1} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF} //------------------------------------------------------------------------------ // COMPILERX_UP à partir do mapeamento de nomes COMPILERX //------------------------------------------------------------------------------ {$IFDEF COMPILER15} {$DEFINE COMPILER15_UP} {$DEFINE COMPILER14_UP} {$DEFINE COMPILER13_UP} {$DEFINE COMPILER12_UP} {$DEFINE COMPILER11_UP} {$DEFINE COMPILER10_UP} {$DEFINE COMPILER9_UP} {$DEFINE COMPILER8_UP} {$DEFINE COMPILER7_UP} {$DEFINE COMPILER6_UP} {$DEFINE COMPILER5_UP} {$DEFINE COMPILER4_UP} {$DEFINE COMPILER35_UP} {$DEFINE COMPILER3_UP} {$DEFINE COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF} {$IFDEF COMPILER14} {$DEFINE COMPILER14_UP} {$DEFINE COMPILER13_UP} {$DEFINE COMPILER12_UP} {$DEFINE COMPILER11_UP} {$DEFINE COMPILER10_UP} {$DEFINE COMPILER9_UP} {$DEFINE COMPILER8_UP} {$DEFINE COMPILER7_UP} {$DEFINE COMPILER6_UP} {$DEFINE COMPILER5_UP} {$DEFINE COMPILER4_UP} {$DEFINE COMPILER35_UP} {$DEFINE COMPILER3_UP} {$DEFINE COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF} {$IFDEF COMPILER12} {$DEFINE COMPILER12_UP} {$DEFINE COMPILER11_UP} {$DEFINE COMPILER10_UP} {$DEFINE COMPILER9_UP} {$DEFINE COMPILER8_UP} {$DEFINE COMPILER7_UP} {$DEFINE COMPILER6_UP} {$DEFINE COMPILER5_UP} {$DEFINE COMPILER4_UP} {$DEFINE COMPILER35_UP} {$DEFINE COMPILER3_UP} {$DEFINE COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF} {$IFDEF COMPILER11} {$DEFINE COMPILER11_UP} {$DEFINE COMPILER10_UP} {$DEFINE COMPILER9_UP} {$DEFINE COMPILER8_UP} {$DEFINE COMPILER7_UP} {$DEFINE COMPILER6_UP} {$DEFINE COMPILER5_UP} {$DEFINE COMPILER4_UP} {$DEFINE COMPILER35_UP} {$DEFINE COMPILER3_UP} {$DEFINE COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF} {$IFDEF COMPILER10} {$DEFINE COMPILER10_UP} {$DEFINE COMPILER9_UP} {$DEFINE COMPILER8_UP} {$DEFINE COMPILER7_UP} {$DEFINE COMPILER6_UP} {$DEFINE COMPILER5_UP} {$DEFINE COMPILER4_UP} {$DEFINE COMPILER35_UP} {$DEFINE COMPILER3_UP} {$DEFINE COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF} {$IFDEF COMPILER9} {$DEFINE COMPILER9_UP} {$DEFINE COMPILER8_UP} {$DEFINE COMPILER7_UP} {$DEFINE COMPILER6_UP} {$DEFINE COMPILER5_UP} {$DEFINE COMPILER4_UP} {$DEFINE COMPILER35_UP} {$DEFINE COMPILER3_UP} {$DEFINE COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF} {$IFDEF COMPILER8} {$DEFINE COMPILER8_UP} {$DEFINE COMPILER7_UP} {$DEFINE COMPILER6_UP} {$DEFINE COMPILER5_UP} {$DEFINE COMPILER4_UP} {$DEFINE COMPILER35_UP} {$DEFINE COMPILER3_UP} {$DEFINE COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF} {$IFDEF COMPILER7} {$DEFINE COMPILER7_UP} {$DEFINE COMPILER6_UP} {$DEFINE COMPILER5_UP} {$DEFINE COMPILER4_UP} {$DEFINE COMPILER35_UP} {$DEFINE COMPILER3_UP} {$DEFINE COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF} {$IFDEF COMPILER6} {$DEFINE COMPILER6_UP} {$DEFINE COMPILER5_UP} {$DEFINE COMPILER4_UP} {$DEFINE COMPILER35_UP} {$DEFINE COMPILER3_UP} {$DEFINE COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF} {$IFDEF COMPILER5} {$DEFINE COMPILER5_UP} {$DEFINE COMPILER4_UP} {$DEFINE COMPILER35_UP} {$DEFINE COMPILER3_UP} {$DEFINE COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF} {$IFDEF COMPILER4} {$DEFINE COMPILER4_UP} {$DEFINE COMPILER35_UP} {$DEFINE COMPILER3_UP} {$DEFINE COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF} {$IFDEF COMPILER35} {$DEFINE COMPILER35_UP} {$DEFINE COMPILER3_UP} {$DEFINE COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF} {$IFDEF COMPILER3} {$DEFINE COMPILER3_UP} {$DEFINE COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF} {$IFDEF COMPILER2} {$DEFINE COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF} {$IFDEF COMPILER1} {$DEFINE COMPILER1_UP} {$ENDIF} {------------------------------------------------------------------------------} {$IFDEF DELPHICOMPILER} {$DEFINE DELPHILANGUAGE} {$ENDIF} {$IFDEF BCBCOMPILER} {$DEFINE DELPHILANGUAGE} {$ENDIF} //------------------------------------------------------------------------------ // RTLX_UP à partir dos mapeamentos RTLX_UP //------------------------------------------------------------------------------ {$IFDEF RTL200_UP} {$DEFINE RTL185_UP} {$ENDIF} {$IFDEF RTL185_UP} {$DEFINE RTL180_UP} {$ENDIF} {$IFDEF RTL180_UP} {$DEFINE RTL170_UP} {$ENDIF} {$IFDEF RTL170_UP} {$DEFINE RTL160_UP} {$ENDIF} {$IFDEF RTL160_UP} {$DEFINE RTL150_UP} {$ENDIF} {$IFDEF RTL150_UP} {$DEFINE RTL145_UP} {$ENDIF} {$IFDEF RTL145_UP} {$DEFINE RTL142_UP} {$ENDIF} {$IFDEF RTL142_UP} {$DEFINE RTL140_UP} {$ENDIF} {$IFDEF RTL140_UP} {$DEFINE RTL130_UP} {$ENDIF} {$IFDEF RTL130_UP} {$DEFINE RTL125_UP} {$ENDIF} {$IFDEF RTL125_UP} {$DEFINE RTL120_UP} {$ENDIF} {$IFDEF RTL120_UP} {$DEFINE RTL110_UP} {$ENDIF} {$IFDEF RTL110_UP} {$DEFINE RTL100_UP} {$ENDIF} {$IFDEF RTL100_UP} {$DEFINE RTL93_UP} {$ENDIF} {$IFDEF RTL93_UP} {$DEFINE RTL90_UP} {$ENDIF} {$IFDEF RTL90_UP} {$DEFINE RTL80_UP} {$ENDIF} //------------------------------------------------------------------------------ // Define recursos usando nomes COMPILERX_UP //------------------------------------------------------------------------------ {$IFDEF COMPILER3_UP} {$DEFINE SUPPORTS_WIDESTRING} {$DEFINE SUPPORTS_INTERFACE} {$ENDIF} {$IFDEF COMPILER35_UP} {$DEFINE SUPPORTS_EXTSYM} {$DEFINE SUPPORTS_NODEFINE} {$ENDIF} {$IFDEF COMPILER4_UP} {$DEFINE SUPPORTS_INT64} {$DEFINE SUPPORTS_DYNAMICARRAYS} {$DEFINE SUPPORTS_DEFAULTPARAMS} {$DEFINE SUPPORTS_OVERLOAD} {$ENDIF} {$IFDEF COMPILER6_UP} {$DEFINE SUPPORTS_DEPRECATED} {$DEFINE SUPPORTS_LIBRARY} {$DEFINE SUPPORTS_PLATFORM} {$DEFINE SUPPORTS_CUSTOMVARIANTS} {$DEFINE HAS_UNIT_RTLCONSTS} {$DEFINE HAS_UNIT_STRUTILS} {$DEFINE HAS_UNIT_TYPES} {$DEFINE HAS_UNIT_VARIANTS} {$ENDIF COMPILER6_UP} //------------------------------------------------------------------------------ // Mapeia COMPILERX_UP para nomes mais amigáveis //------------------------------------------------------------------------------ {$IFDEF FPC} {$IFDEF VER1_0} Por favor use FPC 1.1 ou superior para compilar. {$ELSE} {$DEFINE SUPPORTS_OUTPARAMS} {$DEFINE SUPPORTS_WIDECHAR} {$DEFINE SUPPORTS_WIDESTRING} {$IFDEF HASINTF} {$DEFINE SUPPORTS_INTERFACE} {$ENDIF} {$IFDEF HASVARIANT} {$DEFINE SUPPORTS_VARIANT} {$ENDIF} {$IFDEF FPC_HAS_TYPE_SINGLE} {$DEFINE SUPPORTS_SINGLE} {$ENDIF} {$IFDEF FPC_HAS_TYPE_DOUBLE} {$DEFINE SUPPORTS_DOUBLE} {$ENDIF} {$IFDEF FPC_HAS_TYPE_EXTENDED} {$DEFINE SUPPORTS_EXTENDED} {$ENDIF} {$IFDEF HASCURRENCY} {$DEFINE SUPPORTS_CURRENCY} {$ENDIF} {$DEFINE SUPPORTS_THREADVAR} {$DEFINE SUPPORTS_CONSTPARAMS} {$DEFINE SUPPORTS_LONGWORD} {$DEFINE SUPPORTS_INT64} {$DEFINE SUPPORTS_DYNAMICARRAYS} {$DEFINE SUPPORTS_DEFAULTPARAMS} {$DEFINE SUPPORTS_OVERLOAD} {$DEFINE ACCEPT_DEPRECATED} {$DEFINE ACCEPT_PLATFORM} {$DEFINE ACCEPT_LIBRARY} {$DEFINE SUPPORTS_EXTSYM} {$DEFINE SUPPORTS_NODEFINE} {$DEFINE SUPPORTS_CUSTOMVARIANTS} {$DEFINE SUPPORTS_VARARGS} {$DEFINE SUPPORTS_ENUMVALUE} {$IFDEF LINUX} {$DEFINE HAS_UNIT_LIBC} {$ENDIF LINUX} {$DEFINE HAS_UNIT_TYPES} {$DEFINE HAS_UNIT_VARIANTS} {$DEFINE HAS_UNIT_STRUTILS} {$DEFINE HAS_UNIT_RTLCONST} {$DEFINE XPLATFORM_RTL} {$UNDEF SUPPORTS_DISPINTERFACE} {$UNDEF SUPPORTS_IMPLEMENTS} {$UNDEF SUPPORTS_UNSAFE_WARNINGS} {$ENDIF} {$ENDIF FPC} {$IFDEF COMPILER1_UP} {$DEFINE SUPPORTS_CONSTPARAMS} {$DEFINE SUPPORTS_SINGLE} {$DEFINE SUPPORTS_DOUBLE} {$DEFINE SUPPORTS_EXTENDED} {$ENDIF COMPILER1_UP} {$IFDEF COMPILER2_UP} {$DEFINE SUPPORTS_CURRENCY} {$DEFINE SUPPORTS_THREADVAR} {$DEFINE SUPPORTS_VARIANT} {$DEFINE SUPPORTS_WIDECHAR} {$ENDIF COMPILER2_UP} {$IFDEF COMPILER3_UP} {$DEFINE SUPPORTS_OUTPARAMS} {$DEFINE SUPPORTS_WIDESTRING} {$DEFINE SUPPORTS_INTERFACE} {$DEFINE SUPPORTS_DISPINTERFACE} {$DEFINE SUPPORTS_WEAKPACKAGEUNIT} {$ENDIF COMPILER3_UP} {$IFDEF COMPILER35_UP} {$DEFINE SUPPORTS_EXTSYM} {$DEFINE SUPPORTS_NODEFINE} {$ENDIF COMPILER35_UP} {$IFDEF COMPILER4_UP} {$DEFINE SUPPORTS_LONGWORD} {$DEFINE SUPPORTS_INT64} {$DEFINE SUPPORTS_DYNAMICARRAYS} {$DEFINE SUPPORTS_DEFAULTPARAMS} {$DEFINE SUPPORTS_OVERLOAD} {$DEFINE SUPPORTS_IMPLEMENTS} {$ENDIF COMPILER4_UP} {$IFDEF COMPILER6_UP} {$DEFINE SUPPORTS_DEPRECATED} {$DEFINE SUPPORTS_LIBRARY} {$DEFINE SUPPORTS_PLATFORM} {$DEFINE SUPPORTS_LOCAL} {$DEFINE ACCEPT_DEPRECATED} {$DEFINE ACCEPT_PLATFORM} {$DEFINE ACCEPT_LIBRARY} {$DEFINE SUPPORTS_DEPRECATED_WARNINGS} {$DEFINE SUPPORTS_LIBRARY_WARNINGS} {$DEFINE SUPPORTS_PLATFORM_WARNINGS} {$DEFINE SUPPORTS_CUSTOMVARIANTS} {$DEFINE SUPPORTS_VARARGS} {$DEFINE SUPPORTS_ENUMVALUE} {$DEFINE SUPPORTS_COMPILETIME_MESSAGES} {$ENDIF COMPILER6_UP} {$IFDEF COMPILER7_UP} {$DEFINE SUPPORTS_UNSAFE_WARNINGS} {$ENDIF COMPILER7_UP} {$IFDEF COMPILER9_UP} {$DEFINE SUPPORTS_INLINE} {$ENDIF COMPILER9_UP} {$IFDEF RTL140_UP} {$IFDEF LINUX} {$DEFINE HAS_UNIT_LIBC} {$ENDIF LINUX} {$DEFINE HAS_UNIT_RTLCONSTS} {$DEFINE HAS_UNIT_TYPES} {$DEFINE HAS_UNIT_VARIANTS} {$DEFINE HAS_UNIT_STRUTILS} {$DEFINE XPLATFORM_RTL} {$ENDIF RTL140_UP} //------------------------------------------------------------------------------ // Definições multi-plataforma //------------------------------------------------------------------------------ {$IFDEF WIN32} {$DEFINE MSWINDOWS} {$ENDIF} {$IFDEF DELPHILANGUAGE} {$IFDEF LINUX} {$DEFINE UNIX} {$IFNDEF FPC} { Suporte ao FreePascal } {$DEFINE VisualCLX} {$ENDIF} {$ENDIF} {$IFDEF CLX} {$DEFINE VisualCLX} {$ENDIF} {$IFDEF CONDITIONALEXPRESSIONS} {$IF Declared(QEventType_CMQuit) or Declared(Key_Word_Lower)} {$DEFINE VisualCLX} {$IFEND} {$ENDIF} {$IFNDEF VisualCLX} {$DEFINE VCL} {$ENDIF} {$IFDEF VisualCLX} {$DEFINE COMPLIB_CLX} { kept for backward compatibility, use VisualCLX instead } {$ENDIF} {$IFDEF QUnit} {$UNDEF VCL} {$DEFINE VisualCLX} {$ENDIF} {$IFDEF VCL} {$DEFINE COMPLIB_VCL} { kept for backward compatibility, use VCL instead } {$ENDIF} {$IFDEF VisualCLX} {$DEFINE DELPHI6_UP} { Inserido para Suporte ao D5 e manter compatibilidade com a CLX } {$ENDIF} {$ENDIF DELPHILANGUAGE} //------------------------------------------------------------------------------ // Definições automáticas para tipos de licença: //------------------------------------------------------------------------------ {$IFDEF D5Standard} {$DEFINE DelphiPersonalEdition} {$ENDIF} {$IFDEF D6PersonalEdition} {$DEFINE DelphiPersonalEdition} {$ENDIF} {$IFDEF D7PersonalEdition} {$DEFINE DelphiPersonalEdition} {$ENDIF} //------------------------------------------------------------------------------ // Parâmetros de compilação //------------------------------------------------------------------------------ {$IFOPT A+} {$DEFINE ALIGN_ON} {$ENDIF} {$IFOPT B+} {$DEFINE BOOLEVAL_ON} {$ENDIF} {$IFDEF COMPILER2_UP} {$IFOPT C+} {$DEFINE ASSERTIONS_ON} {$ENDIF} {$ENDIF} {$IFOPT D+} {$DEFINE DEBUGINFO_ON} {$ENDIF} {$IFOPT G+} {$DEFINE IMPORTEDDATA_ON} {$ENDIF} {$IFDEF COMPILER2_UP} {$IFOPT H+} {$DEFINE LONGSTRINGS_ON} {$ENDIF} {$ENDIF} { Hints } {$IFOPT I+} {$DEFINE IOCHECKS_ON} {$ENDIF} {$IFDEF COMPILER2_UP} {$IFOPT J+} {$DEFINE WRITEABLECONST_ON} {$ENDIF} {$ENDIF} {$IFOPT L+} {$DEFINE LOCALSYMBOLS} {$ENDIF} {$IFOPT M+} {$DEFINE TYPEINFO_ON} {$ENDIF} {$IFOPT O+} {$DEFINE OPTIMIZATION_ON} {$ENDIF} {$IFOPT P+} {$DEFINE OPENSTRINGS_ON} {$ENDIF} {$IFOPT Q+} {$DEFINE OVERFLOWCHECKS_ON} {$ENDIF} {$IFOPT R+} {$DEFINE RANGECHECKS_ON} {$ENDIF} { Compatibilidade } {$IFOPT T+} {$DEFINE TYPEDADDRESS_ON} {$ENDIF} {$IFOPT U+} {$DEFINE SAFEDIVIDE_ON} {$ENDIF} {$IFOPT V+} {$DEFINE VARSTRINGCHECKS_ON} {$ENDIF} {$IFOPT W+} {$DEFINE STACKFRAMES_ON} {$ENDIF} { Warnings } {$IFOPT X+} {$DEFINE EXTENDEDSYNTAX_ON} {$ENDIF} //------------------------------------------------------------------------------ // Reduz warnings no D7: //------------------------------------------------------------------------------ {$IFDEF COMPILER7_UP} {$IFNDEF FPC} {$WARN UNSAFE_TYPE OFF} {$WARN UNSAFE_CODE OFF} {$WARN UNSAFE_CAST OFF} {$ENDIF} {$ENDIF} // Delphi 6 ou inferior tem suporte apenas por OpenSSL {$IFNDEF COMPILER7_UP} {$DEFINE ACBrNFeOpenSSL} {$DEFINE ACBrCTeOpenSSL} {$ENDIF} {$IFDEF ACBrNFeOpenSSL} {$DEFINE ACBrCTeOpenSSL} {$ENDIF} {$IFDEF ACBrCTeOpenSSL} {$DEFINE ACBrNFeOpenSSL} {$ENDIF} //------------------------------------------------------------------------------ // Definições para o Quick Report //------------------------------------------------------------------------------ // Descomente a linha abaixo caso o Quick Report tenha suporte a PDF // {$DEFINE QReport_PDF} */------------------

Verifiquei que na versão do componente existe os esquemas 1.04, porém o arquivo é gerado como 1.03. Encontrei tambem onde esta descrita as diferenças entre as versões. A demais dúvidas ainda continuam. Grato.

Bom dia senhores, Primeiramente gostaria de agradecer o pronto atendimento nas dúvidas aqui postadas. Possuo algumas dúvidas. Primeira um erro na validação como demonstrada no arquivo em anexo. Não sei como acrescentar estas tags via código, uma vez que não consegui visualizar as mesmas no demo. Segundo a versão q possuo e realizo os testes gera o XML na versão 1.03. Há a necessidade de realizar a atualização para a versão 1.04? Quais a direfença entre as versões? Existe um roteiro para a atualização? uma vez que realizei o update via (update svn) e após a atualização ocorre um erro na compilação (senão me engado alguma coisa com a descrição mutuo). Desde já agradeço. Uma bom dia a todos. Abraços

Caro Italo, muitíssimo obrigado, era exatamente este o problema. Tenha um bom dia. Abraços.

concluído, grato

Caros senhores, apesar de passar os valores corretos para o preenchimento das tags, o retorno é o seguinte: BARBOSA LAGE 9999999 EXTERIOR 36085000 EX contato com a colaboração, aguardo retorno. agradecidamente, josemar PS. caso necessário posso anexar código e xml gerado.

boa tarde senhores, como não tenho conhecimento na área fiscal e tenho andado muito atolado com outros projetos(sem tempo para pesquisas mais aprofundadas), venho solicitar junto a vcs. por favor ajudem-me a encontrar onde esta o erro no código. voui postar como disse o código e o arquivo xml rejeitado. certo da ajuda. desde já agradeço. abs código: while not dmmovimento.cdsitemmovimento.Eof do begin with Det.Add do begin Prod.nItem := itemnota; Prod.CFOP := cfop; Prod.cProd := dmmovimento.cdsitemmovimento.fieldbyname('CODIGO').AsString; Prod.xProd := dmmovimento.cdsitemmovimento.fieldbyname('DESCRICAO').AsString; Prod.qCom := dmmovimento.cdsitemmovimento.fieldbyname('QUANTIDADE').AsInteger; Prod.uCom := dmmovimento.cdsitemmovimento.fieldbyname('UNIDADE').AsString; Prod.vUnTrib := dmmovimento.cdsitemmovimento.fieldbyname('VALORUNIT').AsFloat; Prod.vUnCom := dmmovimento.cdsitemmovimento.fieldbyname('VALORUNIT').AsFloat; Prod.vProd := dmmovimento.cdsitemmovimento.fieldbyname('VALORTOTAL').AsFloat; Prod.qTrib := dmmovimento.cdsitemmovimento.fieldbyname('QUANTIDADE').AsInteger; Prod.uTrib := dmmovimento.cdsitemmovimento.fieldbyname('UNIDADE').AsString; Prod.NCM := dmmovimento.cdsitemmovimento.fieldbyname('NCM').AsString; if dmmovimento.cdsitemmovimento.FieldByName('ICMSITEM').AsFloat <> 0 then begin with Imposto do begin with ICMS do begin if (trim(dmmovimento.cdsitemmovimento.FieldByName('cst').AsString) = '201') or (trim(dmmovimento.cdsitemmovimento.FieldByName('cst').AsString) = '202') then begin if trim(dmmovimento.cdsitemmovimento.FieldByName('cst').AsString) = '201' then CSOSN := csosn201 else CSOSN := csosn202; end else CST := cst40; ICMS.pICMS := dmmovimento.cdsitemmovimento.fieldbyname('ALIQUOTAICMS').AsFloat; ICMS.vICMS := dmmovimento.cdsitemmovimento.fieldbyname('ICMSITEM').AsFloat; ICMS.vBC := dmmovimento.cdsitemmovimento.fieldbyname('BASEITEM').AsFloat; ICMS.vBCST := dmmovimento.cdsitemmovimento.fieldbyname('BASEST').AsFloat; ICMS.vICMSST := dmmovimento.cdsitemmovimento.fieldbyname('ICMSST').AsFloat; end; end; end; end; dmmovimento.cdsitemmovimento.Next; itemnota := itemnota + 1; end; Total.ICMSTot.vBC := dmmovimento.cdsmovimento.fieldbyname('BASECALCULO').AsFloat; Total.ICMSTot.vICMS := dmmovimento.cdsmovimento.fieldbyname('ICMS').AsFloat; Total.ICMSTot.vDesc := dmmovimento.cdsmovimento.fieldbyname('DESCONTO').AsFloat; Total.ICMSTot.vNF := dmmovimento.cdsmovimento.fieldbyname('VALORTOTAL').AsFloat; Total.ICMSTot.vProd := dmmovimento.cdsmovimento.fieldbyname('VALORTOTAL').AsFloat+dmmovimento.cdsmovimento.fieldbyname('DESCONTO').AsFloat-dmmovimento.cdsmovimento.fieldbyname('ICMSST').AsFloat; Total.ICMSTot.vBCST := dmmovimento.cdsmovimento.fieldbyname('BASEST').AsFloat; Total.ICMSTot.vST := dmmovimento.cdsmovimento.fieldbyname('ICMSST').AsFloat; xml gerado: seguira em anexo 31111025274150000114550010000004021000004025-nfe.xml