Ponto de Entrada
Descrição: | Ponto de Entrada na Rotina de Entrada por Compra de Veiculos, utilizado para inserir campos do SE2 na grid das parcelas (como pagar). O conteudo dos campos devem ser preenchidos atraves do Ponto de Entrada VX000PAR que é somente executado quando for utilizado uma condição de Pagamento do Tipo "A". A rotina vai gravar automaticamente o campo no SE2 no momento da integração com o Financeiro. |
Localização: | Atualizações \ Mov Entrada \ Entrada Por Compra (VEIXA001) |
Eventos: | aParcCust := {} If (FM_PILHA("VEIXA001")) // Somente Entrada de Veiculos por Compra If ExistBlock("VX000CCP") aParcCust := ExecBlock("VX000CCP",.f.,.f.) // Campos Customizados na Grid de Parcelas // aParcCust[x,1] Titulo da Coluna no ListBox // aParcCust[x,2] Campo do SE2 ( se informado será gravado na integracao com o FINA - Geração do Titulo ) // aParcCust[x,3] Picture do Campo // aParcCust[x,4] Tamanho da Coluna no ListBox // aParcCust[x,5] Posicionamento - Alinhamento no ListBox: LEFT / RIGHT // aParcCust[x,6] Conteudo default VX0000041_CarregaDefaultCamposCustomizadosParcelas(1) EndIf EndIf |
Programa Fonte: | VEIXX000.PRW |
Função: | VX000EXEC() |
Parâmetros: | N/A |
Retorno: | aParcCust // vetor com os Campos Customizados na Grid de Parcelas // aParcCust[x,1] Titulo da Coluna no ListBox // aParcCust[x,2] Campo do SE2 ( se informado será gravado na integracao com o FINA - Geração do Titulo ) // aParcCust[x,3] Picture do Campo // aParcCust[x,4] Tamanho da Coluna no ListBox // aParcCust[x,5] Posicionamento - Alinhamento no ListBox: LEFT / RIGHT // aParcCust[x,6] Conteudo default |
Exemplo:
Include totvs.ch
User Function VX000CCP()
Local aRetCpos := {}
// aRetCpos[x,1] Titulo da Coluna no ListBox
// aRetCpos[x,2] Campo do SE2 ( se informado será gravado na integracao com o FINA - Geração do Titulo )
// aRetCpos[x,3] Picture do Campo
// aRetCpos[x,4] Tamanho da Coluna no ListBox
// aRetCpos[x,5] Posicionamento - Alinhamento no ListBox: LEFT / RIGHT
// aRetCpos[x,6] Conteudo default
aAdd(aRetCpos,{"Motivo","E2_MOTIVO","@!",50,"LEFT",""})
Return aRetCpos