Esse erro é antigo.somatório dos itens.....
Somando os valores informados nos produtos, não bate com os valores informados nos totais da nota.
Mudanças da partilha
Moderador: Moderadores
-
JoséQuintas
- Administrador
- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Mudanças da partilha
Sobre o erro
Somando os valores informados nos produtos, não bate com os valores informados nos totais da nota.
Somando os valores informados nos produtos, não bate com os valores informados nos totais da nota.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
paiva_dbdc
- Usuário Nível 3
- Mensagens: 342
- Registrado em: 12 Nov 2012 09:58
- Localização: uberlandia mg
Mudanças da partilha
P.
já vi 3 formas de fazer o calculo KKK o povo ta mais perdido que sego em tiroteio.
apliquei as 3 formas e da o mesmo erro
total do somatório do ICMS destino invalido
so tem UM produto
zerei o % de podreza que estava 1% para SP ai dava erro nele zerei e passaou a dar erro no ICM destino para as 3
formulas
400->Rejei+º+úo: Valor total do ICMS Interestadual da UF de destino difere do somat+¦rio dos itens
Vide: ia desinibindo 1 a 1 e da o mesmo erro. SE não for na formula seria ao mandar para o TXT ?
*icm_a_ser_dividido = round(icms_fora_uf - icms_interestadual,2)
*icm_a_ser_dividido = round((xvalbB * (cricms->valor_uf - cricms->valor)) / 100 ,2)
*icm_a_ser_dividido = round((xvalbB * cricms->valor) / 100 ,2)
Base_icms_interestadual = round(xvalbB / ((100-cricms->valor )/100),2)
icms_interestadual = round(Base_icms_interestadual - xvalbB,2)
Base_icms_fora_uf = round(xvalbB / ((100-cricms->valor_uf)/100),2)
icms_fora_uf = round(Base_icms_fora_uf - xvalbB,2)
*msgstop("Base_unica_difal "+tran(Base_unica_difal,[@E 99999999.99])+ "xvalbB "+tran(xvalbB,[@E 99999999.99])+" (100-(cricms->valor_uf + cricms->pobreza)/100 "+tran(((100-(cricms->valor_uf + cricms->pobreza))/100),[@E 99999999.99]))
icm_a_ser_dividido = round(icms_fora_uf - icms_interestadual,2)
*icm_a_ser_dividido = round((xvalbB * (cricms->valor_uf - cricms->valor)) / 100 ,2)
*icm_a_ser_dividido = round((xvalbB * cricms->valor) / 100 ,2)
msgstop("icm_a_ser_dividido "+tran(icm_a_ser_dividido,[@E 99999999.99])+ "icms_fora_uf "+tran(icms_fora_uf,[@E 99999999.99])+" icms_interestadual "+tran(icms_interestadual,[@E 99999999.99]))
if xvalI > 0 && houve ICMS
*vdet = "[ICMSUFDEST]"+strzero(x_qtd_produto_nfe,3)+"]"
vdet = "[ICMSUFDEST]"
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval = tran(xvalbB,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vBCUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
if cricms->pobreza <> 0
xval = tran(cricms->pobreza,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [pFCPUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
endif
xval = tran(cricms->valor_uf,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [pICMSUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval = tran(cricms->valor,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [pICMSinter=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
do case
case pano = [15]
vdet = [pICMSinterPart=40]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 40
aliq_perc_icms_reme = 60
case pano = [16]
vdet = [pICMSinterPart=40]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 40
aliq_perc_icms_reme = 60
case pano = [17]
vdet = [pICMSinterPart=60]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 60
aliq_perc_icms_reme = 40
case pano = [18]
vdet = [pICMSinterPart=80]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 80
aliq_perc_icms_reme = 20
case pano > [18]
vdet = [pICMSinterPart=100]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 100
aliq_perc_icms_reme = 0
endcase
xval_pobreza = 0.00
if cricms->pobreza <> 0
xval_pobreza = round((xvalbB * cricms->pobreza) / 100,2)
xval = tran(xval_pobreza,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vFCPUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
endif
*calculo difal
xval_icms_dest = round((icm_a_ser_dividido * aliq_perc_icms_dest) / 100,2)
xval = tran(xval_icms_dest,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vICMSUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval_icms_reme = round((icm_a_ser_dividido * aliq_perc_icms_reme) / 100,2)
xval = tran(xval_icms_reme ,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vICMSUFRemet=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
Total_xval_pobreza = Total_xval_pobreza + xval_pobreza
Total_xval_icms_dest = Total_xval_icms_dest + xval_icms_dest
Total_xval_icms_reme = Total_xval_icms_reme + xval_icms_reme
endif
já vi 3 formas de fazer o calculo KKK o povo ta mais perdido que sego em tiroteio.
apliquei as 3 formas e da o mesmo erro
total do somatório do ICMS destino invalido
so tem UM produto
zerei o % de podreza que estava 1% para SP ai dava erro nele zerei e passaou a dar erro no ICM destino para as 3
formulas
400->Rejei+º+úo: Valor total do ICMS Interestadual da UF de destino difere do somat+¦rio dos itens
Vide: ia desinibindo 1 a 1 e da o mesmo erro. SE não for na formula seria ao mandar para o TXT ?
*icm_a_ser_dividido = round(icms_fora_uf - icms_interestadual,2)
*icm_a_ser_dividido = round((xvalbB * (cricms->valor_uf - cricms->valor)) / 100 ,2)
*icm_a_ser_dividido = round((xvalbB * cricms->valor) / 100 ,2)
Base_icms_interestadual = round(xvalbB / ((100-cricms->valor )/100),2)
icms_interestadual = round(Base_icms_interestadual - xvalbB,2)
Base_icms_fora_uf = round(xvalbB / ((100-cricms->valor_uf)/100),2)
icms_fora_uf = round(Base_icms_fora_uf - xvalbB,2)
*msgstop("Base_unica_difal "+tran(Base_unica_difal,[@E 99999999.99])+ "xvalbB "+tran(xvalbB,[@E 99999999.99])+" (100-(cricms->valor_uf + cricms->pobreza)/100 "+tran(((100-(cricms->valor_uf + cricms->pobreza))/100),[@E 99999999.99]))
icm_a_ser_dividido = round(icms_fora_uf - icms_interestadual,2)
*icm_a_ser_dividido = round((xvalbB * (cricms->valor_uf - cricms->valor)) / 100 ,2)
*icm_a_ser_dividido = round((xvalbB * cricms->valor) / 100 ,2)
msgstop("icm_a_ser_dividido "+tran(icm_a_ser_dividido,[@E 99999999.99])+ "icms_fora_uf "+tran(icms_fora_uf,[@E 99999999.99])+" icms_interestadual "+tran(icms_interestadual,[@E 99999999.99]))
if xvalI > 0 && houve ICMS
*vdet = "[ICMSUFDEST]"+strzero(x_qtd_produto_nfe,3)+"]"
vdet = "[ICMSUFDEST]"
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval = tran(xvalbB,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vBCUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
if cricms->pobreza <> 0
xval = tran(cricms->pobreza,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [pFCPUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
endif
xval = tran(cricms->valor_uf,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [pICMSUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval = tran(cricms->valor,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [pICMSinter=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
do case
case pano = [15]
vdet = [pICMSinterPart=40]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 40
aliq_perc_icms_reme = 60
case pano = [16]
vdet = [pICMSinterPart=40]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 40
aliq_perc_icms_reme = 60
case pano = [17]
vdet = [pICMSinterPart=60]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 60
aliq_perc_icms_reme = 40
case pano = [18]
vdet = [pICMSinterPart=80]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 80
aliq_perc_icms_reme = 20
case pano > [18]
vdet = [pICMSinterPart=100]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 100
aliq_perc_icms_reme = 0
endcase
xval_pobreza = 0.00
if cricms->pobreza <> 0
xval_pobreza = round((xvalbB * cricms->pobreza) / 100,2)
xval = tran(xval_pobreza,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vFCPUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
endif
*calculo difal
xval_icms_dest = round((icm_a_ser_dividido * aliq_perc_icms_dest) / 100,2)
xval = tran(xval_icms_dest,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vICMSUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval_icms_reme = round((icm_a_ser_dividido * aliq_perc_icms_reme) / 100,2)
xval = tran(xval_icms_reme ,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vICMSUFRemet=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
Total_xval_pobreza = Total_xval_pobreza + xval_pobreza
Total_xval_icms_dest = Total_xval_icms_dest + xval_icms_dest
Total_xval_icms_reme = Total_xval_icms_reme + xval_icms_reme
endif
-
JoséQuintas
- Administrador
- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Mudanças da partilha
Repetindo:
Não é erro no cálculo do ICMS, é erro na soma da nota
Não existe checagem de cálculo de ICMS na Sefaz
Se estiver errado, vai ficar errado.
No seu caso, como é só um produto, compare os valores DO PRODUTO, com os valores TOTAIS DA NOTA.
Não é erro no cálculo do ICMS, é erro na soma da nota
Não existe checagem de cálculo de ICMS na Sefaz
Se estiver errado, vai ficar errado.
Quem acha que basta validar que está tudo certo.... não é.Esta alteração não trará nenhum
impacto para as aplicações das Sefaz Autorizadoras e Empresas Emissoras de NF-e, uma vez que
desde a versão 1.10 todas as regras de validação, envolvendo o cálculo do ICMS Interestadual, já
haviam sido retiradas
No seu caso, como é só um produto, compare os valores DO PRODUTO, com os valores TOTAIS DA NOTA.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Mudanças da partilha
Vcs não leram o link q eu mandei né ?!!!
Tudo isso q estão falando está lá, inclusive este vídeo q o Paiva postou eu comentei lá sobre ele etc e está errado pq o vídeo é de outubro e foi mudado depois a forma de calcular.
Tá tudo lá no link... Não percam tempo, leiam do início ao fim com calma e depois dúvidas diferentes postem aki pra não perderem tempo.
[]'s
Tudo isso q estão falando está lá, inclusive este vídeo q o Paiva postou eu comentei lá sobre ele etc e está errado pq o vídeo é de outubro e foi mudado depois a forma de calcular.
Tá tudo lá no link... Não percam tempo, leiam do início ao fim com calma e depois dúvidas diferentes postem aki pra não perderem tempo.
[]'s
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
-
JoséQuintas
- Administrador
- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Mudanças da partilha
As mensagens começam em setembro... 3 meses antes da lei...Não percam tempo, leiam do início
Se isso não é perder tempo...
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
JoséQuintas
- Administrador
- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Mudanças da partilha
https://www.confaz.fazenda.gov.br/legis ... cms-152-15
I - à clausula segunda:
a) o § 1º-A:
“§1º-A O ICMS devido ás unidades federadas de origem e destino deverão ser calculados por meio da aplicação das seguintes fórmulas:
ICMS origem = BC x ALQ inter
ICMS destino = [BC x ALQ intra] - ICMS origem
Onde:
BC = base de cálculo do imposto, observado o disposto no § 1º;
ALQ inter = alíquota interestadual aplicável à operação ou prestação;
ALQ intra = alíquota interna aplicável à operação ou prestação no Estado de destino.”;
b) o §5º:
“§ 5º No cálculo do imposto devido à unidade federada de destino, o remetente deve calcular, separadamente, o imposto correspondente ao diferencial de alíquotas, por meio da aplicação sobre a respectiva base de cálculo de percentual correspondente:
I - à alíquota interna da unidade federada de destino sem considerar o adicional de até 2% (dois por cento);
II - ao adicional de até 2% (dois por cento).
II - a cláusula terceira-A:
“Cláusula terceira-A As operações de que trata este convênio devem ser acobertadas por Nota Fiscal Eletrônica – NFe, modelo 55, a qual deve conter as informações previstas no Ajuste SINIEF 07/05, de 30 de setembro de 2005.”;
III - à cláusula quarta, os §§ 2º e 3º, passando o parágrafo único a ser renumerado como § 1º:
“§ 2º O recolhimento do imposto de que trata o inciso II do § 5º da cláusula segunda deve ser feito em documento de arrecadação ou GNRE distintos.”
§ 3º As unidades federadas de destino do bem ou do serviço podem, na forma de sua legislação, disponibilizar aplicativo que calcule o imposto a que se refere a alínea “c” dos incisos I e II da cláusula segunda, devendo o imposto ser recolhido no prazo previsto no § 2º da cláusula quinta.”;
IV – o § 5º à cláusula quinta:
“§ 5º Na hipótese prevista no § 4º o contribuinte deve recolher o imposto previsto na alínea “c” dos incisos I e II da cláusula segunda no prazo previsto no respectivo convênio ou protocolo que dispõe sobre a substituição tributária.”.
V - à cláusula sexta, o parágrafo único:
“Parágrafo único. As unidades federadas de destino podem dispensar o contribuinte de obrigações acessórias, exceto a emissão de documento fiscal.”;
Cláusula terceira Acordam os Estados e o Distrito Federal que até 30 de junho de 2016:
I – a inscrição no Cadastro de Contribuintes do ICMS dar-se-á de forma simplificada, ficando dispensada a apresentação de documentos;
II – a fiscalização relativa ao descumprimento das obrigações acessórias previstas neste Convênio será de caráter exclusivamente orientador, desde que ocorra o pagamento do imposto.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
paiva_dbdc
- Usuário Nível 3
- Mensagens: 342
- Registrado em: 12 Nov 2012 09:58
- Localização: uberlandia mg
Mudanças da partilha
Fladimir. BOM dia.
olhei la no link baixei o xml e verifiquei que a formula é:
%icmsdestino (-) Menos %ICMS interestadual. ex: 18-12 = 6
base de calculo 100 valor a ser rateado = 6,00
40% de 6 = 2,4
60% de 6 = 3,6
vi que o valor de ICMS destinatário será a soma dele + o Fundo de pobreza
se pobreza 2% 100 x 2% = 4
valor de ICMS do destinatário = 2,4 + 2 pobreza = 4,4
FIZ acredito eu igual.
SE VC ou alguém puder desvendar o motivo de Não estar conseguindo fazer AGRADECERIA MUITO.
é somente UM produto. e as tags estão IGUAIS NAO poderia dar erro de SOMA a não ser que tenha valor informado errado acredito eu.
400->Rejei+º+úo: Valor total do ICMS relativo Fundo de Combate +á Pobreza (FCP) da UF de destino difere do somat+¦rio do valor dos itens
[ICMS001]
Origem=0
CST=01
ValorBase=1000.00
Aliquota=12.00
Valor=120.00
[ICMSUFDEST]
vBCUFDest=1000.00
pFCPUFDest=2.00
pICMSUFDest=18.00
pICMSinter=12.00
pICMSinterPart=40
vFCPUFDest=20.00
vICMSUFDest=44.00
vICMSUFRemet=36.00
[Total]
BaseICMS=1000.00
ValorICMS=120.00
vFCPUFDest=20.00
vICMSUFDest=44.00
vICMSUFRemet=36.00
ValorProduto=1000.00
ValorNota=1000.00
Vtottrib=134.50
[Transportador]
FretePorConta=0
olhei la no link baixei o xml e verifiquei que a formula é:
%icmsdestino (-) Menos %ICMS interestadual. ex: 18-12 = 6
base de calculo 100 valor a ser rateado = 6,00
40% de 6 = 2,4
60% de 6 = 3,6
vi que o valor de ICMS destinatário será a soma dele + o Fundo de pobreza
se pobreza 2% 100 x 2% = 4
valor de ICMS do destinatário = 2,4 + 2 pobreza = 4,4
FIZ acredito eu igual.
SE VC ou alguém puder desvendar o motivo de Não estar conseguindo fazer AGRADECERIA MUITO.
é somente UM produto. e as tags estão IGUAIS NAO poderia dar erro de SOMA a não ser que tenha valor informado errado acredito eu.
400->Rejei+º+úo: Valor total do ICMS relativo Fundo de Combate +á Pobreza (FCP) da UF de destino difere do somat+¦rio do valor dos itens
[ICMS001]
Origem=0
CST=01
ValorBase=1000.00
Aliquota=12.00
Valor=120.00
[ICMSUFDEST]
vBCUFDest=1000.00
pFCPUFDest=2.00
pICMSUFDest=18.00
pICMSinter=12.00
pICMSinterPart=40
vFCPUFDest=20.00
vICMSUFDest=44.00
vICMSUFRemet=36.00
[Total]
BaseICMS=1000.00
ValorICMS=120.00
vFCPUFDest=20.00
vICMSUFDest=44.00
vICMSUFRemet=36.00
ValorProduto=1000.00
ValorNota=1000.00
Vtottrib=134.50
[Transportador]
FretePorConta=0
-
JoséQuintas
- Administrador
- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Mudanças da partilha
A partilha é justamente o contrário.
IMPOSTO ANTERIOR: alíquota interestadual, sempre pertenceu à UF emitente e vai continuar pertencendo.
NOVO IMPOSTO: alíquota interna da UF destino, que causou "aumento".
A diferença entre as duas, que pode ser considerado "o novo imposto" ou o "aumento", é que vai ser partilhado.
E além disso, em separado, o fundo de combate à pobreza.
Na prática é um aumento de imposto.
E na prática, a partilha é só pro emitente ir se acostumando com a idéia de recolher antecipado, vai recolher mais antecipado a cada ano.
Por acaso alguém se lembrou de testar isso no emissor do governo?
O emissor sempre fez os cálculos automaticamente.
IMPOSTO ANTERIOR: alíquota interestadual, sempre pertenceu à UF emitente e vai continuar pertencendo.
NOVO IMPOSTO: alíquota interna da UF destino, que causou "aumento".
A diferença entre as duas, que pode ser considerado "o novo imposto" ou o "aumento", é que vai ser partilhado.
E além disso, em separado, o fundo de combate à pobreza.
Na prática é um aumento de imposto.
E na prática, a partilha é só pro emitente ir se acostumando com a idéia de recolher antecipado, vai recolher mais antecipado a cada ano.
Por acaso alguém se lembrou de testar isso no emissor do governo?
O emissor sempre fez os cálculos automaticamente.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
JoséQuintas
- Administrador
- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Mudanças da partilha
Xi.....
O emissor tá uma merd.
Ao salvar a nota, não salva a informação de cidade/UF do destinatário.
Isso vai invalidar todas as notas.
O emissor tá uma merd.
Ao salvar a nota, não salva a informação de cidade/UF do destinatário.
Isso vai invalidar todas as notas.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
paiva_dbdc
- Usuário Nível 3
- Mensagens: 342
- Registrado em: 12 Nov 2012 09:58
- Localização: uberlandia mg
Mudanças da partilha
BINGO
para empresa normal passou
tenho que ver como seria para MICRO e o que colcoar nos dados adicionais se for preciso.
o código e o txt do acbr abaixo e consegui adicionar o xml
T+
Paiva
if crclie->uf <> crloja->uf
if upper(alltrim(crclie->insc_est)) = [ISENTO]
msgstop(pano+[*]+crclie->uf+[*]+crloja->uf+[*]+alltrim(crclie->insc_est)+[*])
icms_interestadual = round((xvalbB * cricms->valor) / 100 ,2)
icms_fora_uf = round((xvalbB * cricms->valor_uf) / 100 ,2)
icm_a_ser_dividido = round(icms_fora_uf - icms_interestadual,2)
msgstop("icm_a_ser_dividido "+tran(icm_a_ser_dividido,[@E 99999999.99])+ "icms_fora_uf "+tran(icms_fora_uf,[@E 99999999.99])+" icms_interestadual "+tran(icms_interestadual,[@E 99999999.99]))
if xvalI > 0 && houve ICMS
vdet = "[ICMSUFDEST"+strzero(x_qtd_produto_nfe,3)+"]"
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval = tran(Base_icms_interestadual,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vBCUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
if cricms->pobreza <> 0
xval = tran(cricms->pobreza,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [pFCPUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
endif
xval = tran(cricms->valor_uf,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [pICMSUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval = tran(cricms->valor,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [pICMSinter=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
do case
case pano = [15]
vdet = [pICMSinterPart=40]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 40
aliq_perc_icms_reme = 60
case pano = [16]
vdet = [pICMSinterPart=40]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 40
aliq_perc_icms_reme = 60
case pano = [17]
vdet = [pICMSinterPart=60]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 60
aliq_perc_icms_reme = 40
case pano = [18]
vdet = [pICMSinterPart=80]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 80
aliq_perc_icms_reme = 20
case pano > [18]
vdet = [pICMSinterPart=100]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 100
aliq_perc_icms_reme = 0
endcase
xval_pobreza = 0.00
if cricms->pobreza <> 0
xval_pobreza = round((Base_icms_interestadual * cricms->pobreza) / 100,2)
xval = tran(xval_pobreza,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vFCPUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
endif
*calculo difal
xval_icms_dest = round((icm_a_ser_dividido * aliq_perc_icms_dest) / 100,2)
xval = tran(xval_icms_dest+xval_pobreza,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vICMSUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval_icms_reme = round((icm_a_ser_dividido * aliq_perc_icms_reme) / 100,2)
xval = tran(xval_icms_reme ,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vICMSUFRemet=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
Total_xval_pobreza = Total_xval_pobreza + xval_pobreza
Total_xval_icms_dest = Total_xval_icms_dest + xval_icms_dest + xval_pobreza
Total_xval_icms_reme = Total_xval_icms_reme + xval_icms_reme
endif
endif
endif
*difal
if Total_xval_icms_dest > 0
xval = tran(total_xval_pobreza,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vFCPUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval = tran(Total_xval_icms_dest,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vICMSUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval = tran(Total_xval_icms_reme,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vICMSUFRemet=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
endif
NFE.CriarEnviarNFe("
[infNFE]
Versao=3.10
[Identificacao]
NaturezaOperacao=NF DE PROD INDUSTR
Modelo=55
Serie=1
Codigo=401
Numero=401
Emissao=28/12/2015
Tipo=1
FormaPag=0
PROCEMI=0
TPIMP=1
TPEMIS=1
Indpres=1
tpamb=1
Indfinal=1
finnfe=1
idDest=2
[Emitente]
CNPJ=17720975000197
IE=105644994
Razao=MINEROFERTIL IND. E COM. DE FERTILIZANTE
Fantasia=MINEROFERTIL
CRT=3
Fone=6496150100
CEP=75700001
Logradouro=RODOVIA GO-210 S N KM 55
Numero=00000
Complemento=
Bairro=ZONA RURAL
CidadeCod=5205109
Cidade=CATALAO
UF=GO
[Destinatario]
CPF=34488090710
indIEDest=9
ISUF=
NomeRazao=CARLOS PAIVA
Fone=0000000000
CEP=38401176
Logradouro=OTAVIO RODRIGUES DA CUNHA
Numero=00401
Complemento=
Bairro=INDAIA
CidadeCod=3170206
Cidade=UBERLANDIA
UF=MG
[Produto001]
CFOP=6101
Codigo=0010021
NCM=40101200
indTot=1
Descricao=PORTA
Unidade=TON
Quantidade=1.0000
ValorUnitario=1000.00
ValorTotal=1000.00
Vtottrib=67.70
[ICMS001]
Origem=0
CST=00
ValorBase=1000.00
Aliquota=12.00
Valor=120.00
[ICMSUFDEST001]
vBCUFDest=1000.00
pFCPUFDest=2.00
pICMSUFDest=17.00
pICMSinter=12.00
pICMSinterPart=40
vFCPUFDest=20.00
vICMSUFDest=40.00
vICMSUFRemet=30.00
[Total]
BaseICMS=1000.00
ValorICMS=120.00
vFCPUFDest=20.00
vICMSUFDest=40.00
vICMSUFRemet=30.00
ValorProduto=1000.00
ValorNota=1000.00
Vtottrib=67.70
[Transportador]
FretePorConta=0
NomeRazao=MAURY MACHADO
Endereco=RUA JOAO CARLOS DE AGUIAR 20
Cidade=CURITIBA
UF=PR
PLACA=
UFPLACA=
RNTC=
[Pag001]
Tpag=01
vpag=1000.00
[Volume001]
Quantidade=0001
Especie=CAIXA
Marca=
[DadosAdicionais]
Complemento=Val Aprox Tributos R$ 67,70( 6,77%) Fonte IBPT;Informacoes adicionais de interesse do Fisco:;Reducao BC para 70% conf. Art. 9,VIII, c, Anexo IX, RCTE/GO;Para uso agropecuario. Vedada aplicacao diversa.;Aliquota de PIS/COFINS reduzida a 0%, conforme Art. 1, Lei 10.925/2004;Nao tributado pelo IPI, conforme RIPI - Decreto 721/210 e Capitulo 31 da TIPI Decr 7660/2011;teste plus;ICMS RETIDO NA FONTE CONFORME DECRETON§4857/97 DO ANEXO 8§.;Pedido: 000040;CFOP: 6.101 => 1.000,00 - 12,00% - 120,00
",1,1)
para empresa normal passou
tenho que ver como seria para MICRO e o que colcoar nos dados adicionais se for preciso.
o código e o txt do acbr abaixo e consegui adicionar o xml
T+
Paiva
if crclie->uf <> crloja->uf
if upper(alltrim(crclie->insc_est)) = [ISENTO]
msgstop(pano+[*]+crclie->uf+[*]+crloja->uf+[*]+alltrim(crclie->insc_est)+[*])
icms_interestadual = round((xvalbB * cricms->valor) / 100 ,2)
icms_fora_uf = round((xvalbB * cricms->valor_uf) / 100 ,2)
icm_a_ser_dividido = round(icms_fora_uf - icms_interestadual,2)
msgstop("icm_a_ser_dividido "+tran(icm_a_ser_dividido,[@E 99999999.99])+ "icms_fora_uf "+tran(icms_fora_uf,[@E 99999999.99])+" icms_interestadual "+tran(icms_interestadual,[@E 99999999.99]))
if xvalI > 0 && houve ICMS
vdet = "[ICMSUFDEST"+strzero(x_qtd_produto_nfe,3)+"]"
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval = tran(Base_icms_interestadual,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vBCUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
if cricms->pobreza <> 0
xval = tran(cricms->pobreza,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [pFCPUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
endif
xval = tran(cricms->valor_uf,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [pICMSUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval = tran(cricms->valor,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [pICMSinter=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
do case
case pano = [15]
vdet = [pICMSinterPart=40]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 40
aliq_perc_icms_reme = 60
case pano = [16]
vdet = [pICMSinterPart=40]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 40
aliq_perc_icms_reme = 60
case pano = [17]
vdet = [pICMSinterPart=60]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 60
aliq_perc_icms_reme = 40
case pano = [18]
vdet = [pICMSinterPart=80]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 80
aliq_perc_icms_reme = 20
case pano > [18]
vdet = [pICMSinterPart=100]
cBuffer:= cBuffer + CRLF+alltrim(vdet)
aliq_perc_icms_dest = 100
aliq_perc_icms_reme = 0
endcase
xval_pobreza = 0.00
if cricms->pobreza <> 0
xval_pobreza = round((Base_icms_interestadual * cricms->pobreza) / 100,2)
xval = tran(xval_pobreza,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vFCPUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
endif
*calculo difal
xval_icms_dest = round((icm_a_ser_dividido * aliq_perc_icms_dest) / 100,2)
xval = tran(xval_icms_dest+xval_pobreza,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vICMSUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval_icms_reme = round((icm_a_ser_dividido * aliq_perc_icms_reme) / 100,2)
xval = tran(xval_icms_reme ,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vICMSUFRemet=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
Total_xval_pobreza = Total_xval_pobreza + xval_pobreza
Total_xval_icms_dest = Total_xval_icms_dest + xval_icms_dest + xval_pobreza
Total_xval_icms_reme = Total_xval_icms_reme + xval_icms_reme
endif
endif
endif
*difal
if Total_xval_icms_dest > 0
xval = tran(total_xval_pobreza,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vFCPUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval = tran(Total_xval_icms_dest,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vICMSUFDest=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
xval = tran(Total_xval_icms_reme,[@E 99999999.99])
xval = alltrim(xval)
xval = STRTRAN(xval,",",".")
vdet = [vICMSUFRemet=]+xval
cBuffer:= cBuffer + CRLF+alltrim(vdet)
endif
NFE.CriarEnviarNFe("
[infNFE]
Versao=3.10
[Identificacao]
NaturezaOperacao=NF DE PROD INDUSTR
Modelo=55
Serie=1
Codigo=401
Numero=401
Emissao=28/12/2015
Tipo=1
FormaPag=0
PROCEMI=0
TPIMP=1
TPEMIS=1
Indpres=1
tpamb=1
Indfinal=1
finnfe=1
idDest=2
[Emitente]
CNPJ=17720975000197
IE=105644994
Razao=MINEROFERTIL IND. E COM. DE FERTILIZANTE
Fantasia=MINEROFERTIL
CRT=3
Fone=6496150100
CEP=75700001
Logradouro=RODOVIA GO-210 S N KM 55
Numero=00000
Complemento=
Bairro=ZONA RURAL
CidadeCod=5205109
Cidade=CATALAO
UF=GO
[Destinatario]
CPF=34488090710
indIEDest=9
ISUF=
NomeRazao=CARLOS PAIVA
Fone=0000000000
CEP=38401176
Logradouro=OTAVIO RODRIGUES DA CUNHA
Numero=00401
Complemento=
Bairro=INDAIA
CidadeCod=3170206
Cidade=UBERLANDIA
UF=MG
[Produto001]
CFOP=6101
Codigo=0010021
NCM=40101200
indTot=1
Descricao=PORTA
Unidade=TON
Quantidade=1.0000
ValorUnitario=1000.00
ValorTotal=1000.00
Vtottrib=67.70
[ICMS001]
Origem=0
CST=00
ValorBase=1000.00
Aliquota=12.00
Valor=120.00
[ICMSUFDEST001]
vBCUFDest=1000.00
pFCPUFDest=2.00
pICMSUFDest=17.00
pICMSinter=12.00
pICMSinterPart=40
vFCPUFDest=20.00
vICMSUFDest=40.00
vICMSUFRemet=30.00
[Total]
BaseICMS=1000.00
ValorICMS=120.00
vFCPUFDest=20.00
vICMSUFDest=40.00
vICMSUFRemet=30.00
ValorProduto=1000.00
ValorNota=1000.00
Vtottrib=67.70
[Transportador]
FretePorConta=0
NomeRazao=MAURY MACHADO
Endereco=RUA JOAO CARLOS DE AGUIAR 20
Cidade=CURITIBA
UF=PR
PLACA=
UFPLACA=
RNTC=
[Pag001]
Tpag=01
vpag=1000.00
[Volume001]
Quantidade=0001
Especie=CAIXA
Marca=
[DadosAdicionais]
Complemento=Val Aprox Tributos R$ 67,70( 6,77%) Fonte IBPT;Informacoes adicionais de interesse do Fisco:;Reducao BC para 70% conf. Art. 9,VIII, c, Anexo IX, RCTE/GO;Para uso agropecuario. Vedada aplicacao diversa.;Aliquota de PIS/COFINS reduzida a 0%, conforme Art. 1, Lei 10.925/2004;Nao tributado pelo IPI, conforme RIPI - Decreto 721/210 e Capitulo 31 da TIPI Decr 7660/2011;teste plus;ICMS RETIDO NA FONTE CONFORME DECRETON§4857/97 DO ANEXO 8§.;Pedido: 000040;CFOP: 6.101 => 1.000,00 - 12,00% - 120,00
",1,1)
- Anexos
-
- 52151217720975000197550010000004011000004012-nfe.xml
- (7.62 KiB) Baixado 62 vezes
Mudanças da partilha
Qdo for pra CRT=1 o q vc tem q cuidar com a CSOSN, pois a parte dos calculos e tags é praticamente a mesma coisa...
Se não vc vai ter erro de Rejeição cStat 600.
Com relação a isso um link interessante sobre o assunto é este aki...
[]´s
Se não vc vai ter erro de Rejeição cStat 600.
Com relação a isso um link interessante sobre o assunto é este aki...
[]´s
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
Mudanças da partilha
Bom, pessoal!
O metodo de calculo da v1.40 foi abolido e os colegas estão usando conforme abaixo:
Produto: XXXXX
Valor: R$ 100,00
Origem: CE
Destino: SP
% ICMS na Origem: 12%
% ICMS na Destino: ?? (aqui criei uma tabela com todos os Estados e um campo informando qual o percentual que o Estado pratica internamente. Quase todos eh 17%. Mas tem Rio e São Paulo e algum outro q não lembro agora, que varia de 17 a 19%). Pode ser consultado no link abaixo
http://www.fiscontex.com.br/legislacao/ ... naicms.htm
Como ficaria o preenchimento no xml dos campos abaixo??
Para o grupo ICMS
<ICMS00>
vBC=100
pICMS=12.00
vICMS=12.00
Para o grupo ICMSUFDest
vBCUFDest=100
pFCPUFDest=0.00 (Sao Paulo nao tem FCP)
pICMSUFDest=18.00 (aliquota interna praticada no Estado destino)
pICMSInter=12.00 (aliquota interestadual)
pICMSInterPart=40.00
vFCPUFDest=0.00
vICMSUFDest=2.40
vICMSUFRemet=3.60
Calculo para os ultimos 2 campos:
Aliquota Interna (18) - Aliquota Interestadual (12) = 6%
6% x Base Calculo (100) = R$ 6,00
vICMSUFDest = 40% de 6,00
vICMSUFRemet = 60% de 6,00
O metodo de calculo da v1.40 foi abolido e os colegas estão usando conforme abaixo:
Produto: XXXXX
Valor: R$ 100,00
Origem: CE
Destino: SP
% ICMS na Origem: 12%
% ICMS na Destino: ?? (aqui criei uma tabela com todos os Estados e um campo informando qual o percentual que o Estado pratica internamente. Quase todos eh 17%. Mas tem Rio e São Paulo e algum outro q não lembro agora, que varia de 17 a 19%). Pode ser consultado no link abaixo
http://www.fiscontex.com.br/legislacao/ ... naicms.htm
Como ficaria o preenchimento no xml dos campos abaixo??
Para o grupo ICMS
<ICMS00>
vBC=100
pICMS=12.00
vICMS=12.00
Para o grupo ICMSUFDest
vBCUFDest=100
pFCPUFDest=0.00 (Sao Paulo nao tem FCP)
pICMSUFDest=18.00 (aliquota interna praticada no Estado destino)
pICMSInter=12.00 (aliquota interestadual)
pICMSInterPart=40.00
vFCPUFDest=0.00
vICMSUFDest=2.40
vICMSUFRemet=3.60
Calculo para os ultimos 2 campos:
Aliquota Interna (18) - Aliquota Interestadual (12) = 6%
6% x Base Calculo (100) = R$ 6,00
vICMSUFDest = 40% de 6,00
vICMSUFRemet = 60% de 6,00
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
-
JoséQuintas
- Administrador
- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Mudanças da partilha
Depois de tanto cálculo que vi aqui no post... estou até confuso....
A tela de digitação do usuário, lembrando que o usuário só digita quantidade e valor:
E o que acrescentei para o cálculo:
Por acaso entendi errado?
Não é só isso mesmo?
Legenda:
mipIcdAli => Alíquota da UF destino
mipIcdVal => Valor pra UF destino
mipIcmBas => Base de cálculo do ICMS
mipIcmVal => Valor do ICMS interestadual
mipFcpAli => Alíquota Fundo de Combate à Pobreza
mipFcpVal => Valor do Fundo de Combate à Pobreza
A tela de digitação do usuário, lembrando que o usuário só digita quantidade e valor:
Código: Selecionar todos
IF mipIcdAli > 0
mipIcdVal := Max( 0, Int( mipIcmBas * mipIcdAli ) / 100 - mipIcmVal )
ELSE
mipIcdVal := 0
ENDIF
IF mipFcpAli > 0
mipFcpVal := Int( mipIcmBas * mipFcpAli ) / 100
ELSE
mipFcpVal := 0
ENDIF
Não é só isso mesmo?
Legenda:
mipIcdAli => Alíquota da UF destino
mipIcdVal => Valor pra UF destino
mipIcmBas => Base de cálculo do ICMS
mipIcmVal => Valor do ICMS interestadual
mipFcpAli => Alíquota Fundo de Combate à Pobreza
mipFcpVal => Valor do Fundo de Combate à Pobreza
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
JoséQuintas
- Administrador
- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Mudanças da partilha
E a tela de regras de tributação.
Daqui a pouco 40 linhas não vai ser suficiente.... rs
Sim, está errado, cadastrei venda dentro de São Paulo como venda interestadual.
Essa gambiarra foi pra facilitar meu teste.
Talvez depois eu deixe mais com a cara da digitação de pedidos, pra ficar "menos feio".
Daqui a pouco 40 linhas não vai ser suficiente.... rs
Sim, está errado, cadastrei venda dentro de São Paulo como venda interestadual.
Essa gambiarra foi pra facilitar meu teste.
Talvez depois eu deixe mais com a cara da digitação de pedidos, pra ficar "menos feio".
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
JoséQuintas
- Administrador
- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Mudanças da partilha
Muito se falou da partilha.
Minha dúvida agora é do valor do ICMS.
O valor do ICMS é a soma de todo ICMS, não apenas o interestadual.
A nota fiscal de SP, por exemplo, vai indicar somente o ICMS SP ou o imposto total? e deve somar FCP aonde existe isso?
O manual não deve indicar alteração disso, se só o conteúdo vai ser alterado.
Então tem isso pra confundir.
Minha dúvida agora é do valor do ICMS.
O valor do ICMS é a soma de todo ICMS, não apenas o interestadual.
A nota fiscal de SP, por exemplo, vai indicar somente o ICMS SP ou o imposto total? e deve somar FCP aonde existe isso?
O manual não deve indicar alteração disso, se só o conteúdo vai ser alterado.
Então tem isso pra confundir.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/