Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Punto de entrada MT143TGV

Características del Requisito

Línea de Producto:

Microsiga Protheus

Segmento:

Servicios y Jurídico - Mercado Internacional.

Módulo:

SIGACOM

Rutina:

Rutina

Nombre Técnico

MATA143.PRW

Despachos

Punto de Entrada:

MT143TGV.

Llamados vinculados:

1348174

Requisito/Story/Issue:DMICNS-214 | DMICNS-402 | DMICNS-818

País(es):

Chile

Base(s) de Datos:

Todas

Tablas utilizadas:

SF1 - Encabezado de factura de entrada

SD1 - Items de Factura de entrada

DBA - Proceso de Importación

DBB - Invoices

Sistema(s) operativo(s):

Todos.

Versiones:12.1.07 | 12.1.14 | 12.1.17

Descripción 

Se solicita la generación de un Punto de Entrada en la rutina MATA143 posterior a la generación de la factura de compras, cuando las tablas SF1/SD1/SF3 y SE2 ya se encuentran grabadas.

Punto de Entrada

Descripción:

MT143TGV  - Punto de Entrada Despachos

Ubicación:

Compras

Eventos:

Modificación de tablas después de haber grabado los registros de la Factura de entrada

Programa Fuente:

MATA143.PRW

Función:

A143GeraNF

Sintaxis:

Nombre:

MT143TGV()


Retorno:

Valor lógico (.T. | .F.), para continuar con el proceso es .T.

 

Ejemplo:

#Include 'Protheus.ch'

user function MT143TGV()

Local cSF1Doc := Space(TamSX3("F1_DOC")[1])
Local cSF1Serie := Space(TamSX3("F1_SERIE")[1])
Local cSF1Fornece := Space(TamSX3("F1_FORNECE")[1])
Local cDBA := Space(TamSX3("DBA_HAWB")[1])
Local cDBB := Space(TamSX3("DBB_HAWB")[1])

DBSELECTAREA("SF1")
DBSETORDER(1)
DBSELECTAREA("DBA")
DBSETORDER(1)
DBSELECTAREA("DBB")
DBSETORDER(1)

cSF1Doc := aCols[1,2]
cSF1Serie :=aCols[1,3]
cSF1Fornece := aCols[1,6]
alert ("Ejecutando Punto de Entrada MT143TGV")
If SF1→(dbSeek(xFilial("SF1")+cSF1Doc+cSF1Serie+cSF1Fornece))

If DBB→(dbSeek(xFilial("DBB")+cSF1Doc+cSF1Serie+cSF1Fornece))

cDBB := DBB->DBB_HAWB
If DBA→(dbSeek(xFilial("DBA")+cDBB))

RECLOCK("SF1",.F.)
Replace F1_MT143 With "OK"
MsUnlock()
RECLOCK("DBB",.F.)
Replace DBB_MT143 With "OK"
MsUnlock()
RECLOCK("DBA",.F.)
Replace DBA_MT143 With "OK"
MsUnlock()

EndIf

EndIf

EndIf

Return .T.