Ponto-de-Entrada: MT103DRF - Alterar combobox
| 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: | Espanhol , Inglês |
Descrição:
Este ponto de entrada pertence ao MATA103X (funções de validação e controle de interface do documento de entrada). e é executado na rotina de validação do código do fornecedor, NFEFORNECE() para documentos de entrada padrão.
Também é executado na rotina A103NFiscal do MATA103 quando da classificação de pré-notas de entrada.
Permite alterar o combobox com a informação se gera DIRF e o código de retenção.
Disponível para IRPF, ISS, PIS, Cofins e CSLL.
Programa Fonte
MATA103.PRW e MATA103X.PRW
Sintaxe
MT103DRF - Alterar combobox ( [ nCombo ], [ cCodRet ], [ oCombo ], [ oCodRet ] ) --> aImpRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| nCombo | Numérico | Posição do combo (1=sim;2=não) | |||||||||||||||
| cCodRet | Caracter | Código da retenção | |||||||||||||||
| oCombo | Array of Record | Objeto oCombo | |||||||||||||||
| oCodRet | Array of Record | Objeto oCodRet |
Retorno
-
aImpRet(vetor)
- aImpRet[1]=Nome do ImpostoaImpRet[2]=Nova posição do combo (1=sim;2=não)aImpRet[3]=Novo código de retenção.
Observações
Pode-se alterar o status de leitura dos objetos: oCombo e oCodRet exemplo: oCombo:lReadOnly := .T.
oCodRet:lReadOnly:= .T.
Exemplos
User Function MT103DRF()Local nCombo := PARAMIXB[1] Local cCodRet := PARAMIXB[2] Local oCombo := PARAMIXB[3] Local oCodRet := PARAMIXB[4] Local aImpRet := {}nCombo := 1cCodRet := "1700"aadd(aImpRet,{"IRR",nCombo,cCodRet})nCombo := 2cCodRet := "1708"aadd(aImpRet,{"ISS",nCombo,cCodRet})nCombo := 1cCodRet := "2008"aadd(aImpRet,{"PIS",nCombo,cCodRet})nCombo := 1cCodRet := "2010"aadd(aImpRet,{"COF",nCombo,cCodRet}) nCombo := 2cCodRet := "2050"aadd(aImpRet,{"CSL",nCombo,cCodRet})Return aImpRet