Linha Microsiga Protheus

Árvore de páginas

Essa rotina permite o registro de qualquer movimento de entrada de mercadorias, feito através de uma guia de remessa proveniente de fornecedores, ou de  beneficiamento proveniente de clientes.

A entrada das mercadorias inicia um processo de atualização on-line de dados de estoques e custos.

O primeiro parâmetro determina o tipo de guia de remessa que está sendo cadastrada.


Cada país utiliza uma nomenclatura para identificar a guia de remessa de entrada:



(*)

Nome

Países

Remito

Remision

Conduce

Nota de Entrega

Guia de Remision

Guia de Recepcion



Procedimentos

Para incluir uma guia de remessa de entrada:

  1. Na entrada da rotina será solicitado o tipo de guia de remessa que será digitado (esta configuração pode ser alterada em qualquer momento na rotina mediante a tecla [F12]).

  2. Preencha os dados conforme orientação do help de campo e confirme.
  3. Será apresentada uma nova tela de parâmetros, em que é necessário informar as configurações gerais da rotina.
      Será apresentada uma tela com as guias de remessa já emitidas.
  4. Selecione a opção Incluir.

O sistema apresenta a tela de inclusão. Na parte superior desta tela, encontram-se os campos que irão compor o cabeçalho da guia de remessa. No meio da tela, estão os itens da guia de remessa e na parte Inferior, as Pastas do Rodapé;


 5. Preencha os dados conforme orientação do help de campo.

6. Confira os dados e confirme.


Importante:

Quando o parâmetro MV_DISTMOV estiver ativo, abrirá a tela para distribuição da quantidade de entrada em endereços/números de série, logo após a confirmação da inclusão de entrada, facturas de entrada, guia de remessa de entrada ou apontamento de produção.  



Importante

Para a utilização da rotina automática, utilizando a função MsExecAuto(), deve ser executada a instrução SetFunName("MATA102N").
A seguir, um exemplo de utilização:

Exemplo de execução automática 
#INCLUDE "RWMAKE.CH"								//Importação de bibliotecas
#INCLUDE "TBICONN.CH"   							//Importação de bibliotecas
  
User Function xMta102n()
    Local _aCabec       := {}						//Array com os dados do cabeçalho
    Local _aItens       := {}						//Array com os datos dos itens
    Local aLinha        := {}						//Array de trabalho
    Local cDoc          := ""						//Inicialização do número do documento
 
    Private aRecsSF1    := {}						//Array para associação de Notas
    Private lMsErroAuto := .F.						//Controle de execução de rotina
  
    cDoc :=  FWInputBox("Número documento", "") 	//Janela emergente onde será incluído o número do documento
  
    //Encabezado
    aadd(_aCabec,{"F1_FILIAL","0101"})				//Sucursal
    aadd(_aCabec,{"F1_DOC",cDoc})					//Número de Documento
    aadd(_aCabec,{"F1_SERIE","REM"})				//Série
    aadd(_aCabec,{"F1_FORNECE","000001"})			//Fornecedor
    aadd(_aCabec,{"F1_LOJA","01"})					//Loja
    aadd(_aCabec,{"F1_TIPO","N"})					//Tipo de Nota Fiscal
    aadd(_aCabec,{"F1_FORMUL","N"})					//Formulário Próprio
    aadd(_aCabec,{"F1_EMISSAO",dDataBase})			//Data de Emissão
    aadd(_aCabec,{"F1_TXMOEDA",1})					//Taxa da Moeda
    aadd(_aCabec,{"F1_TIPODOC","60"})				//Identificador de Documento
  
    //Ítems
    aadd(_aItens,{"D1_COD","0101001        ",NIL})	//Código do Produto
    aadd(_aItens,{"D1_QUANT",1,NIL})				//Quantidade
    aadd(_aItens,{"D1_VUNIT",712.00,NIL})			//Valor Unitário
    aadd(_aItens,{"D1_TOTAL",712.00,NIL})			//Total
    aadd(_aItens,{"D1_TES","001",NIL})				//TES
    aadd(_AItens,{"D1_TIPO","N",NIL})				//Tipo do Documento
    aadd(_AItens,{"D1_CUSTO",712.00,NIL})			//Custo de Entrada Moeda 1
    aadd(_AItens,{"D1_CUSORI",712.00,NIL})			//Custo Original Moeda 1
    aadd(aLinha,_aItens)							//Incluir o array de itens no array do trabalho
    
    SetFunName("MATA102N")							//Definir o "nome" da função executante como "MATA102N"

    MsExecAuto({|x, y, z| Mata102N(x, y, z)}, _aCabec, aLinha, 3)			//Execução automática pelo MsExecAuto
  
    If lMsErroAuto
        MostraErro()														//Se ocorrer algum erro, esta será apresentado
    Else
        MsgInfo("Guia de Remessa de Entrada incluída: " + cDoc, "ExecAuto MATA102N") //Se não ocorrer erro, será enviada uma mensagem de processo com sucesso.
    Endif   
  
Return Nil																	//Fim da execução

Ações Relacionadas

Além dos campos, nesta tela, existem algumas ações que auxiliam o usuário dependendo de cada tipo de nota fiscal:


  • Normal
  • Beneficiamento