Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 9

changes.mady.by.user Thiago Yoshiaki Miyabara Nascimento

Gravado em

comparado com

Nova versão 10

changes.mady.by.user Thiago Yoshiaki Miyabara Nascimento

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Linha de Produto:

Microsiga Protheus

Segmento:

Varejo

Módulo:

SIGALOJA

Função:

LOJXFUNC, LOJANF, LOJA950 e UPDLO163.

Situação/Requisito:

O Venda Assistida considera operação interna/dentro do estado vendas onde é utilizado o conceito de retira, ou seja, a mercadoria é entregue ao consumidor no ato da venda. Para ser considerada operação interestadual seria necessário a utilização do conceito de venda com entrega, nesse caso é gerado o pedido de venda e a venda é finalizada no módulo de Faturamento. (conforme documentação TDN: DT_TUIRXM_DIFAL_NO_VAREJO(SIGALOJA)_PARA_CONSUMIDOR_FINAL)

Com o advento da legislação que trata a venda interestadual denominada DIFAL (diferencial de alíquota), nossos clientes de Varejo ficaram obrigados a utilizar o módulo do Faturamento para a emissão de nota fiscal interestadual, essa operação onerou a operação de Varejo.

Solução/Implementação:

O objetivo dessa ficha é disponibilizar a emissão de Nota Fiscal Interestadual no Venda Assistida, facilitando assim a operação de Varejo.

Referencias para a operação:

http://www.tdn.totvs.com/display/PROT/FIS0012_Emenda_Constitucional_87_2015

Conversores e Parâmetros:

Executar o UPDATE u_UPDLO163, para a criação dos seguintes parâmetros:

MV_LJINTUF - Responsável por habilitar Venda Interestadual.(0 - Não, 1 - Sim)

MV_LJLBNT - Liberação de Geração de Nota.(0- Verificação Padrão, 1- Emissao de Nota para Pessoa Juridica, 2 - Emissão de Nota para Pessoa Fisica e Juridica)      

 

 

Importante

(Apenas para Microsiga Protheus, versões anteriores à versão 12)

...

Ponto de Entrada

Descrição:Informe o Menu em que estará localizada a rotina

P.E que define variável de retorno com 3 posições, esperando dois possíveis resultados, sendo, 'SIM' e 'NAO'.

Localização:

Informe o Submenu em que estará localizada a rotinaLLjGrvDifal

Eventos:Informe o Título da rotina

Calculo do DIFAL

Programa Fonte:Informe o Fonte da rotina

LOJXFUNC

Função:

Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”LjGrvTudo

Retorno:

Nome

Tipo

Descrição

Obrigatório

  aRet

 

 

 

 

 

 

 

 

 

 

 

 

Exemplo:

#Include 'Protheus.ch'

User Function CN120ALT()

Local aCab:= PARAMIXB[1]

Local cTipo:= PARAMIXB[2]

If cTipo == '1'

    aCab[4][2]:= 'NF' //Validações do usuário

EndIf

...

Array

Array com 3 posições, esperando dois possíveis resultados, sendo, 'SIM' e 'NAO'.

SIM

 

Exemplo:

#include "rwmake.ch"
#INCLUDE "PROTHEUS.CH"

User Function LJRETGUIA()

Local aRet           := {}
Local lDifal          := .T. //Imprime Guia DIFAL
Local lLancCont  := .T. //Define se o Lancamento Contabil e On-line
Local lFecpDi      := .T. //Imprimr Guia Fecp Difal

MsgInfo("Definindo variável de retorno com 3 posições, esperando dois possíveis resultados, sendo, 'SIM' e 'NAO'. ")

aRet := {IIF(lDifal         ,  "SIM",  "NAO"),;
              IIF(lLancCont ,  "SIM",  "NAO"),;
              IIF(lFecpDi     ,  "SIM",  "NAO")}

Return aRet

 

View file
nameTUXK67_et_sus_bra.pdf
height250

...