Histórico da Página

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FILEIO.CH"

User Function At910CMa()

Local aRetInc := {.T., {}}
Local cDetCab := ""
Local nY := 0
Local cDetLinha := ""
Local nC := 0
Local cEmp	:= FWCodEmpFWGrpCompany()
Local cDirArq := "\EXPCSVTEC\"+cEmp+"\" + StrTran(FwCodFil(), " ", "_")+"\"
Local lFirstProc := .F.
Local cMsg := ""
Local lRet := .F.

If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 4 .AND. ValType(PARAMIXB[01]) == "A";
  .AND. Len(PARAMIXB[01]) > 0  .AND. ValType(PARAMIXB[02]) == "A" .AND. Len(PARAMIXB[02]) > 0
	If !ExistDir(cDirArq)
		MakeDir("\EXPCSVTEC\")
		MakeDir("\EXPCSVTEC\"+cEmp+"\")
		MakeDir(cDirArq)
	EndIf
	
	aCabec := PARAMIXB[01]
	aItens := PARAMIXB[02]             
	lFirstProc := PARAMIXB[04]
	cNomeArq := "U_At910CMa_"+Dtos(Date())+LTrim(Str(PARAMIXB[03]))+".txt"
	
	If lFirstProc .AND. File(cDirArq+cNomeArq)
		fErase(cDirArq+cNomeArq)
	EndIf
	
	If !File(cDirArq+cNomeArq)
		nHandle := FCreate(cDirArq+cNomeArq)
	Else
		nHandle := FOpen(cDirArq+cNomeArq, FO_READWRITE)
		FSeek(nHandle, 0, 2)
	EndIf
	
	aCabec := PARAMIXB[01]
	aItens := PARAMIXB[02]
	
	If nHandle <> -1
		For nC := 1 to len(aCabec)
			cDetCab += Alltrim(IIF( ValType(aCabec[nC, 02])<> "D",cValToChar(aCabec[nC, 02])  , DtoS(aCabec[nC, 02])))+"|"
		Next nC
		
		For nC := 1 to Len(aItens)
			cDetLinha := cDetCab
		
			For nY := 1 to Len(aItens[nC])
				cDetLinha +=  Alltrim(IIF( ValType(aItens[nC, nY, 02])<> "D",cValToChar(aItens[nC, nY, 02])  , DtoS(aItens[nC, nY, 02])))+","
			Next nY
			
			cDetLinha := Substr(cDetLinha, 1, Len(cDetLinha)-1) + CRLF
			fWrite(nHandle, cDetLinha)
		Next nC
	
		lRet := .T.
		fClose(nHandle)
	Else
		cMsg := "Problemas na criação do arquivo"
	EndIf
Else
	cMsg := "Não enviados dados válidos referente às marcações"
EndIf

aRetInc[1] := lRet
aAdd(aRetInc[2], cMsg)

Return aRetInc