Mega Online

Bom dia, Juliomar, verifiquei o tópico informado e infelizmente acredito não ser essa a causa do problema, na geração do arquivo .txt não existe nenhum espaço ou tabulação antes dos comandos, como pode ser verificado no arquivo de exemplo que postei anteriormente.

Bom dia, Juliomar, desculpe, por favor, procurei mas não encontrei, em qual tópico o Italo respondeu essa questão?

Bom dia, Alguma novidade ?

Bom dia, Alguma novidade?

//Declaração function RoundABNT(const AValue: Double; const Digits: SmallInt; const Delta: Double = 0.00001): Double; //Função function TdmPaf.RoundABNT(const AValue: Double; const Digits: SmallInt; const Delta: Double): Double; var Pow, FracValue, PowValue: Extended; RestPart: Double; IntCalc, FracCalc, LastNumber, IntValue: Int64; Negativo: Boolean; begin Negativo := (AValue < 0); Pow := intpower(10, abs(Digits)); PowValue := abs(AValue) / 10; IntValue := trunc(PowValue); FracValue := frac(PowValue); PowValue := SimpleRoundTo(FracValue * 10 * Pow, -9); // SimpleRoundTo elimina dizimas ; IntCalc := trunc(PowValue); FracCalc := trunc(frac(PowValue) * 100); if (FracCalc > 50) then Inc(IntCalc) else if (FracCalc = 50) then begin LastNumber := round(frac(IntCalc / 10) * 10); if odd(LastNumber) then Inc(IntCalc) else begin RestPart := frac(PowValue * 10); if RestPart > Delta then Inc(IntCalc); end; end; Result := ((IntValue * 10) + (IntCalc / Pow)); if Negativo then Result := -Result; end;

Bom dia, Daniel, conseguiu validar ?

Daniel a função que você usou eu achei ela na internet, esta tem um terceiro parâmetro que é o Delta = 0.00001 que ao ser enviado retorna correto, porém no ACBrUtil.pas que tenho aqui nos fontes do ACBr tem a mesma função sem o terceiro parâmetro Delta que dá errado, para solução eu copiei a função que tem o terceiro parâmetro e colei no fonte do meu sistema com nome diferente e estou usando ela. Funcionou!!

Pessoal, boa tarde, sei que o fórum está um pouco antigo, mas ainda no mesmo assunto de arredondamento, hoje me deparei com um retorno da função RoundABNT(... que segundo o pessoal da DIMEP, está errado. Exemplo de um valor calculado entre a quantidade x Vr.Unitário 1 x 4,885 = 4,88 Correto segundo a DIMEP Utilizando a função RoundABNT(4.885, 2) = 4,89 (Errado segundo a DIMEP) Orientações passadas pela DIMEP. Quando a terceira casa decimal for Inferior a 5, a segunda decimal, é mantida sem alteração: 1,333333 para 1,33 Quando a terceira casa decimal for Superior a 5 ou Igual a 5 seguido de pelo menos 1 algarismo diferente de zero, a segunda decimal, é aumentada de 1 unidade: 1,666666 para 1,67 2,345001 para 2,35 Quando a terceira casa decimal for igual a 5 seguido de zeros, a segunda decimal, é arredondada para o algarismo “par” mais próximo: 4,555000 para 4,56 4,885000 para 4,88 Realizei o teste no SAT da DIMEP e calculou no XML = 4,88. Alguém tem alguma solução, onde tem uma função correta que realiza o cálculo igual o SAT da DIMEP?

Boa tarde, Daniel, ainda não consegui achar a solução, pelo AcbrMonitor Plus não estou conseguindo transmitir o MDFe, mesmo com os ajustes apontados pelo Italo o problema ainda persiste, segue o arquivo que estou gerando. servico.txt

Sim, estou enfrentando o mesmo problema q vc, acredito que seja algo simples que não estamos visualizando.

Boa tarde, Também estou tendo problemas ao tentar transmitir o MDFe pelo Plus, estou encaminhando o arquivo .txt para análise, a mensagem retornada pelo plus é: //////////////////////////////// MDFe.CriarMDFe("[ide] ERRO: Falha na valida??o do Modal do Manifesto: 0 TAG:<ide> ID:#005/cUF(C?digo do UF (Unidade da Federa??o)) - Conte?do inv?lido. TAG:<ide> ID:#014/dhEmi(Data de emiss?o) - Nenhum valor informado............ ///////////////////////////////// Grato Luciano servico.txt

Deu certo conforme o exemplo acima do Régys, segue abaixo como ficou no arquivo XML validado <ICMSUFDest> <vBCUFDest>0.00</vBCUFDest> <pFCPUFDest>0.0000</pFCPUFDest> <pICMSUFDest>17.0000</pICMSUFDest> <pICMSInter>7.00</pICMSInter> <pICMSInterPart>40.0000</pICMSInterPart> <vFCPUFDest>0.00</vFCPUFDest> <vICMSUFDest>0.00</vICMSUFDest> <vICMSUFRemet>0.00</vICMSUFRemet> </ICMSUFDest> Obrigado.

Obrigado, vou testar.

A final como tenho que passar para o ACBRmonitor Plus permitir que as alíquotas sejam zeradas, tem como passar algum exemplo?

Estou no aguardo do ACBrMonitor PLUS para atualizar no cliente que está aguardando para emitir as notas, obrigado.

Está retornando o erro que a TAG não foi informada, agora tem que informar ela mesmo que esteja zerada. Tem como compilar uma versão do ACBrMonitor Plus para eu testar enviando a TAG zerada?

Regys boa tarde, tem uma nova lei informando que as empresas do simples nacional não precisam calcular mais a partilha, estou usando o ACBrMonitor PLUS, quando mando as tags de partilha de ICMS [ICMSUFDestXXX] de cada produto com valor zerada, conforme citado acima o mesmo exclui a TAG, porém a partir de agora está sendo obrigatório enviar mesmo que estiver zerada, tem alguma previsão de ajuste no ACBrMonitor PLUS.

Pessoal, desculpe minha insistência, mas não está dando certo, tentei realizar 2 vezes o cancelamento, enviando o CNPJ do Emitente e do Destinatário, evento sempre 1, e o retorno está sendo sempre o mesmo ERRO: (anexo sainfe.txt). NFE.CANCELARNFE("51160211285151000150550010000047051000047051","MARCOS GUERRA TESTE MEGA ON LINE.","11285151000150","1") ERRO: NFE.CANCELARNFE("51160211285151000150550010000047051000047051","MARCOS GUERRA TESTE MEGA ON LINE.","00482914000136","1") ERRO: Obs: segue anexo, arquivo xml, arquivo de retorno sainfe.txt e log.txt. sainfe.txt 51160211285151000150550010000047051000047051-nfe.xml LOG.TXT

brsamn, boa tarde, eu estou passando a linha abaixo, contendo a Chave e a Justificativa: NFE.CANCELARNFE("51160211285151000150550010000047031000047030","MARCOS GUERRA TESTE MEGA ON LINE.") acima vc esta dizendo que estaria passando como parametro o Protocolo? em que possição? como vc esta passando os parametros deste função NFE.CANCELARNFE?

André, no caso estou cancelando uma NFe de Devolução ao Fornecedor, seria isso sua pergunta? não testei fazendo uma NFe de venda e cancelando ela... mas posso fazer..

Estranho que pelo ACBrMonitorPlus.exe, o cancelamento é realizado com sucesso, e senão é, retorna em tela uma mensagem de rejeição, já pelo nosso sistema Mega, que no caso lança o arquivo ENTNFE.TXT dentro da pasta do C:\ACBrMonitorPLUS e aguarda o retorno pelo arquivo SAINFE.TXT, que está retornando somente a palavra ERRO: Não teria pelo menos, que retornar a mensagem pelo qual houve o erro, para facilitar ao usuário?

Daniel, acho que a sintaxe esta correta Chave e Justificativa, pesquisei aqui no forum e tem o link do Andre Ferreira:

Bom dia, Estou tentando efetuar o cancelamento de uma NFe, ambiente de homologação, lançando o arquivo ENTNFE.TXT, na pasta do C:\ACBrMonitorPLUS com a linha NFE.CANCELARNFE("51160211285151000150550010000047031000047030","MARCOS GUERRA TESTE MEGA ON LINE.") porém é retornado no arquivo SAINFE.TXT, apenas a mensagem, em ambos os casos abaixo: ERRO: e ao efetuar o cancelamento direto pelo aplicativo ACBrMonitor.exe (anexo ACBrPlus.png), o cancelamento é realizado com sucesso ou quando existe de fato um erro, exemplo, tempo excedido, ele retorna a mensagem correta "Rejeicao: Duplicidade de Evento" (MSG_Erro_ABCrPlus.png), isso no ACBrMonitor.exe. LOG.TXT LOG_COMP.TXT

Nesse sentido, seria necessário no cadastro de produtos uma tabela com a UF e FCP correspondente.

Boa tarde, Todos estão utilizando a tabela apresentada pelo Edson? ou vcs estão definindo os percentuais para cada estado no próprio cadastro do produto? Grato Luciano.