Painel de líderes

Pessoal, foi publicado a nova versão de requisitos do PAF-ECF. https://www.legisweb.com.br/legislacao/?id=325609 Não cheguei a ler tudo ainda e se possui muitas diferenças, mais quem for homologar daqui a alguns meses é om já começar a verificar.

Boa tarde, estamos alimentando apenas os campos obrigatórios quando o emitente é optante pelo simples nacional e deixando todos os valores zerados, assim está transmitindo normalmente.

Estou tendo o mesmo problema hoje, sou Simples , e estou emitindo uma nfe de SP, para Pe, e cliente nao contribuinte (9) ... Mas agora pede o grupo de ICMS , sendo que não estamos partilhando o icms, pela liminar .. Como e o que tem que ser preenchido nas tags do DIFAL ?

Ok Juliomar,vou tentar implementar. Obrigado pelo retorno.

Italo, boa noite Vou esperar essas novas implementações. Já estou criando, validando e assinando um Cte. e até um MDFe. Agradeço a atenção qie tive aqui no SAC e em especial à sua ajuda que foi essencial. Obrigado Reinaldo

Boa tarde Rodrigo, Fiz a alteração e enviei para o repositório.

Nossa, Obrigado Datilas! como aqui usamos firebird 2.5, converti sua função em procedure, segue a contribuição tb: CREATE OR ALTER PROCEDURE SP_UDF_ROUNDABNT ( AVALOR DOUBLE PRECISION, ADECIMAIS SMALLINT) RETURNS ( VALOR DOUBLE PRECISION ) AS DECLARE VARIABLE CDECIMAIS VARCHAR(100); DECLARE VARIABLE VLRSTR VARCHAR(100); DECLARE VARIABLE NSUBSEQUENTE SMALLINT; DECLARE VARIABLE POSPONTO SMALLINT; BEGIN VLRSTR = CAST(AVALOR AS VARCHAR(100)); POSPONTO = POSITION('.',VLRSTR); CDECIMAIS = SUBSTRING(VLRSTR FROM POSPONTO+1 FOR CHAR_LENGTH(VLRSTR)); NSUBSEQUENTE = ADECIMAIS+1; IF (:ADECIMAIS < 1) THEN BEGIN VALOR = TRUNC(AVALOR); SUSPEND; exit; END ELSE IF (CHAR_LENGTH(CDECIMAIS) <= :ADECIMAIS) THEN BEGIN VALOR = AVALOR; SUSPEND; exit; END ELSE BEGIN IF ((CAST(SUBSTRING(CDECIMAIS FROM NSUBSEQUENTE FOR 1) AS INTEGER) > 5) OR (CAST(SUBSTRING(CDECIMAIS FROM NSUBSEQUENTE FOR 1)AS DOUBLE PRECISION) < 5)) THEN BEGIN VALOR = ROUND(AVALOR,ADECIMAIS); SUSPEND; exit; END ELSE IF (CAST(SUBSTRING(CDECIMAIS FROM NSUBSEQUENTE FOR 1)AS DOUBLE PRECISION) = 5) THEN begin IF (MOD(CAST(SUBSTRING(CDECIMAIS FROM ADECIMAIS FOR 1)AS DOUBLE PRECISION) ,2) <> 0) THEN BEGIN VALOR = ROUND(AVALOR,ADECIMAIS); SUSPEND; exit; END ELSE IF (CAST(SUBSTRING(CDECIMAIS FROM NSUBSEQUENTE+1 FOR 1)AS DOUBLE PRECISION) > 0) THEN BEGIN VALOR = ROUND(AVALOR,ADECIMAIS); SUSPEND; exit; END ELSE begin VALOR = TRUNC(AVALOR,ADECIMAIS); SUSPEND; exit; END end END END Abraço!

Sim conforme quem necessitar ir colaborando! convida a arregaçar as mangas achar os documentos do provedor, olhas os fontes do ACBr! assim que implementar anexe o mesmo aqui que avaliamos também se tiver dificuldade poste também que ajudamos conforme podemos!

em ACBrUtil, veja RoundABNT, existem outros métodos interessantes em ACBrUtil, estude-o e vai se surpreender.

Se o certificado é A1, use OpenSSL... sempre...

Agora sim :), corrigido e testado com o arquivo que você enviou anteriormente. ACBrMonitor.zip

Boa noite! Você não informou um campo. Faça desta forma e volte a testar: [ICMSUFDest001] vBCUFDest=0 //Acrescente este campo vBCSTDest=233,70 pFCPUFDest= pICMSUFDest=19,00 pICMSInter=12,00 pICMSInterPart=40,00 vFCPUFDest= vICMSUFDest=6,54 vICMSUFRemet=9,82

e aqui vai minha contribuição para o firebird 3.0 create or alter function ROUNDABNT ( AVALOR double precision, ADECIMAIS smallint) returns double precision AS declare variable cDecimais varchar(100); declare variable vlrstr varchar(100); declare variable nSubsequente smallint; declare variable posponto smallint; BEGIN vlrstr = Cast(AVALOR as varchar(100)); posponto = POSITION('.',vlrstr); cDecimais = SUBSTRING(vlrstr from posponto+1 for CHAR_LENGTH(vlrstr)); nSubsequente = ADECIMAIS+1; if (:ADECIMAIS < 1) Then RETURN TRUNC(AVALOR); else If (CHAR_LENGTH(cDecimais) <= :ADECIMAIS) Then RETURN AVALOR; else Begin If ((Cast(SUBSTRING(cDecimais from nSubsequente for 1) as integer) > 5) Or (Cast(SUBSTRING(cDecimais From nSubsequente For 1)as double precision) < 5)) Then RETURN ROUND(AVALOR,ADECIMAIS); Else if (Cast(SUBSTRING(cDecimais From nSubsequente For 1)as double precision) = 5) Then If (MOD(Cast(SUBSTRING(cDecimais From ADECIMAIS For 1)as double precision) ,2) <> 0) Then RETURN ROUND(AVALOR,ADECIMAIS); Else If (Cast(SUBSTRING(cDecimais From nSubsequente+1 For 1)as double precision) > 0) Then RETURN ROUND(AVALOR,ADECIMAIS); Else RETURN TRUNC(AVALOR,ADECIMAIS); End END

Total.ICMSTot.vFCPUFDest := Total.ICMSTot.vICMSUFDest := Total.ICMSTot.vICMSUFRemet :=

Pegando corona nesse post Amigos, estou tendo um erro na transmissão de uma nota do estado PB para outro estado PE, fiz o procedimento de partilha de icms conforme a NT2015/003 destinando 60% para origem e 40% para o destino, a Aliquota Interestadual é de 12% e a Aliquota interna do destino é 18%, porém me deparei com a seguinte mensagem: Rejeicao: Valor total do ICMS interestadual da UF de destino difere do somatorio dos itens Será que eu tenho que ajustar a base de calculo do ICMS e o valor dos itens? Se alguem já passou por esse problema e conseguiu resolver, poderia me passar alguma informação? Segue o xml abaixo. Obg... 25160110362889000100550010000002991000000223-nfe.xml

Pessoal deixo aqui uma dica aos que chegarem neste tópico com relação a um comparativo que fiz entre a Elgin I9 e a Elgin VOX utilizando-se do componente ESCPOS ou POSPRINTER do novo trunk2, a Elgin I9 imprime os comandos corretos de forma ideal utilizando-se o modelo escepson e a Elgin Vox só imprime os caracterres e comandos corretos se for selecionado o modelo escelgin, ok? Fica ai a dica!

- Boa tarde, Datac você poderia disponibilizar um zip com esse executável ? não tenho como compilar na linguagem original dos fontes do monitor e impressionantemente não consigo uma boa alma que posso faze-lo . Desde de já agradeço, HASA