Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (eli.salatiel)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Cristian Eduardo Porras Franco

Gravado em

Chave

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

...

Al ejecutar el  ExecAuto xMta101N" no llena los campos Costo Mon. 1(D1_CUSTO), Costo Mon. 2(D1_CUSTO2), Costo Mon. 3(D1_CUSTO3), Costo Mon. 4(D1_CUSTO4) y Costo Mon. 5(D1_CUSTO5) de la tabla ítems de la factura(SD1)


03. SOLUCIÓN

Se modifica localiza tratamiento para localización especifica para el país de argentina.verificar que los campos de costo (D1_CUSTO, D1_CUSTO2, D3_CUSTO, D1_CUSTO4, D1_CUSTO5), se informen.


Totvs custom tabs box
tabsConfiguraciones Previas, Flujo de Prueba
idspaso1,paso2
Totvs custom tabs box items
defaultyes
referenciapaso1

Informar tasa para cada moneda (SIGAFIN>>Actualizaciones |Archivos | Monedas)

Añadir:

  • Proveedor(SIGACOM>>Actualizaciones |Archivos | Proveedores).
  • TES(SIGACOM>>Actualizaciones |Archivos | Tipo de entrada y salida).
  • Producto(SIGACOM>>Actualizaciones |Archivos | Productos).
  • Compilar la siguiente función de usuario con los datos agregados anteriormente. (Ejemplo)


Bloco de código

#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	
	AADD( aCab, { "F1_FILIAL"	, xFilial("SF1")	, Nil })
	AAdd( aCab, { "F1_FORNECE"  , "000001"			, 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"		, "BA"	       		, Nil })
	AAdd( aCab, { "F1_DUPL"		, cDoc	       		, Nil })	// Informar título si hay integración financiera
	AAdd( aCab, { "F1_RG1415"	, "01 "			   	, Nil })	// Dato para localización Argentina
	AAdd( aCab, { "F1_PROVENT"	, "BA"			   	, Nil })	// Dato para localización Argentina
	
	// Items	
	AADD( aLin, { "D1_FILIAL"	, xFilial("SD1")	, Nil })
	AADD( aLin, { "D1_ITEM"		, "0001"   			, Nil })
	AAdd( aLin, { "D1_COD"    	, "000000000000001"	, Nil })
	AAdd( aLin, { "D1_UM"     	, "UN"				, Nil })
	AAdd( aLin, { "D1_QUANT"  	, 1					, Nil })					
	AAdd( aLin, { "D1_VUNIT"  	, 10				, Nil })					
	AAdd( aLin, { "D1_TOTAL"  	, 10				, Nil })
	AAdd( aLin, { "D1_TES" 		, "123" 			, Nil })
	AAdd( aLin, { "D1_CF" 	    , "112" 			, Nil })
	AAdd( aLin, { "D1_PROVENT"  , "BA" 				, Nil })	// Dato para localización Argentina
	
	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
  • Una vez compilada la función de usuario anterior ir al configurador y agregar al Menú. 
Totvs custom tabs box items
defaultno
referenciapaso2
  • Ir al menú donde se agregó la función de usuario y ejecutar.
  • Verificar la grabación de los campos de costo de la tabla ítems de la factura(SD1).
    • Los campos de costo se graban de acuerdo a las tasas de las monedas configuradas. Ejemplo: D1_CUSTO, D2_CUSTO, D3_CUSTO, etc.

...

04. INFORMACIÓN ADICIONAL

...


Informações
titleIMPORTANTE

Los campos serán informados únicamente a las facturas realizadas después de la aplicación del patch, para los registros de facturas anteriores será necesario ejecutar la rutina de costo para que se realice la actualización.


05. ASUNTOS RELACIONADOS

...