...
| Producto: | | Solucoes_totvs_cross |
|---|
| SolucaoCross | TOTVS Backoffice |
|---|
|
| Solucoes_totvs_parceirosexptotvs |
|---|
|
|
|---|
| Línea de producto: | |
|---|
| Segmento: | |
|---|
| Módulo: | | Modulos_cross_segmentos |
|---|
| ModulosCrossSegmentos | TOTVS Backoffice (Linha Protheus) - Compras (SIGACOM) |
|---|
|
| Modulos_totvs_prestadores_de_servicos |
|---|
|
|---|
| Función: | | Rutina | Nombre Técnico | Fecha |
|---|
| MATA447B | Generación de Documentos Pedimentos | --09/09/2024 |
|
|---|
| País: | México |
|---|
| Ticket: | No aplica |
|---|
| Requisito/Story/Issue (informe el requisito vinculado): | DMINA-24204 |
|---|
...
Punto de Entrada en la rutina de Generación de Documentos Pedimentos (MATA447B), con el objetivo de que si se agregan campos específicos en la tabla las tablas de Encabezado de factura (RSE) y/o Ítems de factura (RSF) éstos , estos sean pasados a la factura de entrada (tablas los campos correspondientes en las tablas de Facturas de Entrada (SF1/SD1).
03. INFORMACIÓN ADICIONAL
...
El Punto de Entrada se ejecuta 2 veces, la primera para el Encabezado (RSE) y la segunda para los Ítems (RSF), determinando por medio del segundo parámetro a qué tabla se adiciona(n) el/los campo(s)adicionan los campos.
En la función de usuario se debe construir un arreglo con el/los nuevo(s) valor(es) los nuevos campo y los respectivos valores que el usuario determine, respetando si es para Encabezado (de RSE /para SF1) o para Ítems (de RSF /para SD1).
La función debe retornar dicho arreglo.
Ejemplos del Punto de Entrada para (1) Encabezado/Ítems, solo (2) Encabezado y solo (3) Ítems:
| Bloco de código |
|---|
| language | delphi |
|---|
| theme | Eclipse |
|---|
| title | M447BFGA |
|---|
|
// 1) Encabezado e Ítems
User Function M447BFGA()
Local aAddFlds := {} // Arreglo a retornar
Local cAlias := ParamIxb[1] // Primer parámetro, que contiene Contiene el alias de la tabla cuyo contenido es la información de encabezado e ítems.
Local cTable := ParamIxb[2] // Segundo parámetro, que contiene Contiene la tabla a la que se agregará(n) el/los nuevo(s) campo(s)agregarán los campos de usuario.
If cTable == "RSE" //Encabezado
aAdd( aAddFlds, {"F1_TEXTO1", (cAlias)->RSE_TEXTO1, Nil} )
aAdd( aAddFlds, {"F1_TEXTO2", (cAlias)->RSE_TEXTO2, Nil} )
ElseIf cTable == "RSF" //Ítems
aAdd( aAddFlds, {"D1_TEXTO1", (cAlias)->RSF_TEXTO1, Nil} )
aAdd( aAddFlds, {"D1_TEXTO2", (cAlias)->RSF_TEXTO2, Nil} )
EndIf
Return (aAddFlds)
// 2) Solo encabezado
User Function M447BFGA()
Local aAddFlds := {} // Arreglo a retornar
Local cAlias := ParamIxb[1] // Primer parámetro, que contiene Contiene el alias de la tabla cuyo contenido es la información de encabezado e ítems.
Local cTable := ParamIxb[2] // Segundo parámetro, que contiene Contiene la tabla a la que se agregará(n) el/los nuevo(s) campo(s).
agregarán los campos de usuario.
If cTable == "RSE" //Encabezado
aAdd( aAddFlds, {"F1_TEXTO1", (cAlias)->RSE_TEXTO1, Nil} )
aAdd( aAddFlds, {"F1_TEXTO2", (cAlias)->RSE_TEXTO2, Nil} )
EndIf
Return (aAddFlds)
// 3) Solo ítems
User Function M447BFGA()
Local aAddFlds := {} // Arreglo a retornar
Local cAlias := ParamIxb[1] // Primer parámetro, que contieneContiene el alias de la tabla cuyo contenido es la información de encabezado e ítems.
Local cTable := ParamIxb[2] // Segundo parámetro, que contiene Contiene la tabla a la que se agregará(n) el/los nuevo(s) campo(s)agregarán los campos de usuario.
If cTable == "RSF" //Ítems
aAdd( aAddFlds, {"D1_TEXTO1", (cAlias)->RSF_TEXTO1, Nil} )
aAdd( aAddFlds, {"D1_TEXTO2", (cAlias)->RSF_TEXTO2, Nil} )
EndIf
Return (aAddFlds) |
...
