Histórico da Página

FunçãoFunción: MATA125 - Contrato de Parceriaasociación

VersõesVersiones:	Microsiga Protheus 8.11, Protheus 10, Protheus 11, Protheus 12
Compatível PaísesCompatible países:	Todos
Sistemas Operacionaisoperativos:	Todos
Compatível às Compatible a las bases de dadosdatos:	TodosTodas
Nivel de Acessoacceso:	Nivel 1 ( Acesso Acceso Clientes)
Idiomas:	Todos

ProdutoProducto:

Protheus

Ocorrência

Ocurrencia:

Rotina Automática

Rutina automática - MATA125 (Execauto)

AmbienteEntorno:

SIGACOM - Compras

DescriçãoDescripción:

Essa rotina Esta rutina permite o el registro de qualquer cualquier Contrato de Parceria na asociación en la empresa. O El Contrato de Parceria é um asociación es un contrato de fornecimento suministro de produtos productos por um un determinado período.

SintaxeSintaxis:

MATA125 - Contrato de

Parceria

asociación ( [ ExpN1 ] [ ExpA1 ] [ ExpA2 ])

Nome

Nombre

Tipo

Descrição

Descripción

Default

Estándar
ExpA1	Array of Record

Cabeçalho do

Encabezado del Contrato de

Parceria na Rotina Automática

asociación en la Rutina automática.
ExpA2	Array of Record

Itens do

Ítems del Contrato de

Parceria na Rotina Automática

asociación en la Rutina automática.
ExpN1	Numérico

Opção do aRotina na Rotina Automática

Opción de aRotina en Rutina automática.

3 -

Inclusão

Inclusión

4 -

Alteração

Modificación

5 -

Exclusão

Borrado

RetornoDevolución:

L (

Logico

Lógico) = .T. (

Apresentou erro

Muestra error) / .F. (OK)

Observações

Observaciones:

Os

Los campos de

cabeçalho do

encabezado del Contrato de

Parceria

asociación (C3_EMISSAO / C3_FORNECE / C3_LOJA / C3_COND / C3_CONTATO / C3_FILENT)

deverão ser obrigatoriamente informados nesta rotina

deben informarse obligatoriamente en esta rutina.

Os

Los campos de

itens do

ítems del Contrato de

Parceria

asociación (C3_PRODUTO / C3_QUANT / C3_PRECO)

deverão ser obrigatoriamente informados nesta rotina.Se informar o

deben informarse obligatoriamente en esta rutina.

Si se informa el campo (C3_MOEDA),

o

el campo (C3_TXMOEDA)

também devera ser informado nos itens do contrato.Se for alterar ou excluir um contrato o

también debe informarse en los ítems del contrato.

Si se modificara o borrara un contrato, el campo (C3_REC_WT)

tem que estar preenchido com o numero do

debe estar completado con el número del registro (SC3->(Recno())

Alteração de

Modificación del Contrato de

Parceria

asociación:

Para

alterar/excluir item já existente no

modificar/borrar ítems existentes en el Contrato de

Parceria, deve-se utilizar o LINPOS e

asociación, debe utilizarse LINPOS y AUTODELETA

Para incluir

um novo item em um contrato já existente, deve-se informar o

un nuevo ítem en un contrato existente, debe informarse el campo (C3_ITEM)

com um

con un registro

novo, e NÃO utilizar o LINPOS e

nuevo, y NO utilizar LINPOS ni AUTODELETA.

ExemplosEjemplos:

#INCLUDE "MATA125.CH"
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "PROTHEUS.CH"

...

Local aCab := {}
Local aItens := {}
Local cDoc := ""
Local nX := 0
Private lMsErroAuto := .F.
ConOut(Repl("-",80))
ConOut(PadC("Rotina Automática Rutina automática para o Contrato de Parceriaasociación",80))

//PREPARE ENVIRONMENT EMPRESA "01" FILIAL SUCURSAL "1001" MODULO MÓDULO "COM"

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Teste Prueba de Inclusão inclusión
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Verifica numero da CP |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

...

If lMsErroAuto
MostraErro()
Else
MsgAlert("Incluido com sucesso¡Incluido con éxito! "+cDoc)
Endif

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Teste Prueba de Alteração modificación
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

...

If lMsErroAuto
MostraErro()
Else
MsgAlert("Alterado com sucesso¡Modificado con éxito! "+cDoc)
Endif

...

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Teste Prueba de Exclusão borrado |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

...

If lMsErroAuto
MostraErro()
Else
MsgAlert("Excluído com sucesso! "+cDoc)
Endif

MsgAlert("Fim da Rotina Automática¡Final de Rutina automática! "+Time())

//RESET ENVIRONMENT

...

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave