Linha Microsiga Protheus

Árvore de páginas

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