Mudanças da partilha
Moderador: Moderadores
-
paiva_dbdc
- Usuário Nível 3

- Mensagens: 342
- Registrado em: 12 Nov 2012 09:58
- Localização: uberlandia mg
Mudanças da partilha
Jose bom dia
então do jeito que vc fez e[ o correto ?
chegando em casa vou estudar.
vc já emitiu o xml correto.
e alguém falou que tem que descrever nos dados adicionais também ?
sabe se [e verídico e o que escrever ?
ob
Paiva
então do jeito que vc fez e[ o correto ?
chegando em casa vou estudar.
vc já emitiu o xml correto.
e alguém falou que tem que descrever nos dados adicionais também ?
sabe se [e verídico e o que escrever ?
ob
Paiva
Mudanças da partilha
Afinal de contas, em que pé estamos mesmo?!?!?!?!
Hj já são 27 e ainda não fiz nada por simplesmente não ter compreendido ainda o q deve ser feito.
:(Neg
Janio
Hj já são 27 e ainda não fiz nada por simplesmente não ter compreendido ainda o q deve ser feito.
:(Neg
Janio
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
Estou deixando pra depois.
Ficou confuso.
Não tinha pensado nisto:
O imposto antecipado.
Depois de descobrir o cálculo, vai ter que emitir guia e passar no banco pra recolher.
Enfrentar o banco no primeiro dia útil do ano.
Acho que a nota em si nào vai ser o maior problema.
Não dá nem pra imaginar como vai ser o primeiro dia do ano.....
Ficou confuso.
Não tinha pensado nisto:
O imposto antecipado.
Depois de descobrir o cálculo, vai ter que emitir guia e passar no banco pra recolher.
Enfrentar o banco no primeiro dia útil do ano.
Acho que a nota em si nào vai ser o maior problema.
Não dá nem pra imaginar como vai ser o primeiro dia do ano.....
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
voltei.
é pelo visto está complicado.
achava que o MEU calculo para empresa lucro/perda estava correto SEGUNDO a nota explicativa.
só não tinha certeza se estava setando os campos corretos no TXT para o acbr.
Agora com esta noticia que MUDOU .....
+ se continuar 40 e 60 a partilha para 2016 esses valores COM certeza não devem estar corretos.
41,08 45,34
se alguma alma BOA tiver conseguido gerar um XML aceito pelo sefaz e puder disponibilizar ...
agradeceria. e se souber se para MICRO o calculo tem que ser outro como acho que deve ai agradeceria 2 vezes se disponibilizar o caminho das pedras.
ob
Paiva
é pelo visto está complicado.
achava que o MEU calculo para empresa lucro/perda estava correto SEGUNDO a nota explicativa.
só não tinha certeza se estava setando os campos corretos no TXT para o acbr.
Agora com esta noticia que MUDOU .....
+ se continuar 40 e 60 a partilha para 2016 esses valores COM certeza não devem estar corretos.
41,08 45,34
se alguma alma BOA tiver conseguido gerar um XML aceito pelo sefaz e puder disponibilizar ...
agradeceria. e se souber se para MICRO o calculo tem que ser outro como acho que deve ai agradeceria 2 vezes se disponibilizar o caminho das pedras.
ob
Paiva
Mudanças da partilha
Está deixando para depois o que? tudo?
A questão é: se não alterarmos os nossos sistemas, vai ser possível emitir alguma nota depois do dia primeiro?
Janio
A questão é: se não alterarmos os nossos sistemas, vai ser possível emitir alguma nota depois do dia primeiro?
Janio
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
Mudanças da partilha
Sugiro q leia este tópico do início ao fim vai ajudar a entender o q tem q ser feito e como calcular...
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.
- rochinha
- Administrador

- Mensagens: 4664
- Registrado em: 18 Ago 2003 20:43
- Localização: São Paulo - Brasil
- Contato:
Mudanças da partilha
Amiguinhos,
A complicação fica maior pelo simples fato de que ao gerar esta nota especifica ´necessário também gerar o GNRE, enviar ao portal, emitir-lo, pagá-lo e enviar o comprovante junto com a nota ao destinatário.
Este mesmo procedimento é o que adotamos com o sistema WS-Sinal, quando efetuamos operações com o SUFRAMA, onde geramos a nota fiscal, geramos o documento referente e enviamos a nota ao destinatário.
Quanto ao cálculo pelo que entendi, clientes da empresa, com domicílio fora do estado e na situação não-contribuinte, recebem as notas com o imposto cheio da origem. Exemplo, cliente do Ceará comprando em São Paulo tem em sua nota o destaque de 18%.
Com esta nova regra o cálculo envolve a diferença deste imposto cheio com o imposto interestadual entre São Paulo e Ceará, que seria de 7%(quando se efetua venda para contribuintes).
Então 18% - 7% = 10%, este 10% é que entrariam no cálculo da partilha, ou seja, um estado arca com 60% e outro com 40%, etc.
Estou no caminho certo?
Ainda em relação ao fatídico dia 1 de Janeiro, não lembro onde vi informações sobre a prorrogação para o meio do ano.
Estou buscando informações. Por enquanto estou pensando em colocar estas informações na área de Informações Adicionais da nota, junto com Transparência, etc.
A complicação fica maior pelo simples fato de que ao gerar esta nota especifica ´necessário também gerar o GNRE, enviar ao portal, emitir-lo, pagá-lo e enviar o comprovante junto com a nota ao destinatário.
Este mesmo procedimento é o que adotamos com o sistema WS-Sinal, quando efetuamos operações com o SUFRAMA, onde geramos a nota fiscal, geramos o documento referente e enviamos a nota ao destinatário.
Quanto ao cálculo pelo que entendi, clientes da empresa, com domicílio fora do estado e na situação não-contribuinte, recebem as notas com o imposto cheio da origem. Exemplo, cliente do Ceará comprando em São Paulo tem em sua nota o destaque de 18%.
Com esta nova regra o cálculo envolve a diferença deste imposto cheio com o imposto interestadual entre São Paulo e Ceará, que seria de 7%(quando se efetua venda para contribuintes).
Então 18% - 7% = 10%, este 10% é que entrariam no cálculo da partilha, ou seja, um estado arca com 60% e outro com 40%, etc.
Estou no caminho certo?
Ainda em relação ao fatídico dia 1 de Janeiro, não lembro onde vi informações sobre a prorrogação para o meio do ano.
Estou buscando informações. Por enquanto estou pensando em colocar estas informações na área de Informações Adicionais da nota, junto com Transparência, etc.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Mudanças da partilha
Notas internas do estado - não faz diferença
Notas CST 060 - não tem ICMS no trajeto - duvidoso se será possível cálculo/rateio
Notas a contribuinte - não tem diferença
As pendentes serão as demais.
Notas CST 060 - não tem ICMS no trajeto - duvidoso se será possível cálculo/rateio
Notas a contribuinte - não tem diferença
As pendentes serão as demais.
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
Senhores no link q passei tem uma longa discussão sobre o assunto... das quais posso resumir o seguinte
1 - Não foi prorrogado até o momento e não podemos contar com isso ou seja tem q estar pronto.
2 - No link tem exemplos do cálculo e conclusões sobre o mesmo.
3 - Tb tem sugestão de como colocar nos dados adicionais...
[]´s
1 - Não foi prorrogado até o momento e não podemos contar com isso ou seja tem q estar pronto.
2 - No link tem exemplos do cálculo e conclusões sobre o mesmo.
3 - Tb tem sugestão de como colocar nos dados adicionais...
[]´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.
-
paiva_dbdc
- Usuário Nível 3

- Mensagens: 342
- Registrado em: 12 Nov 2012 09:58
- Localização: uberlandia mg
Mudanças da partilha
boa noite
acabei de ver este vídeo vou ver se o que eel falou esta de acordo comm o que eu fiz ou não
https://ciranda.me/tsdn/blog-da-tecnosp ... -deste-mes
assim que eu testar falo aqui
PAiva
acabei de ver este vídeo vou ver se o que eel falou esta de acordo comm o que eu fiz ou não
https://ciranda.me/tsdn/blog-da-tecnosp ... -deste-mes
assim que eu testar falo aqui
PAiva
Mudanças da partilha
Pessoal,
Vamos para o caso concreto! preciso de um exemplo de calculo para os dados abaixo:
Produto: XXXXX
Valor: R$ 100,00
Origem: CE
Destino: RJ
% ICMS na Origem: 17%
Como ficaria o preenchimento no xml dos campos abaixo??
Para o grupo ICMS
<ICMS00>
vBC
pICMS
vICMS
Para o grupo ICMSUFDest
vBCUFDest
pFCPUFDest
pICMSUFDest
pICMSInter
pICMSInterPart
vFCPUFDest
vICMSUFDest
vICMSUFRemet
Acho q assim fica mais fácil para entendermos
Vamos para o caso concreto! preciso de um exemplo de calculo para os dados abaixo:
Produto: XXXXX
Valor: R$ 100,00
Origem: CE
Destino: RJ
% ICMS na Origem: 17%
Como ficaria o preenchimento no xml dos campos abaixo??
Para o grupo ICMS
<ICMS00>
vBC
pICMS
vICMS
Para o grupo ICMSUFDest
vBCUFDest
pFCPUFDest
pICMSUFDest
pICMSInter
pICMSInterPart
vFCPUFDest
vICMSUFDest
vICMSUFRemet
Acho q assim fica mais fácil para entendermos
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
-
paiva_dbdc
- Usuário Nível 3

- Mensagens: 342
- Registrado em: 12 Nov 2012 09:58
- Localização: uberlandia mg
Mudanças da partilha
acabei de fazer == ao lik que passei acima.
conferi os valore e estão == ao que o consultor fala no video.
da erro ao tentar fazer a nfe
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
% de pobreza = 1% calculei encima do valor do produto 1.000,00 = 10,00
fiz errado ? Não é encima do valor do produto ?
veja o txt
Descricao=FOSFATO DECANTADO
Unidade=TON
Quantidade=1.0000
ValorUnitario=1000.00
ValorTotal=1000.00
Vtottrib=134.50
[ICMS001]
Origem=0
CST=01
ValorBase=1000.00
Aliquota=12.00
Valor=120.00
[ICMSUFDEST]
vBCUFDest=1000.00
pFCPUFDest=1.00
pICMSUFDest=17.00
pICMSinter=12.00
pICMSinterPart=40
vFCPUFDest=10.00
vICMSUFDest=27.38
vICMSUFRemet=41.08
[Total]
BaseICMS=1000.00
ValorICMS=120.00
vFCPUFDest=10.00
vICMSUFDest=27.38
vICMSUFRemet=41.08
ValorProduto=1000.00
ValorNota=1000.00
Vtottrib=134.50
[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$ 134,50( 13,45%) Fonte IBPT;teste plus;ICMS RETIDO NA FONTE CONFORME DECRETONº4857/97 DO ANEXO 8º.;Pedido: 000040;CFOP: 6.107 => 1.000,00 - 12,00% - 120,00
",1,1)OK: Lote recebido com sucesso
[ENVIO]
Versao=GO3.0
TpAmb=2
VerAplic=GO3.0
CStat=103
XMotivo=Lote recebido com sucesso
CUF=52
NRec=521000010814337
DhRecbto=27/12/2015 20:15:13
TMed=2
Msg=Lote recebido com sucesso
Nota(s) n+úo confirmadas:
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
conferi os valore e estão == ao que o consultor fala no video.
da erro ao tentar fazer a nfe
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
% de pobreza = 1% calculei encima do valor do produto 1.000,00 = 10,00
fiz errado ? Não é encima do valor do produto ?
veja o txt
Descricao=FOSFATO DECANTADO
Unidade=TON
Quantidade=1.0000
ValorUnitario=1000.00
ValorTotal=1000.00
Vtottrib=134.50
[ICMS001]
Origem=0
CST=01
ValorBase=1000.00
Aliquota=12.00
Valor=120.00
[ICMSUFDEST]
vBCUFDest=1000.00
pFCPUFDest=1.00
pICMSUFDest=17.00
pICMSinter=12.00
pICMSinterPart=40
vFCPUFDest=10.00
vICMSUFDest=27.38
vICMSUFRemet=41.08
[Total]
BaseICMS=1000.00
ValorICMS=120.00
vFCPUFDest=10.00
vICMSUFDest=27.38
vICMSUFRemet=41.08
ValorProduto=1000.00
ValorNota=1000.00
Vtottrib=134.50
[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$ 134,50( 13,45%) Fonte IBPT;teste plus;ICMS RETIDO NA FONTE CONFORME DECRETONº4857/97 DO ANEXO 8º.;Pedido: 000040;CFOP: 6.107 => 1.000,00 - 12,00% - 120,00
",1,1)OK: Lote recebido com sucesso
[ENVIO]
Versao=GO3.0
TpAmb=2
VerAplic=GO3.0
CStat=103
XMotivo=Lote recebido com sucesso
CUF=52
NRec=521000010814337
DhRecbto=27/12/2015 20:15:13
TMed=2
Msg=Lote recebido com sucesso
Nota(s) n+úo confirmadas:
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
-
paiva_dbdc
- Usuário Nível 3

- Mensagens: 342
- Registrado em: 12 Nov 2012 09:58
- Localização: uberlandia mg
Mudanças da partilha
o código
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)
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)+"]"
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
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)
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)+"]"
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
Pois é.... se seu cálculo bate com o que foi mostrado no vídeo... ESTÁ ERRADO.
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
É só conferir:
data do vídeo: NOVE de dezembro.
data da lei: ONZE de dezembro.
Um vídeo anterior à lei, não mostra o conteúdo da lei.
Como eu disse... deixei pra depois no sistema, mas não deixei de acompanhar... rs
Alterações introduzidas na versão 1.50
Esta versão da NT retira a tabela da sistemática de cálculo de base dupla, anteriormente
aprovada na 159ª. Reunião Ordinária do CONFAZ, uma vez que o Convênio ICMS 152, de 11/12/2015,
redefiniu o uso de base de cálculo única a partir do valor da operação.
data do vídeo: NOVE de dezembro.
data da lei: ONZE de dezembro.
Um vídeo anterior à lei, não mostra o conteúdo da lei.
Como eu disse... deixei pra depois no sistema, mas não deixei de acompanhar... rs
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/
