Linha Microsiga Protheus

Árvore de páginas

01. DATOS GENERALES


Producto

TOTVS Backoffice

Línea de producto: 

Línea Protheus

Segmento:

Backoffice

Módulo:SIGACOM - Compras
Función:
RutinaNombre Técnico
LOCXBOL.PRW Funciones genéricas para Notas Fiscales Bolivia.
LOCXNF.PRWNotas Fiscales
LOCXPAR.PRWFunciones generales de documentos fiscales Paraguay.
LOCXARG.PRWFunciones generales de documentos fiscales Argentina.
LOCXCOL.PRWFunciones generales de documentos fiscales Colombia.
LOCXDOM.PRWFunciones generales de documentos fiscales Dominicana.
LOCXEQU.PRWFunciones generales de documentos fiscales Ecuador.
LOCXEUA.PRWFunciones generales de documentos fiscales Estados Unidos.
LOCXMEX.PRW Funciones generales de documentos fiscales México.
LOCXPER.PRWFunciones generales de documentos fiscales Perú,
LOCXCHI.PRWFunciones generales de documentos fiscales Chile,
LOCXNF2.PRWNotas Fiscales 
LOCXURU.PRWFunciones generales de documentos fiscales Uruguay,
MATA521.PRWExclusión de documentos de salida.
MATA942.PRWEstado Vs Ing Brutos
País:Bolivia 
Ticket:17171727
Requisito/Story/Issue (informe el requisito vinculado):DMICNS-17315


02. SITUACIÓN/REQUISITO

Al ejecutar la rutina automática de la Factura de Entrada (MATA101N), el sistema no graba el campo Recibo – F3_RECIBO de la tabla encabezado de la factura (SF1).

03. SOLUCIÓN

Se realiza el tratamiento en la función LxGrvLFBol() para cuando sea ejecutada la rutina automática el campo de Recibo – F3_RECIBO sea guardado.



  • A través de la rutina “Proveedores” ubicada en el módulo SIGACOM (Actualizaciones | Archivos), incluir un proveedor.

  • A través de la rutina “Tipos de Entrada y Salida” ubicada en el módulo SIGACOM (Actualizaciones | Archivos), contar con TES de entrada.

  • A través de la rutina “Productos” ubicada en el módulo SIGACOM (Actualizaciones | Archivos), incluir registro de producto.

  • Tener creado y compilado el MsExecAuto de la rutina MATA101N.
  • Incluir la opción en el menú desde el configurador para la ejecución del MsExecAuto.
  • Ingresar a la rutina del MsExecAuto,
    • Se abrirá una ventana donde será necesario informar el número de factura a incluir (de acuerdo al Msexecauto que se creo).

Ejemplo del MsExecAuto"xMta101n"

xMta101n
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"   

// Ejemplo de Factura de Entrada - Tipo - Normal //

User Function xMta101n()

	Local aCab	   		:= {}	// Array con datos de encabezado
	Local aLin    		:= {}	// Array con datos de ítem
	Local aItem    		:= {}	// Array de ítems
	Local cDoc          := ""	// String con el número de documento
	Private lMsErroAuto := .F.	// Control de ejecución de rutina

	cDoc :=  FWInputBox("Número de Factura", "")	// Informar número de documento, ejemplo: "000000000001"

	// Encabezado	
	//SetFunName("MATA101N")
	AADD( aCab, { "F1_FILIAL"	, xFilial("SF1")	, Nil })
	AAdd( aCab, { "F1_FORNECE"  , "P13357"			, Nil })	
	AAdd( aCab, { "F1_LOJA"		, "01"				, Nil })	
	AAdd( aCab, { "F1_SERIE"	, "A  "				, Nil })	 
	AAdd( aCab, { "F1_DOC"		, cDoc				, Nil })	  		 
	AAdd( aCab, { "F1_TIPO"		, "N"      			, Nil })
	AAdd( aCab, { "F1_FORMUL"	, "N"      			, Nil })
	AAdd( aCab, { "F1_TIPODOC"	, "10"		       	, Nil })
	AAdd( aCab, { "F1_ESPECIE"	, "NF "		   		, Nil })
	AAdd( aCab, { "F1_EMISSAO"	, dDataBase			, Nil })
	AAdd( aCab, { "F1_DTDIGIT"	, dDataBase			, Nil })
	AAdd( aCab, { "F1_MOEDA"	, 1		         	, Nil })
	AAdd( aCab, { "F1_TXMOEDA"	, 1        			, Nil })
	AAdd( aCab, { "F1_COND"		, "001"				, Nil })
	AAdd( aCab, { "F1_EST"		, "CB"	       		, Nil })
	AAdd( aCab, { "F1_DUPL"		, cDoc	       		, Nil })	
	AAdd( aCab, { "F1_RECIBO"	, "1"	       		, Nil })	

	
	// Items	
	AADD( aLin, { "D1_FILIAL"	, xFilial("SD1")	, Nil })
	AADD( aLin, { "D1_ITEM"		, "0001"   			, Nil })
	AAdd( aLin, { "D1_COD"    	, "000001"	, Nil })
	AAdd( aLin, { "D1_UM"     	, "UN"				, Nil })
	AAdd( aLin, { "D1_QUANT"  	, 1					, Nil })					
	AAdd( aLin, { "D1_VUNIT"  	, 1000				, Nil })					
	AAdd( aLin, { "D1_TOTAL"  	, 1000				, Nil })
	AAdd( aLin, { "D1_TES" 		, "101" 			, Nil })
	AAdd( aLin, { "D1_CF" 	    , "112" 			, Nil })

	
	AAdd( aItem, aLin)
	
	// Ejecuta Rutina Automática
	MSExecAuto( { |x,y| MATA101N(x,y) }, aCab, aItem, 3 )
	
	If lMsErroAuto		
		MsgStop("Error en la grabación de la factura!")	
		MostraErro()	
	Else	
		msgInfo("Factura de Entrada incluida: " + cDoc, "MsExecAuto MATA101N")
	EndIf

Return


04. INFORMACIÓN ADICIONAL

  •  La grabación del campo F3_RECIBO solo se realizará para documentos generados después de aplicar el parche.



05. ASUNTOS RELACIONADOS

  • Ejemplo de ExecAuto: https://centraldeatendimento.totvs.com/hc/es/articles/1500001986422-Cross-Segmento-TOTVS-Backoffice-L%C3%ADnea-Protheus-MI-Compras-SIGACOM-Execauto-para-generaci%C3%B3n-de-factura-de-entrada-MATA101N?source=search