Ponto-de-Entrada: OFMT010D - Utilização do vetor aIncSB1
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
Ponto de Entrada que utiliza o vetor aIncSB1, integrado com o Mata010 (Cadastro de Produtos) para outros tratamentos, após a Inclusão do Produto.
Eventos
/*
===============================================================================
###############################################################################
##+----------+------------+-------+-----------------------+------+----------+##
##|Programa | OFMT010D |Autor | | Data | 99/99/99 |##
##+----------+------------+-------+-----------------------+------+----------+##
##|Descri‡„o | Pondo de Entrada que utiliza o vetor aIncSB1 que é passado |##
##| | Integração com o Mata010 (Cadastro de Produtos) para outros |##
##| | tratamentos, após a Inclusão do Produto) |##
##+----------+--------------------------------------------------------------+##
##|Uso | Concessionarias |##
##+----------+--------------------------------------------------------------+##
###############################################################################
===============================================================================
*/
User function OFMT010D()
MsgAlert("Ponto de Entrada OFMT010D chamado com Sucesso!")
Return
Programa Fonte
OFIIA000
Sintaxe
OFMT010D - Utilização do vetor aIncSB1 ( [ ] )
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
()
Observações
{ STR0004 ,"Mata010Deleta", 0 , 5} }//Excluir
DbSelectArea("SB1")
A010ALTERA("SB1",Recno(),4)
aRotina := aClone(aRotOld)
cCadastro := OemToAnsi(STR0006) //"Garantia Solicitada VW" //"Importacao do Retorno de Garantia da Fabrica"
EndIf
EndIf
EndIf
DbSelectArea("VEI")
DbSetOrder(2)
DbSeek( xFilial("VEI") + VIA->VIA_CODMAR + VIA->VIA_PEDCON )
If ( ExistBlock("OFMT010D") )
ExecBlock("OFMT010D",.f.,.f.,{aIncSB1})
EndIf
&& Utilizacao da funcao de NF Entrada MATA140
&& Entrada da Nota Fiscal - Itens
cTesE := ""
If !Empty(VIA->VIA_TESENT)
cTesE := VIA->VIA_TESENT
ElseIf !Empty(VE4->VE4_TESENT)
cTesE := VE4->VE4_TESENT
Else
cTesE := SB1->B1_TE
EndIf
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |