Histórico da Página

...

Portuguese

Pagetitle

	MATA145 - Registro de aviso de recepción
	MATA145 - Registro de aviso de recepción

Función: MATA145 - Registro de aviso de recepción

Alcances:	Protheus 10
Versiones:	Protheus 10
Compatible países:	Todos
Sistemas operativos:	Todos
Compatible a las bases de datos:	Todos
Nivel de acceso:	Nivel 1 (Acceso Clientes)
Idiomas:	Portugués (Brasil)

Descripción:

Esta rutina realiza el registro de los avisos de recepción de carga.

Programa fuente:

MATA145.PRX

Sintaxis:

MATA145 - Registro de aviso de recepción ( [ PARAMIXB1 ] [ PARAMIXB2 ] [ PARAMIXB3 ] [ PARAMIXB4 ] ) --> NIL

Devolución:

NIL(nulo)

Observaciones

El aviso de recepción de carga es un documento que muestra la carga de un vehículo.

Puede ser referente a una única factura o a varias.

Después de la entrega, se deben homologar las facturas registradas.

Ejemplos

#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" User Function MYMTA145()	If !lMsErroAuto	ConOut("Incluido com sucesso! "+cProd)	Else      MostraErro()	ConOut("Erro na inclusao!")EndIfConOut("Fim  :             Local aDB1   := {}  Local aDB2   := {} Local aDB3   := {} Local aTamProd:= {}Local cRavRc  :="000020"     "+Time())Return Nil

#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" User Function MYMTA145() Local aDB1 := {} Local aDB2 := {} Local aDB3 := {} Local aTamProd:= {}Local cRavRc :="000020" //..numero

do

AvisoLocal

dEmissa

:=

""

//..

emissaoLocal

cTipo

cTipo :=

"1"

//..

Tipo

de

cliente ou fornecedorlOCAL cCliFor

cliente o proveedorlOCAL cCliFor :=

"

01 "

01 " //..

Codigo do cliente ou fornecedorLocal cLoja := "01 "

Código del cliente o proveedor Lugar cLoja := "01 " //..

numero da lojaLocal cTipoNF

numero de la tienda Lugar cTipoNF :=

"N"

//..

tipo da nota

tipo de la factura //N->

Pedidos

Normais.Local cProd

Normales.Lugar cProd :=

""

//..

codigo do produto Local cDoc :=

código del producto Lugar cDoc := "000000020"

//..

numero

do

documentoLocal

nQuant := 10

nQuant := 10 //..

quantidadeLocal

nVunit := 1

nVunit := 1 //..valor

unitarioLocal nTotal := 10

unitarioLugar nTotal := 10 //..totalPRIVATE

lMsErroAuto

:=

.F.

//------------------------//|

Abertura do ambiente

Apertura del entorno |//------------------------PREPARE

ENVIRONMENT

EMPRESA

"99"

FILIAL

"01"

MODULO

"COM"

TABLES

"DB1","DB2","DB3","SB1"

aTamProd:=

TamSX3("B1_COD")

cProd

cProd :=

"PROD1"+Space(

aTamProd[1]-Len("PROD1")

)dEmissa

:=

dDataBase

dDataBase ConOut(Repl("-",80))ConOut(PadC("

Cadastro de Aviso de Recebimento

Registro de aviso de recepción",80))ConOut("Inicio:

"+Time())//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//|

Exemolo de Inclusao |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ aDB1 :=

Ejemplo de inclusión |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ aDB1 := {}aadd(aDB1,{"DB1_NRAVRC"

,cRavRc

,})aadd(aDB1,{"DB1_EMISSA"

,dEmissa

,})aadd(aDB1,{"DB1_TIPO"

,cTipo

,cTipo ,})aadd(aDB1,{"DB1_CLIFOR"

,cCliFor

,})aadd(aDB1,{"DB1_LOJA"

,cLoja

,cLoja ,})aadd(aDB1,{"DB1_TIPONF"

,cTipoNF

,})

aadd(aDB1,{"DB1_NRDOC"

,"99999"

,})

aadd(aDB1,{"DB1_ENTREG"

,dEmissa

,})aadd(aDB1,{"DB1_HOMOLO"

,"1"

,})

aDB2

:=

{}aAdd(aDB2,{})aadd(aDB2[len(aDB2)],{"DB2_DOC"

,cDoc

,cDoc ,})aadd(aDB2[len(aDB2)],{"DB2_EMISSA",

dEmissa

dEmissa ,})aadd(aDB2[len(aDB2)],{"DB2_TIPO"

,cTipo

,cTipo ,})aadd(aDB2[len(aDB2)],{"DB2_CLIFOR",

cCliFor

cCliFor ,})aadd(aDB2[len(aDB2)],{"DB2_LOJA"

,cLoja

,cLoja ,})aadd(aDB2[len(aDB2)],{"DB2_NRAVRC",

cRavRc

cRavRc ,})

aDB3

aDB3 :=

{}

aAdd(aDB3,{})

aadd(aDB3[len(aDB3)],{"DB3_NRAVRC"

,cRavRc

,})aadd(aDB3[len(aDB3)],{"DB3_ITEM"

,"001"

,})

aadd(aDB3[len(aDB3)],{"DB3_CODPRO"

,

cProd

cProd ,})

aadd(aDB3[len(aDB3)],{"DB3_QUANT"

,nQuant

,})aadd(aDB3[len(aDB3)],{"DB3_VUNIT"

,nVunit

,})aadd(aDB3[len(aDB3)],{"DB3_TOTAL"

,nTotal

,})aadd(aDB3[len(aDB3)],{"DB3_ITDOC"

,"001"

,})aadd(aDB3[len(aDB3)],{"DB3_STSERV"

,"1"

,})

PARAMIXB1

:=

aClone(aDB1)

PARAMIXB2

:=

aClone(aDB2)PARAMIXB3

:=

aClone(aDB3)PARAMIXB4

:=

3

3 MSExecAuto({|x,y,z,w|

mata145(x,y,z,w)},PARAMIXB1,PARAMIXB2,PARAMIXB3,PARAMIXB4)

If

!

lMsErroAuto

lMsErroAuto ConOut("

Incluido com sucesso!

¡ Incluido con éxito ! "+cProd)

Else

Else MostraErro()

ConOut("

Erro na inclusao

Error en la inclusión!")EndIfConOut("

Fim

Fin :

"+Time())Return

Nil

Parámetros:

Nombre

Tipo

Descripción

Estándar

Obligatorio

Referencia

PARAMIXB1

Array of Record

Array que contiene los valores del aviso de recepción de carga

PARAMIXB2

Array of Record

Array que contiene los valores de encabezado del documento de recepción

PARAMIXB3

Array of Record

Array que contiene los valores de los ítems del documento de recepción

PARAMIXB4

Numérico

Opción seleccionada:
3-Inclusión
4-Modificación
5-Borrado

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave