Ponto-de-Entrada: OC001EST - Customização do saldo de peças
| 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 na rotina (Consulta Peças de orçamento) (OFIXC001) que possibilita a customização do saldo de peças.
Eventos
User Function OC001EST()
MsgInfo(“Ponto de Entrada OC001EST”,”Atencao”)
return nil
Programa Fonte
OFIXC001.PRW
Sintaxe
OC001EST - Customização do saldo de peças ( [ ] )
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
()
Observações
For i:= nNumero+1 to Len(aIte1)
if SubStr(aIte1[i,1],1,1) # " "
aadd(aIte2,{aIte1[i,1],aIte1[i,2],aIte1[i,3],aIte1[i,4]})
Endif
Next
//
if len(aIte2) == 0
aadd(aIte2,{"","","",""})
Endif
//
aIte1 := aclone(aIte2)
//
If ExistBlock("OC001EST")
ExecBlock("OC001EST",.f.,.f.)
EndIf
//
oLbHeadx:SetArray(aIte1)
oLbHeadx:bLine := { || { aIte1[oLbHeadx:nAt,1] ,;
aIte1[oLbHeadx:nAt,2] ,;
aIte1[oLbHeadx:nAt,3] }}
oLbHeadx:Refresh()
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |