Remito de entrada(*) (MATA102N - SIGACOM)

Esta rutina permite el registro de cualquier movimiento de entrada de mercaderías, hecho a través de un remito proveniente de proveedores, o de la mejora proveniente de clientes.
La entrada de las mercaderías inicia un proceso de actualización en línea (On Line) de datos de stock y costos.
El primer parámetro determina el tipo de remito que se está registrando.

Cada país utiliza una nomenclatura para identificar el remito de entrada:


Nombre	Países
Remito
Remision
Conduce
Nota de Entrega
Guia de Remision
Guia de Recepcion

Procedimientos
Para incluir un remito de entrada:

En la entrada de la rutina se solicitará el tipo de remito que se digitará (esta configuración se puede modificar en cualquier momento en la rutina mediante la tecla [F12]).
Complete los datos de acuerdo con la orientación del help de campo y confirme.
Se abrirá una nueva pantalla de parámetros, en que es necesario informar las configuraciones generales de la rutina. Aparecerá una pantalla con los remitos ya emitidos.
Seleccione la opción Incluir.

Se abrirá la pantalla de inclusión. En la parte superior de esta pantalla, se encuentran los campos que compondrán el encabezado del remito. En el medio de la pantalla, están los ítems del remito y en la parte inferior, las Carpetas del pie de página
5. Complete los datos de acuerdo con la orientación del help de campo.
6. Verifique los datos y confirme.

Importante:
Cuando el parámetro MV_DISTMOV esté activo, se abrirá la pantalla para distribución de la cantidad de entrada en direcciones/números de serie, inmediatamente después de confirmar la inclusión de entrada, facturas de entrada, remito de entrada o apuntes de producción.

Importante

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:

Ejemplo de ejecución automática

#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

Acciones relacionadas

Además de los campos, en esta pantalla, existen algunas acciones que apoyan al usuario dependiendo de cada tipo de factura:

Normal.

Acción	Tecla especial
Seleccionar Pedido de Compra	F5
Seleccionar pedido de compras por ítem	F6
Documento Original (Devolución/Mejora)	F7
Prorrateo del ítem por centro de costo	F9

Mejora

Acción	Tecla especial
Prorrateo del ítem por centro de costo	F9

Atalhos

Árvore de páginas

Acciones relacionadas