Essa rotina permite o registro de qualquer movimento de entrada de mercadorias, feito através de um remito 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 remito que está sendo cadastrado.


Cada país utiliza uma nomenclatura para identificar o remito 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 remito 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 os remitos já emitidos.
  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 do remito. No meio da tela, estão os itens do remito 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, remito de entrada ou apontamento de produção.  



Para la utilización de la rutina automática, utilizando la función MsExecAuto(), debe ser ejecutada la instrucción SetFunName("MATA102N").
A continuación, se muestra un ejemplo de utilización:

#INCLUDE "RWMAKE.CH"								//Importación de librearías
#INCLUDE "TBICONN.CH"   							//Importación de librearías
  
User Function xMta102n()
    Local _aCabec       := {}						//Arreglo con los datos del encabezado
    Local _aItens       := {}						//Arreglo con los datos de los ítems
    Local aLinha        := {}						//Arreglo de trabajo
    Local cDoc          := ""						//Inicialización del número de documento
 
    Private aRecsSF1    := {}						//Arreglo para vínculo de Notas
    Private lMsErroAuto := .F.						//Control de ejecución de rutina
  
    cDoc :=  FWInputBox("Número documento", "") 	//Ventana emergente donde será introducido el número de documento
  
    //Encabezado
    aadd(_aCabec,{"F1_FILIAL","0101"})				//Filial
    aadd(_aCabec,{"F1_DOC",cDoc})					//Número de Documento
    aadd(_aCabec,{"F1_SERIE","REM"})				//Serie
    aadd(_aCabec,{"F1_FORNECE","000001"})			//Proveedor
    aadd(_aCabec,{"F1_LOJA","01"})					//Tienda
    aadd(_aCabec,{"F1_TIPO","N"})					//Tipo de Factura
    aadd(_aCabec,{"F1_FORMUL","N"})					//Formulario Propio
    aadd(_aCabec,{"F1_EMISSAO",dDataBase})			//Fecha de Emisión
    aadd(_aCabec,{"F1_TXMOEDA",1})					//Tasa de la Moneda
    aadd(_aCabec,{"F1_TIPODOC","60"})				//Identificador de Documento
  
    //Ítems
    aadd(_aItens,{"D1_COD","0101001        ",NIL})	//Código del Producto
    aadd(_aItens,{"D1_QUANT",1,NIL})				//Cantidad
    aadd(_aItens,{"D1_VUNIT",712.00,NIL})			//Valor Unitario
    aadd(_aItens,{"D1_TOTAL",712.00,NIL})			//Total
    aadd(_aItens,{"D1_TES","001",NIL})				//TES
    aadd(_AItens,{"D1_TIPO","N",NIL})				//Tipo del Documento
    aadd(_AItens,{"D1_CUSTO",712.00,NIL})			//Costo de Entrada Moneda 1
    aadd(_AItens,{"D1_CUSORI",712.00,NIL})			//Costo Original Moneda 1
    aadd(aLinha,_aItens)							//Se agrega el arreglo de Ítems al arreglo de Trabajo
    
    SetFunName("MATA102N")							//Se establece el "nombre" de la función ejecutante como "MATA102N"

    MsExecAuto({|x, y, z| Mata102N(x, y, z)}, _aCabec, aLinha, 3)			//Ejecución automática por medio de MsExecAuto
  
    If lMsErroAuto
        MostraErro()														//Si se detonó algún error, es mostrado
    Else
        MsgInfo("Remito de Entrada incluido: " + cDoc, "ExecAuto MATA102N") //Si no hubo error, se envía mensaje de proceso exitoso.
    Endif   
  
Return Nil																	//Fin de la ejecución

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:



Ação

Tecla Especial

Selecionar Pedido de Compra

F5

Selecionar Pedido de Compra por Item

F6

Documento Original (Devolução/Beneficiamento)

F7

Rateio do Item por Centro de Custo

F9



Ação

Tecla Especial

Rateio do Item por Centro de Custo

F9