Duda
¿Cuáles son los Puntos de entrada disponibles en Generación de Facturas en Compras y Movimientos a Almacén (MATA447B) en Pedimentos (MATA447) de importación país México?
Ambiente
Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Compras (SIGACOM) - Versión 12
Solución
- Acción relacionada "Genera Documentos" en Pedimentos
Las acciones a realizar en la Generación de documentos pueden ser de 4 tipos, ya que puede haber pedimentos que van a depósito fiscal, pedimentos que son una extracción del depósito fiscal y pedimentos que van directo al cliente, pero con extracciones por factura, pedimentos que van directo al cliente, sin extracciones por factura.
MP - COM - MATA447 - ¿Que movimientos genera la acción relacionada "Genera Doctos." en Pedimentos?
- M447BSF1 - Permite agregar mas campos que van de la RSE y SF1
If (ExistBlock("M447BSF1"))
aMasCabs := ExecBlock("M447BSF1",.F.,.F.,{cAliasRSE})
For nj := 1 To Len(aMasCabs)
aAdd(aCabs,{})
aCabs[Len(aCabs)] := aMasCabs[nj]
Next
EndIf - M447BSD1 - Permite agregar mas campos que van de la RSF y SF1
If (ExistBlock("M447BSD1"))
aMasItems := ExecBlock("M447BSD1",.F.,.F.,{cAliasRSE})
For nj := 1 To Len(aMasItems)
aAdd(aItens[Len(aItens)] , aMasItems[nj])
Next
EndIf - M447BF1A - Permite afectar mas tablas después de grabar en SF1, si fuera necesario. El puntero esta en RSE y sf1 respectivamente
If (ExistBlock("M447BF1A"))
ExecBlock("M447BF1A",.F.,.F.,{"SF1","RSE"})
EndIf - M447BIPE - Permite agregar mas campos que van de la RSE y SF1
MP – COM – MATA447 – Pedimentos - Punto de entrada M447BIPE para agregar más información a la factura de entrada de impuestos
If (ExistBlock("M447BIPE"))
aMasCabs:={}
aMasCabs := ExecBlock("M447BIPE",.F.,.F.)
For nj := 1 To Len(aMasCabs)
aAdd(aCabs,{})
aCabs[Len(aCabs)] := aMasCabs[nj]
Next
EndIf - M447BTS - Permite agregar mas campos
If (ExistBlock("M447BTS"))
ExecBlock("M447BTS",.F.,.F.,{cAliasTRA})
EndIf - M447BTE - Permite agregar mas campos
If (ExistBlock("M447BTE"))
ExecBlock("M447BTE",.F.,.F.,{cAliasTRA})
EndIf - M447BD3T - Punto de entrada para aplicación contable
If ExistBlock("M447BD3T")
// Parámetros:
// [1] No documentos traspaso
ExecBlock("M447BD3T",.F.,.F.,{cDocSt})
Endif - M447BD3R - Punto de entrada para aplicación contable
If ExistBlock("M447BD3R")
// Parámetros:
// [1] No documentos traspaso
ExecBlock("M447BD3R",.F.,.F.,{RSC->RSC_DOCTRA})
Endif - M447BD3I - Permite agregar mas campos a la tabla SD3 - Movimientos internos
If (ExistBlock("M447BD3I"))
aMasItem := ExecBlock("M447BD3I",.F.,.F.)
For nj:=1 To Len(aMasItem)
aAdd(aItem[Len(aItem)],aMasItem[nj] )
Next
EndIf - M447BD3B - Punto de entrada para aplicación contable de reversión del movimiento interno del prorrateo de los impuestos aduanales
If cTipoDoc == "FP" .And. ExistBlock("M447BSD3B")
// Parámetros:
// [1] No pedimento
// [2] Tipo documento
ExecBlock("M447BD3B",.F.,.F.,{RSC->RSC_NUMPED, cTipoDoc})
Endif
Importante: El análisis, debug y ajuste a funciones de usuario, Puntos de Entrada y/o Asientos contables estándar, exceden el alcance del soporte TOTVS al producto estándar.
Conozca más:
Para consultar la información contenida en nuestro banco de conocimientos, acceda a los siguientes enlaces: TDN - Puntos de Entrada Protheus
0 Comentarios