Línea de Producto: | Microsiga Protheus. | ||||||||
Segmento: | Mercado internacional. | ||||||||
Módulo: | SIGACOM- Compras | ||||||||
Rutina: |
| ||||||||
Requisito/Story/Issue: | DMICNS-39, DMICNS-930 | ||||||||
País(es): | Todos | ||||||||
Base(s) de Datos: | Todas | ||||||||
Tablas utilizadas: | DBB - Invoices DBC - Items | ||||||||
Sistema(s) operativo(s): | Todos. | ||||||||
Versiones: | 11.80, 12.1.17 |
Se solicita la creación de un punto de entrada con las mismas características que el PE MT100TOK pero para la validación de los tipos de Facturas, diferentes a FOB y CIF en la rutina de Despacho (MATA143).
Deberá aplicar el paquete de actualización (patch) relacionado a este llamado (respaldar RPO antes de aplicar). El patch contiene la actualización de los fuentes:
MATA143.PRW - Despacho
Ejemplo:
Configuraciones Previas.
Descripción: | Actualizaciones | ||||||||||||
Ubicación: | Importaciones | ||||||||||||
Eventos: | Punto de Entrada M143TUDOK | ||||||||||||
Programa Fuente: | M143TUDOK | ||||||||||||
Función: | Despacho | ||||||||||||
Respuesta: |
| ||||||||||||
Parámetros: |
|
Ejemplo:
#Include 'Protheus.ch'
User Function M143TODOK()
Local lRet := .T.
Local cTipoNFE := PARAMIXB[3]
If cTipoNFE == "5"
MsgAlert("Documento Entrada FOB: " + DBB->DBB_DOC)
ElseIf cTipoNFE == "6"
MsgAlert("Documento Entrada Flete: " + DBB->DBB_DOC)
ElseIf cTipoNFE == "7"
MsgAlert("Documento Entrada Seguro: " + DBB->DBB_DOC)
ElseIf cTipoNFE == "8"
MsgAlert("Documento Entrada CIF: " + DBB->DBB_DOC)
ElseIf cTipoNFE == "A"
MsgAlert("Documento Entrada Gastos: " + DBB->DBB_DOC)
ElseIf cTipoNFE == "D"
MsgAlert("Documento Entrada DUA: " + DBB->DBB_DOC)
EndIf
Return lRet