1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. PONTO DE ENTRADA TITICMST
× Linguagem de Programação ADVPL

Perguntas PONTO DE ENTRADA TITICMST

Mais
10 anos 3 meses atrás #20901 por caio.hps
PONTO DE ENTRADA TITICMST foi criado por caio.hps
Olá
Alguem ja utilizou este ponto de entrada?

na apuração de icms ele entra, o titulo que a apuração gera de icm vem com a data de vencto que voce coloca em informações complementares, porem a data de vencto para o titulo do st deve ser, no caso nao sai diferente.
entrei em contato com a totvs que me falou pra utilizar esse ponto de entrada, porem os parametros que eu recebo no PE nao ta certo com a tela de GNRE que abre, ou seja, o parametro sobre o titulo que recebo vem como tipo 3- ICMS ST, porem me abre a tela do tipo 1- ICM

segue meu fonte, se alguem puder me ajudar
obrigado
User Function TITICMST()
Local cOrigem := PARAMIXB[1]
Local cTipoImp := PARAMIXB[2] 
Private dVENCTO := DATE()
Private oDlg
Private oVEnc
Private dVEnc := ctoD("  /  /    ")
Private oButton1
Private oGroup1
Private oSay1
If  AllTrim(cOrigem)=='MATA953' //Apuracao de ICMS
	cTipoImp := SF6->F6_TIPOIMP  
	If AllTrim(cTipoImp)=='3'
		 //msgalert('ST')          
		 DEFINE MSDIALOG oDlg TITLE "Informações complementares" FROM 000, 000  TO 100, 400 COLORS 0, 16777215 PIXEL
	    @ 002, 006 GROUP oGroup1 TO 045, 191 PROMPT "DIGITE O VENCIMENTO PARA TITULO ST" OF oDlg COLOR 0, 16777215 PIXEL
    	@ 020, 011 SAY oSay1 PROMPT "Vencimento: " SIZE 035, 008 OF oDlg COLORS 0, 16777215 PIXEL
	    @ 018, 042 MSGET oVEnc VAR dVEnc SIZE 054, 010 OF oDlg COLORS 0, 16777215 PIXEL
    	@ 014, 117 BUTTON oButton1 PROMPT "Ok" SIZE 052, 016 Action (oDlg:End())  OF oDlg PIXEL
		  ACTIVATE MSDIALOG oDlg CENTERED   
		  SE2->E2_NUM := SE2->(Soma1(E2_NUM,Len(E2_NUM)))
		  SE2->E2_VENCTO 	:= DataValida(dVENCTO,.T.)
		  SE2->E2_VENCREA 	:= DataValida(dVENCTO,.T.)
	elseif AllTrim(cTipoImp) == '1'
		msgAlert('ICMS')   
	EndIf
endif 
Return {SE2->E2_NUM,SE2->E2_VENCTO}

Por favor Acessar ou Registrar para participar da conversa.

Mais
8 anos 10 meses atrás #28531 por wendelborges
Respondido por wendelborges no tópico PONTO DE ENTRADA TITICMST
Boa tarde Caio,
Estou nesta mesma situação, por acaso você conseguiu alguma solução?

Grato,
Wendel

Por favor Acessar ou Registrar para participar da conversa.

  1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. PONTO DE ENTRADA TITICMST
Tempo para a criação da página:0.103 segundos
Joomla templates by a4joomla