Ponto-de-Entrada: TM370FRN - Gravação de Campos na Tabela de Fornecedores
| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Descrição:
O objetivo do ponto de entrada é a gravação de mais campos na tabela de fornecedores após a gravação do fornecedor.
Programa Fonte
TMSA370.PRW
Sintaxe
TM370FRN - Gravação de Campos na Tabela de Fornecedores ( [ cCGC ], [ SA2->A2_COD ], [ SA2->A2_LOJA ] )
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cCGC | Caracter | CGC | |||||||||||||||
| SA2->A2_COD | Array of Record | Código do Fornecedor. | |||||||||||||||
| SA2->A2_LOJA | Array of Record | Loja do Fornecedor. |
Retorno
-
()
Exemplos
User Function TM370FRN()Local cCGC := PARAMIXB[1] //-- Recebe o CDC do ClienteLocal cForn := PARAMIXB[2] //-- Recebe o Código do fornecedorLocal cLoja := PARAMIXB[3] //-- Recebe a loja do fornecedorLocal cCodForn := Substr(cCGC,1,Len(SA2->A2_COD))//Se não informado, a Loja do fornecedor será igual ao do cliente.cCodForn += SA2->A2_LOJA//-- Mostra as informações do fornecedor.MsgInfo('cCGC do cliente:' + cCGC + "... Fonecedor: " +cForn + "... Loja: " + cLoja) Return
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |