Árvore de páginas

Versões comparadas

Chave

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

01. DATOS GENERALES


Producto

Solucoes_espanhol
SolucaoTOTVS Backoffice

Línea de producto: 

Linhas_totvs_espanhol
LinhaLínea Protheus

Segmento:

Segmentos_totvs_espanhol
SegmentoBackoffice

Módulo:SIGACOM - COMPRAS
Función:
Rutina (s)Nombre Técnico
LOCXNF.PRWNotas Fiscales.
LOCXNF2.PRWFunciones genéricas para Notas Fiscales.
LOCXARG.PRGFunciones genéricas para Notas Fiscales Argentina.

LOCXMEX.PRW

Funciones genéricas para Notas Fiscales México.
LOCXPER.PRWFunciones genéricas para Notas Fiscales Perú.

LOCXCOL.PRW

Funciones genéricas para Notas Fiscales Colombia.

LOCXBOL.PRW Funciones genéricas para Notas Fiscales Bolivia.
LOCXDOM.PRWFunciones genéricas para Notas Fiscales Republica Dominicana.
MATA942.PRWEstado Vs. Ing. Brutos (CCO).
País:PARAGUAY
Ticket:12928511
Requisito/Story/Issue (informe el requisito vinculado):DMICNS-12984


02. SITUACIÓN/REQUISITO

Al ejecutar el un ExecAuto de la rutina MATA102N" no llena los campos Costo Mon. 1(D1_CUSTO), Costo Mon. 2(D1_CUSTO2) y Costo Mon. 3(D1_CUSTO3) de la tabla ítems de la factura(SD1)

...

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.


Bloco de código
#INCLUDE "RWMAKE.CH"
 
#INCLUDE "TBICONN.CH"
   User Function
    

User Function xMta102n()


Local _aCabec
     
       := {}
   
    //Array com dados do cabecalho

Local _aItens
     
       := {}
   
    //Array com dados do item

Local
aLinha        
 aLinha        := {}
   
    //Array de trabalho

Local
cDoc          := ""

Private aRecsSF1    := {}    //Array para vinculo de Notas

Private lMsErroAuto := .f.   //Controle de execucao da Rotina

cDoc :=  FWInputBox("Núemro documento", "") //"000021111901"

//Cabecalho

 cDoc          := "" 
Private aRecsSF1    := {}    //Array para vinculo de Notas
Private lMsErroAuto := .f.   //Controle de execucao da Rotina

	cDoc :=  FWInputBox("Núemro documento", "") //"000021111901"

	//Cabecalho
	aadd(_aCabec,{"F1_FILIAL","01"})

	aadd(_aCabec,{"F1_DOC",cDoc})

	aadd(_aCabec,{"F1_SERIE","FAT"})

	aadd(_aCabec,{"F1_FORNECE","12984 "})

	aadd(_aCabec,{"F1_LOJA","01"})

	aadd(_aCabec,{"F1_TIPO","N"})

	aadd(_aCabec,{"F1_FORMUL","N"})

	aadd(_aCabec,{"F1_EMISSAO",dDataBase})
 
	aadd(_aCabec,{"F1_TXMOEDA",1})
 
	aadd(_aCabec,{"F1_TIPODOC","60"})


	//Itens

	aadd(_aItens,{"D1_COD","000000000000001",nil})

	aadd(_aItens,{"D1_QUANT",1,nil})

	aadd(_aItens,{"D1_VUNIT",1000,nil})

	aadd(_aItens,{"D1_TOTAL",1000,nil})

	aadd(_aItens,{"D1_TES","001",nil})

	aadd(_AItens,{"D1_TIPO","N",nil})
 
  
	aadd(aLinha,_aItens)
 
	MsExecAuto({|x, y, z| Mata102N(x, y, z)}, _aCabec, aLinha, 3)
 

If lMsErroAuto    

   
   

	If lMsErroAuto    
    	MostraErro()

else

   

	else
    	msgInfo("Remito de Entrada incluido: " + cDoc, "ExecAuto MATA102N")
Endif    

	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.

...