Gr@c@

Só uma sugestão: O correto é fazer nfe por natureza de operação, ou seja, uma de venda e uma de bonificação, sendo que a bonificação seria "Sem pagamento". Mas como o SEFAZ permite que uma nfe tenha cfop´s de naturezas diversas, você poderia lançar uma forma de pagamento ref a bonificação como Outros. 

segundo uma palestra que participei, Credito Loja seria aquele cartão fornecido pela loja (conveniado a uma financeira). Por exemplo, cartão Renner. 
Venda na promissoria se enquadraria em 99-Outros.

Acabei de realizar os testes e a NFC-e foi autorizada, portanto todas as respostas dos colegas acima estão corretas:
-Ambiente = homologação
-Emitente da NFC-e = Maranhão
-Destinatario da NFC-e = MG (coloquei os dados reais do endereço)
-Ide.idDest = doInterna
-CFOP = 5405 para as mercadorias com ST/5102 para mercadorias normais
-Venda = presencial
 
 

Postergada validação do CEST
27/03/18 Conforme aviso no portal nacional, a regra de validação que exige o CEST na NF-e e NFC-e (N23-10) fica postergada até a publicação de Nota Técnica com maiores esclarecimentos.
Aproveitamos para esclarecer que a obrigatoriedade de informação do CEST (NT 2015.003) não mudou - De acordo com o § 1º da cláusula terceira, do Convênio ICMS 92/2015:
• indústria e importador a partir de 01.07.17;
• atacadista a partir de 01.10.17;
• demais segmentos econômicos, a partir de 01.04.18

RESOLVIDO

um trecho do meu codigo. Vê se te ajuda:
{--------------------------------------------------------------------------------------------------------------} {veicTracao - inicio } {--------------------------------------------------------------------------------------------------------------} if DM.qryMDFeCabDisponiveis.FieldByName('vei1_Codigo').AsInteger > 0 then begin With RODO.veicTracao do begin cInt := FormatFloat('0',DM.qryMDFeCabDisponiveis.FieldByName('vei1_Codigo').AsInteger); placa := TrataPlaca(DM.qryMDFeCabDisponiveis.FieldByName('vei1_Placa').AsString,8); RENAVAM := DM.qryMDFeCabDisponiveis.FieldByName('vei1_RENAVAN').AsString; While Length(RENAVAM) < 9 do RENAVAM := '0'+RENAVAM; tara := DM.qryMDFeCabDisponiveis.FieldByName('vei1_Tara').AsInteger; capKG := DM.qryMDFeCabDisponiveis.FieldByName('vei1_capKG').AsInteger; capM3 := DM.qryMDFeCabDisponiveis.FieldByName('vei1_capM3').AsInteger; {--------------------------------------------------------------------------------------------------------------} {prop - inicio } {--------------------------------------------------------------------------------------------------------------} sCNPJProprietario := TrataCPFCNPJ(DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioPessoa').AsString, DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioCpfCnpj').AsString); sRNTRCProprietario := TrataRNTRC(DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioRNTRC').AsString,8); If (sCNPJProprietario <> sCNPJEmitente) and (sRNTRCProprietario <> sRNTRCEmitente) then begin With prop do begin CNPJCPF := sCNPJProprietario; RNTRC := sRNTRCProprietario; xNome := Trim(Copy(DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioNome').AsString+space(60),1,60)); IE := TrataInscricao(DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioIE').AsString); UF := DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioUF').AsString; tpProp := StrToTpProp(OK,'1'); //TpcteProp = (0=tpTACAgregado, 1=tpTACIndependente, 2=tpOutros); end; end; {--------------------------------------------------------------------------------------------------------------} {prop - fim } {--------------------------------------------------------------------------------------------------------------} {--------------------------------------------------------------------------------------------------------------} {condutor - inicio } {--------------------------------------------------------------------------------------------------------------} DM.qryBusca.Close; DM.qryBusca.Sql.Clear; If (bCTe) then begin DM.qryBusca.Sql.Add('Select TOP 10 ite.Motorista,mot.Nome,mot.pessoa,mot.cpfcnpj'); DM.qryBusca.Sql.Add('From TB_MDFeIte ite,TB_Motorista mot'); DM.qryBusca.Sql.Add('where ite.Empresa = :Empresa'); DM.qryBusca.Sql.Add(' and RTrim(ite.Modelo) = RTrim(:Modelo)'); DM.qryBusca.Sql.Add(' and RTrim(ite.Serie) = RTrim(:Serie)'); DM.qryBusca.Sql.Add(' and ite.Numero = :Numero'); DM.qryBusca.Sql.Add(' and ite.Motorista IS NOT NULL'); DM.qryBusca.Sql.Add(' and ite.Motorista > 0'); DM.qryBusca.Sql.Add(' and mot.Empresa = ite.Empresa'); DM.qryBusca.Sql.Add(' and mot.Codigo = ite.Motorista'); DM.qryBusca.Sql.Add('Group by ite.Motorista,mot.Nome,mot.Pessoa,mot.CpfCnpj'); DM.qryBusca.Sql.Add('Order by ite.Motorista,mot.Nome,mot.Pessoa,mot.CpfCnpj'); end Else If (bNFe) then begin DM.qryBusca.Sql.Add('Select TOP 10 ite.Motorista,mot.Nome,mot.pessoa,mot.cpfcnpj'); DM.qryBusca.Sql.Add('From TB_MDFeIte ite,TB_Transportadora mot'); DM.qryBusca.Sql.Add('where ite.Empresa = :Empresa'); DM.qryBusca.Sql.Add(' and RTrim(ite.Modelo) = RTrim(:Modelo)'); DM.qryBusca.Sql.Add(' and RTrim(ite.Serie) = RTrim(:Serie)'); DM.qryBusca.Sql.Add(' and ite.Numero = :Numero'); DM.qryBusca.Sql.Add(' and ite.Motorista IS NOT NULL'); DM.qryBusca.Sql.Add(' and ite.Motorista > 0'); DM.qryBusca.Sql.Add(' and mot.Empresa = ite.Empresa'); DM.qryBusca.Sql.Add(' and mot.Codigo = ite.Motorista'); DM.qryBusca.Sql.Add('Group by ite.Motorista,mot.Nome,mot.Pessoa,mot.CpfCnpj'); DM.qryBusca.Sql.Add('Order by ite.Motorista,mot.Nome,mot.Pessoa,mot.CpfCnpj'); end; DM.qryBusca.Parameters.ParamByName('Empresa').value := wpar_Empresa; DM.qryBusca.Parameters.ParamByName('Modelo').value := DM.qryMDFeCabDisponiveis.FieldByName('Modelo').AsString; DM.qryBusca.Parameters.ParamByName('Serie').value := DM.qryMDFeCabDisponiveis.FieldByName('Serie').AsString; DM.qryBusca.Parameters.ParamByName('Numero').value := DM.qryMDFeCabDisponiveis.FieldByName('Numero').AsInteger; DM.qryBusca.Open; While not DM.qryBusca.Eof do begin With CONDUTOR.Add do begin xNome := Trim(Copy(DM.qryBusca.FieldByName('Nome').AsString+space(60),1,60)); CPF := TrataCpfCnpj(DM.qryBusca.FieldByName('Pessoa').AsString, DM.qryBusca.FieldByName('CpfCnpj').AsString); end; DM.qryBusca.Next; end; {--------------------------------------------------------------------------------------------------------------} {condutor - fim } {--------------------------------------------------------------------------------------------------------------} {--------------------------------------------------------------------------------------------------------------} {tpRod/tpCar/UF - inicio } {--------------------------------------------------------------------------------------------------------------} If (DM.qryMDFeCabDisponiveis.FieldByName('vei1_TipoRodado').AsInteger = 0) then begin tpRod := StrToTpRodado(OK,'06'); end else begin tpRod := StrToTpRodado(OK,FormatFloat('00',DM.qryMDFeCabDisponiveis.FieldByName('vei1_TipoRodado').AsInteger)); end; tpCar := StrToTpCarroceria(OK,FormatFloat('00',DM.qryMDFeCabDisponiveis.FieldByName('vei1_TipoCarroceria').AsInteger)); UF := DM.qryMDFeCabDisponiveis.FieldByName('vei1_UFPlaca').AsString; {--------------------------------------------------------------------------------------------------------------} {tpRod/tpCar/UF - fim } {--------------------------------------------------------------------------------------------------------------} end; end; {--------------------------------------------------------------------------------------------------------------} {veicTracao - fim } {--------------------------------------------------------------------------------------------------------------} {--------------------------------------------------------------------------------------------------------------} {veicReboque - inicio } {--------------------------------------------------------------------------------------------------------------} if DM.qryMDFeCabDisponiveis.FieldByName('vei2_Codigo').AsInteger > 0 then begin With RODO.veicReboque.Add do begin cInt := FormatFloat('0',DM.qryMDFeCabDisponiveis.FieldByName('vei2_Codigo').AsInteger); placa := TrataPlaca(DM.qryMDFeCabDisponiveis.FieldByName('vei2_Placa').AsString,8); RENAVAM := DM.qryMDFeCabDisponiveis.FieldByName('vei1_RENAVAN').AsString; While Length(RENAVAM) < 9 do RENAVAM := '0'+RENAVAM; tara := DM.qryMDFeCabDisponiveis.FieldByName('vei2_Tara').AsInteger; capKG := DM.qryMDFeCabDisponiveis.FieldByName('vei2_capKG').AsInteger; capM3 := DM.qryMDFeCabDisponiveis.FieldByName('vei2_capM3').AsInteger; {--------------------------------------------------------------------------------------------------------------} {prop - inicio } {--------------------------------------------------------------------------------------------------------------} sCNPJProprietario := TrataCPFCNPJ(DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioPessoa').AsString, DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioCpfCnpj').AsString); sRNTRCProprietario := TrataRNTRC(DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioRNTRC').AsString,8); If (sCNPJProprietario <> sCNPJEmitente) and (sRNTRCProprietario <> sRNTRCEmitente) then begin With prop do begin CNPJCPF := sCNPJProprietario; RNTRC := sRNTRCProprietario; xNome := Trim(Copy(DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioNome').AsString+space(60),1,60)); IE := TrataInscricao(DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioIE').AsString); UF := DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioUF').AsString; tpProp := StrToTpProp(OK,'1');//TpcteProp = (0=tpTACAgregado, 1=tpTACIndependente, 2=tpOutros); end; end; {--------------------------------------------------------------------------------------------------------------} {prop - fim } {--------------------------------------------------------------------------------------------------------------} {--------------------------------------------------------------------------------------------------------------} {tpCar/UF - inicio } {--------------------------------------------------------------------------------------------------------------} tpCar := StrToTpCarroceria(OK,FormatFloat('00',DM.qryMDFeCabDisponiveis.FieldByName('vei2_TipoCarroceria').AsInteger)); UF := DM.qryMDFeCabDisponiveis.FieldByName('vei2_UFPlaca').AsString; //codAgPorto := ''; {--------------------------------------------------------------------------------------------------------------} {tpCar/UF - fim } {--------------------------------------------------------------------------------------------------------------} end; end; {--------------------------------------------------------------------------------------------------------------} {veicReboque - fim } {--------------------------------------------------------------------------------------------------------------} end;  

Se a UFIni = RO e a UFFim = RO porque o seu percurso é MG/GO? Sua UF inicial não deveria ser GO ?

Obrigada. O ACBrPosPrinter1.Modelo estava incorreto. 

problema corrigido na versão 13129 do ACBr

RESOLVIDO.

Segue a solução (fornecida pelo suporte da bematech): 
1) caso tenha algo instalado (bematool, conversor usb serial bematech ou outro aplicativo) desinstalar e reiniciar o micro
2) Site do desenvolvedor Bematech = bematechpartners.com.br -> sessão downloads -> windows -> fazer o download do aplicativo para instalar a usb -> Bematech User Software v.2.8.3 for 64 bits.exe (desativar firewall do windows e executar com permissão de administrador) -> reiniciar o micro apos instalação
3)Painel de controle -> gerenciador de dispositivos -> acha o dispositivo USB bematech device (se estiver com icone amarelo ou não reconhecido, desligar a impressora, aguardar 10 segundos e religar)
4) usar a bemafi32.dll mais recente (no meu caso usei a 7.0.4.74) porque dlls antigas não reconhecem a usb no windows 64bits
 
 

Partilha de Icms somente quando atender a esses requisitos:
1-venda interestadual
2-destinatário é consumidor final e não contribuinte de icms
 
 

{identificador de local de destino da operação }
{1-operacao interna TpcnDestinoOperacao = doInterna }
{2-Operacao interestadual TpcnDestinoOperacao = doInterestadual }
{3-Operação com exterior TpcnDestinoOperacao = doExterior }

ao que parece você está setando <idDest> = 1 quando deveria ser 2 - operação interestadual (UF emitentee destinatário são diferentes)

Esse é o jeito que faço, conforme orientação do contabilista. Se você colocar finalidade de devolução para cfop 5949/6949 haverá rejeição 'cfop não pode ser com finalidade devolução'. Acho que não seria obrigatório referenciar a nota. Só referencio porque os fornecedores exigem para controle da garantia. E também coloco na natureza da operação: GARANTIA

Eu havia marcado a minha resposta anterior como Melhor Resposta, mas na verdade, a solução é a proposta pelos nossos colegas Régys Silveira, André F. Moraes, simplesmente acrescentando uma etapa que no meu caso deu certo.
 
Então creio que os passos para solucionar o problema sejam esses:
 
1. procurar e remover em todo o computador os seguintes arquivos:
•acbr*.bpl
•acbr*.dcp
•acbr*.dcu
•synapse.bpl
•synapse.dcp
•synapse.dcu
•pcn2.bpl
•pcn2.dcp
•pcn2.dcu
2. Remover os pacotes antigos da IDE do delphi (diretamente pelo menu da IDE ou pelo registro do windows, o que preferir)
 
------aqui foi o que eu fiz e deu certo pra mim---
3.Fazer um novo update via SVN, clicando com o botão direito do mouse na pasta ACBr e em SVN UPDATE (não usei aqui o ACBrInstall.exe)
 
4.No Delphi -> abrir o PCN.dpk e dar BUILD PCN.dpk
5.No Delphi -> abrir o synapse.dpk e dar BUILD synapse.dpk
6.No Delphi -> abrir o ACBrNFe.dpk e dar BUILD ACBrNFe.dpk
7.Rodar o ACBrInstall, somente reinstalando os componentes (não fiz uma nova atualização pelo ACBrInstall.exe)
 
Hoje fiz novo teste, rodando somente o ACBrInstall.exe, atualizando e instalando os componentes e todos foram compilados com sucesso.
Então, acho que é isso.

Você pode usar a opção de Declaração ou Outros, ao invés de NF ou NF-e.
No campo numero, você pode usar uma identificação do envelope. Caso não tenha, use a data de emissão como numero ex: 02082013
Pelo menos, essa é a orientação do SEFAZ/MG

Infelizmente o Fisco está esmagando os desenvolvedores com as inúmeras alterações de schemas, versões, legislação, etc. Praticamente ficamos a mercê de atender as exigências fiscais.
Nesse caso, melhor optar por um terceirizado, mas desde que ele também gere Sintegra e Sped Fiscal e Sped Contribuições. O Sintegra é um sistema fácil, mas os Speds vêm sofrendo atualizações sempre. Se você não tem tempo para atualizações, um sistema que não gere os arquivos digitais resolverá apenas parte dos seus problemas.

Oi Italo
Obrigada pela correção
Em TipoDoc agora está saindo a palavra 'declar'.
Caso seja viável, ainda há espaço para a palavra completa 'declaracao'. Mas assim como está já resolveu 100%.

Não sei se vocês já solucionaram esse problema, mas as dlls da capicom devem ser instaladas "como administrador" para funcionar no Windows 7 e certificado Serasa Expirian. Além disso, o instalador das dlls está jogando em pasta errada do windows, por isso elas aparentemente são registradas mas não são jogadas na pasta correta do windows. Tem que colocar as dlls manualmente na pasta system32 do windows.