Pedro Antonio Marchette

agradeço a colaboração Italo, conferi na rotina e estava passando vazio a tag em outro momento

Boa tarde amigos estou com um problema ja procurei pelo forum porem nao encotrei nada que solucione isso, tem um cliente do RJ que esta enviando uma nota para SP com st, o mesmo consguiu uma IEST(iscrição estadual subistituto tributario) informe a tag no meu codigo de emissao de nota porem nao cria a tag no xml. trecho em negrito, ate coloquei mensagens pra ver se nao estava pulando ele passou dentro de tudo e nao gerou segue o codigo : if QPAIRUF_DESTINARIO.AsString = 'EX' then begin Ide.idDest := doExterior; end else if QPAIRUF_DESTINARIO.AsString = QPAIRUF_EMISSOR.AsString then ide.idDest := doInterna else ide.idDest := doInterestadual; Emit.CNPJCPF := QPAIRCGC_EMISSOR.AsString; Emit.IE := QPAIRICMS_EMISSOR.asString; {** Inscrição Estadual Substituto Tributário ** Isso permite que possamos faturar do 'RJ' para 'SP', sem a necessidade de pagamento antecipado da Guia de ST. } if (QPAIRFINALIDADE_NF.AsString <> 'VENDA PARA CONSUMO/ATIVO') then begin //ShowMessage('PASSOU, VENDA PARA CONSUMO/ATIVO'); if (Trim(CONSULTAS.QPAIRRG.AsString) <> '') or (CONSULTAS.QPAIRRG.AsString <> null)then begin //ShowMessage('VERIFICAÇÃO SE TEM O IEST' + CONSULTAS.QPAIRRG.AsString); if CONSULTAS.QPAIRUF_DESTINARIO.AsString = 'SP' then begin Emit.IEST := Trim(CONSULTAS.QPAIRRG.ASSTRING) ; //ShowMessage('ALIMENTOU A TAG' + CONSULTAS.QPAIRRG.AsString); end; end; end; //if QPAIRCGC_EMISSOR.AsString = '0000000000000' then // Emit.xNome := '' //else Emit.xNome := QPAIRRAZAO_SOCIAL_EMISSOR.AsString; Emit.xFant := QPAIRRAZAO_SOCIAL_EMISSOR.AsString; Emit.EnderEmit.fone := QPAIRTEL_EMISSOR.AsString; if (QPAIRCEP_EMISSOR.AsString <> '') then Emit.EnderEmit.CEP := StrToInt(QPAIRCEP_EMISSOR.AsString) else Emit.EnderEmit.CEP := 0; Emit.EnderEmit.xLgr := QPAIRENDERECO_EMISSOR.AsString; if QPAIRNUMERO_EMISSOR.IsNull then Emit.EnderEmit.nro := '.' else Emit.EnderEmit.nro := QPAIRNUMERO_EMISSOR.AsString; Emit.EnderEmit.xCpl := QPAIRCOMPLEMENTO_EMISSOR.AsString; Emit.EnderEmit.xBairro := QPAIRBAIRRO_EMISSOR.AsString; Emit.EnderEmit.cMun := QPAIRCOD_CIDADE_EMISSOR.AsInteger; Emit.EnderEmit.xMun := QPAIRCIDADE_EMISSOR.AsString; Emit.EnderEmit.UF := QPAIRUF_EMISSOR.AsString; xml em anexo 1-env-lot.xml

obrigado igor.moura , nem tinha me antentado a isso realmente é isso mesmo .

estou tendo o mesmo problema mandando do RJ para SP passei 12 foi passo 7 rejeita

Boa tarde amigos estou com um problema ja procurei pelo forum porem nao encotrei nada que solucione isso, tem um cliente do RJ que esta enviando uma nota para SP com st, o mesmo consguiu uma IEST(iscrição estadual subistituto tributario) informe a tag no meu codigo de emissao de nota porem nao cria a tag no xml. trecho em negrito, ate coloquei mensagens pra ver se nao estava pulando ele passou dentro de tudo e nao gerou segue o codigo : if QPAIRUF_DESTINARIO.AsString = 'EX' then begin Ide.idDest := doExterior; end else if QPAIRUF_DESTINARIO.AsString = QPAIRUF_EMISSOR.AsString then ide.idDest := doInterna else ide.idDest := doInterestadual; Emit.CNPJCPF := QPAIRCGC_EMISSOR.AsString; Emit.IE := QPAIRICMS_EMISSOR.asString; {** Inscrição Estadual Substituto Tributário ** Isso permite que possamos faturar do 'RJ' para 'SP', sem a necessidade de pagamento antecipado da Guia de ST. } if (QPAIRFINALIDADE_NF.AsString <> 'VENDA PARA CONSUMO/ATIVO') then begin //ShowMessage('PASSOU, VENDA PARA CONSUMO/ATIVO'); if (Trim(CONSULTAS.QPAIRRG.AsString) <> '') or (CONSULTAS.QPAIRRG.AsString <> null)then begin //ShowMessage('VERIFICAÇÃO SE TEM O IEST' + CONSULTAS.QPAIRRG.AsString); if CONSULTAS.QPAIRUF_DESTINARIO.AsString = 'SP' then begin Emit.IEST := Trim(CONSULTAS.QPAIRRG.ASSTRING) ; //ShowMessage('ALIMENTOU A TAG' + CONSULTAS.QPAIRRG.AsString); end; end; end; //if QPAIRCGC_EMISSOR.AsString = '0000000000000' then // Emit.xNome := '' //else Emit.xNome := QPAIRRAZAO_SOCIAL_EMISSOR.AsString; Emit.xFant := QPAIRRAZAO_SOCIAL_EMISSOR.AsString; Emit.EnderEmit.fone := QPAIRTEL_EMISSOR.AsString; if (QPAIRCEP_EMISSOR.AsString <> '') then Emit.EnderEmit.CEP := StrToInt(QPAIRCEP_EMISSOR.AsString) else Emit.EnderEmit.CEP := 0; Emit.EnderEmit.xLgr := QPAIRENDERECO_EMISSOR.AsString; if QPAIRNUMERO_EMISSOR.IsNull then Emit.EnderEmit.nro := '.' else Emit.EnderEmit.nro := QPAIRNUMERO_EMISSOR.AsString; Emit.EnderEmit.xCpl := QPAIRCOMPLEMENTO_EMISSOR.AsString; Emit.EnderEmit.xBairro := QPAIRBAIRRO_EMISSOR.AsString; Emit.EnderEmit.cMun := QPAIRCOD_CIDADE_EMISSOR.AsInteger; Emit.EnderEmit.xMun := QPAIRCIDADE_EMISSOR.AsString; Emit.EnderEmit.UF := QPAIRUF_EMISSOR.AsString; xml em anexo 1-env-lot.xml

bom dia ! como nao existe mais consultaDpec o que se deve utilizar no lugar ??

tambem nao estou conseguindo atualizar o repositorio fala que o serviço nao esta no ar. acredito que poderiam ter mantido o outro repositorio, ate que esse fosse testado e normalizado

Acho que me expressei mal, seguinte ele imprime 4 etiquetas e para se eu mandar 8 ele vai imprimir 4 e parar as outras 4 nao imprime, com a versao nova voltando para a versao anterior a a data 02/06/2015 que foi mexido no codigo ele imprime normal

Bom dia, após a atualização da revisão 9203, quando mando imprimir mais que 4 etiquetas ele mata o processo e não imprime, olhando no Log vi que foi feito alterações no dia 03/06/2015 revisão 9155, e dia 02/06/2015 revisão 9145 peguei e voltei a versão para revisão 9140 do dia 01/06/2015, e voltou imprimir normalmente, por favor verifique.

estou com o mesmo problema, no site da receita a disponibilidade esta normal, não se acha nada na web sobre esse erro se alguém souber poste aqui

obrigado Dempsey , era isso mesmo não estava passando o caminho nem no codigo nem no componente , deu certo

isso mesmo

chave da nota referenciada como manda a nota tecnica que tem que passar a chave quando monta o xml a tag criada fica assim: -<ide> <cUF>35</cUF> <cNF>00000001</cNF> <natOp>5201 - DEVOLUCAO DE MERCADORIA</natOp> <indPag>1</indPag> <mod>55</mod> <serie>1</serie> <nNF>3223</nNF> <dhEmi>2015-02-23T00:00:00-03:00</dhEmi> <tpNF>1</tpNF> <idDest>1</idDest> <cMunFG>3543402</cMunFG> <tpImp>1</tpImp> <tpEmis>1</tpEmis> <cDV>6</cDV> <tpAmb>1</tpAmb> <finNFe>4</finNFe> <indFinal>0</indFinal> <indPres>0</indPres> <procEmi>0</procEmi> <verProc>1.0.0.0</verProc> <NFref/> <======= fica assim e não passa a chave de geito nenhum </ide>

estou com o mesmo problema , como faz pra informar Tipo = Nfe no componente, ja nao sei mais o que fazer e meu cliente nao para de me cobrar essa bendita nota de devolução . segue a rotina: if QOTR_MODO.AsString = 'D' then begin // DBUtils.AbrirQuery(FRMINCNOTAAVULSA.qryNfRef,'ID_NOTA_REF',StrToInt(QPNAVIO.AsString)); // if FRMINCNOTAAVULSA.qryNfRefID_NOTA.AsString = QPNAVIO.AsString then // begin Ide.finNFe := fnDevolucao; // passa chave da nfe referenciada a devolução with Ide.NFref.Add do Begin refNFe := QPNAVIO.AsString; end; end ELSE Ide.finNFe := fnNormal; Erro ocorrido: Falha na validação dos dados da nota3223 Element '{http://www.portalfiscal.inf.br/nfe}NFref'cannot be empty according to the DTD/Schema. e quando envio da a seguinte mensagem

reinstalei o acbr pelo acbrinstall e resolveu o problema