ALA

Julio, vou tentar utilizar o ACBRTEF no inicio do meu projeto apenas para cancelar as ultimas transações TEF pendentes, ACBrTEFD1.CancelarTransacoesPendentes; Obs.: Em qual unit devo olhar como o componente esta trantando o cancelamento ?

Julio, obrigado pela resposta. Tentei utilizar o ACBrTEF mas infelizmente não foi possível, pq não utilizo o ACBrECF, então tenho que realizar a rotina a mão mesmo. O meu TEF já funciona blz, mas tenho que implementar a rotina que mencionei acima.

Senhores, bom dia. Já trabalho com TEF IP a vários anos. Mas agora estou implementando a rotina de Múltiplos Cartões. Quando ocorre uma falha ( queda de energia, cancelamento da impressão ) na impressão dos comprovantes TEF e o sistema é reiniciado, devo cancelar todas as transações pendentes. O roteiro diz que a ultima transação aprovada deve ser cancelada com “NCN” e as outras devem ser canceladas com “CNC”’. Alguém pode me explicar como deve ser realizado este tipo de cancelamento "CNC".

Bom dia Ítalo, eu já alterei o meu projeto trocando 3-SCAN para 6-SVC-AN funcionou blz. Para alterar de DPEC para EPEC devo alterar o que ? Pesquisei no Demo mas não encontrei nada a respeito.

Senhores, bom dia. Temos quase 1.000 clientes emitindo NF-e, CT-e, NFS-e, CC-e sem problema. Nunca aconteceu o problema relatado.

Senhores, existe alguma alteração prevista para a contingência DPEC que entrara em vigor no dia 01/07/2014 ?

Jorge obrigado pelas resposta. 1º A contingência 3 - SCAN não será mais permitida a partir de 01/07/2014, correto ? 2º Devo apenas alterar o tipo 3 - SCAN para o tipo 6 -SCV-AN ?

Pessoa, boa tarde. Estou alterando a contingência SCAN para nova contingencia SVC, mas estou com algumas duvidas. 1º No caso de Minas Gerais qual o tipo de contingência devo adotar, 6 ou 7, hj utilizo 3 2º Devo apenas alterar o tpemis para 6 ou 7 ou tenho que alterar mais alguma coisa. Obrigado.

Eu estava com este problema aqui em MG. Motivo: Estava tentando cancelar do modo antigo, na versão 2.0 vc deve cancelar por evento.

Sr. leootoni, eu estava com este problema aqui em MG. Motivo: Estava tentando cancelar do modo antigo, na versão 2.0 vc deve cancelar por evento.

Ítalo, bom dia. Abaixo parte do código que estou utilizando para alimentar o componente. Neste caso estou informando valor para o ICMS mas não existe valor para o total do serviço, pq o CT-e e de complemento de impostos. Os valores enviados são do CT-e complementar e não do CT-e pai. {$IFDEF PL_200} with infCTeComp do // 1-1 {$ELSE} with infCTeComp.Add do // 1-10 {$ENDIF} begin { CAMPOS OBRIGATORIOS Página 116, Campo #467: chave (chave do CTe complementado) Página 117, Grupo #468: vPresComp (valores da prestação de serviço) Campo #469: vTPrest (valor total da prestação de serviço complementado) Grupo #473: impComp (informações relativas aos impostos complementados) dentro deste grupo tem os grupos e campos que dependem da classificação tributária do serviço. } // DADOS DO CONHECIMENTO PAI Chave := Cte_PAI.FieldByName( 'CTR_CHAVE_CTE' ).AsString; // v 1.4, 2.00 vPresComp.vTPrest := Cte_PAI.FieldByName( 'CTR_VLR_TOTAL_PRESTACAO' ).AsCurrency; // v 1.4 //VPresComp.compComp.Add.xNome := vPrest.comp.Items[0].xNome; // v 1.4 // DADOS DO CONHECIMENTO COMPLEMENTAR vPresComp.compComp.Add.vComp := Cte.FieldByName( 'CTR_VLR_TOTAL_PRESTACAO' ).AsCurrency; // v 1.4 compl.xObs := compl.xObs + ' VLR. COMPLEMENTADO: ' + FormatCurr('##,##0.00', Cte_PAI.FieldByName( 'CTR_VLR_TOTAL_PRESTACAO' ).AsCurrency ); // solicitado por Carlos para Transtrinta // INICIO TRIBUTAÇÃO // // CTE - COMPLEMTNAR - ICMS - COMPLEMENTAR - mantis 0003788 // // INICIO - COMPLEMENTAR // // Informações relativas ao Impostos Complementados // TpcnCSTIcms = (cst00, cst10, cst20, cst30, cst40, cst41, cst45, cst50, cst51, cst60, cst70, cst80, cst81, cst90); case Tributacao.FieldByName( 'STR_CODIGO' ).AsInteger of 00: begin ImpComp.ICMSComp.SituTrib := cst00; ImpComp.ICMSComp.ICMS00.CST := cst00; // Tributação Normal ICMS ImpComp.ICMSComp.ICMS00.vBC := Cte.FieldByName( 'CTR_VLR_BASE_ICMS' ).ASCurrency; ImpComp.ICMSComp.ICMS00.pICMS := Cte.FieldByName( 'CTR_ALIQUOTA_ICMS' ).ASCurrency; ImpComp.ICMSComp.ICMS00.vICMS := Cte.FieldByName( 'CTR_VLR_ICMS' ).ASCurrency; // Assembla 1947 { compl.xObs := compl.xObs + '; CST-ICMS: 0' + Tributacao.FieldByName( 'STR_CODIGO' ).AsString + ' BASE DE CALCULO: ' + FormatCurr('##,##0.00' ,Cte.FieldByName( 'CTR_VLR_BASE_ICMS' ).AsCurrency ) + ' PERC. ALIQUOTA: ' + FormatCurr('##,##0.00' ,Cte.FieldByName( 'CTR_ALIQUOTA_ICMS' ).AsCurrency ) + ' VALOR: ' + FormatCurr('##,##0.00' ,Cte.FieldByName( 'CTR_VLR_ICMS' ).AsCurrency );} end; 20: begin ImpComp.ICMSComp.SituTrib := cst20; ImpComp.ICMSComp.ICMS20.CST := cst20; // Tributação com BC reduzida do ICMS ImpComp.ICMSComp.ICMS20.pRedBC := Cte.FieldByName( 'CTR_PERC_REDUCAO_BASE_ICMS' ).AsCurrency; ImpComp.ICMSComp.ICMS20.vBC := Cte.FieldByName( 'CTR_VLR_BASE_ICMS' ).ASCurrency; ImpComp.ICMSComp.ICMS20.pICMS := Cte.FieldByName( 'CTR_ALIQUOTA_ICMS' ).ASCurrency; ImpComp.ICMSComp.ICMS20.vICMS := Cte.FieldByName( 'CTR_VLR_ICMS' ).ASCurrency; {// Assembla 1947 compl.xObs := compl.xObs + '; CST-ICMS: 0' + Tributacao.FieldByName( 'STR_CODIGO' ).AsString + ' BASE DE CALCULO: ' + FormatCurr('##,##0.00' ,Cte.FieldByName( 'CTR_VLR_BASE_ICMS' ).AsCurrency ) + ' PERC. ALIQUOTA: ' + FormatCurr('##,##0.00' ,Cte.FieldByName( 'CTR_ALIQUOTA_ICMS' ).AsCurrency ) + ' VALOR: ' + FormatCurr('##,##0.00' ,Cte.FieldByName( 'CTR_VLR_ICMS' ).AsCurrency );} end; 40: begin ImpComp.ICMSComp.SituTrib := cst40; ImpComp.ICMSComp.ICMS45.CST := cst40; // ICMS Isento // Assembla 1947 //compl.xObs := compl.xObs + '; CST-ICMS: 0' + Tributacao.FieldByName( 'STR_CODIGO' ).AsString; end; 41: begin ImpComp.ICMSComp.SituTrib := cst41; ImpComp.ICMSComp.ICMS45.CST := cst41; // ICMS não Tributada // Assembla 1947 //compl.xObs := compl.xObs + '; CST-ICMS: 0' + Tributacao.FieldByName( 'STR_CODIGO' ).AsString; end; 51: begin ImpComp.ICMSComp.SituTrib := cst51; ImpComp.ICMSComp.ICMS45.CST := cst51; // ICMS diferido // Assembla 1947 //compl.xObs := compl.xObs + '; CST-ICMS: 0' + Tributacao.FieldByName( 'STR_CODIGO' ).AsString; end; 60: begin ImpComp.ICMSComp.SituTrib := cst60; ImpComp.ICMSComp.ICMS60.CST := cst60; // Tributação atribuida ao tomador ou 3. por ST ImpComp.ICMSComp.ICMS60.vBCSTRet := 0; ImpComp.ICMSComp.ICMS60.pICMSSTRet := 0; ImpComp.ICMSComp.ICMS60.vICMSSTRet := 0; ImpComp.ICMSComp.ICMS60.vCred := 0; // Assembla 1947 //compl.xObs := compl.xObs + '; CST-ICMS: 0' + Tributacao.FieldByName( 'STR_CODIGO' ).AsString; end; 90: begin ImpComp.ICMSComp.SituTrib := cst90; ImpComp.ICMSComp.ICMS90.CST := cst90; // ICMS Outros ImpComp.ICMSComp.ICMS90.pRedBC := Cte.FieldByName( 'CTR_PERC_REDUCAO_BASE_ICMS' ).AsCurrency; ImpComp.ICMSComp.ICMS90.vBC := Cte.FieldByName( 'CTR_VLR_BASE_ICMS' ).ASCurrency; ImpComp.ICMSComp.ICMS90.pICMS := Cte.FieldByName( 'CTR_ALIQUOTA_ICMS' ).ASCurrency; ImpComp.ICMSComp.ICMS90.vICMS := Cte.FieldByName( 'CTR_VLR_ICMS' ).ASCurrency; ImpComp.ICMSComp.ICMS90.vCred := 0; // Assembla 1947 {compl.xObs := compl.xObs + '; CST-ICMS: 0' + Tributacao.FieldByName( 'STR_CODIGO' ).AsString + ' BASE DE CALCULO: ' + FormatCurr('##,##0.00' ,Cte.FieldByName( 'CTR_VLR_BASE_ICMS' ).AsCurrency ) + ' PERC. ALIQUOTA: ' + FormatCurr('##,##0.00' ,Cte.FieldByName( 'CTR_ALIQUOTA_ICMS' ).AsCurrency ) + ' VALOR: ' + FormatCurr('##,##0.00' ,Cte.FieldByName( 'CTR_VLR_ICMS' ).AsCurrency );} end; end; end;

Ítalo, boa tarde. Estou tentando enviar um CT-e complementar de impostos. Mas o valor do imposto não esta sendo setado no XML pelo componente. Obs.: Não existe valor do serviço apenas valor de icms.

Senhores, bom dia. Na versão 2.0 do Ct-e é obrigatório o número da apólice do seguro ? tag nApol

Senhores, bom dia. Após realizar os procedimentos acima o problema foi resolvido. Mas quanto tento compilar o projeto esta ocorrendo o erro abaixo:

Senhores, bom dia. Na versão 1.4 estou preenchendo as tags <vPrest> e <imp> com os dados do CT-e pai ( complementado ) e com os dados do CT-e filho ( complemento ). Na versão 2.0 deve preencher as tags <vPrest> e <imp> apenas com os dados do CT-e filho( complemento ) ?

Lucas, anexo conforme solicitado. Cara baixa os XML’s da NFS-e direto do site da prefeitura e compara com os dados que vc esta tentando enviar. Eu utilizo o comando nfe.ACBrNFSe.ConsultarNFSe( lcst_CNPJ , lcst_InscricaoMunicipal, StrToDate(lcst_DataInicial), StrToDate(lcst_DataFinal));

Lucas, não estou entendendo o seu problema p Ribeirão Preto. Tenho clientes nesta cidade que estão enviando RPs sem problemas. Para Campinas vc esta conseguindo enviar

Lucas, todas as prefeituras que utilizam GISS estão funcionando blz. RIBEIRÃO PRETO, SÃO JOSÉ DO RIO PRETO, ITABIRA. O único problema que ainda não consegui resolver esta nas prefeituras que utilizam ISSDSF. Ex.; Campinas.

Obrigado pela resposta Regys. Então tenho que alterar o meu sistema toda para trabalhar com o ACBrTEFD. A ideia seria utilizar o ACBrTEFD apenas para tratar as transações TEF, o tratamento do ECF deveria continuar como está, acionava o TEED depois imprimia os comprovantes TEF e finalizava o cupom utilizando as funções que já tenho

Senhores, bom dia. Já tenho meu PDV homologado no TEF Discado. Agora estou atualizando o mesmo para trabalhar com múltiplos cartões. Não utilizava o ACBR, mas para múltiplos cartões estou tentando utilizar o ACBRTEFD. Duvida, para utilizar este componente tenho que utilizar o ACBRECF também, ou posso continuar imprimindo o cupom utilizando as dll's dos fabricantes como sempre fiz e utilizar o ACBrTEFD para realizar as transações TEF ?

Lucas, bom dia. Não entendi a sua pergunta. Estou utilizando a mesma estrutura do ACBr, não alterei nada no componente. Exemplo de como envia a NFS-e if not ACBrNFSe.Enviar( NFe.FieldByName('NFS_PK_NOTAFISCALSAIDA').AsString, False ) then // enviar ACBrNFSe.WebServices.ConsSitLote.Protocolo else begin ACBrNFSe.NotasFiscais.Imprimir; ACBrNFSe.NotasFiscais.ImprimirPDF; end;

Segue

Ítalo, bom dia. Realmente não estava enviando a tag prop.tpProp. Mas o engraçado que esta tag consta no XML. O componente inclui a tag automático ?

Lucas, bom dia. Da uma verificada no seu código. Estou enviando para Ribeirão sem problemas. Há talvez vc esteja enviando em produção e consultando em homologação ou enviando em homologação e consultando em produção.

Boa tarde Ítalo, obrigado pela resposta. Mas ainda continuo sem entender o problema. Então se não existir IE do motorista não devo informar a UF ? Estou enviado assim // dados do proprietario // with rodo.veic.Add do begin Prop.xNome := Cte.FieldByName( 'CTR_PROPRIET_036_NOME' ).AsString; Prop.RNTRC := Cte.FieldByName( 'CTR_PROPRIET_035_RNTRC' ).AsString; Prop.IE := Cte.FieldByName( 'CTR_PROPRIET_037_IE' ).AsString; Prop.UF := Cte.FieldByName( 'CTR_PROPRIET_038_UF' ).AsString; if Cte.FieldByName('CTR_PROPRIET_034_CNPJ' ).AsString <> EmptyStr then Prop.CNPJCPF := Retorna_Numeros( Cte.FieldByName( 'CTR_PROPRIET_034_CNPJ' ).AsString ) else Prop.CNPJCPF := Retorna_Numeros( Cte.FieldByName( 'CTR_PROPRIET_033_CPF' ).AsString ); // dados do veiculo // RENAVAM := Cte.FieldByName( 'CTR_VEICULO_022_RENAVAM' ).AsString; tara := Cte.FieldByName( 'CTR_VEICULO_024_TARA_KG' ).AsInteger; capKG := Cte.FieldByName( 'CTR_VEICULO_025_CAPACIDADE_KG' ).AsInteger; capM3 := Cte.FieldByName( 'CTR_VEICULO_026_CAPACIDADE_M3' ).AsInteger; tpProp := StrToTpPropriedade(okConversao, Cte.FieldByName( 'CTR_VEICULO_027_TIPO_PROPRIET' ).AsString ); tpVeic := StrToTpVeiculo(okConversao, Cte.FieldByName( 'CTR_VEICULO_028_TIPO_VEICULO' ).AsString ); tpRod := StrToTpRodado(okConversao, Cte.FieldByName( 'CTR_VEICULO_029_TIPO_RODADO' ).AsString ); tpCar := StrToTpCarroceria(okConversao, Cte.FieldByName( 'CTR_VEICULO_030_TIPO_CARROCERIA' ).AsString ); placa := Cte.FieldByName( 'CTR_PLACA_VEICULO' ).AsString; UF := Cte.FieldByName( 'CTR_UF_LOCAL_VEICULO' ).AsString; end;