EFV

.

Ola pessoal estou com o seguinte erro quando envio a nfse. para o provedor Betha falha na validação do lote 1011 element 'InscricaoEstadual' is unexpected according to content model of parent element 'IdentificacaoTomador'. Expecting: InscricaoMunicipal, Verifiquei os campos insc. estadual e municipal esta tudo certo, porém esta me retornando esta mensagem. Outra Dúvida de qual maneira consigo pegar o xml após o rps ser processado.

Blz Pessoal deu certo, muito Obrigado

Ola Italo Bom Dia, Estou com uma duvida sobre o campo outrasinformações, estou usando este campo para pegar o link da betha para imprimir o danfenfse, porem se eu acrescentar qualquer outra informação, não consigo mais capturar o link, gostaria de saber se á alguma outra manira de se captura o link.

Olá Boa noite primeiramente quero agradecer o Italo pelo apoio, sempre que precisamos e ao Jefferson, gostaria de explicar qual é a razão do erro acima mencionado talvez outros passem pelo mesmo problema que eu passei, eu estava passando os dados do proxy, para o servidor que no caso não era necessário, a todos peso desculpas, e terei mais cuidado na próxima vez.

Ola pessoal alguém possou por este problema.

Boa tarde Italo, Fiz como vc me explicou e não deu certo. acredito que estou passando alguma informação errada só que não estou conseguindo identificar a qual é por que no modelo do exemplo da nfse do acbr esta fazendo certo tanto o envio como a recepção, só que no meu sistema esta dando o erro estive verificando todas a tag de alimentação do componente e as mesma estão iguais a do exemplo.

Ola bom dia Estou desenvolvendo a nfse, como padrão betha, e no momento que envio as informações esta me retornando o seguinte erro no qual segue em anexo. acredito que eu esteja passando algum parâmetro errado mas não estou conseguindo identificar. 3UNICA-Rps.xml

Por favor Se possivel Incluir Capinzal - sc Monte Carlo - Sc Ouro - sc Provedor Betha

Ola Bom dia Gostaria se possível adicionar quatro novas cidades provedor betha Capinzal-SC Campos Novos - SC Ouro - SC Monte Carlo - SC

Muito Obrigado novamente era isso mesmo, peço desculpas por não ter interpretado corretamente o manual.

Ola Italo JJR, Primeiramente gostaria de lhe agradecer pelas inúmeros auxílios que tem me passado, Segundo gostaria de ver o erro em anexo. Este erro começou a ocorrer no momento que foi implementado a tag infdocant. no qual segue abaixo o código implementado if ide.tpServ <> tsNormal then begin with infCTeNorm.docAnt.emiDocAnt.Add do begin qrutil.Close; qrutil.SQL.Clear; qrutil.SQL.Add('select * from doc_transp_ant'); qrutil.SQL.Add('where cod_conhecimento =:cod'); qrutil.ParamByName('cod').AsInteger := qrConhecimentoCODIGO.AsInteger; qrutil.Open; // Dados do Emissor do Documento Anterior CNPJCPF := qrutil.fieldbyname('cnpj').AsString; //Exped.CNPJCPF; IE := qrutil.fieldbyname('ie').AsString; //Exped.IE; UF := qrutil.fieldbyname('uf').AsString; //Exped.EnderExped.UF; xNome := qrutil.fieldbyname('razao').AsString; //Exped.xNome; with idDocAnt.Add do begin qryAuxiliar.Close; qryAuxiliar.SQL.Clear; qryAuxiliar.SQL.Add('select * from doc_transp_ant_papel'); qryAuxiliar.SQL.Add('where cod_conhecimento =:codc and cod_trans_ant =:coda'); qryAuxiliar.ParamByName('codc').AsInteger :=qrConhecimentoCODIGO.AsInteger; qryAuxiliar.ParamByName('coda').AsInteger :=qrutil.fieldbyname('codigo').AsInteger; qryAuxiliar.Open; qryAuxiliar.First; // Documentos Anteriores de Papel while not qryAuxiliar.Eof do begin with idDocAntPap.Add do begin // TpcteTipoDocumentoAnterior = (daCTRC, daCTAC, daACT, daNF7, daNF27, daCAN, daCTMC, daATRE, daDTA, daCAI, daCCPI, daCA, daTIF, daOutros); if (qryAuxiliar.fieldbyname('tipo_doc').AsString ='CTRC')then tpDoc := daCTRC; if (qryAuxiliar.fieldbyname('tipo_doc').AsString ='CTAC')then tpDoc := daCTAC; if (qryAuxiliar.fieldbyname('tipo_doc').AsString ='ACT')then tpDoc := daACT; if (qryAuxiliar.fieldbyname('tipo_doc').AsString ='NF MODELO 7')then tpDoc := daNF7; if (qryAuxiliar.fieldbyname('tipo_doc').AsString ='NF MODELO 27')then tpDoc := daNF27; if (qryAuxiliar.fieldbyname('tipo_doc').AsString ='CONHECIMENTO AEREO NACIONAL')then tpDoc := daCAN; if (qryAuxiliar.fieldbyname('tipo_doc').AsString ='CTME')then tpDoc := daCTMC; if (qryAuxiliar.fieldbyname('tipo_doc').AsString ='ATRE')then tpDoc := daATRE; if (qryAuxiliar.fieldbyname('tipo_doc').AsString ='DTA (DESPACHO DE TRÂNSITO ADUANEIRO)')then tpDoc := daDTA; if (qryAuxiliar.fieldbyname('tipo_doc').AsString ='CONHECIMENTO AEREO INTERNACIONAL')then tpDoc := daCAI; if (qryAuxiliar.fieldbyname('tipo_doc').AsString ='CONHECIMENTO - CARTA DE PORTE INTERNACIONAL')then tpDoc := daCCPI; if (qryAuxiliar.fieldbyname('tipo_doc').AsString ='CONHECIMENTO AVULSO')then tpDoc := daCA; if (qryAuxiliar.fieldbyname('tipo_doc').AsString ='TIF (TRANSPORTE INTERNACIONAL FERROVIARIO)')then tpDoc := daTIF; if (qryAuxiliar.fieldbyname('tipo_doc').AsString ='OUTROS')then tpDoc := daOutros; serie := qryAuxiliar.fieldbyname('serie').AsString; subser := qryAuxiliar.fieldbyname('sub_serie').AsString; nDoc := qryAuxiliar.fieldbyname('numero_doc').AsInteger; dEmi := qryAuxiliar.fieldbyname('data_emiss').AsDateTime; end; qryAuxiliar.Next; end; qryAuxiliar.Close; qryAuxiliar.SQL.Clear; qryAuxiliar.SQL.Add('select * from doc_transp_ant_eletronico'); qryAuxiliar.SQL.Add('where cod_conhecimento =:codc and cod_trans_ant =:coda'); qryAuxiliar.ParamByName('codc').AsInteger :=qrConhecimentoCODIGO.AsInteger; qryAuxiliar.ParamByName('coda').AsInteger :=qrutil.fieldbyname('codigo').AsInteger; qryAuxiliar.Open; qryAuxiliar.First; // Documentos Anteriores Eletrônico while not qryAuxiliar.Eof do begin with idDocAntEle.Add do begin chave := qryAuxiliar.fieldbyname('chave').AsString; end; qryAuxiliar.Next; end; end; end; end;

Muito Obrigado ItalJJr era isso mesmo

Ola ItaloJJr estou com problemas na carta de correção do CTE quando mando enviar a mesma esta retornado o erro em anexo. Também estou passando a forma que estou passando os parâmetros para o evento abaixo. procedure TfrmCTe_menu.BitBtn2Click(Sender: TObject); var vAux, sXML, caminho : string; NumeroLote :integer; begin ACBrCTe.Configuracoes.WebServices.UF := cbUF.Text; frmmodulo.qrconhecimento.Close; frmmodulo.qrconhecimento.SQL.Clear; frmmodulo.qrconhecimento.SQL.Add('select * from c000068'); frmmodulo.qrconhecimento.SQL.Add('where codigo =:cod'); frmmodulo.qrconhecimento.ParamByName('cod').AsInteger :=qrConhecimentoCODIGO.AsInteger; frmmodulo.qrconhecimento.Open; caminho := frmmodulo.qrconhecimento.fieldbyname('xml_cte').asstring; sXML := sCaminhoXml + frmmodulo.qrconhecimento.fieldbyname('xml_cte').asstring; NumeroLote := StrToInt(FormatDateTime('mmss', NOW)); // alterado por efv if sxml = '' then exit; if FileExists(sxml) then begin bMensagem := true; ACBrCTe.EventoCTe.Evento.Clear; ACBrCTe.Conhecimentos.Clear; ACBrCTe.Conhecimentos.LoadFromFile(sXML); with ACBrCTe.EventoCTe.Evento.Add do begin infevento.chCTe := Copy(ACBrCTe.Conhecimentos.Items[0].CTe.infCTe.Id, 4, 44); infEvento.CNPJ := ACBrCTe.Conhecimentos.Items[0].CTe.emit.CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; end; with ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Add do begin frmCC_CTe := TfrmCC_CTe.Create(Self); frmCC_CTe.ShowModal; grupoAlterado := sGrupo; campoAlterado := sCampo; valorAlterado := sValor; nroItemAlterado := iNumItem; end; // Enviar o evento de cancelamento if ACBrCTe.EnviarEventoCTe(NumeroLote) then begin with ACBrCTe.WebServices.EnvEvento do begin if EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135 then begin raise Exception.CreateFmt( 'Ocorreu o seguinte erro ao criar a correcao a o CTe:' + sLineBreak + 'Código:%d' + sLineBreak + 'Motivo: %s', [ EventoRetorno.retEvento.Items[0].RetInfEvento.cStat, EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo]); end; end; end else begin with ACBrCTe.WebServices.EnvEvento do begin with ACBrCTe.WebServices.EnvEvento do begin raise Exception.Create( ' Ocoreram erros ao tentar efetuar a correcao:' + sLineBreak + 'Lote: ' + IntToStr(EventoRetorno.idLote) + sLineBreak + 'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak + 'Orgao: ' + IntToStr(EventoRetorno.cOrgao) + sLineBreak + sLineBreak + 'Status: ' + IntToStr(EventoRetorno.cStat) + sLineBreak + 'Motivo: ' + EventoRetorno.xMotivo ); end; end; end; frmmodulo.Conexao.StartTransaction; frmmodulo.qrconhecimento.edit; frmmodulo.qrconhecimento.FieldByName('xml_cte').asstring := caminho; //copy(caminho,1,44) + '-ProcCancNFe.xml'; frmmodulo.qrconhecimento.FieldByName('cte').asinteger := 8; frmmodulo.qrconhecimento.post; frmmodulo.Conexao.Commit; gridRowChanged(frmnotafiscal_menu); end else begin application.messagebox('Arquivo XML não econtraddo!','Erro',mb_ok+mb_iconerror); end;

Ola pessoal gostaria de saber como posso fazer para anexar dois arquivos ao mesmo e-mail, segue a rotina de como estou anexando. Gostaria de saber se estou fazendo certo. ACBrMail1.AddAttachment(Sxml,Spdf); O Sxml eo Spdf são variáveis onde estão armazenados o caminho e o nome dos arquivos que desejo anexar, gostaria de ressaltar que o Sxml ele esta enviando corretamente sem erros, só que o Spdf, ja não anexa, gostaria de saber se a alguma maneira de resolver isso. Att: Edilson

Bom dia ItaloJJR, Estou desenvolvendo a carta de correção do cte. e não estou conseguindo imprimir a mesma, preciso saber qual o evento para impressão devo usar.

ItaloJJr , estou seguindo o arquivo alimetarcomponente.txt, gostaria de saber se esta correto da forma que esta sendo repassado no arquivo para a versão 2.0. Baixei os fontes e atualizei os componentes acbr e compilei pelo build all projects e esta dando o mesmo erro, acredito que eu não esteja passando o parâmetro de forma incorreta nesta tag. Não sei se estou esquecendo de passar algum parâmetro, que não tenha percebido pois na tag acima with infCTeNorm.infCarga.InfQ.Add do a opção infCTeNorm não esta apresentado o erro.

Ola ItaloJJr, estou com problemas na parte de seguros na versão 2.0 do CTe, esta me retornando o erro abaixo quando mando compilar o sistema. [Error] CTe_menu.pas(1059): Undeclared identifier: 'infCTeNorm'. Estive fazendo os processos como esta no fórum sobre o cte 2.0 segui todos os passos do arquivo alimentarcomponente.txt , também exclui os fontes dos arquivos acbrcte baixei eles novamente, reinstalei o componente e compilei o projeto pelo build all projects, mas continuo recebendo o erro. Estou enviando a rotina no modo que esta implementando. while not qryAuxiliar.Eof do begin {$IFDEF PL_200} with infCTeNorm.seg.Add do {$ELSE} with infseg.Add do {$ENDIF} begin if qryAuxiliar.FieldByName('responsavel').AsString ='REMETENTE' then respSeg:=rsRemetente; if qryAuxiliar.FieldByName('responsavel').AsString ='EXPEDIDOR' then respSeg:=rsExpedidor; if qryAuxiliar.FieldByName('responsavel').AsString ='RECEBEDOR' then respSeg:=rsRecebedor; if qryAuxiliar.FieldByName('responsavel').AsString ='DESTINATÁRIO' then respSeg:=rsDestinatario; if qryAuxiliar.FieldByName('responsavel').AsString ='EMITENTE DO CTE' then respSeg:=rsEmitenteCTe; if qryAuxiliar.FieldByName('responsavel').AsString ='TOMADOR DO SERVIÇO' then respSeg:=rsTomadorServico; xSeg:=Copy(trim(qryAuxiliar.FieldByName('nome_seguradora').AsString), 1, 30); nApol:=Copy(trim(qryAuxiliar.FieldByName('n_apolice').AsString), 1, 20); nAver:=qryAuxiliar.FieldByName('n_averbacao').AsString; vCarga:=RoundTo(qryAuxiliar.fieldbyname('v_mercadoria').AsFloat, -2); end; qryAuxiliar.Next; end;

ItaloJjr era isso mesmo muito obrigado

Ola ItaloJr, Não estou conseguindo identificar a solução do problema do meu cte, segui todos os passos como descritos no arquivo alimentar componente.txt, e mesmo assim esta dando o erro [Error] CTe_menu.pas(715): Undeclared identifier: 'InfNF', estou passando o codigo a baixo do procedimento. while not qryAuxiliar.Eof do begin {$IFDEF PL_200} with infCTeNorm.infDoc.infNF.Add do {$ELSE} with Rem.InfNF.Add do {$ENDIF} begin nRoma := qryAuxiliar.fieldbyname('n_romaneio_nf').AsString; nPed := qryAuxiliar.fieldbyname('n_pedido_nf').AsString; serie := qryAuxiliar.fieldbyname('serie').AsString; nDoc := qryAuxiliar.fieldbyname('numero').AsString; dEmi := qryAuxiliar.fieldbyname('data_emissao').AsDateTime; vBC := RoundTo(qryAuxiliar.fieldbyname('bc_icms').AsFloat, -2); vICMS := RoundTo(qryAuxiliar.fieldbyname('valor_icms').AsFloat, -2); vBCST := RoundTo(qryAuxiliar.fieldbyname('bc_icms_st').AsFloat, -2); vST := RoundTo(qryAuxiliar.fieldbyname('valor_icms_st').AsFloat, -2); vProd := RoundTo(qryAuxiliar.fieldbyname('valor_produtos').AsFloat, -2); vNF := RoundTo(qryAuxiliar.fieldbyname('valor_nota').AsFloat, -2); nCFOP := StrToInt(qryAuxiliar.fieldbyname('cfop').AsString); nPeso := RoundTo(qryAuxiliar.fieldbyname('peso_total_kg').AsFloat, -2); PIN := qryAuxiliar.fieldbyname('pin').AsString; {$IFNDEF PL_200} { Local de Retirada } if (qryAuxiliar.fieldbyname('cnpj').AsString<>'')then begin

Bom dia Juliomar Marchetti da mesma forma não esta aparecendo, só para complementar estou usando acbrctdctqr no modo homologação, já tentei também com o acbrctdctfr da mesma forma não funcionou, removi os componentes e instalei ele novamente e também não resolveu, estou passando o dacte em anexo. 42140511575458000195570010000016341218750214.pdf

Olá italojjr Estou enviando em anexo um xml de cte gostaria de saber o porque não esta saindo a no meio do dacte escrito cte cancelado, na hora de imprimir o cte estou passando a opção como segue abaixo: if ACBrCTe.WebServices.Consulta.cStat = 101 then begin ACBrCTe.Configuracoes.Geral.AtualizarXMLCancelado := True; DACTE.ProtocoloCTE := ACBrCTe.WebServices.Consulta.Protocolo; DACTE.CTeCancelada := False; ShowMessage('Este CTe está Cancelado'); end else begin DACTE.CTeCancelada := False; end; DACTE.Logo := edtLogoMarca.Text; ACBrCTe.Conhecimentos.Imprimir; ACBrCTe.Conhecimentos.ImprimirPDF; Gostaria de saber onde que estou erando. 42140511575458000195570010000016341218750214-cte.xml

Ok Muito obrigado EMBarbosa pelas dicas. Só que infelizmente tem que ser com estas etiquetas mesmo, pois o cliente andou comprando um monte delas Gostaria de saber como que devo proceder através do ACBrETQ para configurar o padrão 2 of 5, lembrando que estou usando uma argox os214 plus modo ppla.

Olá pessoal estou tentando gerar um código de barras o mesmo possui 16 numerais. Como o modelo padrão que quero usar é igual a este ( ImprimirBarras(orNormal, 'E', '1', '2', 100, 40, '0010004850058423', 90,becSIM), este imprime tudo certo só que preciso reduzir o tamanho das barras pois a minha etiqueta é pequena, e desta maneira o código de barras esta imprimindo as barras do código de barras forra da etiqueta por não ter espaço suficiente. Se eu usar o modelo ( ImprimirBarras(orNormal, 'E', '1', '1', 100, 40, '0010004850058423', 90,becSIM), até consigo imprimir o código de barras dentro da etiqueta porem as barras do código ficam muitos finas e o leitor não consegue ler as mesmas. Tive vendo aqui no fórum para usar o padrão 2 of 5 porem não consegui aplicar de forma que funcione. Se alguém que tenha passado por este problema e possa me auxiliar agradeço.