Ponto-de-Entrada: TM370COD - Gravação do Novo Fornecedor
| 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:
Ponto de entrada antes da gravação do novo do fornecedor com os dados do cliente na rotina de aprovação de pagamento de indenização para o a cliente (TMSA370), no momento que for gerado título a pagar de indenização pro cliente.
Eventos
Programa Fonte
TMSA370.PRW
Sintaxe
TM370COD - Gravação do Novo Fornecedor ( [ cCGC ] ) --> cCodForn
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cCGC | Array of Record |
Retorno
-
cCodForn()
- O ponto de entrada deverá retornar o código/loja que será usado para gravar o novo fornecedor.
Observações
Exemplos
User Function TM370COD()Local cCGC := PARAMIXB //recebe CGC do clienteLocal cCodForn := Substr(cCGC,1,Len(SA2->A2_COD))//Se não informado, a Loja do fornecedor sera igual ao do cliente.cCodFon += SA2->A2_LOJAMsgStop('cCGC do cliente:' + cCGC )Return cCodForn //devolve codigo do novo fornecedor